3+߹$ PRODUSE010.B=p PRODUSE010.BBACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY $1$DIA2:[PRODUCT_USE.B]*.*; $1$DIA2:[PRODUCT_USE]PRODUSE010.B/LABEL=(PRODUSE)/SAVE/BLOCK=9000/GROUP=25/NOINIT/NOREWIVAX/VMS SPKITBLD Procedure BUCKLEY @<^V6.1 _DEWEY::  _$1$DIA2: V6.1 $I'*[PRODUCT_USE.B]PRODUCT_USE_DECPS.OBJ;18+,e . / 4 -0123KPWO!56 \X87v@<^89GHJ 6 PRODUCT_USE0111-Feb-1993 19:0711-Feb-1993 19:07VAX FORTRAN V5.5-98 PRODUCT_USE-PNODEUSERIMAGEOUTPUTSAVESAVE FILE IS RECALLRECALL FILE IS BEGINNINGENDINGPRODUCT_SKIP.DATSKIP ARRAY LIMIT REACHED, EXTRA IMAGES IN REPORTPRODUCT_SKIP_VMS_DECW.DATONLY 10 NODES PER CLUSTER CAN FIT ON THE REPORT, NODES SKIPPED[(LASTUSER)]IMAGE_TO_PRODUCT.DATPROD_IMAGE ARRAY LIMIT REACHEDSOME IMAGES NOT UNDER THEIR PRODUCT IN THE REPORTUSER_IMAGE_TO_PRODUCT.DATPRODARRAY LIMIT REACHED PRODUCT INFO INCOMPLETEIMAGES.RPTUSERS.RPT''P      ' P'   '      '    Report data starts  and ends    &     9 Total Max concurrent users9 Product Image Name Users Tot   1  PRODUCT_USE\|P|+|'D|'k|'|'|| CLI$PRESENT@| CLI$GET_VALUE@||  | CLI$GET_VALUE@IJ||'| CLI$GET_VALUE@|| | CLI$PRESENT@| CLI$GET_VALUE@l||<| CLI$PRESENT@L| CLI$GET_VALUE@t||  -t|- CLI$PRESENT@-|- CLI$GET_VALUE@|| |4 C|C CLI$PRESENT@ C|C CLI$GET_VALUE@\|$|ܳ|M|M CLI$PRESENT@M|M CLI$GET_VALUE@d|(| |,|0|TL|T FOR$OPEN@'0e| FOR$OPEN@'0e||||@||>\|  '| '| FOR$OPEN@' 1,]Զ|] FOR$OPEN@' 1,/w $| FOR$OPEN@B '  x| FOR$OPEN@B' |  'PO|[^(((((((<$$W< N0ԫԫԫ ˨ CLI$PRESENTP˸ CLI$GET_VALUEPPLIB$STOPԫ( CLI$_ABSENTR֫( (P@ CLI$GET_VALUEPRPPLIB$STOPѫ(2ԫ,֫,',P@% CLI$GET_VALUEPRPPLIB$STOPѫ,2( CLI$PRESENTP8 CLI$GET_VALUEPPLHLIB$STOPԫ0ԫ4X CLI$PRESENTP0h CLI$GET_VALUEPP|xLIB$STOP~ FOR$WRITE_SLˀ FOR$IO_T_DSˈ FOR$IO_T_DS FOR$IO_ENDː CLI$PRESENTP4ˠ CLI$GET_VALUEPP˴˰LIB$STOP~ FOR$WRITE_SL˸ FOR$IO_T_DSː FOR$IO_T_DS FOR$IO_END CLI$PRESENTP CLI$GET_VALUEPPLIB$STOP8&'P` SYS$BINTIM  CLI$PRESENTP CLI$GET_VALUEPP0,LIB$STOP<4?8/P`D< SYS$BINTIM/P`TH SYS$ASCTIMPP\XLIB$STOPhFOR$OPEN֫~ FOR$READ_SF'P@˄ˀ FOR$IO_T_DS FOR$IO_ENDѫ~ FOR$WRITE_SLˈ FOR$IO_T_DS FOR$IO_ENDː FOR$CLOSEˠFOR$OPEN֫~ FOR$READ_SF'P@˼˸ FOR$IO_T_DS FOR$IO_ENDѫ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END FOR$CLOSEYЫZVZVP'VX'P\)'HLHP('`HPLR('b`LP('`YZVYѫ41FOR$OPENԫTV֫T~ FOR$READ_SFTP@ FOR$IO_T_DS FOR$IO_ENDTP(@! P`fPSPA$OPEN_CONTEXTPkkP`P` P` PSPA$STOPkkfPSPA$READ_CONTEXTPk PSPA$_NOMOREPkPkP`$P`(P`, PSPA$STOPޞ4P`PP`44P`80 GET_PSPA_PROù/1μfHDPSPA$CLOSE_CONTEXTPkkP`TP`XP`\L PSPA$STOPѫT 1~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDЫTVѫT VP(@h FOR$CLOSE Vի01$ptxFOR$OPENN FOR$WRITE_SFp FOR$IO_T_DSx FOR$IO_T_DS˔˘˔ FOR$IO_T_DS˜ˠ˜ FOR$IO_T_DSˤ˨ˤ FOR$IO_T_DSˬ˰ˬ FOR$IO_T_DS˴˸˴ FOR$IO_T_DS˼˼ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS  FOR$IO_T_DSݫT FOR$IO_L_V FOR$IO_ENDVZV\%N FOR$WRITE_SF ZP @ FOR$IO_T_DSߌ FOR$IO_L_R FOR$IO_ENDVZ%N FOR$WRITE_SF FOR$IO_T_DS FOR$IO_L_R FOR$IO_ENDY$ZVZ1-N FOR$WRITE_SFŏgV\L FOR$IO_T_DSL FOR$IO_T_DSLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RLP` FOR$IO_L_RL\l FOR$IO_L_R FOR$IO_ENDZV1 FOR$CLOSEի41 FOR$OPENY$VWN FOR$READ_SFp FOR$IO_T_DSx FOR$IO_T_DS040 FOR$IO_T_DS8<8 FOR$IO_T_DS@D@ FOR$IO_T_DSHLH FOR$IO_T_DSPTP FOR$IO_T_DSX\X FOR$IO_T_DS`d` FOR$IO_T_DShlh FOR$IO_T_DSptp FOR$IO_T_DSx |x FOR$IO_T_DS߫T FOR$IO_L_R FOR$IO_END%N FOR$READ_SF Z ˀJ˄ˀ FOR$IO_T_DSP@| FOR$IO_L_R FOR$IO_END) JV~-N FOR$READ_SFŏgVP@ˌˈ FOR$IO_T_DSŏgVP@˔ː FOR$IO_T_DSŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_RŏgVP@P` FOR$IO_L_R FOR$IO_END1V$˘ FOR$CLOSE˨FOR$OPEN֫ ~ FOR$READ_SF3 P@ FOR$IO_T_DS3 P@ FOR$IO_T_DS FOR$IO_ENDѫ ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLPzv$ PRODUSE010.Be '[PRODUCT_USE.B]PRODUCT_USE_DECPS.OBJ;18 J FOR$IO_T_DS FOR$IO_END FOR$CLOSEFOR$OPEN֫ ~ FOR$READ_SF3 P@  FOR$IO_T_DS3 P@ FOR$IO_T_DS FOR$IO_ENDѫ ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END( FOR$CLOSEH$1Ы PŏgHYխ13PT)'ID1( DIЫTWիŏPWP) @.IIP`PPVTWѫ~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END1֫ЫWŏPWZ( IJ.IP`PPVJ8NZjV1ŏPWZJ8NP`TT1TUXU V\XPZP@.P `P) @LF|VUX̞J8NXThJ8NXhXXZJ.ZVjF|V1gP( I$H1aV$YWZYZPŏgZXŏgP\) HLHP(g`뼞HPLT(gd`LP(g뼞`WYZWѫ,1@FOR$OPEN$YWY1Ы,Z\Z1ŏgWT'\X)'DH%DP`PPXX FOR$WRITE_SFD`\ FOR$IO_T_DSDhd FOR$IO_T_DS XP l@pl FOR$IO_T_DS FOR$IO_ENDH|XZ\1sYW1RЫ,WYW1\ի1'YTŏP\Z- J. 'D%¹nJ8NP`XUX FOR$WRITE_SFJ.xt FOR$IO_T_DSUPZP@.P `P |@ˀ| FOR$IO_T_DS FOR$IO_ENDXU\qWY1X˄ FOR$CLOSEѫ(1˔FOR$OPEN$YWY1ŏgW\LP`PPTT1Ы(UZU TX ZP) H@ FOR$WRITE_SF ˰H˴˰ FOR$IO_T_DSL˼˸ FOR$IO_T_DSL FOR$IO_T_DS FOR$IO_ENDUZD|T1sYW1S FOR$CLOSEﰫXFOR$OPENAW( ګ$Y\Y1W@1W FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFp FOR$IO_T_DSx FOR$IO_T_DS FOR$IO_ENDE FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS $  FOR$IO_T_DS(,(y FOR$IO_T_DS040 FOR$IO_T_DS8 <8 FOR$IO_T_DS FOR$IO_ENDA FOR$WRITE_SF FOR$IO_ENDŏg\Z) JA FOR$WRITE_SF FOR$IO_ENDWTիŏPTU) E.J FOR$WRITE_SFE.D@ FOR$IO_T_DSE8NUe FOR$IO_L_R FOR$IO_ENDWT( JJP`PJTdTTPJTdTTPJTdTTPJTdTTPJTdTTPJTdTTPJTdTTPJTdTTPJTPdTW! FOR$WRITE_SFJLH FOR$IO_T_DSJTP FOR$IO_T_DSJP` FOR$IO_L_RT FOR$IO_L_VJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJP` FOR$IO_L_RJZj FOR$IO_L_R FOR$IO_ENDY\1X FOR$CLOSEPP  O PRODUCT_USE SYS$ASCTIM SYS$BINTIMPSPA$OPEN_CONTEXTPSPA$READ_CONTEXTPSPA$CLOSE_CONTEXT CLI$GET_VALUE CLI$PRESENT CLI$_ABSENT PSPA$_NOMORELIB$STOPFOR$OPEN FOR$CLOSE PSPA$STOP GET_PSPA_PROM$CODE$PDATAL|$LOCALCOM$CTX$ COM$ARRAY0 COM$SKIPARRAYCOM$USER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SLiPPPPPP8PDPdPEtPPEPP<PNP<ZPPPZP5PZnPPCP'P!P]P'PqPTP'P3P'PPPJ~PP.@ Pn P( P} P P' PD Pj^ PHy P. P Pe P" PP0P;P8bP PVP1GPbPqPPuPmP-PKPp]P^PPP"Po9PTPYPkoPxPXP>\P M7 GET_PSPA_PRO0111-Feb-1993 19:0711-Feb-1993 19:07VAX FORTRAN V5.5-98 GET_PSPA_PROdPARRAY LIMIT REACHED,IMAGE DATA IS INCOMPLETEUSER ARRAY LIMIT REACHED, USER DATA IS INCOMPLETE GET_PSPA_PRO8P ' `h,1,PO4[^м(Ьޫ PFOR$INI_DES1_R2V$PQPŏgQRBRbPQмXռ1ŏXRURQAQaD< STR$COPY_DXPPLHLIB$STOPMRP@P`XP STR$COPY_DXPP`\LIB$STOPTм U)'1' P)'@1TUPPZ'ZY)'I1TZUZ)'IZU)'IZTZYZZ$~ FOR$WRITE_SLd FOR$IO_T_DS FOR$IO_END1Z$ŏgZW('GGP` P( @P@|PWP@P`GWg$1ŏgZW)'G1XGZjZGPZ`GP`PZWZJTdTPTJZPjGZjZ ZP) @1J|0~ FOR$WRITE_SLl FOR$IO_T_DS FOR$IO_ENDJ|J| P( @P@|GP`PGTPdJ|Z1eX O GET_PSPA_PRO STR$COPY_DXLIB$STOP$CODE]$PDATA$LOCAL$ COM$ARRAY0 COM$SKIPARRAYCOM$USER FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLFOR$INI_DES1_R24PYPdP P PPPP(P#PP>P![P[hP_P P*P4P+AP^PYhPCP oc=4 PSPA$STOP0111-Feb-1993 19:0711-Feb-1993 19:07VAX FORTRAN V5.5-98 PSPA$STOPsP)4 %PSPA-F-INCOMPAT, Data is incompatible with reader.0 %PSPA-F-NOALLOCVA, Insufficient virtual memory. PSPA$STOP"TPPPTPTPTPHP[м SYS$GETMSG~ FOR$WRITE_SFk  FOR$IO_T_DS FOR$IO_ENDѼм ($ SYS$GETMSG~ FOR$WRITE_SFk484 FOR$IO_T_DS FOR$IO_ENDм@< SYS$GETMSG~ FOR$WRITE_SFkLPL FOR$IO_T_DS FOR$IO_ENDѼ~ FOR$WRITE_SF FOR$IO_ENDѼ9~ FOR$WRITE_SF FOR$IO_ENDмXTSYS$EXIT H PSPA$STOPSYS$EXIT SYS$GETMSG$CODEl$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF(EPrP?PPP'*[PRODUCT_USE.B]PSPA$LIB.FOR;3+, ./ 4[-0123KPWO5+6H57@<^89GHJ (!*** MODULE $PSPABEGIN IDENT X1.1-36 *** *!*** MODULE $PSPACTXDEFS IDENT X1.1-38 *** PARAMETER CTX$M_C = '00000001'X# PARAMETER CTX$M_OPEN = '00000002'X# PARAMETER CTX$M_REPO = '00000004'X# PARAMETER CTX$M_DIRE = '00000008'X% PARAMETER CTX$M_NOMORE = '00000010'X# PARAMETER CTX$M_HOLE = '00000020'X# PARAMETER CTX$M_LOST = '00000040'X% PARAMETER CTX$M_NOFILE = '00000080'X$ PARAMETER CTX$M_IOERR = '00000100'X% PARAMETER CTX$M_REOPEN = '00000200'X& PARAMETER CTX$M_PARTIAL = '000004e$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[6"00'X' PARAMETER CTX$M_INCOMPAT = '00000800'X' PARAMETER CTX$M_REALTIME = '00001000'X" PARAMETER CTX$M_SUP = '00002000'X& PARAMETER CTX$M_NONSTOP = '00004000'X% PARAMETER CTX$M_FIDDLE = '00008000'X& PARAMETER CTX$M_NETWORK = '00010000'X& PARAMETER CTX$M_NETFILE = '00020000'X& PARAMETER CTX$M_NETLINK = '00040000'X& PARAMETER CTX$M_DSKFILE = '00080000'X$ PARAMETER CTX$M_SPAWN = '00100000'X% PARAMETER CTX$M_NOOLDY = '00200000'XG PARAMETER CTX$K_HOLIDAY_MAX = '00000020'X ! Maximum holidays possibleI PARAMETER CTX$K_INTERVAL_MAX = '000002D0'X ! Maximum intervals possible$ PARAMETER CTX$K_DAILY = '00000000'X% PARAMETER CTX$K_WEEKLY = '00000001'X& PARAMETER CTX$K_MONTHLY = '00000002'X( PARAMETER CTX$K_QUARTERLY = '00000003'X% PARAMETER CTX$K_YEARLY = '00000004'XA PARAMETER CTX$K_CTXLEN = '00000317'X ! Length of argument blockD PARAMETER CTX$K_ERREADFILE = '00000002'X ! DECps_ErrReadFile error? PARAMETER CTX$K_INCOMPAT = '00000004'X ! DECps_Incompat errorA PARAMETER CTX$K_NOALLOCVA = '00000006'X ! DECps_NOallocVA errorC PARAMETER CTX$K_NETFAILURE = '00000008'X ! DECps_NetFailure error? PARAMETER CTX$K_NOARGCNT = '00000010'X ! DECps_NoArgCnt errorA PARAMETER CTX$K_ARGCNT_V10 = '000002EF'X ! V1.0-34 CTX$L_ARGCNTA PARAMETER CTX$K_ARGCNT_V11 = '00000317'X ! V1.1-38 CTX$L_ARGCNT STRUCTURE /CONTEXT// INTEGER*4 CTX$L_ARGCNT ! Argument count, INTEGER*4 CTX$L_STATUS ! Status code UNION MAP7 INTEGER*4 CTX$L_CONDS ! Condition codes END MAP MAP" PARAMETER CTX$S_C = 1: PARAMETER CTX$V_C = 0 ! Success or failure% PARAMETER CTX$S_OPEN = 16 PARAMETER CTX$V_OPEN = 1 ! File is open% PARAMETER CTX$S_REPO = 1A PARAMETER CTX$V_REPO = 2 ! Reposition file pointer% PARAMETER CTX$S_DIRE = 1; PARAMETER CTX$V_DIRE = 3 ! Directory in file' PARAMETER CTX$S_NOMORE = 1B PARAMETER CTX$V_NOMORE = 4 ! No more data available% PARAMETER CTX$S_HOLE = 19 PARAMETER CTX$V_HOLE = 5 ! Hole discovered% PARAMETER CTX$S_LOST = 1= PARAMETER CTX$V_LOST = 6 ! Data unintelligible' PARAMETER CTX$S_NOFILE = 1; PARAMETER CTX$V_NOFILE = 7 ! File is missing& PARAMETER CTX$S_IOERR = 1? PARAMETER CTX$V_IOERR = 8 ! Error accessing file' PARAMETER CTX$S_REOPEN = 1A PARAMETER CTX$V_REOPEN = 9 ! File must be reopened( PARAMETER CTX$S_PARTIAL = 1H PARAMETER CTX$V_PARTIAL = 10 ! At today's partial record ) PARAMETER CTX$S_INCOMPAT = 1C PARAMETER CTX$V_INCOMPAT = 11 ! Data is incompatible) PARAMETER CTX$S_REALTIME = 1A PARAMETER CTX$V_REALTIME = 12 ! Tread water at EOF$ PARAMETER CTX$S_SUP = 1C PARAMETER CTX$V_SUP = 13 ! Command to supersede file( PARAMETER CTX$S_NONSTOP = 1I PARAMETER CTX$V_NONSTOP = 14 ! Command to skip over errors' PARAMETER CTX$S_FIDDLE = 1H PARAMETER CTX$V_FIDDLE = 15 ! Textify FID if deleted file( PARAMETER CTX$S_NETWORK = 1I PARAMETER CTX$V_NETWORK = 16 ! create DECNET client server( PARAMETER CTX$S_NETFILE = 1G PARAMETER CTX$V_NETFILE = 17 ! create DECNET file server( PARAMETER CTX$S_NETLINK = 1G PARAMETER CTX$V_NETLINK = 18 ! DECnet link now in effect( PARAMETER CTX$S_DSKFILE = 1F PARAMETER CTX$V_DSKFILE = 19 ! Read satellite data file& PARAMETER CTX$S_SPAWN = 1F PARAMETER CTX$V_SPAWN = 20 ! Start a detached remote dc' PARAMETER CTX$S_NOOLDY = 1H PARAMETER CTX$V_NOOLDY = 21 ! Disallow old context blocks( PARAMETER CTX$S_SPARES = 10( PARAMETER CTX$V_SPARES = 22 BYTE %FILL (4) END MAP END UNION9 INTEGER*4 CTX$L_HOLE_BGN ! Hole in timeframe start INTEGER*4 CTX$L_HOLE_BGN27 INTEGER*4 CTX$L_HOLE_END ! Hole in timeframe end INTEGER*4 CTX$L_HOLE_END20 INTEGER*4 CTX$L_CONTEXT ! Context number1 BYTE CTX$B_NODELEN ! Nodename length3 CHARACTER*6 CTX$T_NODENAME ! Nodename string7 INTEGER*4 CTX$L_START ! Beginning date and time INTEGER*4 CTX$L_START23 INTEGER*4 CTX$L_STOP ! Ending date and time INTEGER*4 CTX$L_STOP22 INTEGER*2 CTX$W_EXTLEN ! Size of extension9 CHARACTER*39 CTX$T_EXT ! Uniquely named extension7 INTEGER*4 CTX$L_HOLIDAY_CNT ! Number of holidays2 CHARACTER*256 CTX$T_HOLIDAYS ! Holiday list< INTEGER*4 CTX$L_INTERVAL ! Interval length (1hr/1day)! in minutes (1440=day)B INTEGER*4 CTX$L_PERIODICITY ! Schedule repetition frequency! in minutes (10080=weekly)6 INTEGER*4 CTX$L_GRANULARITY ! Length of period ! Daily weekly or monthly codeE INTEGER*4 CTX$A_USERGROUP_FAMILY_LH ! Usergroup family listheadI INTEGER*4 CTX$A_TRANSACTION_FAMILY_LH ! Transaction family listhead< INTEGER*4 CTX$L_RETENTION ! Delete after so many days0 INTEGER*4 CTX$L_ALQ ! Preallocation size6 INTEGER*4 CTX$L_DISKSPACE ! Required disk space; INTEGER*4 CTX$L_UPDATE ! Most recent calendar date  INTEGER*4 CTX$L_UPDATE2: INTEGER*4 CTX$Q_WK_SKEW(2) ! Time week is skewed by UNION MAP@ CHARACTER*3 CTX$T_SCHED_MON ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_TUE ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_WED ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_THU ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_FRI ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_SAT ! Daily schedule 0-23@ CHARACTER*3 CTX$T_SCHED_SUN ! Daily schedule 0-23% CHARACTER*7 CTX$t_fill_1 END MAP MAP% CHARACTER*28 CTX$T_SCHED END MAP END UNIONC CHARACTER*28 CTX$T_WKLY_BITMAP ! 2 minute hr interval filter6 CHARACTER*28 CTX$T_HOLY_BITMAP ! Holiday filter2 INTEGER*4 CTX$L_OUR_ERR ! DECps error code0 INTEGER*4 CTX$L_RMS_ERR ! RMS error code0 INTEGER*4 CTX$L_RMS_IOSB ! RMS error IOSB5 INTEGER*4 CTX$A_TIM_REC ! TIME record address7 INTEGER*4 CTX$A_MET_REC ! METRIC record address: INTEGER*4 CTX$A_PAR_REC ! PARAMETER record address8 INTEGER*4 CTX$A_PRO_REC ! PROCESS record address5 INTEGER*4 CTX$A_DEV_REC ! DISK record address5 INTEGER*4 CTX$A_COM_REC ! COMM record address8 INTEGER*4 CTX$A_MAG_REC ! MAGTAPE record address> INTEGER*4 CTX$A_CFG_REC ! CONFIGURATION record address4 INTEGER*4 CTX$A_CPU_REC ! CPU record address5 INTEGER*4 CTX$A_RUL_REC ! RULE record address5 INTEGER*4 CTX$A_FIL_REC ! File record address< INTEGER*4 CTX$A_TRN_REC ! TRANSACTION record address5 INTEGER*4 CTX$A_PRT_REC ! PORT record address3 INTEGER*4 CTX$L_TIM_CNT ! TIME record count5 INTEGER*4 CTX$L_MET_CNT ! METRIC record count8 INTEGER*4 CTX$L_PAR_CNT ! PARAMETER record count6 INTEGER*4 CTX$L_PRO_CNT ! PROCESS record count3 INTEGER*4 CTX$L_DEV_CNT ! DISK record count3 INTEGER*4 CTX$L_COM_CNT ! COMM record count6 INTEGER*4 CTX$L_MAG_CNT ! MAGTAPE record count< INTEGER*4 CTX$L_CFG_CNT ! CONFIGURATION record count2 INTEGER*4 CTX$L_CPU_CNT ! CPU record count3 INTEGER*4 CTX$L_RUL_CNT ! RULE record countM3 INTEGER*4 CTX$L_FIL_CNT ! File record count0: INTEGER*4 CTX$L_TRN_CNT ! TRANSACTION record count3 INTEGER*4 CTX$L_PRT_CNT ! PORT record count05 INTEGER*4 CTX$L_TIM_OVF ! TIME overflow countR8 INTEGER*4 CTX$L_MET_OVF ! METRIC overflow count; INTEGER*4 CTX$L_PAR_OVF ! PARAMETER overflow countC8 INTEGER*4 CTX$L_PRO_OVF ! PROCESS overflow count6 INTEGER*4 CTX$L_DEV_OVF ! DISK overflow count5 INTEGER*4 CTX$L_COM_OVF ! COMM overflow countT8 INTEGER*4 CTX$L_MAG_OVF ! MAGTAPE overflow count? INTEGER*4 CTX$L_CFG_OVF ! CONFIGURATION overflow count=5 INTEGER*4 CTX$L_CPU_OVF ! CPU overflow countP6 INTEGER*4 CTX$L_RUL_OVF ! RULE overflow count6 INTEGER*4 CTX$L_FIL_OVF ! FILE overflow count= INTEGER*4 CTX$L_TRN_OVF ! TRANSACTION overflow counta6 IG4$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[NTEGER*4 CTX$L_PRT_OVF ! PORT overflow count2 BYTE CTX$B_FILE_LEN ! File spec length3 INTEGER*4 CTX$A_FILE_PTR ! File spec address08 INTEGER*4 CTX$L_DATA_VERSION ! DECps data version2 INTEGER*4 CTX$Q_DATE(2) ! Date at midnight8 CHARACTER*39 CTX$T_FAMILY ! Family name selection? CHARACTER*39 CTX$T_TRANSFAM ! Transaction name selection0: INTEGER*4 CTX$A_DATE_LIST ! Date range list pointer! Link - Begin - End = INTEGER*4 CTX$A_ASTRTE ! Realtime AST routine pointer_6 INTEGER*4 CTX$L_ASTARG ! Realtime AST argumentA INTEGER*4 CTX$L_COLL_DEF_LEN ! Collection extension length1B CHARACTER*20 CTX$T_COLL_DEF_NAME ! Collection file extensionD INTEGER*4 CTX$A_COLL_DEF_PTER ! Collection definition pointer END STRUCTURE ! CONTEXT S*!*** MODULE $PSPAPRTDEFS IDENT X1.1-36 ***% PARAMETER PRT_M_MEMBER = '00000001'X4" PARAMETER PRT_M_HSC = '00000002'X& PARAMETER PRT_M_VAXNODE = '00000004'X% PARAMETER PRT_V_MEMBER = '00000000'X" PARAMETER PRT_V_HSC = '00000001'X& PARAMETER PRT_V_VAXNODE = '00000002'X) PARAMETER PRT_S_VPAPRTRECS = '000000B5'Xf STRUCTURE /PSPAPRTRECS/ UNION MAP BYTE PRT_B_RECD  END MAP MAP5 BYTE PRT_B_TYPE ! record type 12V END MAP END UNION2 INTEGER*4 PRT_A_NODENAME ! nodename address# INTEGER*4 PRT_A_PATH ! pathi3 INTEGER*4 PRT_A_HWNAME ! port hardware name 0 INTEGER*4 PRT_L_PORT_ID ! port type code/ INTEGER*4 PRT_A_PORT ! port type stringX UNION MAP0 INTEGER*4 PRT_L_STATUS ! path status END MAP MAP. PARAMETER PRT_S_STATUS_MEMBER = 1. PARAMETER PRT_V_STATUS_MEMBER = 0+ PARAMETER PRT_S_STATUS_HSC = 1N+ PARAMETER PRT_V_STATUS_HSC = 1P/ PARAMETER PRT_S_STATUS_VAXNODE = 1C/ PARAMETER PRT_V_STATUS_VAXNODE = 2 * PARAMETER PRT_S_STATUS_NI = 1* PARAMETER PRT_V_STATUS_NI = 3* PARAMETER PRT_S_STATUS_CI = 1* PARAMETER PRT_V_STATUS_CI = 4* PARAMETER PRT_S_STATUS_RF = 1* PARAMETER PRT_V_STATUS_RF = 5- PARAMETER PRT_S_STATUS_CIXCD = 1t9 PARAMETER PRT_V_STATUS_CIXCD = 6 ! XCD port . PARAMETER PRT_S_STATUS_SINGLE = 1. PARAMETER PRT_V_STATUS_SINGLE = 7: BYTE %FILL (1) ! XCD counts only one path END MAP END UNION4 REAL*4 PRT_F_DGSENT ! datagrams sent rate8 REAL*4 PRT_F_DGRCVD ! datagrams received rate; REAL*4 PRT_F_DGDISCARD ! datagrams discarded rateC> REAL*4 PRT_F_MSGSENT ! sequenced messages sent rateB REAL*4 PRT_F_MSGRCVD ! sequenced messages received rate@ REAL*4 PRT_F_SNDATS ! block send datas initiated rateA REAL*4 PRT_F_KBYTSENT ! Kbytes sent via send datas rateCD REAL*4 PRT_F_REQDATS ! block request datas initiated rateH REAL*4 PRT_F_KBYTREQD ! Kbytes received via request datas rateH REAL*4 PRT_F_KBYTMAPD ! Kbytes mapped for block transfers rate+ REAL*4 PRT_F_ACKS0 ! path 0 ACKSR+ REAL*4 PRT_F_ACKS1 ! path 1 ACKSR+ REAL*4 PRT_F_NAKS0 ! path 0 NAKS + REAL*4 PRT_F_NAKS1 ! path 1 NAKS, REAL*4 PRT_F_NRSP0 ! path 0 NRSPs, REAL*4 PRT_F_NRSP1 ! path 1 NRSPs5 REAL*4 PRT_F_DG_DISC ! datagrams discardedA$ REAL*4 PRT_F_SNDDAT_OPER_SNT!! Send Data operations completed$ REAL*4 PRT_F_SNDDAT_DATA_SNT.! Bytes of SNDDAT sent by Send Data commands & REAL*4 PRT_F_SNDDAT_BODIES_SNT%! SNDDAT Data bodies sent from host C$ REAL*4 PRT_F_REQDAT_OPER_SNT! REQDAT operations completed B$ REAL*4 PRT_F_RETDAT_DATA_RCV3! Bytes of data received by host in RETDAT bodies s& REAL*4 PRT_F_RETDAT_BODIES_RCV'! RETDAT Data bodies received by host C& REAL*4 PRT_F_SNTDAT_BODIES_REC0! SNTDAT bodies received and delivered to host $ REAL*4 PRT_F_SNTDAT_DATA_REC-! Bytes of 'DATA' received in SNTDAT bodies  REAL*4 PRT_F_CNF_SNT!! Block Data confirmations sent & REAL*4 PRT_F_DATREQ_BODIES_RCV! DATREQ bodies received & REAL*4 PRT_F_RETDAT_BODIES_SNT%! RETDAT Data bodies sent from host n$ REAL*4 PRT_F_RETDAT_DATA_SNT ! Bytes of data sent by RETDAT  REAL*4 PRT_F_DGSNT! DG bodies sent  REAL*4 PRT_F_DG_TXT_SNT ! Bytes of DG TEXT Sent REAL*4 PRT_F_MSG_SNT! MSG bodies sent REAL*4 PRT_F_MSG_TXT_SNT! Bytes of MSG TEXT SentR REAL*4 PRT_F_MISC_SNT!! All other opcode bodies sent  REAL*4 PRT_F_DG_REC ,! DG bodies received and delivered to host  REAL*4 PRT_F_DG_TXTREC.! Bytes of dg received and delivered to host  REAL*4 PRT_F_MSG_REC! MSG bodies received c REAL*4 PRT_F_MSG_TXT_REC4! Bytes of msg text received and delivered to host  REAL*4 PRT_F_MISC_REC ! All other bodies received T END STRUCTURE ! PSPAPRTRECS h*!*** MODULE $PSPACFGDEFS IDENT X1.1-36 ***% PARAMETER CFG_M_MEMBER = '00000001'X " PARAMETER CFG_M_HSC = '00000002'X& PARAMETER CFG_M_VAXNODE = '00000004'X% PARAMETER CFG_V_MEMBER = '00000000'Xd" PARAMETER CFG_V_HSC = '00000001'X& PARAMETER CFG_V_VAXNODE = '00000002'X$ PARAMETER CFG_K_DEUNA = '00000001'X$ PARAMETER CFG_K_DELUA = '00000002'X$ PARAMETER CFG_K_DEQNA = '00000003'X$ PARAMETER CFG_K_DELQA = '00000004'X$ PARAMETER CFG_K_DEBNA = '00000005'X$ PARAMETER CFG_K_DEBNT = '00000006'X$ PARAMETER CFG_K_DESVA = '00000007'X! PARAMETER CFG_K_NI = '0000003F'X_$ PARAMETER CFG_K_CI750 = '00000040'X$ PARAMETER CFG_K_CI780 = '00000041'X% PARAMETER CFG_K_BCI750 = '00000042'X4% PARAMETER CFG_K_CIBCAA = '00000043'X % PARAMETER CFG_K_CIBCAB = '00000044'Xo$ PARAMETER CFG_K_CIXCD = '00000045'X! PARAMETER CFG_K_CI = '0000007F'XC& PARAMETER CFG_K_DSSISII = '00000080'X( PARAMETER CFG_K_DSSISWIFT = '00000081'X' PARAMETER CFG_K_DSSISHAC = '00000082'XR( PARAMETER CFG_K_DSSIKFQSA = '00000083'X( PARAMETER CFG_K_DSSIKFMSA = '00000084'X& PARAMETER CFG_K_DSSIXON = '00000085'X# PARAMETER CFG_K_DSSI = '000000BF'X4) PARAMETER CFG_S_VPACFGRECS = '0000007B'X  STRUCTURE /PSPACFGRECS/ UNION MAP BYTE CFG_B_RECDC END MAP MAP4 BYTE CFG_B_TYPE ! record type 9 END MAP END UNION: INTEGER*2 CFG_W_NODE_CNT ! cluster node name count 2 INTEGER*4 CFG_A_NODENAME ! nodename address CHARACTER*12 CFG_t_fill_1 UNION MAP' INTEGER*4 CFG_A_PATH ! pathR END MAP MAPE INTEGER*4 CFG_A_HARDWARE ! V5.0 HSC node hardware typeI END MAP END UNION UNION MAP8 INTEGER*4 CFG_L_STATUS ! node cluster status END MAP MAP. PARAMETER CFG_S_STATUS_MEMBER = 1. PARAMETER CFG_V_STATUS_MEMBER = 0+ PARAMETER CFG_S_STATUS_HSC = 1L+ PARAMETER CFG_V_STATUS_HSC = 1 / PARAMETER CFG_S_STATUS_VAXNODE = 1 / PARAMETER CFG_V_STATUS_VAXNODE = 2M* PARAMETER CFG_S_STATUS_NI = 1* PARAMETER CFG_V_STATUS_NI = 3* PARAMETER CFG_S_STATUS_CI = 1* PARAMETER CFG_V_STATUS_CI = 4* PARAMETER CFG_S_STATUS_RF = 1* PARAMETER CFG_V_STATUS_RF = 5 BYTE %FILL (1)I END MAP END UNION8 REAL*4 SCS_F_DGSENT ! datagrams sent rate< REAL*4 SCS_F_DGRCVD ! datagrams received rate? REAL*4 SCS_F_DGDISCARD ! datagrams discarded rateoB REAL*4 SCS_F_MSGSENT ! sequenced messages sent rateF REAL*4 SCS_F_MSGRCVD ! sequenced messages received rateD REAL*4 SCS_F_SNDATS ! block send datas initiated rateE REAL*4 SCS_F_KBYTSENT ! Kbytes sent via send datas rateoH REAL*4 SCS_F_REQDATS ! block request datas initiated rateL REAL*4 SCS_F_KBYTREQD ! Kbytes received via request datas rateL REAL*4 SCS_F_KBYTMAPD ! Kbytes mapped for block transfers rateL REAL*4 SCS_F_QCR_CNT ! connection queued for send credit rateM REAL*4 SCS_F_QBDT_CNT ! connection queued for buffer descs rateF; INTEGER*4 CFG_A_HWNAME ! V5.0 VAXnode hardware namea6 INTEGER*4 CFG_L_ADAPTER_ID ! CI/NI adapter code4 INTEGER*4 CFG_A_ADAPTER ! CI/NI adapter name* INTEGER*4 CFG_A_SYSAP ! SYSAP< $ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[}X"$P name CHARACTER*32 CFG_t_reserved END STRUCTURE ! PSPACFGRECS r*!*** MODULE $PSPAPRODEFS IDENT X1.1-36 ***$ PARAMETER PRO_M_RSN_0 = '00000001'X* PARAMETER PRO_M_RSN_ASTWAIT = '00000002'X* PARAMETER PRO_M_RSN_MAILBOX = '00000004'X+ PARAMETER PRO_M_RSN_NPDYNMEM = '00000008'XE) PARAMETER PRO_M_RSN_PGFILE = '00000010'XP+ PARAMETER PRO_M_RSN_PGDYNMEM = '00000020'XM* PARAMETER PRO_M_RSN_BRKTHRU = '00000040'X* PARAMETER PRO_M_RSN_IACLOCK = '00000080'X) PARAMETER PRO_M_RSN_JQUOTA = '00000100'X0) PARAMETER PRO_M_RSN_LOCKID = '00000200'XP* PARAMETER PRO_M_RSN_SWPFILE = '00000400'X+ PARAMETER PRO_M_RSN_MPLEMPTY = '00000800'XU* PARAMETER PRO_M_RSN_MPWBUSY = '00001000'X& PARAMETER PRO_M_RSN_SCS = '00002000'X& PARAMETER PRO_M_RSN_CLU = '00004000'X$ PARAMETER PRO_M_SSS_0 = '00000001'X( PARAMETER PRO_M_SSS_COLPG = '00000002'X( PARAMETER PRO_M_SSS_MWAIT = '00000004'X& PARAMETER PRO_M_SSS_CEF = '00000008'X& PARAMETER PRO_M_SSS_PFW = '00000010'X& PARAMETER PRO_M_SSS_LEF = '00000020'X' PARAMETER PRO_M_SSS_LEFO = '00000040'XP& PARAMETER PRO_M_SSS_HIB = '00000080'X' PARAMETER PRO_M_SSS_HIBO = '00000100'XT' PARAMETER PRO_M_SSS_SUSP = '00000200'XM( PARAMETER PRO_M_SSS_SUSPO = '00000400'X& PARAMETER PRO_M_SSS_FPG = '00000800'X& PARAMETER PRO_M_SSS_COM = '00001000'X' PARAMETER PRO_M_SSS_COMO = '00002000'X & PARAMETER PRO_M_SSS_CUR = '00004000'X> PARAMETER PRO_V_KAST = '00000000'X ! KAST sponsored intervalD PARAMETER PRO_V_TT_ENDS = '00000001'X ! Think time ended interval G PARAMETER PRO_V_RT_ENDS = '00000002'X ! Response time ended interval MF PARAMETER PRO_V_DT_EVENT = '00000003'X ! Transaction event sponsoredN PARAMETER PRO_V_DT_HEADER = '00000004'X ! Transaction event header sponsored> PARAMETER PRO_M_KAST = '00000001'X ! KAST sponsored intervalD PARAMETER PRO_M_TT_ENDS = '00000002'X ! Think time ended interval G PARAMETER PRO_M_RT_ENDS = '00000004'X ! Response time ended interval 7G PARAMETER PRO_M_DT_EVENT = '00000008'X ! Transaction event sponsored DN PARAMETER PRO_M_DT_HEADER = '00000010'X ! Transaction event header sponsored$ PARAMETER PRO_M_NOAST = '00000001'X" PARAMETER PRO_M_JIB = '00000002'X" PARAMETER PRO_M_PCB = '00000003'X! PARAMETER PRO_M_IO = '00000004'X " PARAMETER PRO_M_IRP = '00000005'X$ PARAMETER PRO_M_DLOCK = '00000006'X" PARAMETER PRO_M_ENQ = '00000007'X" PARAMETER PRO_M_UNK = '00000020'X$ PARAMETER PRO_M_INTER = '00000001'X$ PARAMETER PRO_M_BATCH = '00000002'X& PARAMETER PRO_M_NETWORK = '00000004'X' PARAMETER PRO_M_DETACHED = '00000008'Xe& PARAMETER PRO_M_SUBPROC = '00000010'X) PARAMETER PRO_S_VPAPRORECS = '000000D5'XA STRUCTURE /PSPAPRORECS/* BYTE PRO_B_RECD ! record type! INTEGER*2 PRO_W_PIX ! PIXA* INTEGER*2 PRO_W_NODE ! node number9 REAL*4 PRO_F_CPUTIM ! CPU time (10 Msec units)R4 REAL*4 PRO_F_PAGEFLTS ! page fault /cpusec7 REAL*4 PRO_F_PGFLTIO ! page fault IO /cpusec1/ REAL*4 PRO_F_DIRIOS ! direct IO /sec 1 REAL*4 PRO_F_BUFIOS ! buffered IO /secA9 REAL*4 PRO_F_GPGCNT ! global pages in WS count : REAL*4 PRO_F_PPGCNT ! process pages in WS count. REAL*4 PRO_F_WSSIZE ! WS size limit, REAL*4 PRO_F_DFWSCNT ! WS default* REAL*4 PRO_F_WSQUOTA ! WS quota+ REAL*4 PRO_F_WSEXTENT ! WS extentT/ REAL*4 PRO_F_UPTIME ! runtime (Secs)h8 REAL*4 PRO_F_IMGACTS ! image activations /sec3 REAL*4 PRO_F_COMPU ! % Time in COM stateR UNION MAP5 INTEGER*2 PRO_W_RSN ! resource MWAIT mask  END MAP MAP& PARAMETER PRO_S_RSN_0 = 1& PARAMETER PRO_V_RSN_0 = 0, PARAMETER PRO_S_RSN_ASTWAIT = 1, PARAMETER PRO_V_RSN_ASTWAIT = 1, PARAMETER PRO_S_RSN_MAILBOX = 1, PARAMETER PRO_V_RSN_MAILBOX = 2- PARAMETER PRO_S_RSN_NPDYNMEM = 1B- PARAMETER PRO_V_RSN_NPDYNMEM = 3T+ PARAMETER PRO_S_RSN_PGFILE = 1P+ PARAMETER PRO_V_RSN_PGFILE = 4 - PARAMETER PRO_S_RSN_PGDYNMEM = 1- PARAMETER PRO_V_RSN_PGDYNMEM = 5S, PARAMETER PRO_S_RSN_BRKTHRU = 1, PARAMETER PRO_V_RSN_BRKTHRU = 6, PARAMETER PRO_S_RSN_IACLOCK = 1, PARAMETER PRO_V_RSN_IACLOCK = 7+ PARAMETER PRO_S_RSN_JQUOTA = 1h+ PARAMETER PRO_V_RSN_JQUOTA = 8d+ PARAMETER PRO_S_RSN_LOCKID = 1R+ PARAMETER PRO_V_RSN_LOCKID = 9e, PARAMETER PRO_S_RSN_SWPFILE = 1- PARAMETER PRO_V_RSN_SWPFILE = 10P- PARAMETER PRO_S_RSN_MPLEMPTY = 1X. PARAMETER PRO_V_RSN_MPLEMPTY = 11, PARAMETER PRO_S_RSN_MPWBUSY = 1- PARAMETER PRO_V_RSN_MPWBUSY = 12G( PARAMETER PRO_S_RSN_SCS = 1) PARAMETER PRO_V_RSN_SCS = 13E( PARAMETER PRO_S_RSN_CLU = 1) PARAMETER PRO_V_RSN_CLU = 140 BYTE %FILL (2)Q END MAP END UNION UNION MAP6 INTEGER*2 PRO_W_SSS ! scheduler state mask END MAP MAP& PARAMETER PRO_S_SSS_0 = 1& PARAMETER PRO_V_SSS_0 = 0* PARAMETER PRO_S_SSS_COLPG = 1* PARAMETER PRO_V_SSS_COLPG = 1* PARAMETER PRO_S_SSS_MWAIT = 1* PARAMETER PRO_V_SSS_MWAIT = 2( PARAMETER PRO_S_SSS_CEF = 1( PARAMETER PRO_V_SSS_CEF = 3( PARAMETER PRO_S_SSS_PFW = 1( PARAMETER PRO_V_SSS_PFW = 4( PARAMETER PRO_S_SSS_LEF = 1( PARAMETER PRO_V_SSS_LEF = 5) PARAMETER PRO_S_SSS_LEFO = 1K) PARAMETER PRO_V_SSS_LEFO = 6S( PARAMETER PRO_S_SSS_HIB = 1( PARAMETER PRO_V_SSS_HIB = 7) PARAMETER PRO_S_SSS_HIBO = 1 ) PARAMETER PRO_V_SSS_HIBO = 8 ) PARAMETER PRO_S_SSS_SUSP = 1 ) PARAMETER PRO_V_SSS_SUSP = 9U* PARAMETER PRO_S_SSS_SUSPO = 1+ PARAMETER PRO_V_SSS_SUSPO = 10D( PARAMETER PRO_S_SSS_FPG = 1) PARAMETER PRO_V_SSS_FPG = 11( PARAMETER PRO_S_SSS_COM = 1) PARAMETER PRO_V_SSS_COM = 12 ) PARAMETER PRO_S_SSS_COMO = 1 * PARAMETER PRO_V_SSS_COMO = 13( PARAMETER PRO_S_SSS_CUR = 1) PARAMETER PRO_V_SSS_CUR = 14t BYTE %FILL (2)  END MAP END UNION' BYTE PRO_B_STATUS ! statusM, BYTE PRO_B_PRIB ! base priority% BYTE PRO_B_STATE ! state & BYTE PRO_B_PRI ! priority1 BYTE PRO_B_IMGACT ! image activation 2 BYTE PRO_B_IMGTRM ! image termination% BYTE PRO_B_LOGIN ! login ' BYTE PRO_B_LOGOUT ! logout 7 BYTE PRO_B_KAST ! Interval characteristicsR1 BYTE PRO_B_AWSA ! AWSA on/off statusC- BYTE PRO_B_PAGIDX ! paging indexV4 BYTE PRO_B_SWPIDX ! swapping file index> INTEGER*4 PRO_A_IMAGENAME ! image name string desc addrB INTEGER*4 PRO_A_IMAGEDIR ! image directory string desc addr; INTEGER*4 PRO_A_USERNAME ! username string desc addrs4 INTEGER*4 PRO_L_PID ! extended process index1 INTEGER*4 PRO_L_MWAIT ! MWAIT hung reasonF. REAL*4 PRO_F_THRUPUT ! Thruput /sec- REAL*4 PRO_F_OPS ! Operations /sec 9 REAL*4 PRO_F_TAPE_IO ! Tape IO operations /sec 7 REAL*4 PRO_F_TAPE_THRUPUT ! Tape thruput /secF@ REAL*4 PRO_F_TERM_INPUT ! Terminal input commands /sec; REAL*4 PRO_F_TERM_THRUPUT ! Terminal Thruput /sec< REAL*4 PRO_F_THINK_TIME ! Think time in milli secsB REAL*4 PRO_F_RESPONSE_TIME ! Response time in milli secs! INTEGER*4 PRO_L_UIC ! UICRC INTEGER*4 PRO_A_DEVICE_1 ! 1st Top IO disk or tape disk nameB REAL*4 PRO_F_OPS_1 ! 1st Top IO disk or tape operationsC INTEGER*4 PRO_A_DEVICE_2 ! 2nd Top IO disk or tape disk nameAB REAL*4 PRO_F_OPS_2 ! 2nd Top IO disk or tape operations. INTEGER*4 PRO_A_ACCOUNT ! Account name. INTEGER*4 PRO_A_PROCESS ! Process name< REAL*4 PRO_F_VA_USED ! Virtual address space usedE INTEGER*4 PRO_A_FAMILY ! Family (null string from daily data)BH INTEGER*4 PRO_A_WORKLOAD ! Workload (null string from daily data)E REAL*4 PRO_F_COMMAND_WAIT ! Think time continuance in msecs0%! - signals continuing thinking time'"! + signals duration of last waitI REAL*4 PRO_F_RESPONSE_WAIT ! Response time continut$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[ٲ 5ance in msecsP%! - signals continuing response timeT&! + signals duration of last responseK REAL*4 PRO_F_RESPONSE_TIME2 ! Response time in msecs (TT+RT=100%)0F INTEGER*4 PRO_L_EVENT_TYPE ! Start-Stop / Facility / Event type"! b<31-28> / b<27-16> / b<15-0>2 INTEGER*4 PRO_L_EVENT_HANDLE ! Event handle@ INTEGER*4 PRO_A_EVENT_US ! Event user specified qualifier3 INTEGER*4 PRO_A_EVENT_ID ! Event description0! Start of 1.1 additionsS UNION MAPH INTEGER*4 PRO_L_PROCTYPE ! Process type (batch,interactive... END MAP MAP& PARAMETER PRO_S_INTER = 17 PARAMETER PRO_V_INTER = 0 ! Interactive & PARAMETER PRO_S_BATCH = 10 PARAMETER PRO_V_BATCH = 1 ! Batch( PARAMETER PRO_S_NETWORK = 14 PARAMETER PRO_V_NETWORK = 2 ! Network) PARAMETER PRO_S_DETACHED = 1R6 PARAMETER PRO_V_DETACHED = 3 ! Detached( PARAMETER PRO_S_SUBPROC = 18 PARAMETER PRO_V_SUBPROC = 4 ! Sub process, PARAMETER PRO_S_PROCSPARES = 27+ PARAMETER PRO_V_PROCSPARES = 50( BYTE %FILL (4) ! Spares END MAP END UNION) INTEGER*4 PRO_L_MPID ! Master PIDPI INTEGER*4 PRO_A_FULLIMAGE ! Disk/Dir Image Name (disk,directory..)R CHARACTER*4 PRO_t_reservedt END STRUCTURE ! PSPAPRORECS P*!*** MODULE $PSPAMETDEFS IDENT X1.1-36 ***) PARAMETER MET_S_VPAMETRECS = '000002D1'XR STRUCTURE /PSPAMETRECS/, BYTE MET_B_TYPE ! Record type 3< REAL*4 MET_F_PROCCNT ! Total number state samples7 REAL*4 MET_F_COLPG ! Scheduler states counts0 REAL*4 MET_F_MWAIT ! 0 REAL*4 MET_F_CEF ! K REAL*4 MET_F_PFW ! M REAL*4 MET_F_LEF ! P REAL*4 MET_F_LEFO !  REAL*4 MET_F_HIB ! P REAL*4 MET_F_HIBO !  REAL*4 MET_F_SUSP !  REAL*4 MET_F_SUSPO ! C REAL*4 MET_F_FPG ! P REAL*4 MET_F_COM ! R REAL*4 MET_F_COMO !  REAL*4 MET_F_CUR ! /: REAL*4 MET_F_INTSTK ! % Time on Interrupt stack8 REAL*4 MET_F_KERNEL ! % Time on Kernel stacks4 REAL*4 MET_F_EXEC ! % Time on Exec stacks; REAL*4 MET_F_SUPER ! % Time on Supervisor Stacksp4 REAL*4 MET_F_USER ! % Time on User stacks= REAL*4 MET_F_COMPAT ! % Time in Compatibility mode * REAL*4 MET_F_IDLE ! % Time Idle UNION MAP@ REAL*4 MET_F_MP_SYNCH ! Time in MP synchronization END MAP MAP4 REAL*4 MET_F_INTSTK2 ! (not used) END MAP END UNION, REAL*4 MET_F_KERNEL2 ! (not used)* REAL*4 MET_F_EXEC2 ! (not used)+ REAL*4 MET_F_SUPER2 ! (not used)e* REAL*4 MET_F_USER2 ! (not used), REAL*4 MET_F_COMPAT2 ! (not used)* REAL*4 MET_F_IDLE2 ! (not used)6 REAL*4 MET_F_FAULTS ! Total page fault rate5 REAL*4 MET_F_PREADS ! Page fault read read 9 REAL*4 MET_F_PREADIO ! Page fault read IO rateR7 REAL*4 MET_F_PWRITES ! page fault write rate : REAL*4 MET_F_PWRITIO ! Page fault write IO rateA REAL*4 MET_F_FREFLTS ! Page faults from Free list rateBE REAL*4 MET_F_MFYFLTS ! Page faults from modified list rateR= REAL*4 MET_F_DZROFLTS ! Demand Zero page fault rateN7 REAL*4 MET_F_GVALID ! Global page fault rate = REAL*4 MET_F_WRTINPROG ! Transition page fault rateP9 REAL*4 MET_F_SYSFAULTS ! System page fault rateO5 REAL*4 MET_F_FREECNT ! Free list page rateK8 REAL*4 MET_F_MFYCNT ! Modified list page rate4 REAL*4 MET_F_DIRIO ! Total Direct IO rate6 REAL*4 MET_F_BUFIO ! Total Buffered IO rate3 REAL*4 MET_F_MBREADS ! Mailbox read rateS4 REAL*4 MET_F_MBWRITES ! Mailbox write rate> REAL*4 MET_F_LOGNAM ! Logical name translation rate- REAL*4 MET_F_ISWPCNT ! Inswap rate 7 REAL*4 MET_F_FCPTURN ! File window miss rateM3 REAL*4 MET_F_SPLIT ! Split Transfer rateP7 REAL*4 MET_F_HIT ! Transfers w/o window turnW7 REAL*4 MET_F_DIRHIT ! Directory LRU hit rate : REAL*4 MET_F_DIRMISS ! Directory LRU misse rate5 REAL*4 MET_F_QUOHIT ! Quota cache hit rateC8 REAL*4 MET_F_QUOMISS ! Quota cache misse rate7 REAL*4 MET_F_FIDHIT ! File ID cache hit rateP: REAL*4 MET_F_FIDMISS ! File ID cache misse rate6 REAL*4 MET_F_EXTHIT ! Extent cahce hit rate9 REAL*4 MET_F_EXTMISS ! Extent cache misse rateS> REAL*4 MET_F_FILHDR_HIT ! File header cache hit rateA REAL*4 MET_F_FILHDR_MISS ! File header cache misse rateVB REAL*4 MET_F_DIRDATA_HIT ! Directory data block hit rateE REAL*4 MET_F_DIRDATA_MISS ! Directory data block misse rate1E REAL*4 MET_F_STORAGMAP_HIT ! Storage bit map cache hit rateSH REAL*4 MET_F_STORAGMAP_MISS ! Storage bit map cache misse rate/ REAL*4 MET_F_OPENS ! Files open rateP0 REAL*4 MET_F_ERASEIO ! Erase QIO rate; REAL*4 MET_F_VOLLCK ! XQP volume synch lock rate J REAL*4 MET_F_VOLWAIT ! Times XQP had to wait for vol synch lockG REAL*4 MET_F_SYNCHLCK ! XQP Directory and vol synch lock rateO[ REAL*4 MET_F_SYNCHWAIT ! Times XQP had to wait for a directory and vol synch lockS5 REAL*4 MET_F_ACCLCK ! XQP access lock rateI REAL*4 MET_F_XQPCACHEWAIT ! XQP had to wait forcache free spaceS8 REAL*4 MET_F_FILECPU ! % File system CPU timeC REAL*4 MET_F_ARRLOCPK ! DECNET arriving local packet rateSD REAL*4 MET_F_DEPLOCPK ! DECNET departing local packet rate< REAL*4 MET_F_ARRTRAPK ! DECNET transit packet rate@ REAL*4 MET_F_TRCNGLOS ! DECNET transit congestion lossE REAL*4 MET_F_RCVBUFFL ! DECNET receiver buffer failure rateS: REAL*4 MET_F_ENQNEW_LOC ! local new request rate< REAL*4 MET_F_ENQNEW_IN ! incoming new request rate= REAL*4 MET_F_ENQNEW_OUT ! outgoing new request rateGA REAL*4 MET_F_ENQCVT_LOC ! local conversion request rate C REAL*4 MET_F_ENQCVT_IN ! incoming conversion request rateAD REAL*4 MET_F_ENQCVT_OUT ! outgoing conversion request rate< REAL*4 MET_F_DEQ_LOC ! local dequeue request rate> REAL*4 MET_F_DEQ_IN ! incoming dequeue request rate? REAL*4 MET_F_DEQ_OUT ! outgoing dequeue request rater< REAL*4 MET_F_ENQWAIT ! enqueue requests wait rateB REAL*4 MET_F_ENQNOTQD ! enqueue requests not queued rate< REAL*4 MET_F_BLK_LOC ! local blocking ASTs queuedC REAL*4 MET_F_BLK_IN ! incoming blocking ASTs queued rateeD REAL*4 MET_F_BLK_OUT ! outgoing blocking ASTs queued rateC REAL*4 MET_F_DIR_IN ! incoming directory operations rateOD REAL*4 MET_F_DIR_OUT ! outgoing directory operations rateM REAL*4 MET_F_DLCKMSGS_IN ! incoming deadlock detection message ratenN REAL*4 MET_F_DLCKMSGS_OUT ! outgoing deadlock detection message rate7 REAL*4 MET_F_DLCKSRCH ! deadlock searche rateR4 REAL*4 MET_F_DLCKFND ! deadlock find rate4 REAL*4 MET_F_USERPAGES ! User memory pages: REAL*4 MET_F_TREADS ! Terminal reads (not used)< REAL*4 MET_F_TWRITES ! Terminal writes (not used)7 REAL*4 MET_F_IMGACTS ! Image activation rateC8 REAL*4 MET_F_IMGTRMS ! Image termination rate6 REAL*4 MET_F_LOCK_MAX ! Lock ID table length1 REAL*4 MET_F_LOCK_CNT ! Lock IDs in use ; REAL*4 MET_F_RESOURCE_MAX ! Resource table lengthW6 REAL*4 MET_F_RESOURCE_CNT ! Resources in use: REAL*4 MET_F_NP_POOL_MAX ! Non-paged pool length= REAL*4 MET_F_NP_FREE_BLOCKS ! Non-paged free blocksrD REAL*4 MET_F_NP_FREE_LEQU_32 ! Non-paged free leq 32 bytes6 REAEL*4 MET_F_NP_FREE ! Non-paged free bytes= REAL*4 MET_F_NP_MAX_BLOCK ! Non-paged maximum block = REAL*4 MET_F_NP_MIN_BLOCK ! Non-paged minimum block6 REAL*4 MET_F_PG_POOL_MAX ! Paged pool length( REAL*4 MET_F_PG_FREE_BLOCKS ! ) REAL*4 MET_F_PG_FREE_LEQU_32 ! " REAL*4 MET_F_PG_FREE ! & REAL*4 MET_F_PG_MAX_BLOCK ! & REAL*4 MET_F_PG_MIN_BLOCK ! 1 REAL*4 MET_F_SRP_MAX ! SRP list length - REAL*4 MET_F_SRP_Ci9$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[D+"FNT ! SRPs in useL1 REAL*4 MET_F_IRP_MAX ! IRP list length - REAL*4 MET_F_IRP_CNT ! IRPs in useM1 REAL*4 MET_F_LRP_MAX ! LRP list lengthI- REAL*4 MET_F_LRP_CNT ! LRPs in useT< REAL*4 MET_F_RDT_MAX ! IO request desc table size= REAL*4 MET_F_RDT_QUE ! IO request desc table queuePC REAL*4 MET_F_MSCP_BUFF_MAX ! MSCP number original buffersD@ REAL*4 MET_F_MSCP_BUFF_FREE ! MSCP number free buffersB REAL*4 MET_F_MSCP_BUFF_MIN ! MSCP tiniest buffer allowedB REAL*4 MET_F_MSCP_BUFF_AVL ! MSCP number free pool bytesC REAL*4 MET_F_MSCP_PACK_MAX ! MSCP number original packets @ REAL*4 MET_F_MSCP_PACK_FREE ! MSCP number free packets= REAL*4 MET_F_MSCP_BUFF_QUE ! MSCP buffer wait queueAF REAL*4 MET_F_MSCP_BUFF_PEAK ! MSCP wait queue highwater markG REAL*4 MET_F_MSCP_IO_SPLITS ! MSCP number split transfer rateEB REAL*4 MET_F_MSCP_IO_FRAGMENTS ! MSCP number IO fragments9 REAL*4 MET_F_MSCP_OPCOUNT ! MSCP operation rater5 REAL*4 MET_F_MSCP_READ_CNT ! MSCP read rater7 REAL*4 MET_F_MSCP_WRITE_CNT ! MSCP write rate 8 REAL*4 MET_F_PAGING_TOTAL ! Paging total pages6 REAL*4 MET_F_PAGING_FREE ! Paging free pages ! reserved character length 56;! New additions for 1.1! rahtodo, should this go! before the reserved entry ?+ REAL*4 MET_F_OSWPCNT ! Out swapsR1 REAL*4 MET_F_HISWPCNT ! Header in swapsG2 REAL*4 MET_F_HOSWPCNT ! Header out swaps6 REAL*4 MET_F_BADPAGE_FAULTS ! Badpage faults4 REAL*4 MET_F_TRANSFLTS ! Transition faults8 REAL*4 MET_F_OPEN_FILES ! Number of files open: REAL*4 MET_F_INTERACTIVE ! Interactive processes3 REAL*4 MET_F_NETWORK ! Network processesk/ REAL*4 MET_F_BATCH ! Batch processes ! SPM timer driver stuffF0 REAL*4 MET_F_SPMSAMPCNT ! Sample count& REAL*4 MET_F_SPMBUSY ! Busy- REAL*4 MET_F_SPMSWPBUSY ! Swap busyF+ REAL*4 MET_F_SPMIOBUSY ! MIO busy 1 REAL*4 MET_F_SPMANYIOBUSY ! Any IO busyM. REAL*4 MET_F_SPMPAGEWAIT ! Page wait. REAL*4 MET_F_SPMSWAPWAIT ! Swap wait, REAL*4 MET_F_SPMMMGWAIT ! MMG wait, REAL*4 MET_F_SPMSYSIDLE ! SYS idle, REAL*4 MET_F_SPMCPUONLY ! CPU only* REAL*4 MET_F_SPMIOONLY ! IO only( REAL*4 MET_F_SPMCPUIO ! CPU IO3 REAL*4 MET_F_SPMAVAILCPU ! Available CPUsp4 REAL*4 MET_F_VBSSCPUTICK ! VBSSGL_CPUTICKS CHARACTER*56 MET_t_reserved END STRUCTURE ! PSPAMETRECS *!*** MODULE $PSPARULDEFS IDENT X1.1-36 ***) PARAMETER RUL_S_VPARULRECS = '00000028'XF STRUCTURE /PSPARULRECS/( INTEGER*4 RUL_A_RULE ! Rule code: REAL*4 RUL_F_OCCURENCES ! Rule occurence count CHARACTER*32 RUL_t_reserved END STRUCTURE ! PSPARULRECS M*!*** MODULE $PSPACPUDEFS IDENT X1.1-36 ***) PARAMETER CPU_S_VPACPURECS = '0000004D'X  STRUCTURE /PSPACPURECS/- BYTE CPU_B_TYPE ! Record type 10t. INTEGER*4 CPU_L_PHY_CPUID ! Physical ID UNION MAP0 INTEGER*4 CPU_L_STATE ! Active state END MAP MAP% PARAMETER CPU_CS_RUN = 1 3 PARAMETER CPU_CV_RUN = 0 ! Run state  BYTE %FILL (1)u END MAP END UNION UNION MAP, INTEGER*4 CPU_L_STATUS ! Status  END MAP MAP( PARAMETER CPU_CS_PRIMID = 18 PARAMETER CPU_CV_PRIMID = 0 ! Primary CPU$ PARAMETER CPU_CS_VP = 1< PARAMETER CPU_CV_VP = 1 ! Vector processing  BYTE %FILL (1)M END MAP END UNION) REAL*4 CPU_F_KERNEL ! % Kernelr* REAL*4 CPU_F_EXEC ! % Executive, REAL*4 CPU_F_SUPER ! % Supervisor% REAL*4 CPU_F_USER ! % Usert. REAL*4 CPU_F_INTERRUPT ! % Interrupt0 REAL*4 CPU_F_COMPAT ! % Compatibility& REAL*4 CPU_F_NULL ! % NULL F REAL*4 CPU_F_MP_SYNCH ! % SMP synchronization in KERNEL mode> REAL*4 CPU_F_VP_CPUTIME ! Vector Processing CPU time CHARACTER*28 CPU_t_reserved END STRUCTURE ! PSPACPURECS h*!*** MODULE $PSPAPARDEFS IDENT X1.1-36 ***) PARAMETER PAR_S_VPAPARRECS = '0000014D'XV STRUCTURE /PSPAPARRECS/, BYTE PAR_B_TYPE ! Record type 27 REAL*4 PAR_F_DORMANTWAIT ! SCH$GW_DORMANTWAITm. REAL*4 PAR_F_GBLPAGES ! $GL_GBLPAGES. REAL*4 PAR_F_DEFPRI ! SYS$GB_DEFPRI6 REAL*4 PAR_F_MAXPROCESSCNT ! SGN$GW_MAXPRCCT2 REAL*4 PAR_F_LOCKDIRWT ! CLU$GW_LCKDIRWT1 REAL*4 PAR_F_MINWSCNT ! SGN$GW_MINWSCNTe1 REAL*4 PAR_F_SYSMWCNT ! SGN$GW_SYSDWSCT 2 REAL*4 PAR_F_BALSETCNT ! SGN$GL_BALSETCT/ REAL*4 PAR_F_IRPCOUNT ! SGN$GL_IRPCNT 1 REAL*4 PAR_F_IRPCOUNTV ! SGN$GL_IRPCNTVk/ REAL*4 PAR_F_WSMAX ! SGN$GL_MAXWSCNTX1 REAL*4 PAR_F_NPAGEDYN ! SGN$GL_NPAGEDYN1 REAL*4 PAR_F_NPAGEVIR ! SGN$GL_NPAGEVIRt0 REAL*4 PAR_F_PAGEDYN ! SGN$GL_PAGEDYN. REAL*4 PAR_F_SPTREQ ! SGN$GL_SPTREQ/ REAL*4 PAR_F_LRPCOUNT ! SGN$GL_LRPCNT*1 REAL*4 PAR_F_LRPCOUNTV ! SGN$GL_LRPCNTVt0 REAL*4 PAR_F_LRPSIZE ! SGN$GL_LRPSIZE/ REAL*4 PAR_F_SRPCOUNT ! SGN$GL_SRPCNTA1 REAL*4 PAR_F_SRPCOUNTV ! SGN$GL_SRPCNTV 0 REAL*4 PAR_F_SRPSIZE ! SGN$GL_SRPSIZE- REAL*4 PAR_F_QUANTUM ! SCH$GW_QUANc1 REAL*4 PAR_F_MPW_HILIMIT ! MPW$GW_HILIMQ1 REAL*4 PAR_F_MPW_LOLIMIT ! MPW$GW_LOLIMM1 REAL*4 PAR_F_MPW_THRESH ! MPW$GL_THRESHR5 REAL*4 PAR_F_MPW_WAITLIMIT ! MPW$GL_WAITLIMG. REAL*4 PAR_F_PFRATL ! SCH$GL_PFRATL. REAL*4 PAR_F_PFRATH ! SCH$GL_PFRATH1 REAL*4 PAR_F_CTLFLAGS ! MMG$GB_CTLFLAGSA(! PFRATS f_floating; /* SCH$GL_PFRATS, REAL*4 PAR_F_WSINC ! SCH$GL_WSINC, REAL*4 PAR_F_WSDEC ! SCH$GL_WSDEC. REAL*4 PAR_F_AWSMIN ! SCH$GW_AWSMIN0 REAL*4 PAR_F_AWSTIME ! SCH$GL_AWSTIME0 REAL*4 PAR_F_SWPRATE ! SCH$GL_SWPRATE4 REAL*4 PAR_F_SWPOUTPGCNT ! SWP$GL_SWPPGCNT2 REAL*4 PAR_F_SWPALLOCINC ! SWP$GW_SWPINC1 REAL*4 PAR_F_LONGWAIT ! SCH$GW_LONGWAITu0 REAL*4 PAR_F_FREELIM ! SGN$GL_FREELIM1 REAL*4 PAR_F_FREEGOAL ! SGN$GL_FREEGOALO0 REAL*4 PAR_F_GROWLIM ! SCH$GL_GROWLIM3 REAL*4 PAR_F_BORROWLIM ! SCH$GL_BORROWLIMo5 REAL*4 PAR_F_ACP_MAPCACHE ! ACP$GW_MAPCACHEr5 REAL*4 PAR_F_ACP_HDRCACHE ! ACP$GW_HDRCACHEN5 REAL*4 PAR_F_ACP_DIRCACHE ! ACP$GW_DIRCACHEA3 REAL*4 PAR_F_ACP_WORKSET ! ACP$GW_WORKSETt9 REAL*4 PAR_F_ACP_DINDXCACHE ! ACP$GW_DINDXCACHEk5 REAL*4 PAR_F_ACP_FIDCACHE ! ACP$GW_FIDCACHEo5 REAL*4 PAR_F_ACP_EXTCACHE ! ACP$GW_EXTCACHEe5 REAL*4 PAR_F_ACP_QUOCACHE ! ACP$GW_QUOCACHEe5 REAL*4 PAR_F_ACP_EXTLIMIT ! ACP$GW_EXTLIMITn0 REAL*4 PAR_F_PFCDEFAULT ! SGN$GW_DFPFC5 REAL*4 PAR_F_MPW_WRTCLUSTER ! MPW$GW_MPWPFCR* REAL*4 PAR_F_IOTA ! SCH$GW_IOTA0 REAL*4 PAR_F_PIXSCAN ! SGN$GW_PIXSCAN6 REAL*4 PAR_F_PHYSICALPAGES ! MMG$GL_PHYPGCNT2 REAL*4 PAR_F_LOCKIDTBL ! LCK$GL_IDTBLSIZ2 REAL*4 PAR_F_RESHASHTBL ! LCK$GL_HTBLSIZ4 REAL*4 PAR_F_GBLSECTIONS ! SGN$GW_GBLSECNT6 REAL*4 PAR_F_DEADLOCK_WAIT ! LCK$GL_WAITTIME9 REAL*4 PAR_F_MSCP_CREDITS ! CLU$GL_MSCP_CREDITSN9 REAL*4 PAR_F_MPW_LOWAITLIMIT ! MPW$GL_LOWAITLIM!1 REAL*4 PAR_F_MPW_IOLIMIT ! MPW$GB_IOLIM_1 REAL*4 PAR_F_SCSBUFFCNT ! SCS$GW_BDTCNTM1 REAL*4 PAR_F_SCSCONNCNT ! SCS$GW_CDTCNT 1 REAL*4 PAR_F_SCSRESPCNT ! SCS$GW_RDTCNT. REAL*4 PAR_F_SCSMAXDG ! SCS$GW_MAXDG0 REAL*4 PAR_F_SCSMAXMSG ! SCS$GW_MAXMSG! PROCSECTCNT f_floating;! New addtions for v1.1 3 REAL*4 PAR_F_POOLCHECK ! EXE$GL_POOLCHECKR9 REAL*4 PAR_F_MULTIPROC ! SGN$GB_MULTIPROCESSING 3 REAL*4 PAR_F_VBSSENA ! MMG$GB_VBS_ENABLEF CHARACTER*52 PAR_t_reserved END STRUCTURE ! PSPAPARRECS R*!*** MODULE $PSPATIMDEFS IDENT X1.1-36 ***) PARAMETER TIM_S_VPATIMRECS = '00000C56'XP STRUCTURE /PSPATIMRECS/- BYTE TIM_B_TYPE ! record type 1 3 BYTE TIM_B_NODE_NAME ! Node name lengthe! CHARACTER*14 TIM_T_NODE_NAME ! Node name string 0 BYTE TIM_B_NODE_NUMBER ! Node number. INTEGER*4 TIM_L_SID ! System ID number3 INTEGER*4 TIM_L_HWTYPE %$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[uW ! Node hardware type : INTEGER*2 TIM_W_INTERVAL ! Sampling interval (Secs)@ INTEGER*2 TIM_W_INTEGRATION ! Integration interval (Secs) UNION MAP& INTEGER*4 TIM_Q_START_TIME(2) END MAP MAPJ INTEGER*4 TIM_L_START_TIME1 ! Start of interval system timeJ INTEGER*4 TIM_L_START_TIME2 ! Start of interval system time END MAP END UNION UNION MAP$ INTEGER*4 TIM_Q_END_TIME(2) END MAP MAPF INTEGER*4 TIM_L_END_TIME1 ! End of interval system timeF INTEGER*4 TIM_L_END_TIME2 ! End of interval system time END MAP END UNION> REAL*4 TIM_F_UPTIME ! Uptime during interval (Secs) UNION MAP# INTEGER*4 TIM_Q_VMSVERS(2)g END MAP MAP# INTEGER*4 TIM_Q_SWVERSr END MAP END UNION! V5.0 VMS software version= BYTE TIM_B_HWNAME_LEN ! V5.0 hardware name lengthR UNION MAP$ CHARACTER*24 TIM_T_HDWRNAME END MAP MAP% CHARACTER*1 TIM_T_HWNAME  END MAP END UNION! V5.0 hardware name (24 char)i< INTEGER*2 TIM_W_HWMODEL ! V5.0 hardware model numberA INTEGER*2 TIM_W_MAX_PROCESSES ! Maximum processes possibleR UNION MAP@ REAL*4 TIM_F_SAMP_INTERVAL ! Sampling intervalG REAL*4 TIM_F_SAMP_INTERVAL2 ! D floating capability G REAL*4 TIM_F_SAMP_AVERAGING ! Moving average intervalYH REAL*4 TIM_F_SAMP_AVERAGING2 ! D floating capability ( CHARACTER*32 TIM_t_reserved END MAP MAP UNION MAP- CHARACTER*48 TIM_T_KASTS_PENDINGF END MAP MAPM BYTE TIM_B_KASTS_PENDING ! Number KASTs still pending  END MAP END UNION END MAP! since measurement begun END UNION CHARACTER*976 TIM_t_fill_1P UNION MAP* CHARACTER*1024 TIM_T_ACTIVE_PROCS END MAP MAPH BYTE TIM_B_ACTIVE_PROCS ! Number of processes active END MAP END UNION! as of end of interval UNION MAP) CHARACTER*1024 TIM_T_INTVL_KASTSR END MAP MAP( BYTE TIM_B_INTVL_KASTS END MAP END UNION%! Number KASTs delivered in intervalC END STRUCTURE ! PSPATIMRECS *!*** MODULE $PSPADEVDEFS IDENT X1.1-36 ***) PARAMETER DEV_S_VPADEVRECS = '000000BB'XU STRUCTURE /PSPADEVRECS/, BYTE DEV_B_TYPE ! Record type 55 BYTE DEV_B_DEVCLASS ! Device class (disk)U UNION MAPB INTEGER*4 DEV_A_VOLNAME ! Volume name string desc addr END MAP MAP! CHARACTER*1 DEV_T_ID ! ID block origin END MAP END UNION< INTEGER*4 DEV_A_NODENAME ! Node name string desc addr UNION MAP4 BYTE DEV_B_NODE_NUMBER ! Node number END MAP MAP8 BYTE DEV_B_CIO_REQUESTOR ! CIO requestor END MAP END UNION? INTEGER*4 DEV_A_HWTYPE ! Hardware type (HS50 V780 V750) 2 INTEGER*4 DEV_L_ALLOCLS ! Allocation class> INTEGER*4 DEV_A_CTLR_NAME ! Controller string desc addr* INTEGER*2 DEV_W_UNIT ! Unit number= BYTE DEV_B_DEV_TYPE ! Type of device (see $DCDEF)A; BYTE DEV_B_ADP_TYPE ! Adapter type (MBA or UBA) UNION MAP6 BYTE DEV_B_ADP_NUMBER ! Adapter number END MAP MAP UNION MAP? BYTE DEV_B_CIO_SHAD_STS ! CIO Shadow status* END MAP MAP1 PARAMETER DEV_MS_CIO_COPYING = 1R1 PARAMETER DEV_MV_CIO_COPYING = 0R, PARAMETER DEV_S_CIO_MBR = 1; PARAMETER DEV_V_CIO_MBR = 1 ! Set memberR, PARAMETER DEV_S_CIO_MAS = 1K PARAMETER DEV_V_CIO_MAS = 2 ! Set master or virtual unitD, PARAMETER DEV_S_CIO_HSC = 1D PARAMETER DEV_V_CIO_HSC = 3 ! HSC based shadowing, PARAMETER DEV_S_CIO_HBS = 1E PARAMETER DEV_V_CIO_HBS = 4 ! Host based shadowingI, PARAMETER DEV_S_CIO_VOL = 1= PARAMETER DEV_V_CIO_VOL = 5 ! Bound volume , PARAMETER DEV_S_CIO_STR = 19 PARAMETER DEV_V_CIO_STR = 6 ! Striping! BYTE %FILL (1)  END MAP END UNION END MAP! Shadow copyingP END UNION5 INTEGER*2 DEV_W_ADP_TR ! Adapter Nexus number @ BYTE DEV_B_PDT_TYPE ! Port type (UDA,CI,NI,Passthru) UNION MAP5 BYTE DEV_B_DEVCHAR ! Characteristics* END MAP MAP% PARAMETER DEV_MS_DUA = 1!% PARAMETER DEV_MV_DUA = 0W% PARAMETER DEV_MS_MNT = 1 % PARAMETER DEV_MV_MNT = 1% PARAMETER DEV_MS_CLU = 1$% PARAMETER DEV_MV_CLU = 2I% PARAMETER DEV_MS_CDP = 1 % PARAMETER DEV_MV_CDP = 3 % PARAMETER DEV_MS__2P = 1A% PARAMETER DEV_MV__2P = 4M& PARAMETER DEV_MS_MSCP = 1& PARAMETER DEV_MV_MSCP = 5% PARAMETER DEV_MS_SRV = 1P% PARAMETER DEV_MV_SRV = 6* BYTE %FILL (1)H END MAP END UNION8 INTEGER*4 DEV_L_UCB ! UCB address (xref alt UCB)3 REAL*4 DEV_F_SERVICE ! Service time (ms) + REAL*4 DEV_F_QLEN ! Queue lengthL/ REAL*4 DEV_F_OPCNT ! Operations rateN1 REAL*4 DEV_F_IOCNT ! Thruput byte rateE1 REAL*4 DEV_F_PAGOP ! Paging operationsG3 REAL*4 DEV_F_PAGIO ! Paging thruput rateM7 REAL*4 DEV_F_SWPOP ! Swapping operation rateS5 REAL*4 DEV_F_SWPIO ! Swapping thruput rate - REAL*4 DEV_F_BUSY ! Busy time (ms)A8 REAL*4 DEV_F_ITVL ! Measurement interval (ms): REAL*4 DEV_F_ERRCNT ! Error count (incremental)2 BYTE DEV_B_PAGIDX ! Paging file index5 BYTE DEV_B_SWAPIDX ! Swapping file indexA) REAL*4 DEV_F_RDCNT ! Read rateR/ REAL*4 DEV_F_FREE ! Free block count UNION MAP= BYTE DEV_B_SET ! Type and status of disk setE END MAP MAP) PARAMETER DEV_MS_COPYING = 1P) PARAMETER DEV_MV_COPYING = 0 $ PARAMETER DEV_S_MBR = 1H PARAMETER DEV_V_MBR = 1 ! Set member or physical unit PU$ PARAMETER DEV_S_MAS = 1G PARAMETER DEV_V_MAS = 2 ! Set master or virtual unit VUA$ PARAMETER DEV_S_HSC = 1> PARAMETER DEV_V_HSC = 3 ! HSC based shadow set$ PARAMETER DEV_S_HBS = 1? PARAMETER DEV_V_HBS = 4 ! Host Based Shadow set*$ PARAMETERe DEV_S_VOL = 1: PARAMETER DEV_V_VOL = 5 ! Bound volume set$ PARAMETER DEV_S_STR = 16 PARAMETER DEV_V_STR = 6 ! Striping set BYTE %FILL (1)  END MAP END UNION! Shadow copying > REAL*4 DEV_F_DINDXSIZE ! Directory index cache pages5 REAL*4 DEV_F_QUOSIZE ! Quota cache entriesa3 REAL*4 DEV_F_FIDSIZE ! FID cache entries 6 REAL*4 DEV_F_EXTSIZE ! Extent cache entries9 REAL*4 DEV_F_HDRSIZE ! File header cache pagesM< REAL*4 DEV_F_DIRSIZE ! directory data cache pages< REAL*4 DEV_F_MAPSIZE ! storage bitmap cache pages= INTEGER*4 DEV_A_CACHENAME ! Cache name (24 characters)S5 REAL*4 DEV_F_MSCPOP ! MSCP operations rate : REAL*4 DEV_F_MSCPPG ! MSCP paging/swapping rate? INTEGER*4 DEV_A_HWNAME ! V5.0 Hardware name for VAXnode 0 INTEGER*4 DEV_L_ROOT ! Shadow set master2 REAL*4 DEV_F_MSCPIO ! MSCP thruput rate- REAL*4 DEV_F_SPLIT ! Split IO rateT4 INTEGER*2 DEV_W_REQ ! K.SDI requestor number0 INTEGER*2 DEV_W_PORT ! K.SDI port numberH REAL*4 DEV_F_MAXBLOCK ! Maximum number of blocks for this disk CHARACTER*28 DEV_t_reserved4 INTEGER*4 DEV_A_DEVNAME ! Device name string! Start of decps 1.1 addtions END STRUCTURE ! PSPADEVRECS 2*!*** MODULE $PSPAMAGDEFS IDENT X1.1-36 ***) PARAMETER MAG_S_VPAMAGRECS = '000000BB'X  STRUCTURE /PSPAMAGRECS/, BYTE MAG_B_TYPE !  x<$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[2"h Record type 95 BYTE MAG_B_DEVCLASS ! Device class (tape) UNION MAPB INTEGER*4 MAG_A_VOLNAME ! Volume name string desc addr END MAP MAP! CHARACTER*1 MAG_T_IDU! ID block origin END MAP END UNION< INTEGER*4 MAG_A_NODENAME ! Node name string desc addr0 BYTE MAG_B_NODE_NUMBER ! Node number? INTEGER*4 MAG_A_HWTYPE ! Hardware type (HS50 V780 V750) 2 INTEGER*4 MAG_L_ALLOCLS ! Allocation class> INTEGER*4 MAG_A_CTLR_NAME ! Controller string desc addr* INTEGER*2 MAG_W_UNIT ! Unit number= BYTE MAG_B_DEV_TYPE ! Type of device (see $DCDEF)U; BYTE MAG_B_ADP_TYPE ! Adapter type (MBA or UBA)H2 BYTE MAG_B_ADP_NUMBER ! Adapter number5 INTEGER*2 MAG_W_ADP_TR ! Adapter Nexus number@ BYTE MAG_B_PDT_TYPE ! Port type (UDA,CI,NI,Passthru) UNION MAP5 BYTE MAG_B_DEVCHAR ! Characteristicsi END MAP MAP% PARAMETER MAG_MS_DUA = 1g% PARAMETER MAG_MV_DUA = 0 % PARAMETER MAG_MS_MNT = 1 % PARAMETER MAG_MV_MNT = 1 % PARAMETER MAG_MS_CLU = 1 % PARAMETER MAG_MV_CLU = 2P% PARAMETER MAG_MS_CDP = 1_% PARAMETER MAG_MV_CDP = 3 % PARAMETER MAG_MS__2P = 1M% PARAMETER MAG_MV__2P = 4 & PARAMETER MAG_MS_MSCP = 1& PARAMETER MAG_MV_MSCP = 5% PARAMETER MAG_MS_SRV = 1C% PARAMETER MAG_MV_SRV = 6 BYTE %FILL (1)A END MAP END UNION8 INTEGER*4 MAG_L_UCB ! UCB address (xref alt UCB)@ REAL*4 MAG_F_SERVICE ! Service time (ms)(ext io meas)9 REAL*4 MAG_F_QLEN ! Queue length (ext io meas) . REAL*4 MAG_F_OPCNT ! Operation rate? REAL*4 MAG_F_IOCNT ! Thruput byte rate (ext io meas)T CHARACTER*16 MAG_t_fill_29 REAL*4 MAG_F_BUSY ! Busy time (incremental ms)R8 REAL*4 MAG_F_ITVL ! Measurement interval (ms): REAL*4 MAG_F_ERRCNT ! Error count (incremental) CHARACTER*2 MAG_t_fill_3 7 REAL*4 MAG_F_RDCNT ! Read rate (ext io meas)D CHARACTER*49 MAG_t_fill_4 CHARACTER*16 MAG_t_fill_5 CHARACTER*4 MAG_t_fill_6! CHARACTER*28 MAG_t_reserved4 INTEGER*4 MAG_A_DEVNAME ! Device name string END STRUCTURE ! PSPAMAGRECS *!*** MODULE $PSPACOMDEFS IDENT X1.1-36 ***) PARAMETER COM_S_VPACOMRECS = '000000BB'X  STRUCTURE /PSPACOMRECS/* BYTE COM_B_TYPE ! Record type5 BYTE COM_B_DEVCLASS ! Device class (sync)  CHARACTER*17 COM_t_fill_1> INTEGER*4 COM_A_CTLR_NAME ! Controller string desc addr* INTEGER*2 COM_W_UNIT ! Unit number0 BYTE COM_B_DEV_TYPE ! Type of device CHARACTER*5 COM_t_fill_2A1 BYTE COM_B_DEVCHAR ! CharacteristicsT CHARACTER*12 COM_t_fill_3. REAL*4 COM_F_OPCNT ! Operation rate CHARACTER*87 COM_t_fill_4 CHARACTER*16 COM_t_fill_5 CHARACTER*4 COM_t_fill_6 CHARACTER*28 COM_t_reserved4 INTEGER*4 COM_A_DEVNAME ! Device name string END STRUCTURE ! PSPACOMRECS *!*** MODULE $PSPATRNDEFS IDENT X1.1-36 ***) PARAMETER TRN_S_VPATRNRECS = '00000041'X  STRUCTURE /PSPATRNRECS/4 INTEGER*4 TRN_A_TRANSFAM ! Transaction family7 INTEGER*4 TRN_A_TRANS ! Transaction image class : INTEGER*4 TRN_A_USERNAME ! Unique username (if any)< INTEGER*4 TRN_A_IMAGENAME ! Unique imagename (if any)2 INTEGER*4 TRN_A_FAMILY ! User group family, INTEGER*4 TRN_A_WORKLOAD ! User groupA BYTE TRN_B_STATUS ! Interactive Batch Network status ) REAL*4 TRN_F_CPUTIM ! CPU timed/ REAL*4 TRN_F_DIOCNT ! Direct IO rateH= INTEGER*4 TRN_A_ACCOUNT ! Unique account name(if any)a> INTEGER*4 TRN_A_PROCESS ! Unique process name (if any) CHARACTER*24 TRN_t_reserved END STRUCTURE ! PSPATRNRECS *!*** MODULE $PSPAFILDEFS IDENT X1.1-36 ***) PARAMETER FIL_S_VPAFILRECS = '0000004D'X  STRUCTURE /PSPAFILRECS/- BYTE FIL_B_TYPE ! Record type 10E1 INTEGER*4 FIL_A_DEVICE ! Disk device name 1 INTEGER*4 FIL_A_DIRECTORY ! Directory namer' INTEGER*4 FIL_A_FILE ! FilenameT1 INTEGER*2 FIL_W_FID_NUM ! FID file number5 INTEGER*2 FIL_W_FID_SEQ ! FID sequence numberr< INTEGER*2 FIL_W_FID_RVN ! FID relative volume number1 INTEGER*2 FIL_W_INDEX ! Disk index numberM3 REAL*4 FIL_F_SERVICE ! Service time (ms) / REAL*4 FIL_F_OPCNT ! Operations rate 1 REAL*4 FIL_F_IOCNT ! Thruput byte rateD3 REAL*4 FIL_F_RDCNT ! Read operation rate . REAL*4 FIL_F_SPLITS ! Split IO rate; REAL*4 FIL_F_TURNS ! Window turn rate (not used)M5 REAL*4 FIL_F_PAGOP ! Paging operation rate 7 REAL*4 FIL_F_SWPOP ! Swapping operation rateR4 REAL*4 FIL_F_MSCPOP ! MSCP operation rate! INTEGER*4 FIL_L_PID ! PIX CHARACTER*16 FIL_t_reserved END STRUCTURE ! PSPAFILRECS s*!*** MODULE $PSPAHDRDEFS IDENT X1.1-36 ***& PARAMETER HDR_M_ALTERED = '00000001'X3 PARAMETER HDR_K_DECTRACE = '00000000'X ! DECtraceF6 PARAMETER HDR_K_FOREIGN = '00000001'X ! Not DECtrace' PARAMETER HDR_S_DT_QUEUE = '00000081'XDD! DECps generates the following address fields in the reader module& PARAMETER HDR_K_DT_PSDC = '0000000F'X! RUNDOWN_PSDCi) PARAMETER HDR_K_DT_VERSION = '00000013'XP! RUNDOWN_VERSZUN/ PARAMETER HDR_K_DT_EVENT_CHANNEL = '0000001F'Xi! RUNDOWN_DT_EVENT . PARAMETER HDR_K_DT_TEXT_CHANNEL = '00000023'X! RUNDOWN_DT_TEXT- PARAMETER HDR_K_DT_TEXT_DELETE = '00000027'X ! RUNDOWN_DT_BEHEAD STRUCTURE /PSPAHDRRECS/F! DECtrace and DECPS_DC and VPA$READ Event Header Queue entry offsets2 INTEGER*4 HDR_L_FLINK ! Queue forward link3 INTEGER*4 HDR_L_BLINK ! Queue backward link 0 INTEGER*2 HDR_W_FLAGS ! Queue flags $ PARAMETER HDR_S_ALTERED = 1E PARAMETER HDR_V_ALTERED = 0 ! Event description is alteredM# PARAMETER HDR_S_spares = 7R# PARAMETER HDR_V_spares = 1R BYTE %FILL (1)eH! DECtrace sends the following fields in realtime via two data channels INTEGER*4 HDR_L_EVENT_TYPEe9! Reserved /* User / Start-Stop / Facility / Event typeH6! b<31-30> /* b<29> / b<28-28> / b<27-16> / b<15-0>D INTEGER*2 HDR_W_EVENT_USER_LEN ! Event user meter name lengthM INTEGER*4 HDR_L_EVENT_USER_BUF ! Event user name string buffer pointerVG INTEGER*4 HDR_L_EVENT_HANDLE ! Event handle (matches start-stop) < INTEGER*4 HDR_L_EVENT_EPID ! EPID (0 in appl context)0 INTEGER*2 HDR_W_SEQ ! FID of header file INTEGER*2 HDR_W_NUM INTEGER*2 HDR_W_RVNB INTEGER*2 HDR_W_DEVICE_LEN ! Header file device name length CHARACTER*16 HDR_T_DEVICE! Header file device nameC! DECps derives the following fields from the DECtrace header fileF" CHARACTER*40 HDR_T_EVENT_IDEN&! Event description (from DC headers)I! DECps derives the following fields from the DECtrace data channel datapB INTEGER*4 HDR_L_EVENT_SUBTYPE ! Event subtype (DC assigned)" CHARACTER*32 HDR_T_EVENT_USER! Event user meter name stringR@ INTEGER*4 HDR_A_EVENT_US ! Event user specified qualifier3 INTEGER*4 HDR_A_EVENT_ID ! Event descriptionGD! DECPS_DC V1.1-36 Rundown dispatch block DECtrace relevant offsets END STRUCTURE ! PSPAHDRRECS r)!*** MODULE $PSDCWRDEFS IDENT X1.1-36 ***u$! Network interface argument block STRUCTURE /PSDCWRSTRUC/- INTEGER*4 WR_L_REQTYPE ! Request type- INTEGER*4 WR_L_STATUS ! Return statusr2 INTEGER*4 WR_L_NODE_LEN ! Node name length CHARACTER*15 WR_T_NODENAMEA ! Node name? INTEGER*4 WR_A_RESNAM ! EOF resource name ASCID pointer ; INTEGER*4 WR_A_LKSB ! EOK lock status block pointer2- INTEGER*4 WR_L_SIZE ! EOF file lengthP- INTEGER*4 WR_L_TIME ! EOF time of dayC INTEGER*4 WR_L_TIME_CONT 4 INTEGER*4 WR_L_FIT ! File Info Table pointer< INTEGER*4 WR_L_ITVL ! Interval from connection block6 INTEGER*4 WR_L_QUOTA ! Interval pipeline quota< INTEGER*4 WR_L_PACKET ! Packet from current interval3 INTEGER*4 WR_L_C ! Network connection blockP@ INTEGER*4 WR_L_BYTES ! Data collection buffer byte count> INTEGER*4 WR_L_BUFFER ! Data collection buffer pointer+! Network jacket prepended to data buffere4 INTEGER*2 WR_W_TYPE ! DECps data record type8 INTEG .X$ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[LyER*4 WR_L_LENGTH ! DECps data record length3 INTEGER*4 WR_L_VERSION ! DECps data version 4 INTEGER*2 WR_W_COMMAND ! DECps data command > INTEGER*4 WR_L_SEQUENCE ! Send&Receive sequence number? INTEGER*4 WR_L_BYTE_COUNT ! Send&Receive data byte count 1 INTEGER*4 WR_L_FLAGS ! Work request flagsx= INTEGER*4 WR_A_CONN_AST ! connection AST routine addr,7 INTEGER*4 WR_A_READ_AST ! Read AST routine addr 8 INTEGER*4 WR_A_WRITE_AST ! Write AST routine addrD INTEGER*4 WR_A_INT_AST ! MBX interrupt msg AST routine addr > INTEGER*4 WR_A_CTX ! address of internal context block END STRUCTURE ! PSDCWRSTRUC) PARAMETER WR_M_WRT_AST_REQ = '00000001'X * PARAMETER WR_M_WRT_AST_DONE = '00000002'X( PARAMETER WR_M_RD_AST_REQ = '00000004'X) PARAMETER WR_M_RD_AST_DONE = '00000008'X ) PARAMETER WR_M_INT_AST_REQ = '00000010'X * PARAMETER WR_M_INT_AST_DONE = '00000020'X& PARAMETER WR_M_WAKE_REQ = '00000040'X' PARAMETER WR_M_WAKE_DONE = '00000080'XR' PARAMETER WR_M_CONNECTED = '00000100'XM STRUCTURE /wr_flags/ # PARAMETER WR_S_WRT_AST_REQ = 1M> PARAMETER WR_V_WRT_AST_REQ = 0 ! write done AST request$ PARAMETER WR_S_WRT_AST_DONE = 1D PARAMETER WR_V_WRT_AST_DONE = 1 ! write done AST request done" PARAMETER WR_S_RD_AST_REQ = 1< PARAMETER WR_V_RD_AST_REQ = 2 ! read done AST request# PARAMETER WR_S_RD_AST_DONE = 1iB PARAMETER WR_V_RD_AST_DONE = 3 ! read done AST request done# PARAMETER WR_S_INT_AST_REQ = 1 F PARAMETER WR_V_INT_AST_REQ = 4 ! MBX interrupt done AST request$ PARAMETER WR_S_INT_AST_DONE = 1F PARAMETER WR_V_INT_AST_DONE = 5 ! MBX int done AST request done PARAMETER WR_S_WAKE_REQ = 1@ PARAMETER WR_V_WAKE_REQ = 6 ! WAKE in AST routine request! PARAMETER WR_S_WAKE_DONE = 1 > PARAMETER WR_V_WAKE_DONE = 7 ! WAKE in AST routine done! PARAMETER WR_S_CONNECTED = 14 PARAMETER WR_V_CONNECTED = 8 ! Link connected PARAMETER WR_S_SPARES = 23'} PARAMETER WR_V_SPARES = 9 BYTE %FILL (4)P END STRUCTURE ! wr_flagsT STRUCTURE /io_ast_blk/ 8 INTEGER*4 ablk_a_flink ! address of next in list< INTEGER*4 ablk_a_blink ! address of previous in list2 INTEGER*2 ablk_w_status ! status value9 INTEGER*2 ablk_w_depw ! device dependent wordM= INTEGER*4 ablk_l_depl ! device dependent longword8 INTEGER*4 ablk_a_wr ! work request block address END STRUCTURE ! io_ast_blkA T)!*** MODULE $PSPACDDEFS IDENT X1.1-36 ***_ ! Collection Definition recordN PARAMETER CTXCD$K_MAINMAN = '00000001'X ! Main data collector/server processM PARAMETER CTXCD$K_NETWORK = '00000002'X ! Client/Server DECnet-DECnet link XJ PARAMETER CTXCD$K_NETFILE = '00000004'X ! Client/Server DECnet-File linkC PARAMETER CTXCD$K_DSKFILE = '00000008'X ! Detached data collectorG- PARAMETER CTXCD$M_CLASS_STATUS = '00000001'X( PARAMETER CTXCD$M_PROCESS = '00000002'X& PARAMETER CTXCD$M_IMAGE = '00000004'X% PARAMETER CTXCD$M_DISK = '00000008'X% PARAMETER CTXCD$M_TAPE = '00000010'Xr' PARAMETER CTXCD$M_PARAMS = '00000020'X / PARAMETER CTXCD$M_SYSTEM_METRICS = '00000040'XI) PARAMETER CTXCD$M_TERMINAL = '00000080'X*. PARAMETER CTXCD$M_CONFIGURATION = '00000100'X$ PARAMETER CTXCD$M_CPU = '00000200'X) PARAMETER CTXCD$M_HOT_FILE = '00000400'Xu* PARAMETER CTXCD$M_HOT_LOCKS = '00000800'X) PARAMETER CTXCD$M_DECTRACE = '00001000'XC- PARAMETER CTXCD$M_FULL_STRINGS = '00002000'XP STRUCTURE /PSPACDSTRUC/@ INTEGER*4 CTXCD$L_RECD_TYPE ! DECps data file record typeK INTEGER*4 CTXCD$L_RECD_LENGTH ! Collection definition length (bytes)e= INTEGER*4 CTXCD$L_DECPS_VERSION ! DECps version numberI7 INTEGER*4 CTXCD$L_NODENAME_LEN ! Nodename lengthR. CHARACTER*6 CTXCD$T_NODENAME ! NodenameC INTEGER*4 CTXCD$L_COLL_DEF_LEN ! Collection extension lengthID CHARACTER*20 CTXCD$T_COLL_DEF_NAME ! Collection file extension4 INTEGER*4 CTXCD$A_FLINK ! Pointer to next CD= INTEGER*4 CTXCD$L_ITVL_QUOTA ! Realtime interval quota7 INTEGER*4 CTXCD$L_DATA_ACCESS ! Data access modeA? INTEGER*4 CTXCD$L_INTERVAL ! Realtime interval (seconds)R UNION MAP; INTEGER*4 CTXCD$L_CLASSES ! Class selectionsA END MAP MAP/ PARAMETER CTXCD$S_CLASS_STATUS = 1 E PARAMETER CTXCD$V_CLASS_STATUS = 0 ! Success or failuree* PARAMETER CTXCD$S_PROCESS = 1. PARAMETER CTXCD$V_PROCESS = 1 ! ( PARAMETER CTXCD$S_IMAGE = 1, PARAMETER CTXCD$V_IMAGE = 2 ! ' PARAMETER CTXCD$S_DISK = 1M+ PARAMETER CTXCD$V_DISK = 3 ! H' PARAMETER CTXCD$S_TAPE = 1+ PARAMETER CTXCD$V_TAPE = 4 ! ) PARAMETER CTXCD$S_PARAMS = 10- PARAMETER CTXCD$V_PARAMS = 5 ! s1 PARAMETER CTXCD$S_SYSTEM_METRICS = 1S4 PARAMETER CTXCD$V_SYSTEM_METRICS = 6 ! + PARAMETER CTXCD$S_TERMINAL = 1/ PARAMETER CTXCD$V_TERMINAL = 7 ! 0 PARAMETER CTXCD$S_CONFIGURATION = 13 PARAMETER CTXCD$V_CONFIGURATION = 8 ! R& PARAMETER CTXCD$S_CPU = 1* PARAMETER CTXCD$V_CPU = 9 ! + PARAMETER CTXCD$S_HOT_FILE = 1d0 PARAMETER CTXCD$V_HOT_FILE = 10 ! , PARAMETER CTXCD$S_HOT_LOCKS = 10 PARAMETER CTXCD$V_HOT_LOCKS = 11 ! + PARAMETER CTXCD$S_DECTRACE = 1R0 PARAMETER CTXCD$V_DECTRACE = 12 ! / PARAMETER CTXCD$S_FULL_STRINGS = 1 3 PARAMETER CTXCD$V_FULL_STRINGS = 13 ! R0 PARAMETER CTXCD$S_CLASS_SPARES = 180 PARAMETER CTXCD$V_CLASS_SPARES = 14 BYTE %FILL (4)G END MAP END UNION INTEGER*4 CTXCD$L_CLASSES2y INTEGER*4 CTXCD$L_CLASSES32 INTEGER*4 CTXCD$L_CLASSES4-@ REAL*4 CTXCD$F_HOTFILE_QUEUE ! Hotfile queue threshold4 INTEGER*4 CTXCD$L_START_TIME ! Beginning time" INTEGER*4 CTXCD$L_START_TIME2/ INTEGER*4 CTXCD$L_END_TIME ! Ending time( INTEGER*4 CTXCD$L_END_TIME25 INTEGER*4 CTXCD$L_WS_QUOTA ! Working Set quotaI7 INTEGER*4 CTXCD$L_WS_EXTENT ! Working Set extent26 INTEGER*4 CTXCD$L_CPU_THRESHOLD ! CPU threshold@ INTEGER*4 CTXCD$L_RESOURCE_NAME_LEN ! Resource name lengthE CHARACTER*32 CTXCD$T_RESOURCE_NAME ! Resource name for file I/OiC INTEGER*4 CTXCD$L_PATH_LEN ! Device/Directory length (bytes)NJ CHARACTER*512 CTXCD$T_PATH_SPEC ! Device/Directory file destination; INTEGER*4 CTXCD$L_SCHED_MON ! Weekly hourly schedule4 INTEGER*4 CTXCD$L_SCHED_TUE INTEGER*4 CTXCD$L_SCHED_WED INTEGER*4 CTXCD$L_SCHED_THU INTEGER*4 CTXCD$L_SCHED_FRI INTEGER*4 CTXCD$L_SCHED_SAT INTEGER*4 CTXCD$L_SCHED_SUNC INTEGER*4 CTXCD$L_MAXDEVCNT ! Maximum disks/tapes to monitoriL INTEGER*4 CTXCD$L_HOTFILE_MAX ! Maximum files to monitor as hot filesI INTEGER*4 CTXCD$L_HOTFILE_LIFE ! Duration of inactivity cools filekJ INTEGER*4 CTXCD$L_RETENTION ! Retention time for daily files (days)G INTEGER*4 CTXCD$L_DISKSPACE ! Disk free space threshold (blocks)LL INTEGER*4 CTXCD$L_DISKINCEXC ! Disk Inclusion/Exclusion list pointer.'! Offset from begging of this block.n#! Points to blocks described by _! $PSPAEIDEFSO INTEGER*4 CTXCD$L_PROCINCEXC ! Process Inclusion/Exclusion list pointer.T)! Offset from beginning of this block. #! Points to blocks described by G! $PSPAEIDEFS END STRUCTURE ! PSPACDSTRUC T)!*** MODULE $PSPAEIDEFS IDENT X1.1-36 ***i, PARAMETER CTXCDEI$M_INCLUSION = '00000001'X, PARAMETER CTXCDEI$M_EXCLUSION = '00000002'X. PARAMETER CTXCDEI$M_DISK_DEVICE = '00000004'X. PARAMETER CTXCDEI$M_DISK_VOLUME = '00000008'X+ PARAMETER CTXCDEI$M_PROC_PID = '00000010'Xe, PARAMETER CTXCDEI$M_PROC_NAME = '00000020'X STRUCTURE /PSPAEISTRUC/B INTEGER*4 CTXCDEI$L_FLINK ! Forward link to next identifier(! Relative offset from this location. UNION MAP" INTEGER*4 CTXCDEI$L_FLAGS END MAP MAP. PARAMETER CTXCDEI$S_INCLUSION = 1L PARAMETER CTXCDEI$V_INCLUSION = 0 ! This is an inclusion block. PARAMETER CTXCDEI$S_EXCLUSION = 1L PARAMETER CTXCDEI$V_EXCLUSION = 1 ! This is an exclusion block0 PARAMETER CTXCDEI$S_DISK_DEVICE = 1P PARAMETER CTXCDEI$V_DISK_DEVICE = 2 ! Data in ID_TEXT is disk name0 PARAMETER CTXCDEI$S_DISK_ $ PRODUSE010.B [PRODUCT_USE.B]PSPA$LIB.FOR;3[AVOLUME = 1R PARAMETER CTXCDEI$V_DISK_VOLUME = 3 ! Data in ID_TEXT is disk volume- PARAMETER CTXCDEI$S_PROC_PID = 1EO PARAMETER CTXCDEI$V_PROC_PID = 4 ! Data in ID_TEXT is Process PIDR. PARAMETER CTXCDEI$S_PROC_NAME = 1Q PARAMETER CTXCDEI$V_PROC_NAME = 5 ! Data in ID_TEXT is Process NameW0 PARAMETER CTXCDEI$S_FLAGSPARES = 26/ PARAMETER CTXCDEI$V_FLAGSPARES = 6Q( BYTE %FILL (4) ! Spares END MAP END UNIONC INTEGER*4 CTXCDEI$L_ID_SIZE ! Identifier byte count. Size ofR! data in ID_TEXT fieldR? INTEGER*4 CTXCDEI$L_ID_TEXT ! Identifier text. This dataW#! could be a PID, Process Name,W"! Volume name, or Device name;$! depending upon the settings in! the flags word.R END STRUCTURE ! PSPAEISTRUC a+!*** MODULE $PSPADATEDEFS IDENT T1.1-38 ***T STRUCTURE /PSPADATESTRUC/= INTEGER*4 CTXDATE$A_FLINK ! Pointer to next date blockT; INTEGER*4 CTXDATE$L_FROM_TIME ! Beginning time range ( INTEGER*4 CTXDATE$L_FROM_TIME2 ! 6 INTEGER*4 CTXDATE$L_TO_TIME ! Ending time range& INTEGER*4 CTXDATE$L_TO_TIME2 !  END STRUCTURE ! PSPADATESTRUC Q&!*** MODULE $PSPAEND IDENT X1.1-36 *** $ PRODUSE010.B:q{ vCPS.OBJ;18ğp);9CvJ@Y+<h;+};WT@-qmfU3Ț [O"jgc{b|񜎰\<[Ciy&]?=hH bXj 54*Jj2eB]Dg::8?G0؅-.FIl[~|,_ UtJ[bƹ}2G z7Fgp|&9-~1Ox]+LDT7!KƨI6;Xypfa^>!K;Eoj/]A@;'D|5GU8D}x]ρf=2j$9Hj3ZjL$f&3nieb{q  ng$wicd#]YG<0?-q.RVNg ])į^LW(Z lB"2Π^B[r*Ni+d{6hm2tM'9p>W| Jgv$ ӽ#PSP/?2<YCZǖQaq) 7's3VO).f/[EFD9zpu8OV2YYQD5@wWSiufj37{{Y_+-)4.f-$[p|=6q)9(V=Q!Dr9AP[Y_,aB'bh#JC&w1B] ygFi}##f{jjS$)讹tjJDE6Jq+)<4{@зT"r4OMʃH;g)^'`?z n^tmo*OYu 60=6YII4>xxXQih=f>Ǧƫ ʻmuY+R ;2_aZ~KE,/pI(JXvg9o#K!&RK*fjO-z>֍i 7`~9 Ce^#ogFR*ěgc3d9l* .f+ƍu)XQ9|a)y@f~Ki4Wa(so1A&'9t* q)d^e1EEn1 "_[d[SK>.{2CPe$Sb786|8 `TW!T)4E)>/@)Ph?KM?;ONR%Ne>j0Ijk _>iLW>rI4H^xlU0)Y]H& uWL(pLr{Iv!.3SKH&!g`0'r"V@[s*BrqIu3Xl]Y+O@{\-cQnN'P5eqߡj@ Kб+[{Af'Ptk߂NTWtqk)6۰EL!& TÅ挪,=.y骥ͯXQcאê]7a%:ȹoOAC@|p C};md7K9tlB+^""l=MN&LG}I_SPgQ:ZsA-jVdU]*HQ~VEvH?zoMc5 z>&*,^"\Z>6eS^\SDFql^JYV>ܠ} w$ Y.-1-Co8rΝ I`bd+W$-[uǩhe@\_C?jn28z7Y*5 _7;RCK9>l(7t57a!CU u&HfpOE g|%@vCėW2|;7Y#-6B>XϮ$}/ FnXsG3 @M  c\VCE5cL+'('MZm15V;waSp P%li͖qm1vJ_^!|ƻuԪEMűU'x477}+z)NTu)e `=ε 2޳'dSPdO[PTk@IZtE Giғ>B([0ZI8Al>p@KMH+6U#SfieZn34"Rl8xif;p8,Rd(sAHl=") %'FFx_waI!+r89 \BNe4u;-/nj 12#,1+3 ==`qP]J(^9=; Ά,V{.T%y&)UF|;zF&o67KL >ws-7vE*f Skt Mc7#ӿSɇDtTBUI|_E nm>R6ǿPlz R=R>v f'W Rn\~MZ mۙ"*o]}ao[,R%i9S}*eMg.] ZF8vK?eZP0 Ŧc:q8tSedPpʩ?v:#:QZ&.0 Uab` CkrRղ(Bc~G*s;iW;6>BkջL/Ne`?-ΦX'@rS_Bj SwwJW+[O>ECN ~qgr\~wce2 x:rlp.y;_mo94yju[b?&SFi-U̓Pfh*6^%yG^Ųlpw^cw$)Dc]SuYO|a O- P_D8keqQRNq}y>sT)<5](occ#(eg p`I@0)"ApBo\6j('"E&Rd[ {!Mz@N[3ݒA3_~aC7]{ >#!P&Фø $ %R- n`L-O X eQ{W' utI,bfTLN\B_. )s Va\0q״WܤHyw ּhjAD}*͂.=e4L-^nEP*aF+,:^FkzEFcc[NWYo\y"6EEug}d[Z2M(w~dTI 3M:+*[j,.X9)3u${tެu@Y\8&ifF\TTynwm clk"7SBVy}`!_Y+k_KJP/ٖ@ ;ffC%/b|%R~\`ok'OE#ĚT!F[8*RSoW,w. JxSC,W/"wvE%+6O,V` 5y.K#b)\>PjB kmDA}/u!*gI6PD4jIuQI4<#RcwF}l9^UDWL7(jb@EulU&b="_M/r  m'f? h's{XLW]XRRN*GL QysPvDiV#ZA71Wa.,5DNdMXIlI Je}**BP&?qpCzrw$: O@,O*JS% ~D\&-3E6 z"O MYis~7h$ H=Diλ S*iBvDžEN&&Y\=b)6!ux\ jP& 2;EJ" k&IgDt9nB;11%xAwDj="ܠ-b.Ibz u>6E*>t P=A/;~dDv˼([ EyxOy3^4눮:IFqiW?rK9t|?o)h cgV7[!Qo&|iB :eF 1J t.UQ1nPY{ ?0?r%Z6J7(d)Rxv6K>P~2,2yZN7swvi[Gѱ5z -% 2n|RrOD|9 B 6)9r])%NNM 9I*)e}UMZ-Oo-!8kLJw,yދɔdrZ8Ll{sq~(5 w'|79=wW֧# Z)rR8 'Y7r9lA6cq~o겪 Yb)U0LS8y(d;'ۥ2pf wݓ0M0Rŋ7Nm PD4w졹짣;{ 7>" _Rzs)hk8ZA=SJ&9s]?+hB뙁b5rRBRVk\^vպpd+gz|4fxbJ)(=OvQyhfPOZ@(<~<[g_8O$Q~du;iE:_>~7#Ep mB"JG$̥gTGN).p^ne:yB00|dDyyzʧp:kDOa.N6] dE^(lm S}[J.G>BVt:. }_~Y4.d屹*Yu'$*L=.FKAT"e:9@xreD' ,\ W:6y F7X#"t.JX?4G*BVWCh){>hc!g3GiFo=wٮI7I6Qx%kKH 2[ 3bNf0*I?zw(44 tQQ;7˰6ue가l˫:*Oa$zzV "bh˫/ir7=ƛ#bdRLO]Voo/28O'50Q;* [@aR Dk]{Y}(9_`,+IitĦ"84.v{/[0_Eŧx͸ T{ e%g&r''<9*%?)9`ց/ w8Sy=c vi?H5hd)Pb!,sn[f<p0f:>{rQKfX.ß6O^r5iӫeyKf¶hes|NT&3~d##n -C596hlaD 9^[}zfYLMawi 7v|x9QHJ/RѠE~`EWE[ocn,['MRqQ<0"L& N (CYJ Q_sZy˟.E3 so}]Q[$=))47Zc^ H/ %W+wn3Oicvn`_'wGyFG6tr(fBa17]`[p}-D#x'+Nn?&g }+gwRl|fc,JOKJvWQ (Q|-̇i|ڝImu!5HkUT= s95ya:iBC1Be[}l4RB,>A-Qίqi]!ɷt>nV'O 0̮%$9x\(Ħ\,<En荘[ |:=i`Ħj1)OS.&;6+jBLTEb>)8G~pq:Gf}595>)0Xj.Y+y΢ \{b94uHsYIwۛ1fY3U#+,M4mN>P p\<1[tq H 49'=Zjyis/tlh"V.;FC_oZHGe)A6Q\@ Hvx ba՟G״~/#F^m>&ygPFq߂a^dkٌ™`,뽖”i/~}\''X@p7nMlO˂}ؙ̱E_=%@>Y*z:w&"h)s&-) I xXQÈmqz]LC;5 eq M|Re%n jL~ȥZvlp9fbS0wzSAAb)^坁:jU@ :~ Xai "'{i^o*iB/7svOl˕VEaI_MDlw2|;eę%ϪGQzA3($V'}.F.h_>)k#x6." 90 G[Ri-l2V6"7$laGePH"'=HP1jpWhL "8n+}R o,ʛk3$R k )z` I REEln3"QO?{1&Q.4N51hncqP]^@תEn+_OrKK?a 6Ad4NߊY)*eH3(&}Y&Ʒ7Lqw *&˘x NѼ>n |Lv/PZNS]߼ IIA6`+w|nKUS(3/d,Nd'SI &i=O@4-U0rW16?t3"a+.%FL:~U ;ވdrmw ,q!4&N{uc=E>e %-hg,=I& xr^Sj/-{i\S_-SMrNT['R,^8#=-6~XD#!Wt.יvYƜG)(`5\b$ngwGS>m_?nƵʴy,ƈڣH\j<6`YI8'UB3r W^h[j9}="mJ0Q%4TŔւk{HA_E-mK^S3-2.!*A24MK,DDh.fUtه+;#AO-V(mU*;Ud,S2L0 |@L]$0*kmfgZcv;h<@k!$Zb˚WA>ȘwpICGJE Tl{b5i26*](DXb?c} ?mFI p+mV]+\ xzv ~%=n-d=S2k9 g%!`+D8gX3J',l=l:KHرe{/M) V5tb7z*D tY|#evD8> 8w^͹zpi)g5%͒=ZL%(_ /#F-M@q[B-;7h oM1Wc  4M\0`;k!.pp]yh%burI%Uw|g$:(ZK~Wr\dn& ~GolV,ur'I%\\xa r#x;a hU qHŁ49lh