* %GOTO IFAL74; /* 00020004 MACRO 00060004 &NAME IFASMFR8 &RECTYPE 00100004 .* * * 00140004 .* * MACMEAN IFASMFR8 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00180004 .* * MACCOMP Y-2 SC102/BL27P * 00220004 .* * MACSTAT Y-2 73298/42020 * 00350004 .* * METHOD OF ACCESS * 00352004 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00404004 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR8) * 00500004 .* * * 00530004 .* * THIS MACRO EXPANDS RECORDS 74-79. * 00560004 .* * * 00630004 .* * 00700004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 74-79. THE REQUIRED 00740004 .* FORMAT IS - 00780004 .* 00820004 .* IFASMFR8 &RECTYPE 00860004 .********************************************************************** 00900004 AIF (&RECTYPE EQ 74).IFAS074 Y02150 00940004 .E5 ANOP Y02113 01140004 SPACE 3 01180004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01220004 .CONTB ANOP 01260004 MEXIT 01300004 .IFAS074 ANOP Y02150 01340004 EJECT Y02150 01380004 * DEVICE ACTIVITY TRACE TABLE RECORD TYPE 74. Y02150 01420004 * VARIABLE LENGTH (MINIMUM 52 BYTES) Y02150 01440004 * LENGTH FORMULA = 14 + SIZ + SDC + (DEV*SDD) Y02150 01500004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02150 01540004 SMFRCD74 EQU * HEADER SEGMENT Y02150 01800004 SMF74LEN DS BL2 RECORD LENGTH Y02150 01840004 SMF74SEG DS BL2 SEGMENT DESCRIPTOR Y02150 01880004 SMF74FLG DS BL1 HEADER FLAG BYTE Y02150 01920004 SMF74RTY DS BL1 RECORD TYPE (74), ONLY HEADER FIELD SET Y02150 01960004 * BY GENERATOR OF RECORD Y02150 02000004 SMF74TME DS BL4 TOD FROM TIME MACRO BINARY Y02150 02100004 SMF74DTE DS PL4 DATE FROM TIME MACRO Y02150 02140004 SMF74SID DS CL4 SYSTEM IDENTIFICATION Y02150 02180004 * COMMON CONTROL DATA Y02150 02220004 SMF74SIZ DS BL2 SIZE OF COMMON CONTROL DATA SECTION Y02150 02260004 SMF74IST DS PL4 TOD MEASUREMENT INTERVAL START OHHMMSSF Y02150 02300004 SMF74DAT DS PL4 DATE INTERVAL START 00YYDDDF Y02150 02400004 SMF74INT DS PL4 DURATION OF INTERVAL MMSSTTTF Y02150 02440004 SMF74CYC DS BL2 SAMPLE CYCLE LENGTH TTTF Y02150 02460004 SMF74SUB DS BL2 UCB DEVICE TYPE CODE IN RIGHT BYTE Y02150 02520004 SMF74SAM DS BL4 # OF SAMPLES Y02150 02560004 SMF74MFV DS CL2 MF/1 VERSION # IN EBCDIC Y02150 02600004 SMF74RV1 DS BL2 RESV Y02150 02700004 SMF74RLS DS CL4 OP SYS REL # & LEVEL IN EBCDIC NNLL Y02150 02740004 * DEVICE CONTROL AREA Y02150 02820004 SMF74SDC DS BL2 SIZE OF DEVICE CONTROL AREA Y02150 02860004 SMF74DEV DS BL2 # OF MEASUREMENTS IN DEVICE DATA AREA Y02150 02900004 SMF74SDD DS BL2 SIZE OF EACH DEVICE DATA AREA Y02150 03000004 SMF74RV2 DS BL2 RESV Y02150 03040004 * DEVICE DATA AREA Y02150 03080004 SMF74ADD DS PL2 DEVICE ADDRESS HHHF Y02150 03120004 SMF74RV3 DS BL1 RESV Y02150 03160004 SMF74CNF DS BL1 CONFIGURATION ACTIVITY Y02150 03200004 SMF74VAC EQU 2 .... ..1. DATA INVALID, VARIED ON OR OFF Y02150 03300004 SMF74STA EQU 1 .... ...1 DEVICE IS CURRENTLY ONLINE Y02150 03340004 SMF74TYP DS BL4 UCBTYP WORD Y02150 03380004 SMF74SER DS CL6 VOLUME SERIAL # Y02150 03420004 SMF74RV4 DS CL2 RESV Y02150 03460004 SMF74CNT DS BL4 # OF REQUESTS SERVICED BY THIS DEVICE Y02150 03500004 SMF74ACT DS BL4 # OF SAMPLES WHEN DEVICE WAS BUSY Y02150 03600004 SMF74QUE DS BL4 SUM OF # OF ENQ REQUESTS OBSERVED Y02150 03640004 ORG SMF74ADD Y02150 03680004 AGO .CONTB Y02150 03720004 MEND */ 12720004 %IFAL74: IF IFAR74='' %THEN %GOTO IFAL75; 12760004 DCL 1 SMFRCD74 BASED(SMF74PTR) BDY(WORD), 12800004 /* RECORD TYPE 74 - DEVICE ACTIVITY */ 12900004 3 SMF74LEN FIXED(15), /* RDW RECORD LENGTH */ 12940004 3 SMF74SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 12980004 3 SMF74FLG BIT(8), /* OPERATING ENVIRONMENT */ 13020004 3 SMF74RTY FIXED(8), /* RECORD TYPE 74 */ 13060004 3 SMF74TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 13100004 3 SMF74DTE CHAR(4), /* DATA RECORD WRITTEN */ 13200004 3 SMF74SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 13240004 /* COMMON CONTROL DATA */ 13280004 3 SMF74SIZ PTR(15), /* SIZE OF COMMON CONTROL DATA AREA*/ 13320004 3 SMF74IST CHAR(4), /* TOD INTERVAL START 0HHMMSSF */ 13360004 3 SMF74DAT CHAR(4), /* DATE INTERVAL START 00YYDDDF */ 13400004 3 SMF74INT CHAR(4), /* DURATION OF INTERVAL MMSSTTTF */ 13500004 3 SMF74CYC CHAR(2), /* SAMPLE CYCLE LENGTH TTTF */ 13540004 3 SMF74SUB CHAR(2), /* UCB DEV TYPE CODE IN RIGHT BYTE */ 13580004 3 SMF74SAM FIXED(32), /* # OF SAMPLES */ 13620004 3 SMF74MFV CHAR(2), /* MF/1 VERSION # */ 13660004 3 SMF74RV1 CHAR(2), /* RESV */ 13700004 3 SMF74RLS CHAR(4); /* OP SYS REL # & LEVEL NNLL */ 13800004 /* DEVICE CONTROL AREA VARIABLES */ 13840004 DCL 1 SMF74A BASED(ADDR(SMF74SIZ)+SMF74SIZ) BDY(WORD), 13880004 3 SMF74SDC PTR(15), /* SIZE OF DEVICE CONTROL AREA */ 13920004 3 SMF74DEV FIXED(15), /* # MEASUREMENTS IN DEV DATA AREA */ 13960004 3 SMF74SDD FIXED(15), /* SIZE OF EACH DEVICE DATA AREA */ 14000004 3 SMF74RV2 CHAR(2); /* RESV */ 14100004 /* DEVICE DATA AREA VARIABLES */ 14140004 DCL 1 SMF74B (*) BASED(ADDR(SMF74SDC)+SMF74SDC) BDY(WORD), 14180004 3 SMF74ADD CHAR(2), /* DEVICE ADDRESS HHHF */ 14220004 3 SMF74RV3 CHAR(1), /* RESV */ 14260004 3 SMF74CNF BIT(8), /* CONFIGURATION ACTIVITY */ 14300004 5 * BIT(6), /* RESV */ 14400004 5 SMF74VAC BIT(1), /* DATA INVALID, VARIED ON OR OFF, 14440004 OR DYNAMIC RECONFIGURATION */ 14480004 5 SMF74STA BIT(1), /* =1 FOR ONLINE AT END OF INTERVAL*/ 14520004 3 SMF74TYP CHAR(4), /* UNIT TYPE FROM UCBTYP FIELD */ 14560004 3 SMF74SER CHAR(6), /* VOLUME SERIAL # */ 14600004 3 SMF74RV4 CHAR(2), /* RESV */ 14700004 3 SMF74CNT FIXED(32), /* SIO'S SERVICED BY THIS DEVICE */ 14740004 3 SMF74ACT FIXED(32), /* # SAMPLES WHEN DEVICE WAS BUSY */ 14780004 3 SMF74QUE FIXED(32); /* SUM OF # REQUESTS ENQ TO DEVICE */ 14820004 %IFAL75: ; 14840004