-+-+-+-+-+-+-+-+ START OF PART 154 -+-+-+-+-+-+-+-+ X ! of the list of available GSEs X INTEGER WSDIND ! workstation dependency indicator `20 X ! of Nth element of the list of available GS VEs X ! (PWKI PWKD) X X`09EXTERNAL pc_inqgsefacil X X`09CALL pc_inqgsefacil(%VAL(N),ERRIND,OL,GSEID,WSDIND) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE EDIT MODE XC X`09SUBROUTINE PQEDM (ERRIND,EDITMO) X `20 X INTEGER ERRIND ! error indicator X`09INTEGER EDITMO ! edit mode (PINSRT, PREPLC) X X`09EXTERNAL PINQEDITMODE X X`09CALL PINQEDITMODE(ERRIND,EDITMO) `20 X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE SET member OF OPEN WORKSTATIONS XC X`09SUBROUTINE PQOPWK (N,ERRIND,OL,WKID) X X INTEGER N ! set member requested X INTEGER ERRIND ! error indicator X INTEGER OL ! number of open workstations X INTEGER WKID ! Nth member of set of open workstations X X`09EXTERNAL pc_inqsetopenws X X`09CALL pc_inqsetopenws(%VAL(N),ERRIND,OL,WKID) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STRUCTURE IDENTIFIERS XC X`09SUBROUTINE PQSID (N,ERRIND,NUMBER,STRID) X X INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X INTEGER NUMBER ! number of structure identifiers X INTEGER STRID ! Nth structure identifier X X`09EXTERNAL pc_inqstructids X X`09CALL pc_inqstructids(%VAL(N),ERRIND,NUMBER,STRID) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE ARCHIVE FILES XC X`09SUBROUTINE PQARF (N,ERRIND,NUMBER,AFID,ARCFlL) X X INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X INTEGER NUMBER ! number of archive files open X INTEGER AFID ! Nth open archive file identifier X INTEGER ARCFIL ! Nth open archive file name X X`09EXTERNAL pc_inqarchivefiles X X`09CALL pc_inqarchivefiles(%VAL(N),ERRIND,NUMBER,AFID,ARCFIL) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CONFLICT RESOLUTION XC X`09SUBROUTINE PQCNRS (ERRIND,ARCCR,RETCR) X X`09INTEGER ERRIND ! error indicator X`09INTEGER ARCCR ! archival conflict resolution (PCRMNT, PCRABA, P VCRUPD) X`09INTEGER RETCR ! retrieval conflict resolution (PCRMNT, PCRABA, V PCRUPD) X X`09EXTERNAL PINQCONFLICTRES X X`09CALL PINQCONFLICTRES(ERRIND,ARCCR,RETCR) X X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE ALL CONFLICTING STRUCTURES XC X`09SUBROUTINE PQCSI (AFID,N,ERRIND,OL,OSIRID) X X `20 X INTEGER AFID ! archive file identifier X INTEGER N ! element of the structure identifier list t Vo return X INTEGER ERRIND ! error indicator X INTEGER OL ! number of structure identifiers in list X INTEGER OSIRID ! Nth structure identifier in list X X`09EXTERNAL pc_inqallconflictstruct X X`09CALL pc_inqallconflictstruct(%VAL(AFID),%VAL(N),ERRIND, X * OL,OSIRID) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CONFLICTING STRUCTURES IN NETWORK XC X`09SUBROUTINE PQCSTN (AFID,STRID,SNSRC,N,ERRIND,OL,OSTRID) X X INTEGER AFID ! archive file identifier X`09INTEGER STRID ! structure identifier X`09INTEGER SNSRC ! structure network source (PCSS,PARCHV) X`09INTEGER N ! element of the structure identifier list to ret Vurn X`09INTEGER ERRIND ! error indicator X`09INTEGER OL ! number of structure identifiers in list X`09INTEGER OSTRID ! Nth structure identifier in list X `20 X`09EXTERNAL pc_inqconflictstructinnet X X`09CALL pc_inqconflictstructinnet(%VAL(AFID),%VAL(STRID), X * %VAL(SNSRC),%VAL(N),ERRIND,OL,OSTRID) X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE MORE SIMULTANEOUS EVENTS XC X`09SUBROUTINE PQSIM (ERRIND,FLAG) X X`09INTEGER ERRIND ! error indicator X`09INTEGER FLAG ! more simultaneous events (PNMORE,PMORE) X X`09EXTERNAL PINQMOREEVENTS X X`09CALL PINQMOREEVENTS(ERRIND,FLAG) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE WORKSTATION CONNECTION AND TYPE XC X`09SUBROUTINE PQWKC (WKID,ERRIND,CONID,WTYPE) X X`09INTEGER WKID ! workstation identifier X`09INTEGER ERRIND ! error indicator X`09INTEGER CONID ! connection identifier X`09INTEGER WTYPE ! workstation type X X`09EXTERNAL pc_inqwsconntype X `20 X`09CALL pc_inqwsconntype(%VAL(WKID),ERRIND,CONID,WTYPE) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF VIEW INDICES XC X`09SUBROUTINE PQEVWI (WKID,N,ERRIND,NVWIX,VIEWI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X `09INTEGER NVWIX ! number of view bundle table entries X `09INTEGER VIEWI ! Nth element of list of defined view indice Vs X X`09EXTERNAL pc_inqviewind X X`09CALL pc_inqviewind(%VAL(WKID),%VAL(N),ERRIND,NVWIX,VIEWI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE VIEW REPRESENTATION XC X`09SUBROUTINE PQVWR ( WKID, VIEWI, CURQ, ERRIND, X * VWUPD, VWORMT, VWMPMT, VWCPLM, XYCLPI, BCLIPI, FCLIPI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER VIEWI ! view index requested X `09INTEGER CURQ ! whether current or requested values are t Vo X ! be returned (PCURVL,PRQSVL) X `09INTEGER ERRIND ! error indicator X `09INTEGER VWUPD ! viewing transformation update state (PNPE VND,PPEND) X `09REAL VWORMT(4,4) ! view orientation matrix X `09REAL VWMPMT(4,4) ! view mapping matrix X `09REAL VWCPLM(6) ! view clipping limits (NPC) X ! xmin,xmax,ymin,ymax,zmin,zmax X `09INTEGER XYCLPI ! x-y clipping indicator (PNCLIP,PCLIP) X `09INTEGER BCLIPI ! back clipping indicator (PNCLIP,PCLIP) X `09INTEGER FCLIPI ! front clipping indicator (PNCLIP,PCLIP) X X`09EXTERNAL pc_inqviewrep X X`09CALL pc_inqviewrep(%VAL(WKID),%VAL(VIEWI),CURQ,ERRIND,VWUPD, X * VWORMT,VWMPMT,VWCPLM,XYCLPI,BCLIPI,FCLIPI) X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE HLHSR MODE XC X`09SUBROUTINE PQHRM (WKID, ERRIND, HUPD, CHRM, RHRM) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER HUPD ! HLHSR mode update state (PNPEND,PPEND) X `09INTEGER CHRM ! current HLHSR mode X `09INTEGER RHRM ! requested HLHSR mode X X`09EXTERNAL PINQHLHSRMODE X X`09CALL PINQHLHSRMODE(%VAL(WKID),ERRIND,HUPD,CHRM,RHRM) X X`09return X`09end Xc--------------------------------------------------------------------`20 Xc--------------------------------------------------------------------`20 X XC XC INQUIRE POSTED STRUCTURES XC X`09SUBROUTINE PQPOST (WKID,N,ERRIND,NUMBER,STRID,PRIORT) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X `09INTEGER NUMBER ! number of structures posted X ! to that workstation X `09INTEGER STRID ! identifier of the Nth structure X ! posted to that workstation X `09REAL PRIORT ! input priority of the Nth structure X ! posted to that workstation X X`09EXTERNAL pc_inqpostedstruct X X`09CALL pc_inqpostedstruct(%VAL(WKID),%VAL(N),ERRIND,NUMBER, X * STRID,PRIORT) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DISPLAY UPDATE STATE XC X`09SUBROUTINE PQDUS (WKID,ERRIND,DEFMOD,MODMOD,DEMPTY,STOFVR) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER DEFMOD ! deferral mode X ! (PASAP ,PBNIG ,PBNIL,PASTI,PWAITD) X `09INTEGER MODMOD ! modification mode `20 X ! (PNIVE,PUWOR ,PUQUM) X `09INTEGER DEMPTY ! display surface empty X ! (PNEMPT,PEMPTY) X `09INTEGER STOFVR ! state of visual representation X ! (PVROK ,PVRDRF,PVRSIM) X X`09EXTERNAL PINQDISPLAYUPDATEST X X`09CALL PINQDISPLAYUPDATEST(%VAL(WKID),ERRIND,DEFMOD,MODMOD, X * DEMPTY,STOFVR) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF POLYLINE INDICES XC X`09SUBROUTINE PQEPLI (WKID,N,ERRIND,OL,PLI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of polyline bundle table entries X `09INTEGER PLI ! Nth element of list of defined polyline V indices X X`09EXTERNAL pc_inqlineind X X`09CALL pc_inqlineind(%VAL(WKID),%VAL(N),ERRIND,OL,PLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE POLYLINE REPRESENTATION`20 XC X`09SUBROUTINE PQPLR(WKID,PLI,TYPE,ERRIND,LTYPE,LWIDTH,COLI) X `20 X `09INTEGER DEMPTY ! display surface empty X ! (PNEMPT,PEMPTY) X `09INTEGER STOFVR ! state of visual representation X ! (PVROK ,PVRDRF,PVRSIM) X X`09EXTERNAL pc_inqlinerep X X`09CALL pc_inqlinerep(%VAL(WKID),%VAL(PLI),%VAL(TYPE),ERRIND, X * LTYPE,LWIDTH,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF POLYMARKER INDICES XC X`09SUBROUTINE PQEPMI (WKID,N,ERRIND,OL,PMI) X X `20 X INTEGER WKID ! workstation identifier X INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X INTEGER OL ! number of polymarker bundle table entries X INTEGER PMI ! Nth element of list of defined polymarker V indices X X`09EXTERNAL pc_inqmarkerind X X`09CALL pc_inqmarkerind(%VAL(WKID),%VAL(N),ERRIND,OL,PMI) X X`09return X`09end `20 Xc-------------------------------------------------------------------- X XC XC INQUIRE POLYMARKER REPRESENTATION XC X`09SUBROUTINE PQPMR (WKID,PMI,TYPE,ERRIND,MTYPE,MSZSF,COLI) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER PMI ! polymarker index X`09INTEGER TYPE ! type of returned values (PSET,PREALI) X`09INTEGER ERRIND ! error indicator X`09INTEGER MTYPE ! marker type X`09REAL MSZSF ! marker size scale factor X`09INTEGER COLI ! polymarker colour index X X`09EXTERNAL pc_inqmarkerrep X X`09CALL pc_inqmarkerrep(%VAL(WKID),%VAL(PMI),%VAL(TYPE),ERRIND, X * MTYPE,MSIZE,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF TEXT INDICES XC X`09SUBROUTINE PQETXI (WKID,N,ERRIND,OL,TXI) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER N ! list element requested X`09INTEGER ERRIND ! error indicator X`09INTEGER OL ! number of text bundle table entries X`09INTEGER TXI ! Nth element of list of defined text indices X `20 X `20 X`09EXTERNAL pc_inqtextind X X`09CALL pc_inqtextind(%VAL(WKID),%VAL(N),ERRIND,OL,TXI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE TEXT REPRESENTATION XC X`09SUBROUTINE PQTXR (WKID TXI,TYPE,ERRIND,FONT,PREC,CHXP,CHSP, X * COLI) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER TXI ! text index X`09INTEGER TYPE ! type of resumed values (PSET,PREALI) X`09INTEGER ERRIND ! error indicator X`09INTEGER FONT ! text font X`09INTEGER PREC ! text precision (PSTRP,PCHARP,PSTRKP) X`09REAL CHXP ! character expansion factor X`09REAL CHSP ! character spacing X`09INTEGER COLI ! text colour index X X`09EXTERNAL pc_inqtextrep X X`09CALL pc_inqtextrep(%VAL(WKID),%VAL(TXI),%VAL(TYPE),ERRIND, X * FONT,PREC,CHPX,CHSP,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF INTERIOR INDICES XC `20 X`09SUBROUTINE PQEII (WKID,N,ERRIND,OL,II) X X INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of interior bundle table entries X `09INTEGER II ! Nth element of list of defined interior in Vdices X X`09EXTERNAL pc_inqintind X X`09CALL pc_inqintind(%VAL(WKID),%VAL(N),ERRIND,OL,II) X X`09return X`09end Xc-------------------------------------------------------------------- +-+-+-+-+-+-+-+- END OF PART 154 +-+-+-+-+-+-+-+-