V۸n$ HSCLOAD010.By` HSCLOAD010.BBACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY $1$DIA2:[HSC.B]*.*; $1$DIA2:[HSC]HSCLOAD010.B/LABEL=(HSCLOAD)/SAVE/BLOCK=9000/GROUP=25/NOINIT/NOREWIVAX/VMS SPKITBLD Procedure BUCKLEY 97<^V6.1 _DEWEY::  _$1$DIA2: V6.1 $I*[HSC.B]HSCLOADINGIVP.COM;6+, ./ 4JB-P0123KPWO536a><7p7<^89GHJ"$@sys$manager:hsc_loading_logicalsI$write sys$output "defining the disk to hsc paths, this may take a while""$@hsc$loading:build_disk_cable.comI$write sys$output "path definition complete, here are the paths defined:"$!$$type hsc$loading:disk_cable_hsc.dat$!I$! this command procedure runs hsc_loading TO PRODUCE the "best" loading $! (hsc$loading:disk_path.dat) $!($! GET DEFAULT INFO FOR HSC_LOADING CALL$!$NODE = F$GETSYI("NODENAME")4$YESTERDAY = F$CVTIME("YESTERDAY","ABSOLUTE","DATE")#$START = "''YESTERDAY'" + ":00:00"#$FINISH = "''YESTERDAY'" + ":23:59"$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!J$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/BEG='START'/END='FINISH' 'NODE'$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$EXIT*[HSC.B]HSCLOADINGIVP_MI.COM;1+, ./ 4JX-P0123KPWO526 <7@y7<^89GHJ"$@sys$manager:hsc_loading_logicalsI$! this command procedure runs hsc_loading TO PRODUCE the "best" loading $! (hsc$loading:disk_path.dat) $!($! GET DEFAULT INFO FOR HSC_LOADING CALL$!$NODE = F$GETSYI("NODENAME")4$YESTERDAY = F$CVTIME("YESTERDAY","ABSOLUTE","DATE")#$START = "''YESTERDAY'" + ":00:00"#$FINISH = "''YESTERDAY'" + ":23:59"$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!J$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/BEG='START'/END='FINISH' 'NODE'$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$EXIT*[HSC.B]HSC_LOADING_DECPS.CLD;1+, ./ 4Q2-P0123KPWO5?6OQ2\7@ 7<^89GHJDEFINE VERB HSC_LOAD$ IMAGE HSC$LOADING:HSC_LOADING.EXE:PARAMETER P1,LABEL=NODE,PROMPT="Node",VALUE(LIST,REQUIRED)2QUALIFIER BEGINNING,VALUE(REQUIRED,TYPE=$DATETIME)/QUALIFIER ENDING,VALUE(REQUIRED,TYPE=$DATETIME)QQUALIFIER OUTPUT,DEFAULT,VALUE(DEFAULT="HSC$LOADING:DISK_PATH.DAT",TYPE=$OUTFILE)*[HSC.B]HSC_LOADING_DECPS.OBJ;3+, ./ 4V-P0123KPWO56'MB7Ɠ7<^89GHJ6 HSC_LOADING01 7-Jul-1993 11:28 7-Jul-1993 11:28DEC Fortran V6.0-1 HSC_LOADINGP6 DISK UNIT # HSC # REQ # PREFERRED PORT (A OR B)           REQ#  # DISKS= / CURRENT LOAD=   PROPOSED LOAD=   HSC_LOADINGBEGINNINGENDINGOUTPUTHSC$LOADING:DISK_CABLE_HSC.DATDevice Not on this system, current load=0NODEPROCESSING NODE DATAHSC$LOADING:MANUAL_HSC_LOADING.RPTHSC$LOADING:NEW_LOADING.RPTpP'   CLI$GET_VALUE@p4 CLI$GET_VALUE@x8 CLI$PRESENT@ CLI$GET_VALUE@00 FOR$OPEN@4 "D ($22 CLI$GET_VALUE@,7GPd"LL FOR$OPEN@oHo FOR$OPEN@PO[^V(Ʀ(Ɣ(Ɨ(ƚ(Ɲ(Ơ(ƣ˰ CLI$GET_VALUEЫWPPLIB$STOP CLI$GET_VALUEЫ XPPLIB$STOP CLI$PRESENTP CLI$GET_VALUEPPLIB$STOP\@lQaR˨bSޫ,cTdUePޫ0`\lQaRbSޫ4cTdUeP`\ޫ8lˌQaR@bScTdUeP@`\lQ(a Rޫ$bS cT"dUhePޫ(` FOR$OPENY(((ܟ~ FOR$READ_SFp FOR$IO_T_DSˀ FOR$IO_T_DSː FOR$IO_T_DSˈ FOR$IO_T_DS˘ FOR$IO_T_DSx FOR$IO_T_DS FOR$IO_END))1p@ SYS$ASSIGNP~ FOR$WRITE_SLT FOR$IO_T_DSp FOR$IO_T_DS\ FOR$IO_T_DS FOR$IO_END, @˨2ltd SYS$GETDVIWPPˌˈ LIB$SIGNAL2˔ː SYS$DASSGNPP˜˘ LIB$SIGNALѫ4ˠ LIB$SIGNALHeHeԫԫԫ ԫ)˨ LIB$CVT_DTBPP˼˸ LIB$SIGNALGET_HSC_NUMBER) LIB$CVT_DTBPP LIB$SIGNALGET_HSC_NUMBERHeZ(JcJrPЫ$`(@(Jv(JJPЫ`JRЫb(JĞJPЫ `JRЫb,,˨ J(J(J1 CLI$_ABSENTZ FOR$CLOSE! CLI$GET_VALUEPZ1PPLIB$STOP~ FOR$WRITE_SL  FOR$IO_T_DS!,( FOR$IO_T_DS0 FOR$IO_T_DS FOR$IO_ENDߞ ScW8t<'TdH@ SYS$BINTIMXLP/Ue\aT SYS$BINTIMfd`PSPA$OPEN_CONTEXTPkkRbpQatScxh PSPA$STOPkkfˀ|PSPA$READ_CONTEXTPk PSPA$_NOMORETkTkUeˌRbːQa˔˄ PSPA$STOPޞ8ScSTd˜8Ueˠ˘ GET_PSPA_DISKf˨ˤPSPA$CLOSE_CONTEXTPkkRb˴Qa˸Sc˼ˬ PSPA$STOP¹l'(1jWHeXZX1ZTTYYHeZ\LRbRYVFScSRSLcT(d`LcPFcR(b`FcQ(`aWHeYXZ1sW1WTHe1VTUEQaQESc)EEZjZEP`PďZPPZJD`RbREYiYJD`XYRhJ_P`PJ_SPc)EEJ`QaQJ`SYQc)EEZjZEP`PďZPPZJD`RbREWgWJD`\WRlJ_P`PJ_SPc)EEJ`QaQJ`SWQcHeTXHe1X\LP`PPZLQaQQWLTdTTVLP`PPY)L(LLLY@ȥ$ HSCLOAD010.B P[HSC.B]HSC_LOADING_DECPS.OBJ;3/ LQiaALďZWWZJ`YiYLQaQJ`SQYcJ4aUeUJ4aVUf1)L(LLLZLQjaBLďVYYVF`ZjZLQaQF`SQZcF4aUeUF4aWUgHeXHeHe1ŭY)I1IUeUIXhXIQaQIScSŏUXXUWG`P`XďQSSQVF`UeX(IIIQISacAIIQaQG`SQXcG4aUeUG4aRUb1X(IIIQISacBIIQaQF`SQcF4aUeUF4aRUb1GD`ScZFD`P`\Z\(IIIQISacAIIQaQG`SQXcG4aUeUG4aRUb1Z\(III\IQlaBII\l\F`Q\aF4aScSF4aUSe1Z)II(IIIPIR`bAIIP`PG`RPXbG4aTdTG4a\Tl(III\IPl`BIIXhXF`PX`F4aRbRF4aTRdW)I1\\ѭHe1ŭZ)IJ1JP`PPVJRbRRXJTdTT\JP`PP)IJ(JJJQJSacAJďVXXVF`QaQJScSF`USQeF4aP`PF4aTPd)IJ(JJJVJQfaBJď\ŭXX\L`P`PJRbRL`TRPdL4aXhXL4aQXaHe~FOR$OPENFOR$OPEN FOR$WRITE_SF FOR$IO_ENDZHe1VZ\)LL *R FOR$WRITE_SFLc FOR$IO_T_DSL FOR$IO_T_DSLTd FOR$IO_L_RL  FOR$IO_T_DS FOR$IO_ENDn FOR$WRITE_SFLc FOR$IO_T_DSL FOR$IO_T_DSLUe FOR$IO_L_RLRb FOR$IO_L_Rˠ FOR$IO_T_DS FOR$IO_ENDHeZ  FOR$CLOSE( FOR$CLOSE8FOR$OPENXSXYSTYTD_WgW FOR$WRITE_SFX\LTP FOR$IO_T_DSS FOR$IO_L_VD4aUe FOR$IO_L_RD_Rb FOR$IO_L_RD`\l FOR$IO_L_RD`Ue FOR$IO_L_R FOR$IO_ENDSjdXTX FOR$CLOSEPP $ O HSC_LOADING SYS$ASSIGN SYS$BINTIM SYS$DASSGN SYS$GETDVIWPSPA$OPEN_CONTEXTPSPA$READ_CONTEXTPSPA$CLOSE_CONTEXT CLI$GET_VALUE CLI$PRESENT CLI$_ABSENT PSPA$_NOMORELIB$STOPFOR$OPEN LIB$SIGNAL LIB$CVT_DTBGET_HSC_NUMBER FOR$CLOSE PSPA$STOP GET_PSPA_DISK $CODE$PDATAx$LOCALCOM$CTXLe COM$ARRAY\ HSC$ARRAY FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SLhPPPPP=PWPDPgPP;PPPP"P#.PPP#\PPPP'PqPTP'7PkP'PPtPA%PMP-iP}PtPPtZPPTPuLP^PuPP Pw P\ P P^4 PR P] P  P_ P$ PKl PJ P7 P! P0 P^ P`@ P] Pc P_oP|1% 9GET_HSC_NUMBER01 7-Jul-1993 11:28 7-Jul-1993 11:28DEC Fortran V6.0-1GET_HSC_NUMBERGET_HSC_NUMBERPP|H[T}PQU޼VUUP)@UfUXXPPXXQ(AXf_ |HGET_HSC_NUMBERf$CODE$PDATA$LOCAL\ HSC$ARRAY-P#f8 GET_PSPA_DISK01 7-Jul-1993 11:28 7-Jul-1993 11:28DEC Fortran V6.0-1 GET_PSPA_DISK GET_PSPA_DISKi PHPO [мVV$Ь ޫPFOR$INI_DES1_R2WWXXP@Rb80 STR$COPY_DXPP@<LIB$STOP^(n_~(n^ZZZYIrQaQqQIvS- QcIP`PIRPbITdT0XZJQaQJQPISPTcZHeWWV1= O GET_PSPA_DISK STR$COPY_DXLIB$STOP$CODE$PDATAd$LOCALLe COM$ARRAYFOR$INI_DES1_R2GP P?P 2&_4 PSPA$STOP01 7-Jul-1993 11:28 7-Jul-1993 11:28DEC Fortran V6.0-1 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(*[HSC.B]MANUAL_HSC_LOADING.COM;6+,Q ./ 4K>-P0123KPWO56S>B%7@u7<^89GHJ$! manual_hsc_loading.comG$! this command procedure runs hsc_loading and uses the "best" loading K$! (hsc$loading:disk_path.dat) as input to create reports and command files$!&$@SYS$MANAGER:HSC_LOADING_LOGICALS.COM$!($! GET DEFAULT INFO FOR HSC_LOADING CALL$!$NODE = F$GETSYI("NODENAME")$!G$!MAY BE CUSTOMIZED FOR YOUR ENVIRONMENT (ALL CI NODES) AS SHOWN BELOW:$!$!NODE = "NODE1,NODE2,NODE3"$!$!A$!DEFAULT START IS 5 DAYS AGO, END YESTERDAY TO AVOID DATA SPIKES$!4$YESTERDAY = F$CVTIME("YESTERDAY","ABSOLUTE","DATE")$START = "''YESTERDAY'-4-"#$FINISH = "''YESTERDAY'" + ":23:59"$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!J$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/BEG='START'/END='FINISH' 'NODE'$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!B$! READ IN DISK_PATH.DAT AND CREATE COMMAND PROCEDURE TO SET PATHS$!4$OPEN/err=nofile DISK_PATH HSC$LOADING:DISK_PATH.DAT($OPEN/WRITE SET HSC$LOADING:SET_PATH.COM,$OPEN/WRITE FORCE HSC$LOADING:FORCE_PATH.COM,$OPEN/WRITE CLEAR HSC$LOADING:CLEAR_PATH.COM*$WRITE CLEAR "$NODE = F$GETSYI("NODENAME") $DISK_LOOP:%$READ/END=DONE_DISK DISK_PATH DISKREC3$DISK = F$EDIT("''F$EXTRACT(1,15,DISKREC)'","TRIM")3$HOST = F$EDIT("''F$EXTRACT(18,6,DISKREC)'","TRIM"))$WRITE SET "$PREFER ''DISK'/HOST=''HOST'"1$WRITE FORCE "$PREFER ''DISK'/HOST=''HOST'/FORCE"+$WRITE CLEAR "$PREFER ''DISK'/HOST=''NODE'"$GOTO DISK_LOOP $DONE_DISK:$WRITE SET "$EXIT"$WRITE FORCE "$EXIT"$WRITE CLEAR "$EXIT"$CLOSE DISK_PATH $CLOSE SET $CLOSE FORCE $CLOSE CLEAR$! $SET NOON&$PURGE/KEEP=3 HSC$LOADING:SET_PATH.COM($PURGE/KEEP=3 HSC$LOADING:FORCE_PATH.COM($PURGE/KEEP=3 HSC$LOADING:CLEAR_PATH.COM$EXIT$nofile:D$request "error running hsc loading, check the DECps data collecter"$exit*[HSC.B]PREFERRED_PATH.COM;5+,./ 4N<-P0123KPWO 56 8C%7 >7<^89GHJJt$ HSCLOAD010.BPSC.B]PREFERRED_PATH.COM;5N/$! preferred_path.comG$! this command procedure runs hsc_loading and uses the "best" loading N$! (hsc$loading:disk_path.dat) as input to set the preferred port cluster-wideN$! using sysman and prefer and then initiates a failover using prefer with the$! /force option$!&$@SYS$MANAGER:HSC_LOADING_LOGICALS.COM$!($! GET DEFAULT INFO FOR HSC_LOADING CALL$!$NODE = F$GETSYI("NODENAME")$!G$!MAY BE CUSTOMIZED FOR YOUR ENVIRONMENT (ALL CI NODES) AS SHOWN BELOW:$!$!NODE = "NODE1,NODE2,NODE3"$!$!A$!DEFAULT START IS 5 DAYS AGO, END YESTERDAY TO AVOID DATA SPIKES$!4$YESTERDAY = F$CVTIME("YESTERDAY","ABSOLUTE","DATE")$START = "''YESTERDAY'-4-"#$FINISH = "''YESTERDAY'" + ":23:59"$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!J$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/BEG='START'/END='FINISH' 'NODE'$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!B$! READ IN DISK_PATH.DAT AND CREATE COMMAND PROCEDURE TO SET PATHS$!4$OPEN/err=nofile DISK_PATH HSC$LOADING:DISK_PATH.DAT($OPEN/WRITE SET HSC$LOADING:SET_PATH.COM,$OPEN/WRITE FORCE HSC$LOADING:FORCE_PATH.COM,$OPEN/WRITE CLEAR HSC$LOADING:CLEAR_PATH.COM*$WRITE CLEAR "$NODE = F$GETSYI("NODENAME") $DISK_LOOP:%$READ/END=DONE_DISK DISK_PATH DISKREC3$DISK = F$EDIT("''F$EXTRACT(1,15,DISKREC)'","TRIM")3$HOST = F$EDIT("''F$EXTRACT(18,6,DISKREC)'","TRIM"))$WRITE SET "$PREFER ''DISK'/HOST=''HOST'"1$WRITE FORCE "$PREFER ''DISK'/HOST=''HOST'/FORCE"+$WRITE CLEAR "$PREFER ''DISK'/HOST=''NODE'"$GOTO DISK_LOOP $DONE_DISK:$WRITE SET "$EXIT"$WRITE FORCE "$EXIT"$WRITE CLEAR "$EXIT"$CLOSE DISK_PATH $CLOSE SET $CLOSE FORCE $CLOSE CLEAR:$! USE SYSMAN AND PREFER TO SET ALL OF THE PREFERRED PATHS$!L$!MAY BE CUSTOMIZED FOR YOUR ENVIRONMENT (EXCLUDE NI NODES!) AS SHOWN BELOW:$! $!$MC SYSMAN*$!SET ENVIRONMENT/NODE=(NODE1,NODE2,NODE3)$!DO @HSC$LOADING:SET_PATH.COM2$! WAIT 20 SECONDS FOR THE PREFERRED PATHS TO TAKE$!WAIT 00:00:20.00$!%$! USE PREFER/FORCE TO FORCE FAILOVER$!$!@HSC$LOADING:FORCE_PATH.COM $!$MC SYSMAN*$!SET ENVIRONMENT/NODE=(NODE1,NODE2,NODE3) $!DO @HSC$LOADING:CLEAR_PATH.COM $!CLEAN UP$!$! $MC SYSMANSET ENVIRONMENT/CLUSTERDO @HSC$LOADING:SET_PATH.COM2$! WAIT 20 SECONDS FOR THE PREFERRED PATHS TO TAKE$WAIT 00:00:20.00$!%$! USE PREFER/FORCE TO FORCE FAILOVER$!$@HSC$LOADING:FORCE_PATH.COM$WAIT 00:00:20.00$!=$!USE PREFER TO CLEAR THE PREFERRED PATH TO AVOID MI PROBLEMS$! $MC SYSMANSET ENVIRONMENT/CLUSTERDO @HSC$LOADING:CLEAR_PATH.COM$! $!CLEAN UP$! $SET NOON $PURGE/KEEP=3 PREFERRED_PATH.LOG&$PURGE/KEEP=3 HSC$LOADING:SET_PATH.COM($PURGE/KEEP=3 HSC$LOADING:FORCE_PATH.COM($PURGE/KEEP=3 HSC$LOADING:CLEAR_PATH.COM$EXIT$nofile:?$request "error in hsc loading, check the DECps data collecter"$exit*[HSC.B]PSPA$LIB.FOR;2+,B P./ 4[-P0123KPWO586H57`7<^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 = '00000400'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 tim-|Ʊ$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[" e 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 INTEGER*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 c$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[" 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 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- 9.^$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[?"- 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 continuance 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 ratQ$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[o">eP: 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 REAL*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_CNT ! 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_D$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2["OEFPRI ! 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 ! 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_S ߵ$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[v"`TR = 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*$ PARAMETER 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 ! 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  ?~$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2["q 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 INTEGER*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 ! (  d$ HSCLOAD010.BB PP[HSC.B]PSPA$LIB.FOR;2[7 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_VOLUME = 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 ***  fc$ HSCLOAD010.BL    mctwJ;3:`%{=,F_4Sy j$sWij`*AlCRFGxg`2aS EKx)|;3lC 9x"C A"YnKU *3Iby\ %RQ&; i]~ %ϣe!=%1EY;GS:V K@MZ"ik ח1+/]<.b$3::U׫uW~`1^j!StnSST\7X`2d TŐn5A|Y$z8o'zT{ݣBc7#!Y5=I~IT 7Y1jm{*$yI"jFE9gFBJz+xAP]#E=mE֊9=n\AzASO.ǜHVBȎ:s0G_gIYUv'n 9Bq[jcro*uGbbC.CJeJ~#T+^Jr4t3k%Ku J^ Bfo9V 'Q}P`1A{s/-nO](4"9yOd`5O 5@-BIi] &H îBx:y"eU- hTWQsG aeY;{U^${$pnRZ'oH ,-2nblm4l+֣gѸ}H9ۣtآU)w|5xpűQ))27<z{ld:>cQgO)aP:K5_`mZ^~'|'1P9Xc.mf<# dmc?;)AvK>k`9`u3F9Y v)&TzQ;NA:]IH^o9-OoLa|]\78c)Tqr-3cF$>`q $6C$x4[F5'5tI C䇪ـ6_g'*bjR~,ĭDac~KF呵2ϭ%9 v̇Tpʻ٫4밞⫒Ŵ8ļ͸䨥4a 'f0Z{Sy7C1HZ Ozz&v&bvD}x)nJ*,j?LMe/, b[O sWjJ[%?rdpjX#GZm6P^Yrx #eb'x FWQN%s&-.=bvk?>D#&t c8}dOyf $N5waO2gciA)^i @ϏEqli65zz>-,Oh%=lAGT5T9+sW]odz[9z94#a)lYaS~HnEZC}q~DM.Oy1v:ltm~X(qnaM 9G[$?HFkm'FEnY"n;yohQ^[ s;*rdxE1sL7!z$Q]3B1oM7 d?}E5t gic$#w~O|wH: rLx`h44r4p Puvus4]!ypD{L:rFUlnary}EoJu'WqcZP6xiza,+nRdx |"Wx%;U8R{``|~!0*VgT19c[/+ T|`,cvV]VnrIak;nQ1C>uxn-GB}0|/Hi~0]@}f ~u=xZN`i`xZN@D~82-[p&D_Z&Q|thRB,cYKirC#%jXH=?3CF-~i3x0L&kSf/(*[It60>"MFwh_ hdiLm$Am.k[0N*@ObMX5HoO+0#r;/(8@P!RV~J; nimBl2#n]k:YBbQY)n=Mz:K WscM3T7h*P<rHP|(fN?wLPhH"Gt3D}6E6O45{1d;t$a8_x\]$m*< ޠ*H30.(L@sNLFzxJOxp7dO~W?:SeOw]~5)[wne J4uh4]ѭnj6MDt1]A 2MSz'3x6Ht(HzY&'xoS˶pL_'ShP;{!`MK˔&'Bk[0hv*u}t5IHD"6B[._UOQFA b&RILbf 39ij3W&{S(c tD7FBYn@X#3G~/\ ^VA9>XPM6?X=R? ~le@رF!E44Oe =~qװuLzB-TXZp6#k$&mi.*sVw,f vcBP(\n|1z?P`h"*"sr>tXX" \e,/`Jr(tT~ M@1C KWwH03l#' 0 )I/w= L|u%+-"YFHQJ=%(**cHL> Y@A0)rr 5B\zu+{!m31+&\M l4Mb #p\9" # 4dok#,u[p'9x)M^96b<:ffqBwe.V&*sE>hK]>A2+*t{vKhRN^;|HVUiYwV^zS\8w)(\` q # (KN;);epZ/U|U%q7"a- FxuAFQP}>\5J]E*eRao/" ic>Wy+F"o;QL^-":|geG0LE]GL5OE2EL~)?Լyl=Pj}T~& @DWI+Uyk9}d3 6Jr;_2%5o.dDJdx*r}:'oW3R$RJ,[^SDfrh\/jRe<|m"q +qJ)J9 e+jWC1?S R^D.UDiT8.[ )2f7",_pfg4\vrm7Xjx@/)w_w?Y&B;MW35FT!=>k%)^25E+JJd\B:N!E?e;~aINAC5/E4*LN~y: 7V'_g=!eZ"f;rSL^e=G\n:XtP7M^39t v b:lJR@XA Czi}'8Cp95t{e)]D.YS(MdGŐ(@}0h8>D-.(wd>i+jr+"![[  : e[4{T7k=(_v)+yd&F`=UC@->{ a\1i)~9rc@nn/@1-ZpQn]Tl;m K0~VaacD[ LK{}dN 2zNvhC{Y)iJHk:X Tr`~" ` r{)e]Z4o1tIeEF=_7#SY |3T';4zFh'KH}GMXapH sJTG aQ 3D-2n|m?hmeY?pq |neN{ 8+7p2zl AC*0XwT+Z=n ,6}Áw!'_73zH1 ,p'iGQos?#ii:n ^8\X/m`6eRJ]*[_MmY2uQv>e]{T'aCr :}78ee Jf6S:>W8\=`4X@]r &oMK) VQ2j*]*Qf jW2BRY_ ~{>b_65):?N)+pGVIg:^xR !hedS~}POYp>'?}\*1i${LER.A)*90QC8lj5: "PxZ5FaO X~6M^+}{~p<4v\1p|H;Oi f0#Qx58dRa_XBVK|:x2nxaojr<2!Pp/;ub+eyFL)EO_2tLcoS#R;^3v֏$(_g> JN[3,*'(ݰ@-^ڥ\L]aw~T|{ 9sTV}W})6R0׆>="doOt]0zmVRz m  GpFN:Si$Ыԥ?|Zy9=['f>lu>ȌCaM ;;m[6 Jm{gbxW_1j`$w İ3Lt hHhy 0vx ߒr`URl\V)v&獔s}t&tkb57"+C4C!Y%5UrjhH=z5ȭ&<)?"Bs(Y}m)=)_YQY|I)  >`wsw{0"˭+F4oF7a4-b*F#!nkoE% ,3-XHZDT(q::kAF7d`,n%/nï 8NjHpUk_.,"`m#n koߟyYhj” 8HG n?d4Ez]ԧfr;w*?LZ>`Kk 21[\7P60"2I~](_je,- }b?j_T,` [Ӿ2"*J`3 (Ci9Tbgs!Zx!եx5e 3N]-UAEL\n&/}T5>i9̀hmau_ѧUaumO=ĥZi8dotY"]1"yie)fi42km7;f ;,myWfVYt !y?][ r%>kKDNv:"3? Gr|2"g4%>*PKA u2OiA7UC;@LS?̞eWr~HHU=dM;Q 9kd9@`>Ut5=Sqa@3,zpT|JNzv"v*A;>Jf@YMAU axBilx/)j 0|ߙXp0|oL i%*/:2+{ l6#%Z%g3f` P-[d4WuZW?5hSF0' |Y pzVsJskfs}^C4,&&^ xd$/n8\7%@ImaTJ@\`nI O_t|#/:e5Iu\ns,,J4_0O#Z;[=5뾎DzBdi؈pjAڋ̷䉚ꛈ Nd$H{&҆j$'!^?jPY'Βᛈb!)`liG ')B2 ø-$h˜ }:_%6 fRgxn/+A4Hfm' t`=8{8TB.X| p'gDa.B6R/P/,a`W h/2{p:#rA}Pfs}Lm+7"cpt&bԎXڔbUH>vJjDwCx@e/.K*\߆WSwOceXS= ?4u#0{bu(6kQSfT"9!@izz2suXeeI'G?Iog/Lp_ )DS1`; 7]5Q^cJ