* %GOTO IFAL40; /* 00050004 MACRO 00100004 &NAME IFASMFR4 &RECTYPE 00150004 .* * * 00200004 .* * MACMEAN IFASMFR4 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00200904 .* * MACCOMP Y-2 SC102/BL27P * 00250404 .* * MACSTAT Y-2 73298/42020 * 00300804 .* * METHOD OF ACCESS * 00350304 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00400304 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR4) * 00450304 .* * * 00500304 .* * THIS MACRO EXPANDS RECORDS 37 - 46. * 00550304 .* * * 00600304 .* * 00650304 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 37 - 46. THE REQUIRED 00700304 .* FORMAT IS - 00750304 .* 00800304 .* IFASMFR4 &RECTYPE 00850304 .********************************************************************** 00900304 AIF (&RECTYPE EQ 40).IFAS040 00950304 AIF (&RECTYPE EQ 43).IFAS043 Y02120 01000304 AIF (&RECTYPE EQ 44).IFAS044 @Z40EPPF 01050304 AIF (&RECTYPE EQ 45).IFAS045 Y02120 01100304 .E5 ANOP 01150304 SPACE 3 01200304 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01250304 .CONTB ANOP 01300304 MEXIT 01350304 .IFAS040 ANOP 01400304 EJECT 01450304 * WRITTEN BY DYNAMIC DEVICE ALLOCATION WHEN PROCESSING DEALLOCATION, 01500304 * CONCATENATION AND DECONCATENATION. LENGTH IS VARIABLE. 01550304 * MINIMUM OF 70 BYTES. 01600304 DS 0F ALIGN TO FULL WORD BOUNDARY 01650304 TDDSMF EQU * SMF DYNAMIC DD RECORD FORMAT 01700304 TDDRLEN DS BL2'0' RECORD LENGTH 01750304 TDDRSEG DS BL2'0' SEGMENT DESCRIPTOR 01800304 TDDRFLG DC BL1'0' HEADER FLAG BYTE 01850304 TDDRCDTY DC BL1'0' RECORD TYPE (40 DECIMAL) 01900304 TDDRCDTS DC BL4'0' TIME STAMP TOD 100THS SECS 01950304 TDDRCDTE DC PL4'0000' DATE 00YYDDDF 02000304 TDDCPUID DC CL4' ' CPU IDENTIFICATION (SYSTEM, MODEL) 02050304 TDDUIF DC CL8' ' USER IDENTIFICATION FIELD 02100304 TDDUID EQU TDDUIF 02150304 TDDONTME DC BL4'0' LOGON TIME TOD 100THS SECS 02200304 TDDONDTE DC PL4'0000' DATE 00YYDDDF 02250304 TDDUDATA DC CL8' ' RESV FOR USER 02300304 TDDINVSQ DC BL1'0' STEP SEQUENCE NUMBER 02350304 TDDFLG DC BL1'0' INDICATION OF FUNCTION THAT CAUSED THIS 02400304 * DYNAMIC RECORD 02450304 * VALUE RECORD CAUSED BY 02500304 * '01' RESERVED 02550304 * '02' UNALLOCATION 02600304 * '03' CONCATENATION 02650304 * '04' DECONCATENATION 02700304 TDDRIN DC BL2'0' RECORD INDICATORS @YM02618 02750304 * BITS 0-6 RESERVED @YM02618 02800304 * 7 POSSIBLE ERROR IN DEV ENTRY DATA 02850304 * 8-15 RESERVED @YM02618 02900304 TDDRVA DC BL18'0' RESERVED @YM02618 02950304 TDDVAR DC BL2'0' LENGTH OF REST OF RECORD 03000304 * (INCLUDING THESE TWO BYTES) 03050304 TDDEXCP EQU * DEVICES USED AND EXCP COUNTS 03100304 * 03150304 * EACH DEVICE 03200304 * 03250304 TDDDEVC DC BL1'0' DEVICE CLASS 03300304 TDDUTYP DC BL1'0' UNIT TYPE 03350304 TDDCUAD DC BL2'0' CHANNEL/UNIT ADDRESS 03400304 SMF40VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 03450304 TDDNEXCP DC 4BL1'0' EXCP COUNT 03500304 ORG TDDDEVC 03550304 AGO .CONTB 03600304 .IFAS043 ANOP Y02120 03650304 EJECT Y02120 03700304 * SUBSYSTEM START RECORD TYPE 43 Y02120 03750304 DS 0F ALIGNMENT TO FULL WORD BOUNDRY Y02120 03800304 SMFRCD43 EQU * START OF RECORD @ZA05171 03850304 SMF43HDR EQU * HEADER SEGMENT Y02120 03900304 SMF43LEN DS BL2 RECORD LENGTH Y02120 03950304 SMF43SEG DS BL2 SEGMENT DESCRIPTOR Y02120 04000304 SMF43FLG DS BL1 HEADER FLAG BYTE Y02120 04050304 SMF43RTY DS BL1 RECORD TYPE 43 Y02120 04100304 SMF43TME DS BL4 TOD FROM TIME MACRO BINARY Y02120 04150304 SMF43DTE DS PL4 DATE FROM TIME MACRO Y02120 04200304 SMF43SID DS CL4 SYSTEM IDENTIFIER Y02120 04250304 * SUBSYSTEM IDENTIFICATION SECTION Y02120 04300304 SMF43SBS DS BL2 SUBSYSTEM IDENTIFIER Y02120 04350304 * X'0002' JES2 Y02120 04400304 * X'0005' JES3 @ZA05171 04450304 * X'0006' SS06 @Z40EPPF 04500304 SMF43RSV DS BL2 RESV Y02120 04550304 SMF43LRR DS BL2 LGTH OF REMAINDER OF RECORD Y02120 04600304 * (NOT INCLUDING THIS FIELD) Y02120 04650304 SMF43SBP EQU * SUBSYSTEM SECTION BEGINNING Y02120 04700304 * JES2 AND JES3 COMMON SECTION @ZA05171 04750304 SMF43RV1 DS BL2 RESV @Z30AQPF 04800304 SMF43RST DS BL1 START RECORD FLAGS @Z30AQPF 04850304 SMF$ESYS EQU X'80' IF 1 THEN SMF43EID FIELD IS RESTARTED SYSTEM ID 04900304 * @Z30AQPF 04950304 SMF43CLD EQU X'80' COLD START (JES3) @ZA05171 05000304 SMF43WRM EQU X'40' WARM START @ZA05171 05050304 SMF43HOT EQU X'20' HOT START @ZA05171 05100304 SMF43ANL EQU X'10' QUEUE ANALYSIS REQUIRED @ZA05171 05150304 SMF43GBL EQU X'08' GLOBAL SYSTEM @ZA05171 05200304 SMF43LCL EQU X'04' LOCAL SYSTEM @ZA05171 05250304 * EQU X'02' RESERVED @ZA05171 05300304 SMF43DSI EQU X'01' DYNAMIC SYSTEM INTERCHANGE @ZA05171 05350304 SMF43SBG EQU * JES2,JES3 UNCOMMON SECTIONS @ZA05171 05400304 * JES2 SECTION @ZA05171 05450304 SMF43OPT DS BL1 JES2 OPTIONS Y02120 05500304 * BIT MEANING WHEN SET Y02120 05550304 * 0 - FORMAT THE SPOOL Y02120 05600304 * 1 - COLD START Y02120 05650304 * 2 - REQUEST INIT AUTO Y02120 05700304 * 3 - LIST REPLACEMENTS @YM04806 05750304 * 4-7 RESV @YM04806 05800304 SMF43EID DS CL4 SYSTEM ID OF SYSTEM TO BE WARMSTARTED IF 05850304 * &ESYS OR 0 FOR START JES 2 @Z30AQPF 05900304 ORG SMF43SBG @ZA05171 05950304 * JES3 SECTION @ZA05171 06000304 SMF43RV2 DS BL1 RESERVED FLAGS @ZA05171 06050304 SMF43US1 DS BL1 USER FLAGS @ZA05171 06100304 SMF43NMU DS CL1 INITIALIZATION DECK ORIGIN TYPE @ZA05171 06150304 SMF43ORG DS CL8 INITIALIZATION DECK ORIGIN @ZA05171 06200304 * TYPE-ORIGIN CONTENTS @ZA05171 06250304 * N-MEMBER NAME(JCL DEFAULT) @ZA05171 06300304 * M-MEMBER NAME(OPER CHOICE) @ZA05171 06350304 * U-UNIT ADDRESS(OP CHOICE) @ZA05171 06400304 SMF43UNT EQU SMF43ORG,3 UNIT ADDRESS @ZA05171 06450304 SMF43PJ3 DS CL4 JES3 PROCEDURE NAME @ZA05171 06500304 SMF43RVJ DS CL8 RESERVED FOR JES3 @ZA05171 06550304 SMF43RVU DS CL4 RESERVED FOR USER @ZA05171 06600304 SMF43END DS 0X END OF JES3 RECORD @ZA05171 06650304 SMF43SIZ DS 0XL(SMF43END-SMFRCD43) SIZE OF JES3 SMF43 RECORD@ZA05171 06700304 ORG SMF43SBP @ZA05171 06750304 * SS06 SECTION @Z40EPPF 06800304 SMF43PRC DC CL8' ' SS06 START PROC NAME @Z40EPPF 06850304 SMF43INT DC CL73' ' INITIALIZATION @Z40EPPF 06900304 AGO .CONTB Y02120 06950304 .IFAS044 ANOP @Z40EPPF 07000304 EJECT @Z40EPPF 07050304 * SUBSYSTEM MODIFY RECORD TYPE 44 @Z40EPPF 07100304 DS 0F ALIGNMENT TO FULL WORD BOUNDARY @Z40EPPF 07150304 SMF44HDR EQU * HEADER SEGMENT @Z40EPPF 07200304 SMF44LEN DS BL2 RECORD LENGTH @Z40EPPF 07250304 SMF44SEG DS BL2 SEGMENT DESCRIPTION @Z40EPPF 07300304 SMF44FLG DS BL1 HEADER FLAG BYTE @Z40EPPF 07350304 SMF44RTY DS BL1 RECORD TYPE 44 @Z40EPPF 07400304 SMF44TME DS BL4 TOD FROM TIME MACRO BINARY @Z40EPPF 07450304 SMF44DTE DC PL4'0000' DATE @Z40EPPF 07500304 SMF44SID DC CL4' ' SYSTEM ID @Z40EPPF 07550304 * END OF SEGMENT COMMON TO ALL RECORDS @Z40EPPF 07600304 * SUBSYSTEM IDENTIFICATION SECTION @Z40EPPF 07650304 SMF44SBS DS BL2 SUBSYSTEM IDENTIFIER @Z40EPPF 07700304 * X'0006' SS06 @Z40EPPF 07750304 SMF44RSV DS BL2 RESV @Z40EPPF 07800304 SMF44LRR DS BL2 LENGTH REST OF RECORD @Z40EPPF 07850304 * END OF SECTION COMMON TO ALL SUBSYSTEMS @Z40EPPF 07900304 SMF44SBG EQU * SUBSYSTEM SECTION BEGINNING @Z40EPPF 07950304 * SS06 SECTION @Z40EPPF 08000304 SMF44PRC DC CL8' ' SS06 PROC NAME @Z40EPPF 08050304 SMF44OPT DC CL73' ' INITIALIZATION OPTIONS @Z40EPPF 08100304 ORG SMF44SBG @Z40EPPF 08150304 AGO .CONTB @Z40EPPF 08200304 .IFAS045 ANOP Y02120 08250304 EJECT Y02120 08300304 * SUBSYSTEM STOP RECORD TYPE 45 Y02120 08350304 DS 0F ALIGN TO FULL WORD BOUNDRY Y02120 08400304 SMFRCD45 EQU * START OF RECORD @ZA05171 08450304 SMF45HDR EQU * HEADER SEGMENT Y02120 08500304 SMF45LEN DS BL2 RECORD LENGTH Y02120 08550304 SMF45SEG DS BL2 SEGMENT DESCRIPTOR Y02120 08600304 SMF45FLG DS BL1 HEADER FLAG BYTE Y02120 08650304 SMF45RTY DS BL1 RECORD TYPE 45 Y02120 08700304 SMF45TME DS BL4 TOD FROM TIME MACRO BINARY Y02120 08750304 SMF45DTE DS PL4 DATE FROM TIME MACRO Y02120 08800304 SMF45SID DS CL4 SYSTEM IDENTIFICATION Y02120 08850304 * SUBSYSTEM IDENTIFICATION SECTION Y02120 08900304 SMF45SBS DS BL2 SUBSYSTEM IDENTIFIER Y02120 08950304 * X'0002' JES2 Y02120 09000304 * X'0005' JES3 @ZA05171 09050304 * X'0006' SS06 @Z40EPPF 09100304 SMF45RSV DS BL2 RESV Y02120 09150304 SMF45LRR DS BL2 LGTH OF REMAINDER OF RECORD Y02120 09200304 * (NOT INCLUDING THIS FIELD) Y02120 09250304 SMF45SBG EQU * SUBSYSTEM SECTION BEGINNING Y02120 09300304 * JES2 SECTION @YM04806 09350304 SMF45IND DS BL2 INDICATORS @YM04806 09400304 * BIT 0 ABNORMAL TERMINATION @YM04806 09450304 * 1-15 RESERVED @YM04806 09500304 SMF45JCC DS BL2 JES2 COMPLETION CODE @YM04806 09550304 ORG SMF45SBG Y02120 09600304 * JES3 SECTION @ZA05171 09650304 SMF45FG1 DS BL1 STOP RECORD FLAGS @ZA05171 09700304 SMF45ABN EQU X'80' SUBSYSTEM ENDED DUE TO ABEND @ZA05171 09750304 SMF45DSI EQU X'40' DSI HAS BEEN INVOKED @ZA05171 09800304 SMF45J3C DS XL3 COMPLETION CODE(SYS/USER) @ZA05171 09850304 SMF45RV1 DS BL1 RESERVED @ZA05171 09900304 SMF45US1 DS BL1 USER FLAG @ZA05171 09950304 SMF45RVJ DS CL8 RESERVED FOR JES3 @ZA05171 10000304 SMF45RVU DS CL4 RESERVED FOR USER @ZA05171 10050304 SMF45END DS 0X END OF JES3 RECORD @ZA05171 10100304 SMF45SIZ DS 0XL(SMF45END-SMFRCD45) SIZE OF JES3 45 RECORD @ZA05171 10150304 ORG SMF45SBG @ZA05171 10200304 * SS06 SECTION @Z40EPPF 10250304 SMF45PRC DC CL8' ' SS06 PROCNAME @Z40EPPF 10300304 SMF45STF DS BL1 SYSTEM TERMINATION FLAGS @Z40EPPF 10350304 SMF45HLT EQU 128 HALT ISSUED @Z40EPPF 10400304 SMF45OPS EQU 64 OPERATOR STOP @Z40EPPF 10450304 SMF45ABT EQU 32 ABNORMAL TERMINATION @Z40EPPF 10500304 SMF45NOS EQU 16 NOSAVE SPECIFIED IN HALT @Z40EPPF 10550304 SMF45UID DS BL3 USER ID FOR HALT @Z40EPPF 10600304 SMF45NUL DS BL2 NO. USERS LOGGED ON AT TERMINATION @Z40EPPF 10650304 AGO .CONTB Y02120 10700304 MEND */ 10750304 %IFAL40: IF IFAR40='' %THEN %GOTO IFAL41; 10800304 DCL 1 SMFRCD40 BASED(SMF40PTR) BDY(WORD), 10850304 /* RECORD TYPE 40 - DYNAMIC ALLOCATION */ 10900304 /* WRITTEN WHEN DYNAMIC ALLOC PROCESSES A DE-ALLOCATION, CONCAT- */ 10950304 /* ENATION, OR DE-CONCATENATION OF A DATA SET. */ 11000304 3 TDDRLEN FIXED(15), /* RDW RECORD LENGTH */ 11050304 3 TDDRSEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 11100304 3 TDDRFLG BIT(8), /* OPERATING ENVIRONMENT */ 11150304 3 TDDRCDTY FIXED(8), /* RECORD TYPE 40 */ 11200304 3 TDDRCDTS FIXED(31) BDY(BYTE), /*TOD RCD WRITTEN(.01 SEC) */ 11250304 3 TDDRCDTE CHAR(4), /* DATE RECORD WRITTEN */ 11300304 3 TDDCPUID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 11350304 3 TDDUIF CHAR(8), /* USER IDENTIFICATION FIELD */ 11400304 5 TDDUID CHAR(8), 11450304 3 TDDONTME FIXED(31) BDY(BYTE), /* TOD OF LOGON */ 11500304 3 TDDONDTE CHAR(4), /* DATE OF LOGON */ 11550304 3 TDDUDATA CHAR(8), /* RESV FOR USER */ 11600304 3 TDDINVSQ FIXED(8), /* STEP SEQUENCE # */ 11650304 3 TDDFLG FIXED(8), /* ID OF FUNCTION CAUSING RECORD 11700304 X'01' RESV 11750304 X'02' UNALLOCATION 11800304 X'03' CONCATENATION 11850304 X'04' DECONCATENATION */ 11900304 3 TDDRIN BIT(16), /* RECORD INDICATORS @YM02618*/ 11950304 5 * BIT(7), /* RESERVED @YM02618*/ 12000304 5 TDDIEX BIT(1), /* POSSIBLE ERROR IN DEV ENTRY */ 12050304 5 * BIT(8), /* RESERVED @YM02618*/ 12100304 3 TDDRVA CHAR(18), /* RESV @YM02618*/ 12150304 3 TDDVAR FIXED(15); /* LGTH OF DEVICE SECTION + THESE 2*/ 12200304 DCL 1 TDDEXCP BASED BDY(HWORD), /* DEVICE SECTION, ONE FOR EACH 12250304 DEVICE CONTAINING PART OF DS */ 12300304 3 TDDCUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 12350304 5 TDDDEVC CHAR(1), /* DEVICE CLASS */ 12400304 5 TDDUTYP CHAR(1), /* UNIT TYPE */ 12450304 3 TDDCUAD CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 12500304 4 SMF40VDV BIT(1), /* VIRTUAL DEVICE @Y30AQPF*/ 12550304 3 TDDNEXCP FIXED(31) BDY(BYTE); /* EXCP COUNT */ 12600304 %IFAL41: ; 12650304 %IFAL43: IF IFAR43='' %THEN %GOTO IFAL44; 12700304 DCL 1 SMFRCD43 BASED(SMF43PTR) BDY(WORD), 12750304 /* RECORD TYPE 43 - SUBSYSTEM START */ 12800304 3 SMF43LEN FIXED(15), /* RDW RECORD LENGTH */ 12850304 3 SMF43SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 12900304 3 SMF43FLG BIT(8), /* OPERATING ENVIRONMENT */ 12950304 3 SMF43RTY FIXED(8), /* RECORD TYPE 43 */ 13000304 3 SMF43TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 13050304 3 SMF43DTE CHAR(4), /* DATE RECORD WRITTEN */ 13100304 3 SMF43SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 13150304 /* SUBSYSTEM IDENTIFICATION SECTION*/ 13200304 3 SMF43SBS FIXED(15), /* SUBSYSTEM IDENTIFIER */ 13250304 /* 2 JES2 */ 13300304 /* 5 JES3 @ZA05171*/ 13350304 /* 6 SS06 @Z40EPPF*/ 13400304 3 SMF43RSV CHAR(2), /* RESV */ 13450304 3 SMF43LRR PTR(15), /* LGTH OF REMAINDER OF RECORD 13500304 (NOT INCLUDING THIS FIELD) */ 13550304 3 SMF43SBP CHAR(0), /* SUBSYSTEM SECTION @ZA05171*/ 13600304 /* JES2 AND JES3 COMMON SECTION @ZA05171*/ 13650304 3 SMF43RV1 CHAR(2), /* RESV @ZA05171*/ 13700304 3 SMF43RST BIT(8), /* START RECORD FLAGS @ZA05171*/ 13750304 5 SMF$ESYS BIT(1), /* IF 1 THEN SMF43EID FIELD IS 13800304 RESTARTED SYSTEM ID. IF 0 THEN SMF43EID 13850304 FIELD IS FOR START JES2 AND IS ZEROES */ 13900304 7 SMF43CLD BIT(1), /* COLD START (JES3) @ZA05171*/ 13950304 5 SMF43WRM BIT(1), /* WARM START @ZA05171*/ 14000304 5 SMF43HOT BIT(1), /* HOT START @ZA05171*/ 14050304 5 SMF43ANL BIT(1), /* QUEUE ANALYSIS REQUIRED @ZA05171*/ 14100304 5 SMF43GBL BIT(1), /* GLOBAL SYSTEM @ZA05171*/ 14150304 5 SMF43LCL BIT(1), /* LOCAL SYSTEM @ZA05171*/ 14200304 5 * BIT(1), /* RESERVED @ZA05171*/ 14250304 5 SMF43DSI BIT(1), /* DYNAMIC SYSTEM INTERCHANGE 14300304 @ZA05171*/ 14350304 3 SMF43SBG CHAR(5), /* JES2,JES3 UNCOMMON AREA @ZA05171*/ 14400304 /* JES2 SUBSYSTEM DATA @ZA05171*/ 14450304 5 SMF43OPT BIT(8), /* STARTING OPTIONS 14500304 0 - FORMAT THE SPOOL 14550304 1 - COLD START 14600304 2 - REQUEST INITIATOR AUTO 14650304 3 - LIST REPLACEMENTS @YM04806 14700304 4-7 RESERVED @YM04806*/ 14750304 5 SMF43EID CHAR(4); /* SYSTEM ID OF SYSTEM TO BE WARMSTARTED 14800304 IF $ESYS OR 0 FOR START JES2 @Z30AQPF*/ 14850304 /* JES3 SUBSYSTEM DATA @ZA05171*/ 14900304 DCL 1 SMF43JS3 BASED(ADDR(SMF43SBG)), /*@ZA05171*/ 14950304 3 SMF43RV2 BIT(8), /* RESERVED FLAGS @ZA05171*/ 15000304 3 SMF43US1 BIT(8), /* USER FLAGS @ZA05171*/ 15050304 3 SMF43NMU CHAR(1), /* INITIALIZATION DECK 15100304 ORIGIN TYPE @ZA05171*/ 15150304 3 SMF43ORG CHAR(8), /* INITIALIZATION DECK @ZA05171 15200304 ORIGIN @ZA05171 15250304 TYPE-ORIGIN CONTENTS @ZA05171 15300304 N-MEMBER NAME(JCL DEFAULT) @ZA05171 15350304 M-MEMBER NAME(OPER CHOICE) @ZA05171 15400304 U-UNIT ADDRESS (OP CHOICE) @ZA05171*/ 15450304 5 SMF43UNT CHAR(3), /* UNIT ADDRESS @ZAO5171*/ 15500304 3 SMF43PJ3 CHAR(4), /* JES3 PROCEDURE NAME @ZA05171*/ 15550304 3 SMF43RVJ CHAR(8), /* RESERVED FOR JES3 @ZA05171*/ 15600304 3 SMF43RVU CHAR(4), /* RESERVED FOR USER @ZA05171*/ 15650304 3 SMF43END CHAR(0); /* END OF JES3 RECORD @ZA05171*/ 15700304 /* SS06 SUBSYSTEM DATA @Z40EPPF*/ 15750304 DCL 1 SMF43PCO BASED(ADDR(SMF43SBP)), /* @Z40EPPF*/ 15800304 3 SMF43PRC CHAR(8), /* SS06 START PROC NAME @Z40EPPF*/ 15850304 3 SMF43INT CHAR(73); /* INITIALIZATION OPTIONS @Z40EPPF*/ 15900304 %IFAL44: IF IFAR44='' % THEN % GOTO IFAL45; 15950304 DCL 1 SMFRCD44 BASED(SMF44PTR) BDY(WORD), /* @Z40EPPF*/ 16000304 /* RECORD TYPE 44 - SUBSYSTEM MODIFY @Z40EPPF*/ 16050304 3 SMF44LEN FIXED(15), /* RDW RECORD LENGTH @Z40EPPF*/ 16100304 3 SMF44SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR @Z40EPPF*/ 16150304 3 SMF44FLG BIT(8), /* OPERATING ENVIRONMENT @Z40EPPF*/ 16200304 3 SMF44RTY FIXED(8), /* RECORD TYPE 44 @Z40EPPF*/ 16250304 3 SMF44TME FIXED(31) BDY(BYTE), /*TOD RECORD WRITTEN@Z40EPPF*/ 16300304 3 SMF44DTE CHAR(4), /* DATE RECORD WRITTEN @Z40EPPF*/ 16350304 3 SMF44SID CHAR(4), /* SYSTEM ID FROM 16400304 INSTALLATION @Z40EPPF*/ 16450304 /* SUBSYSTEM IDENTIFIER SECTION */ 16500304 3 SMF44SBS FIXED(15), /* SUBSYSTEM IDENTIFIER @Z40EPPF*/ 16550304 /* 6 SS06 @Z40EPPF*/ 16600304 3 SMF44RSV CHAR(2), /* RESV @Z40EPPF*/ 16650304 3 SMF44LRR PTR(15), /*LENGTH REMAINDER RECORD @Z40EPPF*/ 16700304 /* SS06 SECTION @Z40EPPF*/ 16750304 3 SMF44PRC CHAR(8), /* SS06 PROC NAME @Z40EPPF*/ 16800304 3 SMF44OPT CHAR(73); /* INITIALIZATION OPTIONS @Z40EPPF*/ 16850304 %IFAL45: IF IFAR45='' %THEN %GOTO IFAL46; 16900304 DCL 1 SMFRCD45 BASED(SMF45PTR) BDY(WORD), 16950304 /* RECORD TYPE 45 - SUBSYSTEM STOP */ 17000304 3 SMF45LEN FIXED(15), /* RDW RECORD LENGTH */ 17050304 3 SMF45SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 17100304 3 SMF45FLG BIT(8), /* OPERATING ENVIRONMENT */ 17150304 3 SMF45RTY FIXED(8), /* RECORD TYPE 45 */ 17200304 3 SMF45TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 17250304 3 SMF45DTE CHAR(4), /* DATE RECORD WRITTEN */ 17300304 3 SMF45SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 17350304 /* SUBSYSTEM IDENTIFICATION SECTION*/ 17400304 3 SMF45SBS FIXED(15), /* SUBSYSTEM IDENTIFIER */ 17450304 /* 2 JES2 */ 17500304 /* 5 JES3 @ZA05171*/ 17550304 /* 6 SS06 @Z40EPPF*/ 17600304 3 SMF45RSV CHAR(2), /* RESV */ 17650304 3 SMF45LRR PTR(15), /* LGTH OF REMAINDER OF RECORD 17700304 (NOT INCLUDING THIS FIELD) */ 17750304 3 SMF45SBG CHAR(4), /* SUBSYSTEM SECTION @ZA05171*/ 17800304 /* JES2 SUBSYSTEM DATA */ 17850304 5 SMF45IND BIT(16), /* INDICATORS @YM04806*/ 17900304 7 * BIT(1), /* SYBSYSTEM ENDED DUE 17950304 TO ABEND @ZA05171*/ 18000304 7 * BIT(15), /* RESERVED @ZA05171*/ 18050304 5 SMF45JCC FIXED(16) BDY(BYTE); /* JES2 COMP CODE @YM04806*/ 18100304 /* JES3 SUBSYSTEM DATA @ZA05171*/ 18150304 DCL 1 SMF45JS3 BASED(ADDR(SMF45SBG)), /*@ZA05171*/ 18200304 3 SMF45FG1 BIT(8), /* STOP RECORD FLAGS @ZA05171*/ 18250304 5 SMF45ABN BIT(1), /* SUBSYSTEM ENDED DUE 18300304 TO ABEND @ZA05171*/ 18350304 5 SMF45DSI BIT(1), /* DSI HAS BEEN INVOKED @ZA05171*/ 18400304 3 SMF45J3C CHAR(3), /* COMPLETION CODE @ZA05171*/ 18450304 3 SMF45RV1 BIT(8), /* RESERVED @ZA05171*/ 18500304 3 SMF45US1 BIT(8), /* USER FLAG @ZA05171*/ 18550304 3 SMF45RVJ CHAR(8), /* RESERVED FOR JES3 @ZA05171*/ 18600304 3 SMF45RVU CHAR(4), /* RESERVED FOR USER @ZA05171*/ 18650304 3 SMF45END CHAR(0); /* END OF JES3 RECORD @ZA05171*/ 18700304 /* SS06 SUBSYSTEM DATA @Z40EPPF*/ 18750304 DCL 1 SMF45PCO BASED(ADDR(SMF45SBG)), 18800304 3 SMF45PRC CHAR(8), /* SS06 PROC NAME @Z40EPPF*/ 18850304 3 SMF45STF BIT(8), /* SYSTEM TERMINATION FLAGS 18900304 @Z40EPPF*/ 18950304 5 SMF45HLT BIT(1), /* HALT ISSUED @Z40EPPF*/ 19000304 5 SMF45OPS BIT(1), /* OPERATOR STOP @Z40EPPF*/ 19050304 5 SMF45ABT BIT(1), /* ABNORMAL TERMINATION @Z40EPPF*/ 19100304 5 SMF45NOS BIT(1), /* NOSAVE SPECIFIED IN HALT 19150304 @Z40EPPF*/ 19200304 3 SMF45UID CHAR(3), /* USER ID FOR HALT @Z40EPPF*/ 19250304 3 SMF45NUL FIXED(15); /* NO. USERS LOGGED ON 19300304 AT TERMINATION @Z40EPPF*/ 19350304 %IFAL46: ; 19400304