* %GOTO IFAL70; /* 00050004 MACRO 00100004 &NAME IFASMFR7 &RECTYPE 00100804 .* * * 00200004 .* * MACMEAN IFASMFR7 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00250004 .* * MACCOMP Y-2 SC102/BL27P * 00300004 .* * MACSTAT Y-2 73298/42020 * 00350004 .* * METHOD OF ACCESS * 00400004 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00450004 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR7) * 00500004 .* * * 00550004 .* * THIS MACRO EXPANDS RECORDS 70-73. * 00600004 .* * * 00650004 .* * 00700004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 70-73. THE REQUIRED 00750004 .* FORMAT IS - 00760004 .* 00810004 .* IFASMFR7 &RECTYPE 00860004 .********************************************************************** 00910004 AIF (&RECTYPE EQ 70).IFAS070 Y02150 01060004 AIF (&RECTYPE EQ 71).IFAS071 Y02150 01110004 AIF (&RECTYPE EQ 72).IFAS072 Y02150 01160004 AIF (&RECTYPE EQ 73).IFAS073 Y02150 01210004 .E5 ANOP Y02150 01260004 SPACE 3 01310004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01360004 .CONTB ANOP 01410004 MEXIT 01460004 .IFAS070 ANOP Y02150 04310004 EJECT Y02150 04360004 * CPU ACTIVITY TRACE RECORD TYPE 70. Y02150 04410004 * VARIABLE LENGTH (MINIMUM 52 BYTES) 04460004 * LENGTH FORMULA = 14 + SIZ + SCC + (CPU*SCD) Y02150 04510004 * Y02150 04560004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02150 04610004 SMFRCD70 EQU * HEADER SEGMENT Y02150 04660004 SMF70LEN DS BL2 RECORD LENGTH Y02150 04710004 SMF70SEG DS BL2 SEGMENT DESCRIPTOR Y02150 04760004 SMF70FLG DS BL1 HEADER FLAG BYTE Y02150 04810004 SMF70RTY DS BL1 RECORD TYPE (70), ONLY HEADER FIELD SET Y02150 04860004 * BY GENERATOR OF RECORD Y02150 04910004 SMF70TME DS BL4 TOD FROM TIME MACRO BINARY Y02150 04960004 SMF70DTE DS PL4 DATE FROM TIME MACRO Y02150 05010004 SMF70SID DS CL4 SYSTEM IDENTIFICATION Y02150 05060004 * COMMON CONTROL DATA Y02150 05110004 SMF70SIZ DS BL2 SIZE OF COMMON CONTROL DATA SECTION Y02150 05160004 SMF70IST DS PL4 TOD MEASUREMENT INTERVAL START 0HHMMSSF Y02150 05210004 SMF70DAT DS PL4 DATE INTERVAL START 00YYDDDF Y02150 05260004 SMF70INT DS PL4 DURATION OF INTERVAL MMSSTTTF Y02150 05310004 SMF70CYC DS PL2 RESV Y02150 05330004 SMF70SUB DS BL2 RESV Y02150 05410004 SMF70SAM DS BL4 RESV Y02150 05460004 SMF70MFV DS CL2 MF/1 VERSION # IN EBCDIC Y02150 05510004 SMF70RV1 DS BL2 RESV Y02150 05560004 SMF70RLS DS CL4 OP SYS REL # & LEVEL IN EBCDIC NNLL Y02150 05610004 * CPU CONTROL AREA Y02150 05660004 SMF70SCC DS BL2 SIZE OF CPU CONTROL AREA Y02150 05710004 SMF70CPU DS BL2 # CPU MEASUREMENTS IN CPU DATA AREA Y02150 05760004 SMF70SCD DS BL2 SIZE OF EACH CPU DATA AREA Y02150 05810004 SMF70RV2 DS BL2 RESV Y02150 05860004 * CPU DATA AREA Y02150 05910004 SMF70WAT DS BL8 CPU WAIT IN TOD FORMAT(BIT 51=1 MICRO) Y02150 05960004 SMF70CID DS BL2 CPU ID Y02150 06010004 SMF70RV3 DS BL1 RESV Y02150 06060004 SMF70CNF DS BL1 CONFIGURATION ACTIVITY Y02150 06110004 SMF70VAC EQU 2 DATA INVALID, CPU VARIED ON OR OFF Y02150 06160004 SMF70STA EQU 1 CPU IS CURRENTLY ONLINE Y02150 06210004 SMF70RV4 DS BL1 RESV Y02150 06260004 SMF70SER DS CL3 CPU SERIAL #(6 HEX DIGITS) Y02150 06310004 ORG SMF70WAT Y02150 06360004 AGO .CONTB Y02150 06410004 .IFAS071 ANOP Y02150 06460004 EJECT Y02150 06510004 * PAGING ACTIVITY TRACE TABLE RECORD TYPE 71. Y02150 06560004 * VARIABLE LENGTH (MINIMUM 132 BYTES) Y02150 06580004 * LENGTH FORMULA = 14 + SIZ + SPC + SPD Y02150 06660004 * Y02150 06710004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02150 06760004 SMFRCD71 EQU * HEADER SEGMENT Y02150 06810004 SMF71LEN DS BL2 RECORD LENGTH Y02150 06860004 SMF71SEG DS BL2 SEGMENT DESCRIPTOR Y02150 06910004 SMF71FLG DS BL1 HEADER FLAG BYTE Y02150 06960004 SMF71RTY DS BL1 RECORD TYPE (71), ONLY HEADER FIELD SET Y02150 07010004 * BY GENERATOR OF RECORD Y02150 07060004 SMF71TME DS BL4 TOD FROM TIME MACRO BINARY Y02150 07110004 SMF71DTE DS PL4 DATE FROM TIME MACRO Y02150 07160004 SMF71SID DS CL4 SYSTEM IDENTIFICATION Y02150 07210004 * COMMON CONTROL DATA Y02150 07260004 SMF71SIZ DS BL2 SIZE OF COMMON CONTROL DATA SECTION Y02150 07310004 SMF71IST DS PL4 TOD MEASUREMENT INTERVAL START 0HHMMSSF Y02150 07360004 SMF71DAT DS PL4 DATE INTERVAL START 00YYDDDF Y02150 07410004 SMF71INT DS PL4 DURATION OF INTERVAL MMSSTTTF Y02150 07460004 SMF71CYC DS BL2 RESV Y02150 07480004 SMF71SUB DS BL2 RESV Y02150 07560004 SMF71SAM DS BL4 RESV Y02150 07580004 SMF71MFV DS CL2 MF/1 VERSION # IN EBCDIC Y02150 07660004 SMF71RV1 DS BL2 RESV Y02150 07710004 SMF71RLS DS CL4 OP SYS REL # & LEVEL IN EBCDIC NNLL Y02150 07760004 * PAGING CONTROL AREA Y02150 07810004 SMF71SPC DS BL2 SIZE OF PAGING CONTROL AREA Y02150 07860004 SMF71SPD DS BL2 SIZE OF PAGING DATA AREA Y02150 07910004 * PAGING DATA AREA Y02150 07960004 SMF71PIN DS BL4 PAGE-INS EXCLUDING VIO AND SWAP Y02150 08010004 SMF71POT DS BL4 PAGE-OUTS EXCLUDING VIO AND SWAP Y02150 08060004 SMF71PRC DS BL4 PAGE RECLAIMS EXCLUDING VIO Y02150 08110004 SMF71SSQ DS BL4 # OF MEMORY SWAP SEQUENCES Y02150 08160004 SMF71SIN DS BL4 SWAP-IN PAGES Y02150 08210004 SMF71SOT DS BL4 SWAP-OUT PAGES Y02150 08260004 SMF71VIN DS BL4 VIO PAGE-INS Y02150 08310004 SMF71VOT DS BL4 VIO PAGE-OUTS Y02150 08360004 SMF71VRC DS BL4 VIO PAGE RECLAIMS Y02150 08410004 SMF71SNI DS BL4 SYSTEM PAGABLE AREAS NON-VIO PAGE-INS Y02150 08460004 SMF71SNO DS BL4 SPA NON-VIO PAGE-OUTS Y02150 08510004 SMF71SNR DS BL4 SPA NON-VIO PAGE RECLAIMS Y02150 08560004 SMF71SVI DS BL4 SPA VIO PAGE-INS Y02150 08570004 SMF71SVO DS BL4 SPA VIO PAGE-OUTS Y02150 08580004 SMF71SVR DS BL4 SPA VIO PAGE RECLAIMS Y02150 08590004 SMF71AFC DS BL4 MAIN STORAGE AVAILABLE FRAME COUNT Y02150 08760004 SMF71TFC DS BL4 MAIN STORAGE TOTAL FRAME COUNT Y02150 08810004 SMF71TSC DS BL4 AUX TOTAL SLOT COUNT Y02150 08860004 SMF71DSC DS BL4 AUX DATA SET SLOT COUNT Y02150 08910004 SMF71VSC DS BL4 AUX VIRTUAL MEMORY SLOT COUNT Y02150 08960004 SMF71NSC DS BL4 AUX UNALLOCATED SLOT COUNT Y02150 09010004 AGO .CONTB Y02150 11660004 .IFAS072 ANOP Y02150 11710004 EJECT Y02150 11760004 * WORKLOAD ACTIVITY TRACE RECORD TYPE 72. Y02150 11810004 * VARIABLE LENGTH (MINIMUM 60 BYTES) Y02150 11830004 * LENGTH FORMULA = 14 + SIZ + SWC + (PGP*SPD) Y02150 11910004 * Y02150 11960004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02150 12010004 SMFRCD72 EQU * HEADER SEGMENT Y02150 12060004 SMF72LEN DS BL2 RECORD LENGTH Y02150 12110004 SMF72SEG DS BL2 SEGMENT DESCRIPTOR Y02150 12160004 SMF72FLG DS BL1 HEADER FLAG BYTE Y02150 12210004 SMF72RTY DS BL1 RECORD TYPE (72), ONLY HEADER FIELD SET Y02150 12260004 * BY GENERATOR OF RECORD Y02150 12310004 SMF72TME DS BL4 TOD FROM TIME MACRO BINARY Y02150 12360004 SMF72DTE DS PL4 DATE FROM TIME MACRO Y02150 12410004 SMF72SID DS CL4 SYSTEM IDENTIFICATION Y02150 12460004 * COMMON CONTROL DATA Y02150 12510004 SMF72SIZ DS BL2 SIZE OF COMMON CONTROL DATA SECTION Y02150 12560004 SMF72IST DS PL4 TOD MEASUREMENT INTERVAL START OHHMMSSF Y02150 12610004 SMF72DAT DS PL4 DATE INTERVAL START 00YYDDDF Y02150 12660004 SMF72INT DS PL4 DURATION OF INTERVAL MMSSTTTF Y02150 12710004 SMF72CYC DS BL2 RESV Y02150 12760004 SMF72SUB DS BL2 PERFORMANCE GROUP # Y02150 12810004 SMF72SAM DS BL4 RESV Y02150 12860004 SMF72MFV DS CL2 MF/1 VERSION # IN EBCDIC Y02150 12910004 SMF72RV1 DS BL2 RESV Y02150 12960004 SMF72RLS DS CL4 OP SYS REL # & LEVEL IN EBCDIC NNLL Y02150 13010004 * WORKLOAD CONTROL AREA Y02150 13060004 SMF72SWC DS BL2 SIZE OF WORKLOAD CONTROL AREA Y02150 13110004 SMF72PGP DS BL2 # OF PGP MEASUREMENT IN PGP DATA AREA Y02150 13160004 SMF72SPD DS BL2 SIZE OF EACH PGP DATA AREA Y02150 13210004 SMF72HPG DS BL2 HIGHEST PERF GROUP(PG) # DEFINED IN IPS Y02150 13260004 SMF72IPS DS CL8 NAME OF INSTALLATION PERF SPEC Y02150 13310004 * PERF GROUP PERIOD DATA Y02150 13360004 SMF72TTX DS BL4 # OF TERMINATED TRANSACTIONS Y02150 13410004 SMF72ACT DS BL4 ALL TRANSACTIONS ACTIVE TIME-1K MIC SEC Y02150 13460004 SMF72SER DS BL4 ALL TRANSACTIONS SERVICE UNITS Y02150 13510004 SMF72TTM DS BL4 TERM TRANS ELAPSED TIME-1K MIC SEC Y02150 13560004 SMF72LEV DS BL4 WORKLOAD LEVEL (1/256 OF A LEVEL) Y02150 13610004 ORG SMF72TTX 13660004 AGO .CONTB Y02150 13710004 .IFAS073 ANOP Y02150 13760004 EJECT Y02150 13810004 * CHANNEL ACTIVITY TRACE TABLE RECORD TYPE 73. Y02150 13860004 * VARIABLE LENGTH (MINIMUM 52 BYTES) Y02150 13880004 * LENGTH FORMULA = 14 + SIZ + SHC + (CHA*SHD) Y02150 13960004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02150 14010004 SMFRCD73 EQU * HEADER SEGMENT Y02150 14060004 SMF73LEN DS BL2 RECORD LENGTH Y02150 14110004 SMF73SEG DS BL2 SEGMENT DESCRIPTOR Y02150 14160004 SMF73FLG DS BL1 HEADER FLAG BYTE Y02150 14210004 SMF73RTY DS BL1 RECORD TYPE (73), ONLY HEADER FIELD SET Y02150 14260004 * BY GENERATOR OF RECORD Y02150 14310004 SMF73TME DS BL4 TOD FROM TIME MACRO BINARY Y02150 14360004 SMF73DTE DS PL4 DATE FROM TIME MACRO Y02150 14410004 SMF73SID DS CL4 SYSTEM INDENTIFICATION Y02150 14460004 * COMMON CONTROL DATA Y02150 14510004 SMF73SIZ DS BL2 SIZE OF COMMON CONTROL DATA SECTION Y02150 14560004 SMF73IST DS PL4 TOD MEASUREMENT INTERVAL START OHHMMSSF Y02150 14610004 SMF73DAT DS PL4 DATE INTERVAL START 00YYDDDF Y02150 14660004 SMF73INT DS PL4 DURATION OF INTERVAL MMSSTTTF Y02150 14710004 SMF73CYC DS PL2 SAMPLING CYCLE LENGTH TTTF Y02150 14730004 SMF73SUB DS BL2 RESV Y02150 14810004 SMF73SAM DS BL4 # OF SAMPLES Y02150 14860004 SMF73MFV DS CL2 MF/1 VERSION # IN EBCDIC Y02150 14910004 SMF73RV1 DS BL2 RESV Y02150 14960004 SMF73RLS DS CL4 OP SYS REL # & LEVEL IN EBCDIC NNLL Y02150 15010004 * CHANNEL CONTROL AREA Y02150 15060004 SMF73SHC DS BL2 SIZE OF CHANNEL CONTROL AREA Y02150 15110004 SMF73CHA DS BL2 # OF MEASUREMENTS IN CHANNEL DATA AREA Y02150 15160004 SMF73SHD DS BL2 SIZE OF EACH CHANNEL DATA AREA Y02150 15210004 SMF73RV2 DS BL2 RESV Y02150 15260004 * CHANNEL DATA AREA Y02150 15310004 SMF73CID DS BL2 CPU IDENTIFIER Y02150 15360004 SMF73HID DS BL1 CHANNEL IDENTIFIER Y02150 15410004 SMF73FG2 DS BL1 FLAGS Y02150 15460004 * XXXX .... TYPE OF CHANNEL Y02150 15510004 * 0000 .... SELECTOR CHANNEL Y02150 15560004 * 0001 .... BYTE MULTIPLEXOR Y02150 15610004 * 0010 .... BLOCK MULTIPLEXOR Y02150 15660004 SMF73IID EQU 4 .... .1.. INVALID CHANNEL ID Y02150 15710004 SMF73VAC EQU 2 .... ..1. DATA INVALID, VARIED ON OR OFF Y02150 15760004 SMF73STA EQU 1 .... ...1 CHANNEL IS CURRENTLY ONLINE Y02150 15810004 SMF73CNT DS BL4 # OF SUCCESSFUL SIO ISSUED TO CHANNEL Y02150 15860004 SMF73BSY DS BL4 # SAMPLES WHEN CHAN WAS IN BURST MODE Y02150 15910004 * FIELD 0 FOR BYTE MULTIPLEX CHANNEL Y02150 15960004 SMF73OLP DS BL4 # SAMPLES CHAN BUSY & CPU WAIT Y02150 16010004 * FIELD 0 FOR BYTE MULTIPLEX CHANNEL Y02150 16060004 ORG SMF73CID Y02150 16110004 AGO .CONTB Y02150 16160004 MEND */ 16210004 16220004 %IFAL70: IF IFAR70='' %THEN %GOTO IFAL71; 16230004 DCL 1 SMFRCD70 BASED(SMF70PTR) BDY(WORD), 18510004 /* RECORD TYPE 70 - CPU ACTIVITY */ 18560004 3 SMF70LEN FIXED(15), /* RDW RECORD LENGTH */ 18610004 3 SMF70SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 18660004 3 SMF70FLG BIT(8), /* OPERATING ENVIRONMENT */ 18710004 3 SMF70RTY FIXED(8), /* RECORD TYPE 70 */ 18760004 3 SMF70TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 18810004 3 SMF70DTE CHAR(4), /* DATE RECORD WRITTEN */ 18860004 3 SMF70SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 18910004 /* COMMON CONTROL DATA */ 18960004 3 SMF70SIZ PTR(15), /* SIZE OF COMMON CONTROL DATA AREA*/ 19010004 3 SMF70IST CHAR(4), /* TOD INTERVAL START 0HHMMSSF */ 19060004 3 SMF70DAT CHAR(4), /* DATE INTERVAL START 00YYDDDF */ 19110004 3 SMF70INT CHAR(4), /* DURATION OF INTERVAL MMSSTTTF */ 19160004 3 SMF70CYC CHAR(2), /* RESV */ 19210004 3 SMF70SUB CHAR(2), /* RESV */ 19260004 3 SMF70SAM FIXED(32), /* RESV */ 19310004 3 SMF70MFV CHAR(2), /* MF/1 VERSION # */ 19360004 3 SMF70RV1 CHAR(2), /* RESV */ 19410004 3 SMF70RLS CHAR(4); /* OP SYS REL # & LEVEL NNLL */ 19460004 /* CPU CONTROL AREA VARIABLES */ 19510004 DCL 1 SMF70A BASED(ADDR(SMF70SIZ)+SMF70SIZ) BDY(WORD), 19560004 3 SMF70SCC PTR(15), /* SIZE OF CPU CONTROL AREA */ 19610004 3 SMF70CPU FIXED(15), /* # CPU MEASUREMENTS IN CPU DATA */ 19660004 3 SMF70SCD FIXED(15), /* SIZE OF EACH CPU DATA AREA */ 19710004 3 SMF70RV2 CHAR(2); /* RESV */ 19760004 /* CPU DATA AREA VARIABLES */ 19810004 DCL 1 SMF70B (*) BASED(ADDR(SMF70SCC)+SMF70SCC) BDY(WORD), 19860004 3 SMF70WAT CHAR(8), /* CPU WAIT, TOD CLOCK FORMAT */ 19910004 3 SMF70CID FIXED(15), /* CPU IDENTIFIER */ 19960004 3 SMF70RV3 CHAR(1), /* RESV */ 20010004 3 SMF70CNF BIT(8), /* CONFIGURATION ACTIVITY */ 20060004 5 * BIT(6), /* RESV */ 20110004 5 SMF70VAC BIT(1), /* DATA INVALID, VARIED ON OR OFF */ 20160004 5 SMF70STA BIT(1), /* =1 FOR ONLINE AT END OF INTERVAL*/ 20210004 3 SMF70RV4 CHAR(1), /* RESV */ 20260004 3 SMF70SER CHAR(3); /* CPU SERIAL # FORM HHHHHH */ 20310004 %IFAL71: IF IFAR71='' %THEN %GOTO IFAL72; 20360004 DCL 1 SMFRCD71 BASED(SMF71PTR) BDY(WORD), 20410004 /* RECORD TYPE 71 - PAGING ACTIVITY */ 20460004 3 SMF71LEN FIXED(15), /* RDW RECORD LENGTH */ 20510004 3 SMF71SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 20560004 3 SMF71FLG BIT(8), /* OPERATING ENVIRONMENT */ 20610004 3 SMF71RTY FIXED(8), /* RECORD TYPE 71 */ 20660004 3 SMF71TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 20710004 3 SMF71DTE CHAR(4), /* DATE RECORD WRITTEN */ 20760004 3 SMF71SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 20810004 /* COMMON CONTROL DATA */ 20860004 3 SMF71SIZ PTR(15), /* SIZE OF COMMON CONTROL DATA AREA*/ 20910004 3 SMF71IST CHAR(4), /* TOD INTERVAL START 0HHMMSSF */ 20960004 3 SMF71DAT CHAR(4), /* DATE INTERVAL START 00YYDDDF */ 21010004 3 SMF71INT CHAR(4), /* DURATION OF INTERVAL MMSSTTTF */ 21060004 3 SMF71CYC CHAR(2), /* RESV */ 21110004 3 SMF71SUB CHAR(2), /* RESV */ 21160004 3 SMF71SAM FIXED(32), /* RESV */ 21210004 3 SMF71MFV CHAR(2), /* MF/1 VERSION # */ 21260004 3 SMF71RV1 CHAR(2), /* RESV */ 21310004 3 SMF71RLS CHAR(4); /* OP SYS REL # & LEVEL NNLL */ 21360004 /* PAGING CONTROL AREA VARIABLES */ 21410004 DCL 1 SMF71A BASED(ADDR(SMF71SIZ)+SMF71SIZ) BDY(WORD), 21460004 3 SMF71SPC PTR(15), /* SIZE OF PAGING CONTROL AREA */ 21510004 3 SMF71SPD FIXED(15); /* SIZE OF PAGING DATA AREA */ 21560004 /* PAGING DATA AREA VARIABLES */ 21610004 DCL 1 SMF71B BASED(ADDR(SMF71SPC)+SMF71SPC) BDY(WORD), 21660004 3 SMF71PIN FIXED(32), /* PAGE-INS EXCLUDING VIO AND SWAP */ 21710004 3 SMF71POT FIXED(32), /* PAGE-OUTS EXCLUDING VIO AND SWAP*/ 21760004 3 SMF71PRC FIXED(32), /* PAGE RECLAIMS EXCLUDING VIO */ 21810004 3 SMF71SSQ FIXED(32), /* # OF MEMORY SWAP SEQUENCES */ 21860004 3 SMF71SIN FIXED(32), /* SWAP-IN PAGES */ 21910004 3 SMF71SOT FIXED(32), /* SWAP-OUT PAGES */ 21960004 3 SMF71VIN FIXED(32), /* VIO PAGE-INS */ 22010004 3 SMF71VOT FIXED(32), /* VIO PAGE-OUTS */ 22060004 3 SMF71VRC FIXED(32), /* VIO PAGE RECLAIMS */ 22110004 3 SMF71SNI FIXED(32), /* SYS PGABLE AREAS NON-VIO PAGE-IN*/ 22160004 3 SMF71SNO FIXED(32), /* SPA NON-VIO PAGE-OUTS */ 22210004 3 SMF71SNR FIXED(32), /* SPA NON-VIO PAGE RECLAIMS */ 22260004 3 SMF71SVI FIXED(32), /* SPA VIO PAGE-INS */ 22310004 3 SMF71SVO FIXED(32), /* SPA VIO PAGE-OUTS */ 22360004 3 SMF71SVR FIXED(32), /* SPA VIO PAGE RECLAIMS */ 22410004 3 SMF71AFC FIXED(32), /* MAIN STOR AVAILABLE FRAME COUNT */ 22460004 3 SMF71TFC FIXED(32), /* MAIN STOR TOTAL FRAME COUNT */ 22510004 3 SMF71TSC FIXED(32), /* AUX TOTAL SLOT COUNT */ 22560004 3 SMF71DSC FIXED(32), /* AUX DATA SET SLOT COUNT */ 22610004 3 SMF71VSC FIXED(32), /* AUX VIRT MEMORY SLOT COUNT */ 22660004 3 SMF71NSC FIXED(32); /* AUX UNALLOCATED SLOT COUNT */ 22710004 %IFAL72: IF IFAR72='' %THEN %GOTO IFAL73; 26710004 DCL 1 SMFRCD72 BASED(SMF72PTR) BDY(WORD), 26760004 /* RECORD TYPE 72 - WORKLOAD ACTIVITY */ 26810004 3 SMF72LEN FIXED(15), /* RDW RECORD LENGTH */ 26860004 3 SMF72SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 26910004 3 SMF72FLG BIT(8), /* OPERATING ENVIRONMENT */ 26960004 3 SMF72RTY FIXED(8), /* RECORD TYPE 72 */ 27010004 3 SMF72TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 27060004 3 SMF72DTE CHAR(4), /* DATE RECORD WRITTEN */ 27110004 3 SMF72SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 27160004 /* COMMON CONTROL DATA */ 27210004 3 SMF72SIZ PTR(15), /* SIZE OF COMMON CONTROL DATA AREA*/ 27260004 3 SMF72IST CHAR(4), /* TOD INTERVAL START 0HHMMSSF */ 27310004 3 SMF72DAT CHAR(4), /* DATE INTERVAL START 00YYDDDF */ 27360004 3 SMF72INT CHAR(4), /* DURATION OF INTERVAL MMSSTTTF */ 27410004 3 SMF72CYC CHAR(2), /* RESV */ 27460004 3 SMF72SUB CHAR(2), /* SUB-CATEGORY CODE, PERF GROUP # */ 27510004 3 SMF72SAM FIXED(32), /* RESV */ 27560004 3 SMF72MFV CHAR(2), /* MF/1 VERSION # */ 27610004 3 SMF72RV1 CHAR(2), /* RESV */ 27660004 3 SMF72RLS CHAR(4); /* OP SYS REL # & LEVEL NNLL */ 27710004 /* WORKLOAD CONTROL AREA VARIABLES */ 27760004 DCL 1 SMF72A BASED(ADDR(SMF72SIZ)+SMF72SIZ) BDY(WORD), 27810004 3 SMF72SWC PTR(15), /* SIZE OF WORKLOAD CONTROL AREA */ 27860004 3 SMF72PGP FIXED(15), /*# OF PGP MEASUREMENTS IN PGP DATA*/ 27910004 3 SMF72SPD FIXED(15), /* SIZE OF EACH PGP DATA AREA */ 27960004 3 SMF72HPG FIXED(15), /* HIGHEST PERF GP # DEFINED IN IPS*/ 28010004 3 SMF72IPS CHAR(8); /* NAME OF IPS(INSTAL PERF SPEC) */ 28060004 /* PERFORMANCE GROUP PERIOD DATA */ 28110004 DCL 1 SMF72B (*) BASED(ADDR(SMF72SWC)+SMF72SWC) BDY(WORD), 28160004 3 SMF72TTX FIXED(32), /* # OF TERMINATED TRANSACTIONS */ 28210004 3 SMF72ACT FIXED(32), /*ALL TRANS ACTIVE TIME-1K MIC SEC */ 28260004 3 SMF72SER FIXED(32), /* ALL TRANS SERVICE UNITS */ 28310004 3 SMF72TTM FIXED(32), /*TERM TRANS ELAPSED TIME-1K MICSEC*/ 28360004 3 SMF72LEV FIXED(31); /* WORKLOAD LEVEL(1/256 OF A LEVEL)*/ 28410004 %IFAL73: IF IFAR73='' %THEN %GOTO IFALR8; 28960004 DCL 1 SMFRCD73 BASED(SMF73PTR) BDY(WORD), 29010004 /* RECORD TYPE 73 - CHANNEL ACTIVITY */ 29060004 3 SMF73LEN FIXED(15), /* RDW RECORD LENGTH */ 29110004 3 SMF73SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 29160004 3 SMF73FLG BIT(8), /* OPERATING ENVIRONMENT */ 29210004 3 SMF73RTY FIXED(8), /* RECORD TYPE 73 */ 29260004 3 SMF73TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 29310004 3 SMF73DTE CHAR(4), /* DATA RECORD WRITTEN */ 29360004 3 SMF73SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 29410004 /* COMMON CONTROL DATA */ 29460004 3 SMF73SIZ PTR(15), /* SIZE OF COMMON CONTROL DATA AREA*/ 29510004 3 SMF73IST CHAR(4), /* TOD INTERVAL START 0HHMMSSF */ 29560004 3 SMF73DAT CHAR(4), /* DATE INTERVAL START 00YYDDDF */ 29610004 3 SMF73INT CHAR(4), /* DURATION OF INTERVAL MMSSTTTF */ 29660004 3 SMF73CYC CHAR(2), /* SAMPLE CYCLING LENGTH TTTF */ 29710004 3 SMF73SUB CHAR(2), /* RESV */ 29760004 3 SMF73SAM FIXED(32), /* # OF SAMPLES */ 29810004 3 SMF73MFV CHAR(2), /* MF/1 VERSION # */ 29860004 3 SMF73RV1 CHAR(2), /* RESV */ 29910004 3 SMF73RLS CHAR(4); /* OP SYS REL # & LEVEL NNLL */ 29960004 /* CHANNEL CONTROL AREA VARIABLES */ 30010004 DCL 1 SMF73A BASED(ADDR(SMF73SIZ)+SMF73SIZ) BDY(WORD), 30060004 3 SMF73SHC PTR(15), /* SIZE OF CHANNEL CONTROL AREA */ 30110004 3 SMF73CHA FIXED(15), /* # MEASUREMENT IN CHAN DATA AREA */ 30160004 3 SMF73SHD FIXED(15), /* SIZE OF EACH CHANNEL DATA AREA */ 30210004 3 SMF73RV2 CHAR(2); /* RESV */ 30260004 /* CHANNEL DATA AREA VARIABLES */ 30310004 DCL 1 SMF73B (*) BASED(ADDR(SMF73SHC)+SMF73SHC) BDY(WORD), 30360004 3 SMF73CID FIXED(15), /* CPU IDENTIFIER */ 30410004 3 SMF73HID FIXED(8), /* CHANNEL IDENTIFIER */ 30460004 3 SMF73FG2 BIT(8), /* FLAGS */ 30510004 5 SMF73TYP BIT(4), /* 0000 SELECTOR CHANNEL 30560004 0001 BYTE MULTIPLEXOR CHANNEL 30610004 0010 BLOCK MULTIPLEXOR CHANNEL */ 30660004 5 * BIT(1), /* RESV */ 30710004 5 SMF73IID BIT(1), /* INVALID CHANNEL ID */ 30760004 5 SMF73VAC BIT(1), /* DATA INVALID, VARIED ON OR OFF */ 30810004 5 SMF73STA BIT(1), /* =1 FOR ONLINE AT END OF INTERVAL*/ 30860004 3 SMF73CNT FIXED(32), /* # SUCCESSFUL SIO ISSUED TO CHAN */ 30910004 3 SMF73BSY FIXED(32), /* # SAMPLES IN BURST MODE 30960004 0 FOR BYTE MULTIPLEX CHANNEL */ 31010004 3 SMF73OLP FIXED(32); /* # SAMPLES HAVING CHANNEL@YL02120 31060004 BUSY AND CPU WAIT. 31110004 0 FOR BYTE MULTIPLEX CHANNEL */ 31160004 %IFALR8: ; 31210004