E$ PRODUSE010.Cp PRODUSE010.CBACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY $1$DIA2:[PRODUCT_USE.C]*.*; $1$DIA2:[PRODUCT_USE]PRODUSE010.C/LABEL=(PRODUSE)/SAVE/BLOCK=9000/GROUP=25/NOINIT/NOREWIVAX/VMS SPKITBLD Procedure BUCKLEY  ܦB<^V6.1 _DEWEY::  _$1$DIA2: V6.1 $I$*[PRODUCT_USE.C]PRODUCT_USE_VPA.OBJ;6+,./ 4-0123KPWO5%6@pz67wB<^89GHJ 6 PRODUCT_USE0110-Nov-1992 12:1710-Nov-1992 12:17VAX FORTRAN V5.5-98 PRODUCT_USEEPNODEUSERIMAGEOUTPUTSAVESAVE FILE IS RECALLRECALL FILE IS BEGINNINGENDINGPRODUCT_SKIP.DATPRODUCT_SKIP_VMS_DECW.DATONLY 10 NODES PER CLUSTER CAN FIT ON THE REPORT, NODES SKIPPED[(LASTUSER)]IMAGE_TO_PRODUCT.DATUSER_IMAGE_TO_PRODUCT.DATIMAGE= USER= ''P      ' P'  Report data starts  and ends    &     9 Total Max concurrent users9 Product Image Name Users Tot   1  PRODUCT_USEP''','_'4  CLI$PRESENT@D  CLI$GET_VALUE@   d  CLI$GET_VALUE@l    CLI$GET_VALUE@   CLI$PRESENT@  CLI$GET_VALUE@   CLI$PRESENT@  CLI$GET_VALUE@$   -!- CLI$PRESENT@-,!- CLI$GET_VALUE@, 4 CT!C CLI$PRESENT@ Cd!C CLI$GET_VALUE@!M!M CLI$PRESENT@M!M CLI$GET_VALUE@ !T!T FOR$OPEN@e"e FOR$OPEN@,">"   h#  # FOR$OPEN@ ,$ FOR$OPEN@   $  PO[(((((((<QW< N]Qˌ CLI$PRESENTP˜ CLI$GET_VALUEPP˰ˬLIB$STOPԫ$ CLI$_ABSENTR֫$ $P@ CLI$GET_VALUEPRPPLIB$STOPѫ$2ԫ ֫ P@\ CLI$GET_VALUEPRPPLIB$STOPѫ 2  CLI$PRESENTP CLI$GET_VALUEPP0,LIB$STOPԫ(ԫ,< CLI$PRESENTP(L CLI$GET_VALUEPP`\LIB$STOP~ FOR$WRITE_SLd FOR$IO_T_DSt FOR$IO_T_DS FOR$IO_ENDt CLI$PRESENTP,˄ CLI$GET_VALUEPP˘˔LIB$STOP~ FOR$WRITE_SL˜ FOR$IO_T_DS| FOR$IO_T_DS FOR$IO_ENDˬ CLI$PRESENTP˼ CLI$GET_VALUEPPLIB$STOP0'P` SYS$BINTIM CLI$PRESENTP CLI$GET_VALUEPPLIB$STOP4/P`(  SYS$BINTIMԫ 4FOR$OPEN֫ ~ FOR$READ_SFl FOR$IO_T_DS FOR$IO_END P( |@L FOR$CLOSE\FOR$OPEN֫ ~  FOR$READ_SFl FOR$IO_T_DS FOR$IO_END P( |@t FOR$CLOSEZЫ YXYXP XV P\) FLFP( `FPLR( b`LP( `ZYXZѫ,1|Uˀ˄FOR$OPENԫ<X֫<~  FOR$READ_SFP![P[hP_P P*P4P+AP^PYhPCP oc3VPA$STOP0110-Nov-1992 12:1710-Nov-1992 12:17VAX FORTRAN V5.5-98VPA$STOPqP)3 %VPA-F-INCOMPAT, Data is incompatible with reader./ %VPA-F-NOALLOCVA, Insufficient virtual memory.VPA$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Ѽ8~ FOR$WRITE_SF FOR$IO_ENDмXTSYS$EXIT HVPA$STOPSYS$EXIT SYS$GETMSG$CODEj$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF(EPrP?PPP'*[PRODUCT_USE.C]VPA$LIB.FOR;1+,.l/ 4[li-0123KPWOm5:61kē7 =B<^89GHJ  )!*** MODULE $VPACTXDEFS IDENT T2.1-27 ***# PARAMETER VPACTX$M_C = '00000001'X& PARAMETER VPACTX$M_OPEN = '00000002'X& PARAMETER VPACTX$M_REPO = '00000004'X& PARAMETER VPACTX$M_DIRE = '00000008'X( PARAMETER VPACTX$M_NOMORE = '00000010'X& PARAMETER VPACTX$M_HOLE = '00000020'X& PARAMETER VPACTX$M_LOST = '00000040'X( PARAMETER VPACTX$M_NOFILE = '00000080'X' PARAMETER VPACTX$M_IOERR = '00000100'X( PARAMETER VPACTX$M_REOPEN = '00000200'X) PARAMETER VPACTX$M_PARTIAL = '00000400'X* PARAMETER VPACTX$M_INCOMPAT = '00000800'X* PARAMETER VPACTX$M_REALTIME = '00001000'X% PARAMETER VPACTX$M_SUP = '00002000'X) PARAMETER VPACTX$M_NONSTOP = '00004000'XJ PARAMETER VPACTX$K_HOLIDAY_MAX = '00000020'X ! Maximum holidays possibleL PARAMETER VPACTX$K_INTERVAL_MAX = '000002D0'X ! Maximum intervals possible' PARAMETER VPACTX$K_DAILY = '00000000'X( PARAMETER VPACTX$K_WEEKLY = '00000001'X) PARAMETER VPACTX$K_MONTHLY = '00000002'X+ PARAMETER VPACTX$K_QUARTERLY = '00000003'X( PARAMETER VPACTX$K_YEARLY = '00000004'XD PARAMETER VPACTX$K_CTXLEN = '000002EF'X ! Length of argument blockE PARAMETER VPACTX$K_ERREADFILE = '00000002'X ! VPA_ErrReadFile error@ PARAMETER VPACTX$K_INCOMPAT = '00000004'X ! VPA_Incompat errorB PARAMETER VPACTX$K_NOALLOCVA = '00000006'X ! VPA_NOallocVA error STRUCTURE /CONTEXT/1 INTEGER*4 VPACTX$L_ARGCNT ! Argument count. INTEGER*4 VPACTX$L_STATUS ! Status code UNION MAP9 INTEGER*4 VPACTX$L_CONDS ! Condition codes END MAP MAP% PARAMETER VPACTX$S_C = 1< PARAMETER VPACTX$V_C = 0 ! Success or failure( PARAMETER VPACTX$S_OPEN = 19 PARAMETER VPACTX$V_OPEN = 1 ! File is open( PARAMETER VPACTX$S_REPO = 1D PARAMETER VPACTX$V_REPO = 2 ! Reposition file pointer( PARAMETER VPACTX$S_DIRE = 1> PARAMETER VPACTX$V_DIRE = 3 ! Directory in file* PARAMETER VPACTX$S_NOMORE = 1E PARAMETER VPACTX$V_NOMORE = 4 ! No more data available( PARAMETER VPACTX$S_HOLE = 1< PARAMETER VPACTX$V_HOLE = 5 ! Hole discovered( PARAMETER VPACTX$S_LOST = 1@ PARAMETER VPACTX$V_LOST = 6 ! Data unintelligible* PARAMETER VPACTX$S_NOFILE = 1> PARAMETER VPACTX$V_NOFILE = 7 ! File is missing) PARAMETER VPACTX$S_IOERR = 1B PARAMETER VPACTX$V_IOERR = 8 ! Error accessing file* PARAMETER VPACTX$S_Xa$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[l"REOPEN = 1D PARAMETER VPACTX$V_REOPEN = 9 ! File must be reopened+ PARAMETER VPACTX$S_PARTIAL = 1K PARAMETER VPACTX$V_PARTIAL = 10 ! At today's partial record , PARAMETER VPACTX$S_INCOMPAT = 1E PARAMETER VPACTX$V_INCOMPAT = 11 ! Data is incompatible, PARAMETER VPACTX$S_REALTIME = 1C PARAMETER VPACTX$V_REALTIME = 12 ! Tread water at EOF' PARAMETER VPACTX$S_SUP = 1F PARAMETER VPACTX$V_SUP = 13 ! Command to supersede file+ PARAMETER VPACTX$S_NONSTOP = 1L PARAMETER VPACTX$V_NONSTOP = 14 ! Command to skip over errors+ PARAMETER VPACTX$S_SPARES = 17+ PARAMETER VPACTX$V_SPARES = 15 BYTE %FILL (4) END MAP END UNION< INTEGER*4 VPACTX$L_HOLE_BGN ! Hole in timeframe start! INTEGER*4 VPACTX$L_HOLE_BGN2: INTEGER*4 VPACTX$L_HOLE_END ! Hole in timeframe end! INTEGER*4 VPACTX$L_HOLE_END22 INTEGER*4 VPACTX$L_CONTEXT ! Context number3 BYTE VPACTX$B_NODELEN ! Nodename length6 CHARACTER*6 VPACTX$T_NODENAME ! Nodename string9 INTEGER*4 VPACTX$L_START ! Beginning date and time INTEGER*4 VPACTX$L_START26 INTEGER*4 VPACTX$L_STOP ! Ending date and time INTEGER*4 VPACTX$L_STOP24 INTEGER*2 VPACTX$W_EXTLEN ! Size of extension; CHARACTER*39 VPACTX$T_EXT ! Uniquely named extension: INTEGER*4 VPACTX$L_HOLIDAY_CNT ! Number of holidays5 CHARACTER*256 VPACTX$T_HOLIDAYS ! Holiday list? INTEGER*4 VPACTX$L_INTERVAL ! Interval length (1hr/1day)! in minutes (1440=day)E INTEGER*4 VPACTX$L_PERIODICITY ! Schedule repetition frequency! in minutes (10080=weekly)9 INTEGER*4 VPACTX$L_GRANULARITY ! Length of period ! Daily weekly or monthly codeH INTEGER*4 VPACTX$A_USERGROUP_FAMILY_LH ! Usergroup family listheadL INTEGER*4 VPACTX$A_TRANSACTION_FAMILY_LH ! Transaction family listhead? INTEGER*4 VPACTX$L_RETENTION ! Delete after so many days3 INTEGER*4 VPACTX$L_ALQ ! Preallocation size9 INTEGER*4 VPACTX$L_DISKSPACE ! Required disk space= INTEGER*4 VPACTX$L_UPDATE ! Most recent calendar date  INTEGER*4 VPACTX$L_UPDATE2= INTEGER*4 VPACTX$Q_WK_SKEW(2) ! Time week is skewed by UNION MAPC CHARACTER*3 VPACTX$T_SCHED_MON ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_TUE ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_WED ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_THU ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_FRI ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_SAT ! Daily schedule 0-23C CHARACTER*3 VPACTX$T_SCHED_SUN ! Daily schedule 0-23( CHARACTER*7 VPACTX$t_fill_1 END MAP MAP( CHARACTER*28 VPACTX$T_SCHED END MAP END UNIONE CHARACTER*28 VPACTX$T_WKLY_BITMAP ! 2 minute hr interval filter8 CHARACTER*28 VPACTX$T_HOLY_BITMAP ! Holiday filter2 INTEGER*4 VPACTX$L_VPA_ERR ! VPA error code2 INTEGER*4 VPACTX$L_RMS_ERR ! RMS error code3 INTEGER*4 VPACTX$L_RMS_IOSB ! RMS error IOSB7 INTEGER*4 VPACTX$A_TIM_REC ! TIME record address9 INTEGER*4 VPACTX$A_MET_REC ! METRIC record address< INTEGER*4 VPACTX$A_PAR_REC ! PARAMETER record address: INTEGER*4 VPACTX$A_PRO_REC ! PROCESS record address7 INTEGER*4 VPACTX$A_DEV_REC ! DISK record address7 INTEGER*4 VPACTX$A_COM_REC ! COMM record address: INTEGER*4 VPACTX$A_MAG_REC ! MAGTAPE record address@ INTEGER*4 VPACTX$A_CFG_REC ! CONFIGURATION record address6 INTEGER*4 VPACTX$A_CPU_REC ! CPU record address7 INTEGER*4 VPACTX$A_RUL_REC ! RULE record address7 INTEGER*4 VPACTX$A_FIL_REC ! File record address> INTEGER*4 VPACTX$A_TRN_REC ! TRANSACTION record address7 INTEGER*4 VPACTX$A_PRT_REC ! PORT record address5 INTEGER*4 VPACTX$L_TIM_CNT ! TIME record count7 INTEGER*4 VPACTX$L_MET_CNT ! METRIC record count: INTEGER*4 VPACTX$L_PAR_CNT ! PARAMETER record count8 INTEGER*4 VPACTX$L_PRO_CNT ! PROCESS record count5 INTEGER*4 VPACTX$L_DEV_CNT ! DISK record count5 INTEGER*4 VPACTX$L_COM_CNT ! COMM record count8 INTEGER*4 VPACTX$L_MAG_CNT ! MAGTAPE record count> INTEGER*4 VPACTX$L_CFG_CNT ! CONFIGURATION record count4 INTEGER*4 VPACTX$L_CPU_CNT ! CPU record count5 INTEGER*4 VPACTX$L_RUL_CNT ! RULE record count5 INTEGER*4 VPACTX$L_FIL_CNT ! File record count< INTEGER*4 VPACTX$L_TRN_CNT ! TRANSACTION record count5 INTEGER*4 VPACTX$L_PRT_CNT ! PORT record count7 INTEGER*4 VPACTX$L_TIM_OVF ! TIME overflow count: INTEGER*4 VPACTX$L_MET_OVF ! METRIC overflow count= INTEGER*4 VPACTX$L_PAR_OVF ! PARAMETER overflow count: INTEGER*4 VPACTX$L_PRO_OVF ! PROCESS overflow count8 INTEGER*4 VPACTX$L_DEV_OVF ! DISK overflow count7 INTEGER*4 VPACTX$L_COM_OVF ! COMM overflow count: INTEGER*4 VPACTX$L_MAG_OVF ! MAGTAPE overflow countA INTEGER*4 VPACTX$L_CFG_OVF ! CONFIGURATION overflow count7 INTEGER*4 VPACTX$L_CPU_OVF ! CPU overflow count8 INTEGER*4 VPACTX$L_RUL_OVF ! RULE overflow count8 INTEGER*4 VPACTX$L_FIL_OVF ! FILE overflow count? INTEGER*4 VPACTX$L_TRN_OVF ! TRANSACTION overflow count8 INTEGER*4 VPACTX$L_PRT_OVF ! PORT overflow count5 BYTE VPACTX$B_FILE_LEN ! File spec length 6 INTEGER*4 VPACTX$A_FILE_PTR ! File spec address8 INTEGER*4 VPACTX$L_VPA_VERSION ! VPA data version4 INTEGER*4 VPACTX$Q_DATE(2) ! Date at midnight; CHARACTER*39 VPACTX$T_FAMILY ! Family name selectionAB CHARACTER*39 VPACTX$T_TRANSFAM ! Transaction name selection END STRUCTURE ! CONTEXT 0)!*** MODULE $VPAPRTDEFS IDENT V2.0-22 ***0% PARAMETER PRT_M_MEMBER = '00000001'X " PARAMETER PRT_M_HSC = '00000002'X& PARAMETER PRT_M_VAXNODE = '00000004'X% PARAMETER PRT_V_MEMBER = '00000000'XA" PARAMETER PRT_V_HSC = '00000001'X& PARAMETER PRT_V_VAXNODE = '00000002'X STRUCTURE /VPAPRTRECS/ UNION MAP BYTE PRT_B_RECDA END MAP MAP5 BYTE PRT_B_TYPE ! record type 12L END MAP END UNION2 INTEGER*4 PRT_A_NODENAME ! nodename address# INTEGER*4 PRT_A_PATH ! path_3 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 stringT 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 = 1g+ PARAMETER PRT_V_STATUS_HSC = 1 / PARAMETER PRT_S_STATUS_VAXNODE = 1 / 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 = 1_9 PARAMETER PRT_V_STATUS_CIXCD = 6 ! XCD portR. 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 rateM> 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 rateeD 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 ACKSV+ REAL*4 PRT_F_ACKS1 ! path 1 ACKSV+ REAL*4 PRT_F_NAKS0 ! path 0 NAKS+ REAL*4 PRT_F_NAKS1 ! path 1 NAKS1, REAL*4 PRT_F_NRSP0 ! path 0 NRSPs, REAL*4 PRT_F_NRSP1 ! path 1 NRSPs5 REAL*4 PRT_F_DG_DISC ! datagrams discar"G$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[l!"dedU$ REAL*4 PRT_F_SNDDAT_OPER_SNT!! Send Data operations completedS$ 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 _$ REAL*4 PRT_F_REQDAT_OPER_SNT! REQDAT operations completed U$ REAL*4 PRT_F_RETDAT_DATA_RCV3! Bytes of data received by host in RETDAT bodies _& REAL*4 PRT_F_RETDAT_BODIES_RCV'! RETDAT Data bodies received by host G& 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 n REAL*4 PRT_F_CNF_SNT!! Block Data confirmations sent t& REAL*4 PRT_F_DATREQ_BODIES_RCV! DATREQ bodies received & REAL*4 PRT_F_RETDAT_BODIES_SNT%! RETDAT Data bodies sent from host $$ REAL*4 PRT_F_RETDAT_DATA_SNT ! Bytes of data sent by RETDAT  REAL*4 PRT_F_DGSNT! DG bodies sentO 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 Sent( REAL*4 PRT_F_MISC_SNTT! All other opcode bodies sentt REAL*4 PRT_F_DG_RECt,! 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 t 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  END STRUCTURE ! VPAPRTRECS  e)!*** MODULE $VPACFGDEFS IDENT V2.0-22 ***I% PARAMETER CFG_M_MEMBER = '00000001'XI" PARAMETER CFG_M_HSC = '00000002'X& PARAMETER CFG_M_VAXNODE = '00000004'X% PARAMETER CFG_V_MEMBER = '00000000'X_" 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'X % PARAMETER CFG_K_CIBCAA = '00000043'X % PARAMETER CFG_K_CIBCAB = '00000044'XA$ PARAMETER CFG_K_CIXCD = '00000045'X! PARAMETER CFG_K_CI = '0000007F'XA STRUCTURE /VPACFGRECS/ UNION MAP BYTE CFG_B_RECDT 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 typed 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 = 1 + PARAMETER CFG_V_STATUS_HSC = 1E/ PARAMETER CFG_S_STATUS_VAXNODE = 1_/ PARAMETER CFG_V_STATUS_VAXNODE = 2V* 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)R 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 rate B 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 ratenH 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 rate_; INTEGER*4 CFG_A_HWNAME ! V5.0 VAXnode hardware name_6 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 ! VPACFGRECS  I)!*** MODULE $VPAPRODEFS IDENT V2.0-22 *** $ 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'XT) PARAMETER PRO_M_RSN_PGFILE = '00000010'XI+ PARAMETER PRO_M_RSN_PGDYNMEM = '00000020'XV* PARAMETER PRO_M_RSN_BRKTHRU = '00000040'X* PARAMETER PRO_M_RSN_IACLOCK = '00000080'X) PARAMETER PRO_M_RSN_JQUOTA = '00000100'X!) PARAMETER PRO_M_RSN_LOCKID = '00000200'XX* PARAMETER PRO_M_RSN_SWPFILE = '00000400'X+ PARAMETER PRO_M_RSN_MPLEMPTY = '00000800'X * 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'X & PARAMETER PRO_M_SSS_HIB = '00000080'X' PARAMETER PRO_M_SSS_HIBO = '00000100'X1' PARAMETER PRO_M_SSS_SUSP = '00000200'X ( 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'XR& PARAMETER PRO_M_SSS_CUR = '00004000'X$ 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 STRUCTURE /VPAPRORECS/A* BYTE PRO_B_RECD ! record type! INTEGER*2 PRO_W_PIX ! PIXR* INTEGER*2 PRO_W_NODE ! node number9 REAL*4 PRO_F_CPUTIM ! CPU time (10 Msec units)T4 REAL*4 PRO_F_PAGEFLTS ! page fault /cpusec7 REAL*4 PRO_F_PGFLTIO ! page fault IO /cpusec / REAL*4 PRO_F_DIRIOS ! direct IO /sec 1 REAL*4 PRO_F_BUFIOS ! buffered IO /secT9 REAL*4 PRO_F_GPGCNT ! global pages in WS countA: 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 extentN/ REAL*4 PRO_F_UPTIME ! runtime (Secs)D8 REAL*4 PRO_F_IMGACTS ! image activations /sec3 REAL*4 PRO_F_COMPU ! % Time in COM state 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 = 1 - PARAMETER PRO_V_RSN_NPDYNMEM = 3 + PARAMETER PRO_S_RSN_PGFILE = 1 + PARAMETER PRO_V_RSN_PGFILE = 4 - PARAMETER PRO_S_RSN_PGDYNMEM = 1R- PARAMETER PRO_V_RSN_PGDYNMEM = 5A, 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 = 1P+ PARAMETER PRO_V_RSN_JQUOTA = 8 + PARAMETER PRO_S_RSN_LOCKID = 1S+ PARAMETER PRO_V_RSN_LOCKID = 9f, PARAMETER PRO_S_RSN_SWPFILE = 1- PARAMETER PRO_V_RSN_SWPFILE = 10*- PARAMETER PRO_S_RSN_MPLEMPTY = 1c. PARAMETER PRO_V_RSN_MPLEMPTY = 11, PARAMETER PRO_S_RSN_MPWBUSY = 1- PARAMETER PRO_V_RSN_MPWBUSYۡ3E$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[l"( = 12A( PARAMETER PRO_S_RSN_SCS = 1) PARAMETER PRO_V_RSN_SCS = 13S( PARAMETER PRO_S_RSN_CLU = 1) PARAMETER PRO_V_RSN_CLU = 14C BYTE %FILL (2)f 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 = 1F) PARAMETER PRO_V_SSS_LEFO = 6A( PARAMETER PRO_S_SSS_HIB = 1( PARAMETER PRO_V_SSS_HIB = 7) PARAMETER PRO_S_SSS_HIBO = 1d) PARAMETER PRO_V_SSS_HIBO = 8 ) PARAMETER PRO_S_SSS_SUSP = 1 ) PARAMETER PRO_V_SSS_SUSP = 9I* PARAMETER PRO_S_SSS_SUSPO = 1+ PARAMETER PRO_V_SSS_SUSPO = 10C( PARAMETER PRO_S_SSS_FPG = 1) PARAMETER PRO_V_SSS_FPG = 11O( PARAMETER PRO_S_SSS_COM = 1) PARAMETER PRO_V_SSS_COM = 120) PARAMETER PRO_S_SSS_COMO = 1X* PARAMETER PRO_V_SSS_COMO = 13( PARAMETER PRO_S_SSS_CUR = 1) PARAMETER PRO_V_SSS_CUR = 14G BYTE %FILL (2)P END MAP END UNION' BYTE PRO_B_STATUS ! statusR, BYTE PRO_B_PRIB ! base priority% BYTE PRO_B_STATE ! stateC& 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# BYTE PRO_B_KAST ! KAST 1 BYTE PRO_B_AWSA ! AWSA on/off status - BYTE PRO_B_PAGIDX ! paging indexG4 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 addr44 INTEGER*4 PRO_L_PID ! extended process index1 INTEGER*4 PRO_L_MWAIT ! MWAIT hung reasonM. REAL*4 PRO_F_THRUPUT ! Thruput /sec- REAL*4 PRO_F_OPS ! Operations /sec 9 REAL*4 PRO_F_TAPE_IO ! Tape IO operations /secP7 REAL*4 PRO_F_TAPE_THRUPUT ! Tape thruput /secC@ 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 ! UICIC INTEGER*4 PRO_A_DEVICE_1 ! 1st Top IO disk or tape disk nameTB 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 nameRB REAL*4 PRO_F_OPS_2 ! 2nd Top IO disk or tape operations CHARACTER*12 PRO_t_reservedE INTEGER*4 PRO_A_FAMILY ! Family (null string from daily data) H INTEGER*4 PRO_A_WORKLOAD ! Workload (null string from daily data) END STRUCTURE ! VPAPRORECS  )!*** MODULE $VPAMETDEFS IDENT V2.0-22 ***R STRUCTURE /VPAMETRECS/ , BYTE MET_B_TYPE ! Record type 3< REAL*4 MET_F_PROCCNT ! Total number state samples7 REAL*4 MET_F_COLPG ! Scheduler states countsn REAL*4 MET_F_MWAIT ! S REAL*4 MET_F_CEF ! e REAL*4 MET_F_PFW !  REAL*4 MET_F_LEF !  REAL*4 MET_F_LEFO !  REAL*4 MET_F_HIB ! F REAL*4 MET_F_HIBO !  REAL*4 MET_F_SUSP !  REAL*4 MET_F_SUSPO ! c REAL*4 MET_F_FPG ! t REAL*4 MET_F_COM !  REAL*4 MET_F_COMO !  REAL*4 MET_F_CUR ! I: 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 Stacks 4 REAL*4 MET_F_USER ! % Time on User stacks= REAL*4 MET_F_COMPAT ! % Time in Compatibility mode0* 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)M* 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 readM9 REAL*4 MET_F_PREADIO ! Page fault read IO rate7 REAL*4 MET_F_PWRITES ! page fault write rateS: 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 rateP= REAL*4 MET_F_DZROFLTS ! Demand Zero page fault rate87 REAL*4 MET_F_GVALID ! Global page fault rateP= REAL*4 MET_F_WRTINPROG ! Transition page fault rate09 REAL*4 MET_F_SYSFAULTS ! System page fault rateM5 REAL*4 MET_F_FREECNT ! Free list page rate8 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 rate 4 REAL*4 MET_F_MBWRITES ! Mailbox write rate> REAL*4 MET_F_LOGNAM ! Logical name translation rate- REAL*4 MET_F_ISWPCNT ! Inswap rates7 REAL*4 MET_F_FCPTURN ! File window miss rate3 REAL*4 MET_F_SPLIT ! Split Transfer ratee7 REAL*4 MET_F_HIT ! Transfers w/o window turn 7 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 rateR8 REAL*4 MET_F_QUOMISS ! Quota cache misse rate7 REAL*4 MET_F_FIDHIT ! File ID cache hit rateA: 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 rateR> REAL*4 MET_F_FILHDR_HIT ! File header cache hit rateA REAL*4 MET_F_FILHDR_MISS ! File header cache misse rate B REAL*4 MET_F_DIRDATA_HIT ! Directory data block hit rateE REAL*4 MET_F_DIRDATA_MISS ! Directory data block misse rateRE REAL*4 MET_F_STORAGMAP_HIT ! Storage bit map cache hit rate H REAL*4 MET_F_STORAGMAP_MISS ! Storage bit map cache misse rate/ REAL*4 MET_F_OPENS ! Files open rate 0 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 rateT[ REAL*4 MET_F_SYNCHWAIT ! Times XQP had to wait for a directory and vol synch lockR5 REAL*4 MET_F_ACCLCK ! XQP access lock rateNI REAL*4 MET_F_XQPCACHEWAIT ! XQP had to wait forcache free spaceR8 REAL*4 MET_F_FILECPU ! % File system CPU timeC REAL*4 MET_F_ARRLOCPK ! DECNET arriving local packet rate D 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 rateY: 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 rate A REAL*4 MET_F_ENQCVT_LOC ! local conversion request rate C REAL*4 MET_F_ENQCVT_IN ! incoming conversion request rate D 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 requ1$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[l"9est rate? REAL*4 MET_F_DEQ_OUT ! outgoing dequeue request rateT< 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 rateVD REAL*4 MET_F_BLK_OUT ! outgoing blocking ASTs queued rateC REAL*4 MET_F_DIR_IN ! incoming directory operations rate=D REAL*4 MET_F_DIR_OUT ! outgoing directory operations rateM REAL*4 MET_F_DLCKMSGS_IN ! incoming deadlock detection message rateRN 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 rate 8 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 useA; REAL*4 MET_F_RESOURCE_MAX ! Resource table lengthy6 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 blocksaD 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 block 6 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 ! t" 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 lengthI- REAL*4 MET_F_SRP_CNT ! SRPs in use!1 REAL*4 MET_F_IRP_MAX ! IRP list lengtht- REAL*4 MET_F_IRP_CNT ! IRPs in usea1 REAL*4 MET_F_LRP_MAX ! LRP list lengthH- REAL*4 MET_F_LRP_CNT ! LRPs in useO< 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 buffersS@ 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 packetst@ REAL*4 MET_F_MSCP_PACK_FREE ! MSCP number free packets= REAL*4 MET_F_MSCP_BUFF_QUE ! MSCP buffer wait queueRF REAL*4 MET_F_MSCP_BUFF_PEAK ! MSCP wait queue highwater markG REAL*4 MET_F_MSCP_IO_SPLITS ! MSCP number split transfer rateUB 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 CHARACTER*56 MET_t_reserved END STRUCTURE ! VPAMETRECS )!*** MODULE $VPARULDEFS IDENT V2.0-22 ***M STRUCTURE /VPARULRECS/*( INTEGER*4 RUL_A_RULE ! Rule code: REAL*4 RUL_F_OCCURENCES ! Rule occurence count CHARACTER*32 RUL_t_reserved END STRUCTURE ! VPARULRECS  T)!*** MODULE $VPACPUDEFS IDENT V2.0-22 ***  STRUCTURE /VPACPURECS/a- BYTE CPU_B_TYPE ! Record type 10K. 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)  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) END MAP END UNION) REAL*4 CPU_F_KERNEL ! % Kernel * 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 ! VPACPURECSd e)!*** MODULE $VPAPARDEFS IDENT V2.0-22 ***  STRUCTURE /VPAPARRECS/t, BYTE PAR_B_TYPE ! Record type 27 REAL*4 PAR_F_DORMANTWAIT ! SCH$GW_DORMANTWAITa. 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_MINWSCNT 1 REAL*4 PAR_F_SYSMWCNT ! SGN$GW_SYSDWSCTe2 REAL*4 PAR_F_BALSETCNT ! SGN$GL_BALSETCT/ REAL*4 PAR_F_IRPCOUNT ! SGN$GL_IRPCNTt1 REAL*4 PAR_F_IRPCOUNTV ! SGN$GL_IRPCNTVm/ REAL*4 PAR_F_WSMAX ! SGN$GL_MAXWSCNT 1 REAL*4 PAR_F_NPAGEDYN ! SGN$GL_NPAGEDYN 1 REAL*4 PAR_F_NPAGEVIR ! SGN$GL_NPAGEVIR 0 REAL*4 PAR_F_PAGEDYN ! SGN$GL_PAGEDYN. REAL*4 PAR_F_SPTREQ ! SGN$GL_SPTREQ/ REAL*4 PAR_F_LRPCOUNT ! SGN$GL_LRPCNTR1 REAL*4 PAR_F_LRPCOUNTV ! SGN$GL_LRPCNTVe0 REAL*4 PAR_F_LRPSIZE ! SGN$GL_LRPSIZE/ REAL*4 PAR_F_SRPCOUNT ! SGN$GL_SRPCNTa1 REAL*4 PAR_F_SRPCOUNTV ! SGN$GL_SRPCNTVl0 REAL*4 PAR_F_SRPSIZE ! SGN$GL_SRPSIZE- REAL*4 PAR_F_QUANTUM ! SCH$GW_QUANM1 REAL*4 PAR_F_MPW_HILIMIT ! MPW$GW_HILIM 1 REAL*4 PAR_F_MPW_LOLIMIT ! MPW$GW_LOLIM 1 REAL*4 PAR_F_MPW_THRESH ! MPW$GL_THRESHi5 REAL*4 PAR_F_MPW_WAITLIMIT ! MPW$GL_WAITLIMr. REAL*4 PAR_F_PFRATL ! SCH$GL_PFRATL. REAL*4 PAR_F_PFRATH ! SCH$GL_PFRATH. REAL*4 PAR_F_PFRATS ! 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_LONGWAITk0 REAL*4 PAR_F_FREELIM ! SGN$GL_FREELIM1 REAL*4 PAR_F_FREEGOAL ! SGN$GL_FREEGOALH0 REAL*4 PAR_F_GROWLIM ! SCH$GL_GROWLIM3 REAL*4 PAR_F_BORROWLIM ! SCH$GL_BORROWLIMP5 REAL*4 PAR_F_ACP_MAPCACHE ! ACP$GW_MAPCACHE!5 REAL*4 PAR_F_ACP_HDRCACHE ! ACP$GW_HDRCACHEM5 REAL*4 PAR_F_ACP_DIRCACHE ! ACP$GW_DIRCACHE 3 REAL*4 PAR_F_ACP_WORKSET ! ACP$GW_WORKSET 9 REAL*4 PAR_F_ACP_DINDXCACHE ! ACP$GW_DINDXCACHEp5 REAL*4 PAR_F_ACP_FIDCACHE ! ACP$GW_FIDCACHEa5 REAL*4 PAR_F_ACP_EXTCACHE ! ACP$GW_EXTCACHEN5 REAL*4 PAR_F_ACP_QUOCACHE ! ACP$GW_QUOCACHEF5 REAL*4 PAR_F_ACP_EXTLIMIT ! ACP$GW_EXTLIMIT 0 REAL*4 PAR_F_PFCDEFAULT ! SGN$GW_DFPFC5 REAL*4 PAR_F_MPW_WRTCLUSTER ! MPW$GW_MPWPFCa* 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_CREDITSD9 REAL*4 PAR_F_MPW_LOWAITLIMIT ! MPW$GL_LOWAITLIMM1 REAL*4 PAR_F_MPW_IOLIMIT ! MPW$GB_IOLIMR1 REAL*4 PAR_F_SCSBUFFCNT ! SCS$GW_BDTCNTe1 REAL*4 PAR_F_SCSCONNCNT ! SCS$GW_CDTCNTl1 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; CHARACTER*64 PAR_t_reserved END STRUCTURE ! VPAPARRECS  T)!*** MODULE $V1$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[lk"JPATIMDEFS IDENT V2.0-22 ***n STRUCTURE /VPATIMRECS/T- BYTE TIM_B_TYPE ! record type 1m3 BYTE TIM_B_NODE_NAME ! Node name lengthu! CHARACTER*14 TIM_T_NODE_NAMEa! Node name stringT0 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)  END MAP MAP# INTEGER*4 TIM_Q_SWVERSp END MAP END UNION! V5.0 VMS software version= BYTE TIM_B_HWNAME_LEN ! V5.0 hardware name length UNION MAP$ CHARACTER*24 TIM_T_HDWRNAME END MAP MAP% CHARACTER*1 TIM_T_HWNAMEI END MAP END UNION! V5.0 hardware name (24 char)T< INTEGER*2 TIM_W_HWMODEL ! V5.0 hardware model numberA INTEGER*2 TIM_W_MAX_PROCESSES ! Maximum processes possiblet UNION MAP@ REAL*4 TIM_F_SAMP_INTERVAL ! Sampling intervalG REAL*4 TIM_F_SAMP_INTERVAL2 ! D floating capability aG REAL*4 TIM_F_SAMP_AVERAGING ! Moving average intervaluH 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_1R 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_KASTSt END MAP MAP( BYTE TIM_B_INTVL_KASTS END MAP END UNION%! Number KASTs delivered in intervalv END STRUCTURE ! VPATIMRECSC )!*** MODULE $VPADEVDEFS IDENT V2.0-22 **** STRUCTURE /VPADEVRECS/S, BYTE DEV_B_TYPE ! Record type 55 BYTE DEV_B_DEVCLASS ! Device class (disk)t UNION MAPB INTEGER*4 DEV_A_VOLNAME ! Volume name string desc addr END MAP MAP! CHARACTER*1 DEV_T_IDB! 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)U2 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)_; 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 = 1 1 PARAMETER DEV_MV_CIO_COPYING = 0C, PARAMETER DEV_S_CIO_MBR = 1; PARAMETER DEV_V_CIO_MBR = 1 ! Set membern, PARAMETER DEV_S_CIO_MAS = 1K PARAMETER DEV_V_CIO_MAS = 2 ! Set master or virtual unit, 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 shadowingA, 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 copyingF END UNION5 INTEGER*2 DEV_W_ADP_TR ! Adapter Nexus numberM@ 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 = 1A% PARAMETER DEV_MV_DUA = 0R% PARAMETER DEV_MS_MNT = 1N% PARAMETER DEV_MV_MNT = 1I% PARAMETER DEV_MS_CLU = 1P% PARAMETER DEV_MV_CLU = 2R% PARAMETER DEV_MS_CDP = 1C% PARAMETER DEV_MV_CDP = 3 % PARAMETER DEV_MS__2P = 1A% PARAMETER DEV_MV__2P = 4P& PARAMETER DEV_MS_MSCP = 1& PARAMETER DEV_MV_MSCP = 5% PARAMETER DEV_MS_SRV = 1 % PARAMETER DEV_MV_SRV = 6F BYTE %FILL (1)_ 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 rateD1 REAL*4 DEV_F_IOCNT ! Thruput byte rate1 REAL*4 DEV_F_PAGOP ! Paging operations 3 REAL*4 DEV_F_PAGIO ! Paging thruput rateR7 REAL*4 DEV_F_SWPOP ! Swapping operation rate*5 REAL*4 DEV_F_SWPIO ! Swapping thruput rate - REAL*4 DEV_F_BUSY ! Busy time (ms)*8 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 setO END MAP MAP) PARAMETER DEV_MS_COPYING = 1A) PARAMETER DEV_MV_COPYING = 0H$ 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 VU $ 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)R 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 pagesS< 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)V5 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 rateM4 INTEGER*2 DEV_W_REQ ! K.SDI requestor number0 INTEGER*2 DEV_W_PORT ! K.SDI port number CHARACTER*32 DEV_t_reserved4 INTEGER*4 DEV_A_DEVNAME ! Deviceا$ PRODUSE010.C[PRODUCT_USE.C]VPA$LIB.FOR;1[l[ name string END STRUCTURE ! VPADEVRECSM ))!*** MODULE $VPAMAGDEFS IDENT V2.0-22 ***  STRUCTURE /VPAMAGRECS/T, BYTE MAG_B_TYPE ! Record type 95 BYTE MAG_B_DEVCLASS ! Device class (tape)l UNION MAPB INTEGER*4 MAG_A_VOLNAME ! Volume name string desc addr END MAP MAP! CHARACTER*1 MAG_T_IDG! 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)I2 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)!; BYTE MAG_B_ADP_TYPE ! Adapter type (MBA or UBA) 2 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 ! CharacteristicsM END MAP MAP% PARAMETER MAG_MS_DUA = 1% PARAMETER MAG_MV_DUA = 0V% PARAMETER MAG_MS_MNT = 1R% PARAMETER MAG_MV_MNT = 1a% PARAMETER MAG_MS_CLU = 1 % PARAMETER MAG_MV_CLU = 2a% PARAMETER MAG_MS_CDP = 1M% PARAMETER MAG_MV_CDP = 3i% PARAMETER MAG_MS__2P = 1_% PARAMETER MAG_MV__2P = 4P& PARAMETER MAG_MS_MSCP = 1& PARAMETER MAG_MV_MSCP = 5% PARAMETER MAG_MS_SRV = 1M% PARAMETER MAG_MV_SRV = 6S BYTE %FILL (1)T 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)E. REAL*4 MAG_F_OPCNT ! Operation rate? REAL*4 MAG_F_IOCNT ! Thruput byte rate (ext io meas) CHARACTER*16 MAG_t_fill_29 REAL*4 MAG_F_BUSY ! Busy time (incremental ms) 8 REAL*4 MAG_F_ITVL ! Measurement interval (ms): REAL*4 MAG_F_ERRCNT ! Error count (incremental) CHARACTER*2 MAG_t_fill_3N7 REAL*4 MAG_F_RDCNT ! Read rate (ext io meas)I CHARACTER*49 MAG_t_fill_4 CHARACTER*16 MAG_t_fill_5 CHARACTER*32 MAG_t_reserved4 INTEGER*4 MAG_A_DEVNAME ! Device name string END STRUCTURE ! VPAMAGRECSt )!*** MODULE $VPACOMDEFS IDENT V2.0-22 ***D STRUCTURE /VPACOMRECS/n* BYTE COM_B_TYPE ! Record type5 BYTE COM_B_DEVCLASS ! Device class (sync)c 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_2 1 BYTE COM_B_DEVCHAR ! Characteristicsr 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*32 COM_t_reserved4 INTEGER*4 COM_A_DEVNAME ! Device name string END STRUCTURE ! VPACOMRECS )!*** MODULE $VPATRNDEFS IDENT V2.0-22 ***e STRUCTURE /VPATRNRECS/ 4 INTEGER*4 TRN_A_TRANSFAM ! Transaction family7 INTEGER*4 TRN_A_TRANS ! Transaction image classE: 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 statusY) REAL*4 TRN_F_CPUTIM ! CPU timeC/ REAL*4 TRN_F_DIOCNT ! Direct IO rateM CHARACTER*32 TRN_t_reserved END STRUCTURE ! VPATRNRECSS 1)!*** MODULE $VPAFILDEFS IDENT V2.0-22 ***= STRUCTURE /VPAFILRECS/u- BYTE FIL_B_TYPE ! Record type 10H1 INTEGER*4 FIL_A_DEVICE ! Disk device name31 INTEGER*4 FIL_A_DIRECTORY ! Directory nameR' INTEGER*4 FIL_A_FILE ! FilenameM1 INTEGER*2 FIL_W_FID_NUM ! FID file number 5 INTEGER*2 FIL_W_FID_SEQ ! FID sequence number < INTEGER*2 FIL_W_FID_RVN ! FID relative volume number1 INTEGER*2 FIL_W_INDEX ! Disk index number 3 REAL*4 FIL_F_SERVICE ! Service time (ms) / REAL*4 FIL_F_OPCNT ! Operations rate 1 REAL*4 FIL_F_IOCNT ! Thruput byte rate 3 REAL*4 FIL_F_RDCNT ! Read operation rater. REAL*4 FIL_F_SPLITS ! Split IO rate; REAL*4 FIL_F_TURNS ! Window turn rate (not used) 5 REAL*4 FIL_F_PAGOP ! Paging operation rate 7 REAL*4 FIL_F_SWPOP ! Swapping operation rateM4 REAL*4 FIL_F_MSCPOP ! MSCP operation rate! INTEGER*4 FIL_L_PID ! PIXN CHARACTER*16 FIL_t_reserved END STRUCTURE ! VPAFILRECSR V)!*** MODULE $VPAGBLDEFS IDENT V2.0-22 ***_, PARAMETER VPA_K_MAXPROCESSCNT = '00001388'X! Maximum process indices' PARAMETER VPA_K_HSCNODES = '00000010'XV(! Maximum number of HSCs in VAXcluster$ PARAMETER VPA_K_NODES = '00000100'X+! Maximum number of VAXnodes in LAVc/VAXcS$ PARAMETER VPA_K_NODSZ = '00000010'X! Maximum length of nodenameR+ PARAMETER VPA$K_MAXDISKTYPES = '00000041'X )! Maximum number of different disk typesR+ PARAMETER VPA$K_MAXTAPETYPES = '00000017'X)! Maximum number of different tapetypesi. PARAMETER VPA$k_mdl_moved_files = '00000020'X1! Maximum number of hot files that can be movedr* PARAMETER VPA$K_CHN_TYPE_CI = '00000000'X! Adapter typesR+ PARAMETER VPA$K_CHN_TYPE_UBA = '00000001'X+ PARAMETER VPA$K_CHN_TYPE_MBA = '00000002'Xt+ PARAMETER VPA$K_CHN_TYPE_KDA = '00000003'Xi+ PARAMETER VPA$K_CHN_TYPE_KDB = '00000004'XO# PARAMETER UBLK_K_LEN = '00000034'XA# PARAMETER IBLK_K_LEN = '0000003C'X*" PARAMETER RUL_K_CNT = '00000064'X" PARAMETER FIL_K_CNT = '00000800'X" PARAMETER TRN_K_CNT = '00000800'X" PARAMETER TIM_K_CNT = '00000001'X" PARAMETER MET_K_CNT = '00000001'X" PARAMETER PAR_K_CNT = '00000001'X" PARAMETER PRO_K_CNT = '00001388'X%! Maximum number of process recordsF$ PARAMETER DEV_K_IDLEN = '00000020'X"! Length of ID in device records" PARAMETER DEV_K_CNT = '000007D0'X"! Maximum number of disk records$ PARAMETER MAG_K_IDLEN = '00000020'X ! constant " PARAMETER MAG_K_CNT = '00000100'X%! Maximum number of magtape records1" PARAMETER COM_K_CNT = '00000100'X2! maximum number of communication device records" PARAMETER CFG_K_CNT = '00000200'X5! constant maximum SCS recs for SYSAPS on all pathsn" PARAMETER CPU_K_CNT = '00000020'X ! Octoquad SMPs is our maximum" PARAMETER PRT_K_CNT = '00000080'X"! Maximum number of port records1 PARAMETER DEV_V_DUA = '00000000'X ! Dual portedt- PARAMETER DEV_V_MNT = '00000001'X ! MountedS; PARAMETER DEV_V_CLU = '00000002'X ! Available clusterwideu= PARAMETER DEV_V_CDP = '00000003'X ! Dual pathed with 2 UCBsM5 PARAMETER DEV_V__2P = '00000004'X ! Two known pathsL: PARAMETER DEV_V_MSCP = '00000005'X ! Accessed using MSCP; PARAMETER DEV_V_SRV = '00000006'X ! Served by MSCP serverg STRUCTURE /VPAGLOBALS/Q BYTE fill_1  END STRUCTURE ! VPAGLOBALSF 7$[PRODUCT_USE.C]PRODUCT_USE_VPA.OBJ;6p+  b,C\G c{qK!*n0$>ıvWNI6YF% Y~MQJiy40*xO4gQAQNJkPvTE$u)#w ZVJj@cH_tv,@?^x`MR._{l.ʟXA.1 ̇Ie,9Ǫa$+3A%E_\-?hnz4<@&اF*V.Y~:X M&I,]^]g]p|=lQ0os\#R<6]HiC[XWn~mFGO2;  pVzxATWT"9|Wtfkg <(QeQnw\"YtFe< h9;?+&b|7RKNAG;*$4)91WF/2aL=Aek{5#WIu@$p0`p~?d+n7.zM~eԝ<Q5 H.N6Z|m fEE_g4{]<򏭋Q~͔$uuz$/x;0>Yw$+hZa 준k]*D,*(m\xNr}Rlτ!G9qJGV?o]is%5,l#NgYA}pcU2,z4Zs+1qDxbix1vȣ #ѧg8zS 17I$?-0,!ORvwD5Z}/-$)(!00I<>tXkmM-ӷ;\,UIBl81_EeG=Sc(I#]i|mUj= +bmLo\wCAzb'V_&c"v>i'/V`yEfT!3| |o5^cD*xb/4iyM)}urf6[5:m:Eswk|  oa|  ,IP2g T`4c9df^,W\_tB#cw}d%`4/2~AV#w&FWpp>C!P'f%(a}`܍WʖL>Nr3P$A+9a~/8O IB-tKZHmm@Vy,%IH[tg3\*cAMg`<|.,aS~39?NɤF<N _]LL0^mn.!1bw5K8!+BHVyP0'4m^`]n|CVtCN3X'Jj sog+W565 jNS^M%DHg{Kkb; JvS5a$-HToW *\[ 5!|:g~_)mi-NPz# LGxXU`d,FyndaJYJPp2lwA[eP\94`LA!j~FUHRSl v7"gc$uz*w/? t,@oA>&1Ymt;,9[&`~uF_3 YUGXDB YioI1ow>J%0pyD;R: Q:1WK%IV Cl Ve4qH*c1G %7Sj<zS[ c~o( vaeQ**-tsq?OwTs7KT2H66s{^+)3 bPS? q2\S_F?R8d|+;"'R>r5ɀ , Rk*y4A],i VRm 2p3J=ry:tS~Gb|[Ow> Kny"zOi@piD;Uch*)ܬ3BK:5$('$vj7=0rv*M,OKF ]VG]8OjhXi6=Q]hCu_hm! NQD_:]"59H|$VxS>g#G@8P8,P7*>OA uƒYDAzQ*G7 !U|rD qEE]]%J)Wd=w!ex|~EqM4$2Y Rf}teGg ~"AaiSorOZp]c){yg<:6wFBSYp+3]PNNn3+.lU #ET:{oCWcM^B] 2ruFLM8L>%5#/'k[=$>H*P`*ßv1Ĩ|6pjˉWMbwMJ{Fy4.erp~_N8z;#  Hwʼnj%5H#ayϥxǻY\I($א5K:}O=> v~WwmtwrY7$6 1us2/-ru]bvR_PR/9*W9$_FD(@`eF*A)0o3#C.J :6xFB+[AQQ)2nT9jYjxA]19p+57r90(p#\[Jc;en%[1>e0RZD/%G"Qj 7Q_?_0t>kq .3d()&.g?~,F4=>g.M0y-7?nbMyMbEg[P%UFp62S]aWHOc:Ie}+9vymoFonKLY&K|bwdA&>Jg&VsviB B_ V\P糲Dr03RsD1E"S]""} r 4O7z5g$)vy"F&p96azD0q!oxv,mo= 4!MQFtn.K Uw_OiRxt '3i>E1,݁i3NPGy_ud9f`yx.f O B`D<[sG" E( TO>7vK  W_)Kae|*5) H<=SOSE,[$r"`nvl*}c:0m,F$l5?7kd >|s pā>2shG)w08jp+19''S~fa22>πfO3e$,!2)4F;EWj%QFm c{BI,A;j~,*Kױh>%]*?o?y< q:2;c2z @f/1*<5&`g(b|BDgI#@A35l[ ~^TeCW‡k3CZr;Ir I8 v(6BLK[]uj[y@kcFShR.m3H+ppSH+Vr9s}i&_W?:Ep{>\K O֡ri{R^'gwWWw,Iz 2 vz_GB!ysnnwG\be Ou s7zz)xccCmXad<#uQzs\=Q0 bz tfKߖ &8unvHYNU3:7 ϖ4/9LU]"Hkx SS{+q2(Nj6:e`P%1RV )RaPT #ObzC~u%GygaͩD$aLBs^#9 anwr$DS|sbjAtv/|TKWa&wAI .Ġ05>n^I a&O##,aOժ\O'h,~͗KPE#fv|3^|U DkmFn _\ o'13. G^l4>pEZe Ckvzs+t;&w,ɝ/=M1 =H j}~O]k@SeASeK{5DkQkqr=^~3`h?}.yVِtpL &J+i\ur,&TzT=@rB}k;/%ϙ 0D+rq@ia&~ut{#C?f+ I׷;4O8v (%(u0Mm5gK2ICUvB1 w.j KVAb,$qYhiPY4yrE'-P߃Sk:{{5i\_FSZ˷[^ 0>,^ r^ZIrD _)+=^_Z ^%8hRxf^`x%C{"VPR%rP\{455wa]@PihVla,njD=X7DCMLH2Hr7FA?+O{Yc:Xv9I?b'82|A.*:8(DLHdbr~NR _̋B-z/+(^MiM!*lٲ.w/Z~X޼ESh1+ Kue.}w$;dCu Vl4_Jb<2B:Nfooit9ڴھQ9\Zύk2${d.t0'('˔HLFXZ)>m3T#=xf؋X)wq X\"?moI2qo$ť.UPJP}h~nA nys1ZkB&"οưlLz))>AE@;qM_M(+]j/ѵcm{:~CFkWL,td,F\vx|,c'dH!anb=Y/@hZdN1Za˅S 5bQMUQbfvf\_WYaq :oV%N`MdSBvDjrb=!0gGlBVn[R14fzmTh9?B T5JGCd bPKMh?sL~VՄxRG7h Y=CJ6k/#-]!0a>FYIH0 Mxj;H޻Pr(EHqm~ *2`T$3^Aj7'`7t; Y dQY=B(׉\Zdxc/ =4ȃ<0ܙħԊ>_1 I/>k p~8se0F\Y$Wr>BR\J&TUE7j{ ?LQYZ GpN:pR9y5n#9Z4gx|Ve”ݷ>l0' {t3ut,RvYNp`mkwp:w--bBoG{ۭ}~6!#܋ėG@Ⱦ8\M%4:Øp$ˈM[pc*Rn%ad[G1\O6G:S!$c|{n(vX4lMrZ'Eٵ=+i]{=0-?vwmS1IxKm|G S\HsROnIwl\"1EbJYzc N%pcv 4%0O2o%fc?-}_F; lj^f,Hee=5>tLۇ?ٻ3x; wI_'%1XhYڰ.#WY,T}S)n9?84 ȑ s 1rU CnNl^!L*W'A'nsf Woպ8Nz kS%EO#M/UYiz[7L#g[)IB\.%zZ2+Yuj?.Q/l3%ƺNr\6 c5~t m{K?wix$`Jo#"v~ PIm}^LGBB^]H-aW s"GHG)8PjQdyң]<&}&@OM+$<^ďG<IXJ`54 MaiCa'>|N!3F[}6AV07өoz] UT VP&lLPX3ogL;].,\_N<j^I,|Qn;17,&XھlJ)@:P sAGL+$-|嫚$)!jvDHE|j+0}݇t~40_\oV/ْ^ !Mk"X%0!J<|z|(}o:G+7|rt%>i$+NV=m <)!jRAC$r'ZNa@Q?:JR4/]ZH#^PX$+ۙX1Ys7LIa@jo909.eOQQcxZemQs*-~)qu|i0K^t/B3Qedu" Sf=4ABOA;E;v] "yl?fe|N"Vj#e<~*(vEpx31Z[>KYKN3;{Y%*m|+I#8n (:;3#P]AêM9(>}D?;=suW <<`_0?P!QaH[^"˕I^;YyωdDG54_ l+,:J+:-$\ΛNc!1Rf_K: ';$(OlI_O+ÎZ[Y\P ]R'+PhmP!(R[uy §v~&m̕?ݶ+Y)6*awWp4vLaU^ )0H a`dԴ"'_r?bř(XYfʹoq. =Eb2'BHGY:QOVRpAS4`3"Gq/p~zPwB ?#HZyugYT#t;2Ll`^p]O MqDzPQ[Cn\oCx+kiBV6FC3_n+P-V)5!?r(<!|LYP1pfnR\V1sYW1Rѫ$1QWYW1ŏLYVFZjZZ1Ы$\T\ ZU TR) EB~ FOR$WRITE_SLP