-+-+-+-+-+-+-+-+ START OF PART 159 -+-+-+-+-+-+-+-+ X`09CALL pc_inqdefchoicedata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MALT,OL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT CHOICE DEVICE DATA XC X`09SUBROUTINE PQDCH (WTYPE,DEVNO,N,MLDR,ERRIND,MALT, X * OL,PET,EAREA,LDR,DATREC) X X `20 X INTEGER WTYPE ! workstation type `20 X INTEGER DEVNO ! logical input device number X INTEGER N ! list element requested X INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X INTEGER MALT ! maximum number of choice alternativ Ves X INTEGER OL ! number of available prompt and echo V types X INTEGER PET ! Nth element of list of available pr Vompt and echo X ! types X REAL EAREA(4) ! default echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X INTEGER LDR ! number of array elements used in da Vta record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefchoicedata X X`09CALL pc_inqdefchoicedata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MALT,OL,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT PICK DEVICE DATA 3 XC X`09SUBROUTINE PQDPK3 (WTYPE,DEVNO,N,MLDR,ERRIND, X * OL,PET,EVOL,LDR,DATREC) X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER OL ! number of available prompt and echo types X`09INTEGER PET ! Nth element of list of available prompt and V echo X ! types X`09REAL EVOL(6) ! default echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X`09INTEGER LDR ! number of array elements used in data recor Vd X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record `20 X X`09EXTERNAL pc_inqdefpickdata3 X X`09CALL pc_inqdefpickdata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLRD,ERRIND,OL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT PICK DEVICE DATA XC X`09SUBROUTINE PQDPK (WTYPE,DEVNO,N,MLDR,ERRIND, X * OL,PET,EAREA,LDR,DATREC) X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER OL ! number of available prompt and echo types X`09INTEGER PET ! Nth element of list of available prompt and V echo X ! types X`09REAL EAREA(4) ! default echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data recor Vd X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefpickdata X X`09CALL pc_inqdefpickdata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,OL,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT STRING DEVICE DATA 3 XC X`09SUBROUTINE PQDST3 (WTYPE,DEVNO,N,MLDR,ERRIND,MBUFF, X * OL,PET,EVOL,LDR,DATREC) X X INTEGER WTYPE ! workstation type X INTEGER DEVNO ! logical input device number`20 X INTEGER N ! list element requested X INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X INTEGER MBUFF ! available string buffer size X INTEGER OL ! number of available prompt and echo t Vypes X INTEGER PET ! Nth element of list of available prom Vpt and echo X ! types X REAL EVOL(6) ! default echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X INTEGER LDR ! number of array elements used in data V record X CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefstringdata3 X X`09CALL pc_inqdefstringdata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MBUFF,OL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT STRING DEVICE DATA XC X`09SUBROUTINE PQDST (WTYPE,DEVNO,N,MLDR,ERRIND,MBUFF, X * OL,PET,EAREA,LDR,DATREC) X X INTEGER WTYPE ! workstation type X INTEGER DEVNO ! logical input device number X INTEGER N ! list element requested X INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X INTEGER MBUFF ! available string buffer size X INTEGER OL ! number of available prompt and echo V types X INTEGER PET ! Nth element of list of available pro Vmpt and echo X ! types X REAL EAREA(4) ! default echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X INTEGER LDR ! number of array elements used in dat Va record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 !`09data record`20 X X`09EXTERNAL pc_inqdefstringdata X X`09CALL pc_inqdefstringdata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MBUFF,OL,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE SET member OF WORKSTATIONS TO WHICH POSTED XC X`09SUBROUTINE PQWKPO (STRID,N,ERRIND,OL,WKID) X X INTEGER STRID ! structure identifier X `09INTEGER N ! set member requested X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of workstations t Vo which X ! the structure is posted X `09INTEGER WKID ! Nth member of set of wor Vkstations to which X ! the structure is posted X X`09EXTERNAL pc_inqsetwsposted X X`09CALL pc_inqsetwsposted(%VAL(STRID),%VAL(N),ERRIND,OL, X * WKID) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE OPEN STRUCTURE XC X`09SUBROUTINE PQOPST (ERRIND,STYPE,STRID) X X INTEGER ERRIND ! error indicator X `09INTEGER STYPE ! open structure status (P VNONST,POPNST) X `09INTEGER STRID ! structure identifier X X`09EXTERNAL PINQOPENSTRUCT X X`09CALL PINQOPENSTRUCT(ERRIND,STYPE,STRID) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE ELEMENT POINTER `20 XC X`09SUBROUTINE PQEP (ERRIND,EP) X X INTEGER ERRIND ! error indicator X`09INTEGER EP ! element position value X X`09EXTERNAL PINQELEMPTR X X`09CALL PINQELEMPTR(ERRIND,EP) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CURRENT ELEMENT TYPE AND SIZE XC X`09SUBROUTINE PQCETS (ERRIND,ELTYPE,IL,RL,SL) X X INTEGER ERRIND ! error indicator X INTEGER ELTYPE ! element type X ! (PENIL, PEPL3, PEPL, X ! PEPM3, PEPM, PETX3, PETX, X ! PEATR3, PEATR, PEFA3, PEFA, X ! PEFAS3, PEFAS, PECA3, PECA, X ! PEGDP3, PEGDP, PEPLI, PEPMI, X ! PETXI, PEII, PEEDI, PELN, X ! PELWSC, PEPLCI, PEMK, PEMKSC, X ! PEPMCI, PETXFN, PETXPR, PECHXP, X ! PECHSP, PETXCI, PECHH, PECHUP, X ! PETXP, PETXAL, PEATCH, PEATCU, X ! PEATP, PEATAL, PEANST, PEIS, X ! PEISI, PEICI, PEEDFG, PEEDT, X ! PEEWSC, PEEDCI, PEPA, PEPRPV, X ! PEPARF, PEADS, PERES, PEIASF, X ! PEHRID, PELMT3, PELMT, PEGMT3, X ! PEGMT, PEMCV3, PEMCV, PEMCLI, X ! PERMCV, PEVWI, PEEXST, PELB, X ! PEAP, PEGSE, PEPKID) X INTEGER IL ! dimension of integer arr!ay X INTEGER RL ! dimension of real array`20 X INTEGER SL ! dimension of character array X X`09EXTERNAL pc_inqcurelemtypesize X X`09CALL pc_inqcurelemtypesize(ERRIND,ELTYPE,IL,RL,SL) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CURRENT ELEMENT CONTENT XC X`09SUBROUTINE PQCECO (IIL,IRL,ISL,ERRIND,IL,IA,RL,RA,SL,LSTR,STR) X X INTEGER IIL ! dimension of `09integer array X INTEGER IRL ! dimension of `09real array X INTEGER ISL ! dimension of character array X INTEGER ERRIND ! error indicator X INTEGER IL ! number of integer entries X INTEGER IA(*) ! array containing integer entries X INTEGER RL ! number of real entries X REAL RA(*) ! array containing real entries X INTEGER SL ! number of character string entries X INTEGER LSTR(*) ! length of each character string entry X CHARACTER*(*) STR(*) ! character string entries X X`09EXTERNAL pc_inqcurelemcontent X X`09CALL pc_inqcurelemcontent(%val(IIL),%val(IRL),%val(ISL), X : ERRIND,IL,IA,RL,RA,SL,LSTR,%ref(STR)) X X`09return X`09end X Xc-------------------------------------------------------------------- X XC XC INQUIRE ELEMENT TYPE AND SIZE XC X`09SUBROUTINE PQETS (STRID,ELENUM,ERRIND,ELTYPE,IL,RL,SL) X X INTEGER STRID ! structure identifier X`09INTEGER ELENUM ! element position X`09INTEGER ERRIND ! error indicator X`09INTEGER ELTYPE ! element type X ! (PENIL, PEPL3, PEPL, X ! PEPM3, PEPM, PETX3, PETX, X ! PEATR3, PEATR, PEFA3, PEFA, X ! PEFAS3, PEFAS, PECA3, PECA, X ! PEGDP3, PEGDP, PEPLI, PEPMI, X ! PETXI, PEII, PEEDI, PELN, X ! PELWSC, PEPLCI, PEMK, PEMKSC, X ! PEPMCI, PETXFN, PETXPR, PECHXP, X ! PECHSP, PETXCI, PECHH, PECHUP, X ! PETXP, PETXAL, PEATCH, PEATCU, X ! PEATP, PEATAL, PEANST, PEIS, X ! PEISI, PEICI, PEEDFG, PEEDT, X ! PEEWSC, PEEDCI, PEPA, PEPRPV, X ! PEPARF, PEADS, PERES, PEIASF, X ! PEHRID, PELMT3, PELMT, PEGMT3, X ! PEGMT, PEMCV3, PEMCV, PEMCLI, X ! PERMCV, PEVWI, PEEXST, PELB, `20 X ! PEAP, PEGSE, PEPKID) X`09INTEGER IL ! dimension of `09integer array X`09INTEGER RL ! dimension of `09real array X`09INTEGER SL ! dimension of character array X X`09EXTERNAL pc_inqelemtypesize X X`09CALL pc_inqelemtypesize(%VAL(STRID),%VAL(ELENUM),ERRIND, X * ELTYPE,IL,RL,SL) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE ELEMENT CONTENT XC X`09SUBROUTINE PQECO (STRID,ELENUM,IIL,IRL,ISL,ERRIND,IL,IA,RL, X : RA,SL,LSTR,STR) X X INTEGER STRID ! structure identifier X INTEGER ELENUM ! element number X INTEGER IIL ! dimension of `09integer array X INTEGER IRL ! dimension of `09real array X INTEGER ISL ! dimension of character array X INTEGER ERRIND ! error indicator X INTEGER IL ! number of integer entries X INTEGER IA(*) ! array containing integer entries X INTEGER RL ! number of real entries X REAL RA(*) ! array containing real entries X INTEGER SL ! number of character string entries X INTEGER LSTR(*) ! length of each character string entry X CHARACTER*(*) STR(*) ! character string entries X X`09EXTERNAL pc_inqelemcontent X X`09CALL pc_inqelemcontent(%val(STRID), %val(ELENUM), X : %val(IIL), %val(IRL), %val(ISL),ERRIND,IL,IA,RL,RA,SL, X * LSTR,%ref(STR)) X X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STRUCTURE STATUS XC X`09SUBROUTINE PQSTST (STRID,ERRIND,STRSTI) X X `09INTEGER STRID ! structure identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER STRSTI ! structure status indicator (PNOEXS,PEMPI-Y V,PNOEMP) X X`09EXTERNAL PINQSTRUCTSTATUS X X`09CALL PINQSTRUCTSTATUS(%VAL(STRID),ERRIND,STRSTI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PATHS TO ANCESTORS +-+-+-+-+-+-+-+- END OF PART 159 +-+-+-+-+-+-+-+-