* %GOTO IFAL20; /* 00050004 MACRO 00100004 &NAME IFASMFR2 &RECTYPE 00100804 .* * * 00200004 .* * MACMEAN IFASMFR2 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(IFASMFR2) * 00500004 .* * * 00550004 .* * THIS MACRO EXPANDS RECORDS 20 -27. * 00600004 .* * * 00601004 .* * 00655004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 20-27. THE REQUIRED 00705004 .* FORMAT IS - 00755004 .* 00805004 .* IFASMFR2 &RECTYPE 00855004 .* 00865003 .* 00875003 .* TYPE 26 RECORD - REMOVE ORG STMTS APPROX 147550,156550 @ZA12438 00885003 .* TYPE 26 RECORD - ADD ORG STMTS TO EVENTS,ACTUALS SECTIONS @ZA17757 00895003 .********************************************************************** 00905004 AIF (&RECTYPE EQ 20).IFAS020 00955004 AIF (&RECTYPE EQ 21).IFAS021 01005004 AIF (&RECTYPE EQ 22).IFAS022 Y02034 01055004 AIF (&RECTYPE EQ 25).IFAS025 @Y02BPSE 01105004 AIF (&RECTYPE EQ 26).IFAS026 Y02120 01155004 .E5 ANOP 01205004 SPACE 3 01255004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01305004 .CONTB ANOP 01355004 MEXIT 01405004 .IFAS020 ANOP 01455004 EJECT 01505004 * JOB COMMENCEMENT RECORD WRITTEN WHEN A JOB IS INITIATED. 01555004 * LENGTH IS VARIABLE. MINIMUM OF 61 BYTES. 01605004 * 01655004 DS 0F ALIGN TO FULL WORD BOUNDARY 01705004 SMFRCD20 EQU * RECORD 20 01755064 SMF20LEN DS BL2'0' RECORD LENGTH 01785064 SMF20SEG DS BL2'0' SEGMENT DESCRIPTOR 01815064 SMF20HDR EQU * HEADER SEGMENT 01845064 SMF20FLG DS BL1'0' HEADER FLAG BYTE 01905004 SMF20RTY DS BL1'0' RECORD TYPE 20 01955004 SMF20TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 02005004 SMF20DTE DS PL4'0000' DATE, PACKED/DEC FORM; 00YYDDDF 02055004 SMF20SID DS CL4' ' SYSTEM ID Y02901 02105004 SMF20JBN DS CL8' ' JOB NAME 02155004 SMF20RST DS BL4'0' READER START TIME 02205004 SMF20RSD DS PL4'0000' READER START DATE, PK/DEC FORM: 00YYDDDF 02255004 SMF20UID DS CL8' ' USERID 02305004 SMF20RIN DS BL2'0' @G32FPRS 02355064 ORG SMF20RIN @G32FPRL 02365064 SMF20RLO DS BL2'0' OFFSET TO RELOCATE SECTION @G32FPRL 02375064 SMF20PGM DS CL20' ' PROGRAMMERS NAME 02385064 SMF20NAF DS BL1'0' NO. ACCOUNTING FIELDS 02395064 SMF20ACT EQU * ACCOUNTING FIELDS 02405064 * BEGINNING OF RELOCATE SECTION 02415064 * SMF20RLO IS ITS OFFSET FROM BEGINNING OF HEADER - SMF20HDR @G32FPRL 02425064 SMF20RLA EQU * RELOCATABLE AREA @G32FPRL 02435064 SMF20RLS DS BL2 SIZE OF RELOCATABLE AREA @G32FPRL 02445064 SMF20GRP DS CL8' ' RACF GROUP ID @G32FPRS 02455064 SMF20RUD DS CL8' ' RACF USER ID @G32FPRS 02465064 SMF20TID DS CL8' ' RACF TERMINAL ID @G32FPRS 02475064 AGO .CONTB 02555004 .IFAS021 ANOP 02605004 EJECT 02655004 * THIS RECORD IS WRITTEN BY THE ERROR STATISTICS BY VOLUME OPTION 02705004 * WHENEVER A TAPE VOLUME IS DEMOUNTED. 02755004 * LENGTH IS 44 BYTES. 02805004 DS 0F ALIGN TO FULL WORD BOUNDRY 02855004 SMF21HDR EQU * HEADER SEGMENT FOR RECORD 21 (ESV) 02905004 SMF21LEN DS BL2'0' RECORD LENGTH 02955004 SMF21SEG DS BL2'0' SEGMENT DESCRIPTOR 03005004 SMF21FLG DS BL1'0' HEADER FLAG BYTE 03055004 SMF21RTY DS BL1'0' RECORD TYPE 21 03105004 SMF21TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 03155004 SMF21DTE DS PL4'0000' DATE, PACKED/DEC FORM: 00YYDDDF 03205004 SMF21SID DS CL4' ' SYSTEM ID Y02901 03255004 SMF21LGH DS BL2'0' LENGTH OF DATA PORTION 03305004 SMF21VOL DS CL6' ' VOL SERIAL 03355004 SMF21CA DS BL2'0' CHANNEL ADDRESS 03405004 SMF21UCB DS BL4'0' UCB TYPE CODE 03455004 SMF21TR DS BL1'0' TEMPERARY READ ERRORS 03505004 SMF21TW DS BL1'0' TEMPERARY WRITE ERRORS 03555004 SMF21SIO DS BL2'0' NO OF START I/O 03605004 SMF21PR DS BL1'0' PERMANEMT READ ERRORS 03655004 SMF21PW DS BL1'0' PERMANENT WRITE ERRORS 03705004 SMF21NB DS BL1'0' NOISE BLOCKS 03755004 SMF21ERG DS BL2'0' ERASE GAPS 03805004 SMF21CLN DS BL2'0' CLEANER ACTIONS 03855004 SMF21DEN DS BL1'0' TAPE DENSITY 03905004 SMF21BLS DS BL2'0' BLOCK SIZE 03955004 SMF21RV0 DS BL2'0' RESERVED 04005004 AGO .CONTB 04055004 .IFAS022 ANOP Y02034 04105004 EJECT Y02034 04155004 * THIS RECORD IS WRITTEN AFTER EVERY IPL AND EACH TIME A VARY Y02034 04205004 * COMMAND IS PROCESSED FOR A CPU, CHANNEL OR STORAGE BOX. Y02034 04255004 * LENGTH IS VARIABLE. MINIMUM OF 24. Y02034 04305004 * Y02034 04355004 DS 0F ALIGN ON FULLWORD BDY Y02034 04405004 SMFRCD22 EQU * HEADER SEGMENT Y02034 04455004 SMF22LEN DS BL2 RECORD LENGTH Y02034 04505004 SMF22SEG DS BL2 SEGMENT DESRIPTOR Y02034 04555004 SMF22FLG DS BL1 HEADER FLAG BYTE Y02034 04605004 SMF22RTY DS BL1 RECORD TYPE (22) Y02034 04655004 SMF22TME DS BL4 TOD FROM TIME MACRO BINARY Y02034 04705004 SMF22DTE DS PL4 DATE FROM TIME MACRO Y02034 04755004 SMF22SID DS CL4 SYSTEM INDICATOR Y02034 04805004 SMF22IND DS BL2 RECORD CREATOR INDICATOR Y02034 04855004 * X'0001' AT IPL Y02034 04905004 * X'0002' BY VARY ON Y02034 04955004 * X'0003' BY VARY OFF Y02034 05005004 SMF22ECT DS BL2 # OF ELEMENTS FOLLOWING Y02034 05055004 SMF22RSC EQU * RESOURCE ELEMENTS Y02034 05105004 * CPU ELEMENT Y02034 05155004 SMF22RV0 DS BL1 RESV Y02034 05205004 SMF22PID DS BL1 PROCESSOR ID X'01' Y02034 05255004 SMF22CPN DS BL2 CPU MODEL # Y02034 05305004 SMF22RV1 DS BL1 RESV Y02034 05355004 SMF22CPA DS BL1 CPU ADDRESS Y02034 05405004 ORG SMF22RSC Y02034 05455004 * CHANNEL ELEMENT Y02034 05505004 SMF22CSD DS BL1 CHANNEL SET ID @G64APJW 05555064 SMF22CID DS BL1 CHANNEL ID X'02' Y02034 05605004 SMF22CHN DS BL2 CHANNEL TYPE AND MODEL # Y02034 05655004 SMF22CHA DS BL1 CHANNEL ADDRESS Y02034 05705004 SMF22CPD DS BL1 CPU ADDRESS Y02034 05755004 ORG SMF22RSC Y02034 05805004 * STORAGE ELEMENT(MEMORY) Y02034 05855004 SMF22RV3 DS BL1 RESV Y02034 05905004 SMF22TID DS BL1 STORAGE ID X'03' Y02034 05955004 SMF22PGL DS BL2 PAGE # OF LOWEST PAGE IN STOR Y02034 06005004 SMF22NPG DS BL2 # OF PAGES IN STORAGE Y02034 06055004 ORG SMF22RSC @Y30AQPF 06105004 * IPL ELEMENT @Y30AQPF 06155004 SMF22RV4 DS BL1 RESV @Y30AQPF 06205004 SMF22IID DS BL1 IPL ID X'04' @Y30AQPF 06255004 SMF22ION DS BL40 UNITS ONLINE AT IPL @Y30AQPF 06305004 ORG SMF22RSC @Y30AQPF 06355004 * VARY S ONLINE ELEMENT @Y30AQPF 06405004 SMF22RV5 DS BL1 RESV @Y30AQPF 06455004 SMF22NID DS BL1 VARY S ONLINE ID X'05' @Y30AQPF 06505004 SMF22RVA DS BL1 RESV @Y30AQPF 06555004 SMF22NSI DS BL3 SUBSYSTEM ID @Y30AQPF 06605004 ORG SMF22RSC @Y30AQPF 06655004 * VARY S OFFLINE ELEMTNT @Y30AQPF 06705004 SMF22RV6 DS BL1 RESV @Y30AQPF 06755004 SMF22FID DS BL1 VARY S OFFLINE ID X'06' @Y30AQPF 06805004 SMF22RVB DS BL1 RESV @Y30AQPF 06855004 SMF22FSI DS BL3 SUBSYSTEM ID @Y30AQPF 06905004 AGO .CONTB Y02034 06955004 .IFAS025 ANOP @Y02BPSE 07005004 EJECT @Y02BPSE 07055004 * JES3 WILL PRODUCE ONE SMF RECORD 25 FOR EACH JOB TO @Y02BPSE 07105004 * REPRESENT ALL JCL STATIC ALLOCATIONS PLUS SEPARATE @Y02BPSE 07155004 * RECORDS FOR EACH DYNAMIC ALLOCATION REQUEST AND @Y02BPSE 07205004 * SEPARATE RECORDS FOR EACH GROUP OF CATALOG ALLOCATIONS. @Y02BPSE 07255004 DS 0F ALIGN TO FULLWORD @Y02BPSE 07305004 SMFRCD25 EQU * HEADER SEGMENT (38 BYTES WITHOUT RDW @Y02BPSE 07355004 SMF25LEN DS BL2 RECORD LENGTH @Y02BPSE 07405004 SMF25SEG DS BL2 SEGMENT DESCRIPTOR @Y02BPSE 07455004 SMF25FLG DS BL1 HEADER FLAG BYTE @Y02BPSE 07505004 SMF25RTY DS BL1 RECORD TYPE 25 @Y02BPSE 07555004 SMF25TME DS BL4 TOD OF RECORD (TIME MACRO BINARY) @Y02BPSE 07605004 SMF25DTE DS PL4 DATE OF RECORD @Y02BPSE 07655004 SMF25SID DS CL4 SYSTEM INDICATOR @Y02BPSE 07705004 SMF25JBN DS CL8 JOBNAME @Y02BPSE 07755004 SMF25RST DS BL4 READER START TIME @Y02BPSE 07805004 SMF25RSD DS PL4 READER START DATE @Y02BPSE 07855004 SMF25UIF DS CL8 USER IDENTIFICATION FIELD @Y02BPSE 07905004 * 07955004 * BEGINNING OF DESCRIPTIVE SECTION 08005004 * 08055004 SMF25IND DS BL2 RECORD 25 FUNCTION FLAGS @Y02BPSE 08105004 SMF25DYN EQU X'8000' BIT 0 - 1=DYNAMIC ALLOCATIONS @Y02BPSE 08155004 * 0=JCL,STATIC ALLOCATIONS @Y02BPSE 08205004 SMF25CAT EQU X'4000' BIT 1 - 1=NON-EXECUTION ALLOCATIONS @Y02BPSE 08255004 * 0=EXECUTION ALLOCATIONS @Y02BPSE 08305004 SMF25FCH EQU X'2000' BIT 2 - 1=AUTOMATIC ALLOCATIONS @Y02BPSE 08355004 * 0=MANUAL ALLOCATIONS @Y02BPSE 08405004 SMF25RSV EQU X'1FFF' BIT 3 - 15 RESERVED @Y02BPSE 08455004 SMF25NTF DS BL4 NUMBER OF TAPES FETCHED @Y02BPSE 08505004 SMF25NDF DS BL4 NUMBER OF DISK VOLUMES FETCHED @Y02BPSE 08555004 SMF25FST DS BL4 TOD FETCH START @Y02BPSE 08605004 SMF25FSD DS PL4 DATE FETCH START @Y02BPSE 08655004 SMF25SST DS BL4 TOD *START SETUP ISSUED @Y02BPSE 08705004 * (SETUP START TIME ZERO FOR AUTO FETCH)@Y02BPSE 08755004 SMF25SSD DS PL4 DATE *START SETUP ISSUED @Y02BPSE 08805004 * (SETUP START DATE ZERO FOR AUTO FETCH)@Y02BPSE 08855004 SMF25NTM DS BL4 NUMBER OF TAPES MOUNTED @Y02BPSE 08905004 SMF25NDM DS BL4 NUMBER OF DISK VOLUMES MOUNTED @Y02BPSE 08955004 SMF25MST DS BL4 TOD FIRST MOUNT MSG ISSUED @Y02BPSE 09005004 SMF25MSD DS PL4 DATE FIRST MOUNT MSG ISSUED @Y02BPSE 09055004 SMF25VVT DS BL4 TOD JOB VERIFIED @Y02BPSE 09105004 SMF25VVD DS PL4 DATE JOB VERIFIED @Y02BPSE 09155004 SMF25NMV DS BL4 NUMBER OF MSS VOLUMES @Z40LL00 09175003 SMF25END DS 0X END OF RECORD @ZA05171 09205004 SMF25SIZ DS 0XL(SMF25END-SMFRCD25) SIZE OF SMF 25 RECORD @ZA05171 09255004 AGO .CONTB 09305004 .IFAS026 ANOP Y02120 09355004 EJECT Y02120 09405004 * THIS RECORD IS WRITTEN WHEN A JOB IS READY TO BE PURGED FOR @YL02120 09455004 * BOTH FOREGROUND AND BACKGROUND JOBS IN THE SYSTEM. @YL02120 09505004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02120 09555004 SMFRCD26 EQU * HEADER SEGMENT (LGTH 46 WITHOUT RDW) @YL02120 09605004 SMF26LEN DS BL2 RECORD LENGTH Y02120 09655004 SMF26SEG DS BL2 SEGMENT DESCRIPTOR Y02120 09705004 SMF26FLG DS BL1 HEADER FLAG BYTE Y02120 09755004 SMF26RTY DS BL1 RECORD TYPE 26 Y02120 09805004 SMF26TME DS BL4 TOD FROM TIME MACRO BINARY Y02120 09855004 SMF26DTE DS PL4 DATE FROM TIME MACRO Y02120 09905004 SMF26SID DS CL4 SYSTEM INDICATOR Y02120 09955004 SMF26JBN DS CL8 JOB NAME Y02120 10005004 SMF26RST DS BL4 RDR START TIME, TIME JOB CARD 1ST READ @YL02120 10055004 SMF26RSD DS PL4 READER START DATE Y02120 10105004 SMF26UIF DS CL8 USER IDENTIFICATION FIELD Y02120 10155004 SMF26RSV DS BL4 RESV Y02120 10205004 SMF26SBS DS BL2 SUBSYSTEM GENERATING ID(JES2=2, JES3=5)@YL02120 10255004 SMF26IND DS BL2 INDICATORS Y02120 10305004 SMF26DES EQU X'8000' DESCRIPTIVE SECTION PRESENT @ZA05171 10355004 SMF26EVT EQU X'4000' EVENT SECTION PRESENT @ZA05171 10405004 SMF26ATU EQU X'2000' ACTUALS SECTION PRESENT @ZA05171 10455004 * BEGINNING OF DESCRIPTIVE SECTION Y02120 10505004 SMF26LN1 DS BL2 LGTH OF THIS SECTION INCLUDING SELF @YL02120 10555004 SMF26RV1 DS BL2 RESV @YL02120 10605004 SMF26IN2 DS BL1 ADDITIONAL JOB INFORMATION(JES2 ONLY) @YL02120 10655004 * BIT 0 - BACKGROUND BATCH @YL02120 10705004 * 1 - FOREGROUND TIME SHARING @YL02120 10755004 * 2 - SYSTEM TASK @YL02120 10805004 * 3 - NO JOURNAL OPTION @YL02120 10855004 * 4 - NO OUTPUT OPTION @YL02120 10905004 * 5 - TYPRUN=SCAN @Z30AQPF 10955004 * 6 - TYPRUN=COPY @Z30AQPF 11005004 * 7 - RESERVED @YL02120 11055004 ORG SMF26IN2 @YL02120 11105004 SMF26IN3 DS BL1 ADDITIONAL JOB INFORMATION(JES3 ONLY) @ZA05171 11155004 SMF26DJC EQU X'80' BIT 0 - DEPENDENT JOB(//*NET JOB @ZA05171 11205004 * PROCESSED) @YL02120 11255004 SMF26DLJ EQU X'40' 1 - JOB SPECIFIED DEADLINE SCHEDULING @ZA05171 11305004 SMF26DLM EQU X'20' 2 - DEADLINE JOB MET DEADLINE @ZA05171 11355004 SMF26PRJ EQU X'10' 3 - //*PROCESS STMT PROCESSED @ZA05171 11405004 SMF26NJX EQU X'08' 4 - JOB LEFT SYSTEM VIA NJP(NETWORK @ZA05171 11455004 * JOB PROCESSING) @YL02120 11505004 SMF26NJE EQU X'04' 5 - JOB ENTERED SYSTEM VIA NJP @ZA05171 11555004 SMF26DJO EQU X'02' 6 - JOB LEFT SYSTEM VIA DJ(DUMP JOB) @ZA05171 11605004 SMF26DJE EQU X'01' 7 - JOB ENTERED SYSTEM VIA DJ @ZA05171 11655004 SMF26INF DS BL1 JOB INFORMATION Y02120 11705004 SMF26JCP EQU X'80' 0 - JOB PRIORITY EXTERNALLY ASSIGNED @ZA05171 11755004 * (JES2-VIA /*PRIORITY STMT) @YL02120 11805004 * (JES3-VIA PRTY PARM ON JOB STMT) @YL02120 11855004 SMF26STU EQU X'40' 1 - SETUP JOB @ZA05171 11905004 * (JES2-/*SETUP STMT PROCESSED) @YL02120 11955004 * (JES3-PROCESSED BY PREEXEC SETUP) @YL02120 12005004 SMF26TRH EQU X'20' 2 - JOB HELD VIA TYPERUN=HOLD @ZA05171 12055004 * 3 - JOB REQUESTED NO JES JOB LOG(JES2) @ZA05171 12105004 * 4 - EXEC BATCHING JOB (JES2 ONLY) @YL02120 12155004 SMF26EIR EQU X'04' 5 - JOB ENTERED VIA INTERNAL RDR @ZA05171 12205004 SMF26MRE EQU X'02' 6 - JOB WAS RERUN BY JES @ZA05171 12255004 SMF26OPC EQU X'01' 7 - OPER CANCELLED JOB BY JES CMND @ZA05171 12305004 SMF26JNM DS CL4 JES ASSIGNED JOB # @YL02120 12355004 SMF26JID DS CL8 JOB ID OF FORM XXX0YYYY WHERE YYYY IS @YL02120 12405004 * JES ASSIGNED JOB # & XXX IS @YL02120 12455004 * 'JOB' - NORMAL JES JOB @YL02120 12505004 * 'STC' - STARTED TASK CONTROL @YL02120 12555004 * 'TSU' - TSO USER @YL02120 12605004 SMF26NAM DS CL20 PROGRAMMER'S NAME FROM JOB CARD Y02120 12655004 SMF26MSG DS CL1 MESSAGE CLASS FROM JOB CARD Y02120 12705004 SMF26CLS DS CL1 JOB CLASS FROM JOB CARD Y02120 12755004 SMF26XPI DS BL1 INITIAL JOB PRIORITY @YL02120 12805004 SMF26XPS DS BL1 SELECTION PRIORITY AT TIME JOB SELECTED@YL02120 12855004 SMF26OPI DS BL1 INITIAL OUTPUT PRIORITY(JES2 ONLY) @YL02120 12905004 SMF26OPS DS BL1 OUTPUT PRIORITY AT SELECTION(JES2 ONLY)@YL02120 12955004 SMF26LOC DS BL2 INPUT ROUTE CODE (JES2 ONLY) @ZA05171 13005004 ORG SMF26OPI @ZA05171 13055004 SMF26RV8 DS XL4 RESERVED(JES3) @ZA05171 13105004 SMF26DEV DS CL8 LOG INPUT DEV NAME OF WHERE JOB READ @YL02120 13155004 * USERID IF TSO SUBMIT @YL02120 13205004 * SYSTEM NAME IF NJP @YL02120 13255004 SMF26ACT DS CL4 PROGRAMMER'S ACCOUNTING # (JES2 ONLY) @YL02120 13305004 SMF26ROM DS CL4 PROGRAMMER'S ROOM # (JES2 ONLY) @YL02120 13355004 ORG SMF26ACT @ZA05171 13405004 SMF26RVA DS XL8 RESERVED(JES3) @ZA05171 13455004 SMF26XTM DS BL4 ESTIMATED EXECUTION TIME(SEC) @YL026WA 13505004 SMF26ELN DS BL4 ESTIMATED OUTPUT LINES Y02120 13555004 SMF26EPU DS BL4 ESTIMATED OUTPUT PUNCHED CARDS Y02120 13605004 * @YL02120 13655004 SMF26J2D EQU * JES2 ONLY DESCRIPTIVE SECTION @YL02120 13705004 SMF26FRM DS CL4 DEFAULT OUTPUT FORM # Y02120 13755004 SMF26CYP DS BL2 PRINT COPY COUNT IF FOR ALL OF JOB Y02120 13805004 SMF26LIN DS BL2 LINES PER PAGE Y02120 13855004 SMF26PRR DS BL2 PRINT ROUTE CODE Y02120 13905004 SMF26PUR DS BL2 PUNCH ROUTE CODE Y02120 13955004 SMF26PDD DS CL8 JES2 PROC DDNAME FOR JCL CONVERSION @YM04806 14005004 ORG SMF26J2D @YL02120 14055004 SMF26J3D EQU * JES3 ONLY DESCRIPTIVE SECTION @YL02120 14105004 SMF26DTY DS CL1 DEADLINE SCHEDULE TYPE @YL02120 14155004 SMF26RV6 DS BL3 RESERVED @YL02120 14205004 SMF26IGP DS CL8 LOG INPUT DEV GROUP NAME(JOB SOURCE) @YL02120 14255004 SMF26PD3 DS CL8 PROCEDURE DD NAME @YL02120 14305004 SMF26NJO DS CL8 SYS NAME TO WHICH JOB SENT VIA NJP @YL02120 14355004 SMF26NJI DS CL8 SYS FROM WHICH JOB RECEIVED VIA NJP @YL02120 14405004 SMF26NET DS CL8 ID OF DEPENDENT JOB NET TO WHICH @YL02120 14455004 * THIS JOB BELONGS(FROM //*NET STMT) @YL02120 14505004 SMF26DTM DS BL4 DEADLINE SCHEDULE TIME @YL02120 14555004 SMF26DDT DS PL4 DEADLINE SCHEDULE DATE @YL02120 14605004 SMF26CLN DS CL8 JOB CLASS NAME @YL02120 14655004 * BEGINNING OF EVENT SECTION Y02120 14705004 ORG SMF26LN1 ORG TO BEGIN OF VARIABLE SECTION @ZA17757 14755003 SMF26LN2 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-60) Y02120 14805004 SMF26RV2 DS BL2 RESV Y02120 14855004 SMF26RPT DS BL4 READER STOP TIME Y02120 14905004 SMF26RPD DS PL4 READER STOP DATE Y02120 14955004 SMF26CST DS BL4 CONVERTER START TIME Y02120 15005004 SMF26CSD DS PL4 CONVERTER START DATE Y02120 15055004 SMF26CPT DS BL4 CONVERTER STOP TIME Y02120 15105004 SMF26CPD DS PL4 CONVERTER STOP DATE Y02120 15155004 SMF26XST DS BL4 EXECUTION START TIME Y02120 15205004 SMF26XSD DS PL4 EXECUTION START DATE Y02120 15255004 SMF26XPT DS BL4 EXECUTION STOP TIME Y02120 15305004 SMF26XPD DS PL4 EXECUTION STOP DATE Y02120 15355004 SMF26OST DS BL4 OUTPUT PROCESSOR START TIME Y02120 15405004 SMF26OSD DS PL4 OUTPUT PROCESSOR START DATE Y02120 15455004 SMF26OPT DS BL4 OUTPUT PROCESSOR STOP TIME Y02120 15505004 SMF26OPD DS PL4 OUTPUT PROCESSOR STOP DATE Y02120 15555004 * BEGINNING OF ACTUALS SECTION Y02120 15605004 ORG SMF26LN1 ORG TO BEGIN OF VARIABLE SECTION @ZA17757 15655003 SMF26LN3 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-32) Y02120 15705004 SMF26RV4 DS BL2 RESV Y02120 15755004 SMF26ICD DS BL4 # OF INPUT CARDS (JCL AND DATA) Y02120 15805004 SMF26XLN DS BL4 OUTPUT LINES GENERATED TO SPOOL Y02120 15855004 SMF26XPU DS BL4 OUTPUT PUNCH CARDS GENERATED TO SPOOL Y02120 15905004 SMF26RID DS CL4 INPUT PROCESSOR SYSTEM ID @Z30AQPF 15955004 SMF26CID DS CL4 JCL CONVERSION PROCESSOR SYSTEM ID @Z30AQPF 16005004 SMF26XID DS CL4 EXECUTION PROCESSOR SYSTEM ID @Z30AQPF 16055004 SMF26OID DS CL4 OUTPUT PROCESSOR SYSTEM ID @Z30AQPF 16105004 SMF26JAF DS CL42 JOB ACCT FIELDS (MAX. LEN 42) @ZA05171 16155004 AGO .CONTB Y02120 16205004 MEND */ 16255004 %IFAL20: IF IFAR20='' %THEN %GOTO IFAL21; 16305004 DCL 1 SMFRCD20 BASED(SMF20PTR) BDY(WORD), 16355004 /* RECORD TYPE 20 - JOB INITIATION */ 16405004 /* WRITTEN BY JOB INITIATION */ 16455004 3 SMF20LEN FIXED(15), /* RDW RECORD LENGTH */ 16505004 3 SMF20SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 16555004 3 SMF20FLG BIT(8), /* OPERATING ENVIRONMENT */ 16605004 3 SMF20RTY FIXED(8), /* RECORD TYPE 20 */ 16655004 3 SMF20TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 16705004 3 SMF20DTE CHAR(4), /* DATE RECORD WRITTEN */ 16755004 3 SMF20SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 16805004 3 SMF20JBN CHAR(8), /* JOB NAME */ 16855004 3 SMF20RST FIXED(31) BDY(BYTE), /*READER START TIME(.01 SEC)*/ 16905004 3 SMF20RSD CHAR(4), /* READER START DATE */ 16955004 3 SMF20UIF CHAR(8), /* USER ID FIELD */ 17005004 5 SMF20UID CHAR(8), 17055004 3 SMF20RIN FIXED(15) BDY(BYTE), /* @G32FPRL*/ 17105064 5 SMF20RLO FIXED(15) BDY(BYTE), /* OFFSET FROM BEGINNING 17115064 OF RECORD TO RELOCATABLE 17125064 AREA @G32FPRL*/ 17135064 3 SMF20PGM CHAR(20), /* PROGRAMMER'S NAME */ 17145064 3 SMF20NAF FIXED(8), /* # OF ACCT FIELDS FOLLOWING */ 17155064 3 SMF20ACT CHAR(*); /* ACCOUNTING FIELDS @G32FPRL*/ 17165064 DCL 1 SMF20AFD BASED BDY(BYTE), /* ACCT SECTION */ 17175064 3 SMF20ANC PTR(8), /* # OF CHAR IN THIS ACCT FIELD */ 17185064 3 SMF20BCD CHAR(*); /* ACCT FIELD CHARACTERS */ 17195064 /* RELOCATABLE AREA @G32FPRL*/ 17205064 DCL 1 SMF20RLA BASED(ADDR(SMF20FLG)+SMF20RLO) BDY(BYTE), 17215064 3 SMF20RLS FIXED(15) BDY(BYTE), /* SIZE OF RELOCATABLE AREA 17225064 @G32FPRL*/ 17235064 3 SMF20GRP CHAR(8), /* RACF GROUP ID @G32FPRS*/ 17245064 3 SMF20RUD CHAR(8), /* RACF USER ID @G32FPRS*/ 17255064 3 SMF20TID CHAR(8); /* RACF TERMINAL ID @G32FPRS*/ 17265064 %IFAL21: IF IFAR21='' %THEN %GOTO IFAL22; 17405004 DCL 1 SMFRCD21 BASED(SMF21PTR) BDY(WORD), 17455004 /* RECORD TYPE 21 - ERROR STATISTICS BY VOLUME */ 17505004 /* WRITTEN WHENEVER A TAPE CONTAINING A USER'S DATA SET IS DEMOUNTED*/ 17555004 3 SMF21LEN FIXED(15), /* RDW RECORD LENGTH */ 17605004 3 SMF21SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 17655004 3 SMF21FLG BIT(8), /* OPERATING ENVIRONMENT */ 17705004 3 SMF21RTY FIXED(8), /* RECORD TYPE 21 */ 17755004 3 SMF21TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 17805004 3 SMF21DTE CHAR(4), /* DATE RECORD WRITTEN */ 17855004 3 SMF21SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 17905004 3 SMF21LGH FIXED(15), /* LGTH FROM HERE ON + THESE 2 */ 17955004 3 SMF21VOL CHAR(6), /* VOLUME SERIAL NUMBER */ 18005004 3 SMF21CA CHAR(2), /* CHANNEL ADDRESS */ 18055004 3 SMF21UCB CHAR(4), /* UCB TYPE CODE */ 18105004 3 SMF21TR FIXED(8), /* # OF TEMPORARY READ ERRORS */ 18155004 3 SMF21TW FIXED(8), /* # OF TEMPORARY WRITE ERRORS */ 18205004 3 SMF21SIO FIXED(15), /* # OF START I/O'S */ 18255004 3 SMF21PR FIXED(8), /* # OF PERMANENT READ ERRORS */ 18305004 3 SMF21PW FIXED(8), /* # OF PERMANENT WRITE ERRORS */ 18355004 3 SMF21NB FIXED(8), /* # OF NOISE BLOCKS */ 18405004 3 SMF21ERG FIXED(15) BDY(BYTE), /* # OF ERASE GAPS */ 18455004 3 SMF21CLN FIXED(15) BDY(BYTE), /* # OF CLEANER ACTIONS */ 18505004 3 SMF21DEN FIXED(8), /* TAPE DENSITY CODE */ 18555004 3 SMF21BLS FIXED(15), /* BLOCK SIZE FOR FIXED LGTH ORG */ 18605004 3 SMF21RV0 CHAR(2); /* RESV */ 18655004 %IFAL22: IF IFAR22='' %THEN %GOTO IFAL23; 18705004 DCL 1 SMFRCD22 BASED(SMF22PTR) BDY(WORD), 18755004 /* RECORD TYPE 22 - CPU, CHANNEL AND STORAGE CONFIGURATION */ 18805004 /* WRITTEN AT IPL AND BY VARY ON OR OFF WHENEVER A CPU, CHANNEL OR */ 18855004 /* STORAGE BOX IS CHANGED */ 18905004 3 SMF22LEN FIXED(15), /* RDW RECORD LENGTH */ 18955004 3 SMF22SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 19005004 3 SMF22FLG BIT(8), /* OPERATING ENVIRONMENT */ 19055004 3 SMF22RTY FIXED(8), /* RECORD TYPE 22 */ 19105004 3 SMF22TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 19155004 3 SMF22DTE CHAR(4), /* DATE RECORD WRITTEN */ 19205004 3 SMF22SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 19255004 3 SMF22IND FIXED(15), /* RECORD CREATOR INDICATOR 19305004 X'0001' AT IPL 19355004 X'0002' BY VARY ON 19405004 X'0003' BY VARY OFF */ 19455004 3 SMF22ECT FIXED(15); /* # RESOURCE ELEMENTS FOLLOWING */ 19505004 DCL 1 SMF22CPU BASED BDY(HWORD), /* CPU ELEMENT */ 19555004 3 SMF22RV0 CHAR(1), /* RESV */ 19605004 3 SMF22PID FIXED(8), /* ELEMENT ID, X'01' FOR CPU */ 19655004 3 SMF22CPN CHAR(2), /* CPU MODEL # */ 19705004 3 SMF22RV1 CHAR(1), /* RESV */ 19755004 3 SMF22CPA CHAR(1); /* CPU ADDRESS */ 19805004 DCL 1 SMF22CHL BASED BDY(HWORD), /* CHANNEL ELEMENT */ 19855004 3 SMF22CSD CHAR(1), /* CHANNEL SET ID @G64APJW */ 19905064 3 SMF22CID FIXED(8), /* ELEMENT ID, X'02' FOR CHANNEL */ 19955004 3 SMF22CHN CHAR(2), /* CHANNEL TYPE AND MODEL # */ 20005004 3 SMF22CHA CHAR(1), /* CHANNEL ADDRESS */ 20055004 3 SMF22CPD CHAR(1); /* CPU ADDRESS */ 20105004 DCL 1 SMF22STR BASED BDY(HWORD), /* STORAGE ELEMENT */ 20155004 3 SMF22RV3 CHAR(1), /* RESV */ 20205004 3 SMF22TID FIXED(8), /* ELEMENT ID, X'03' FOR STORAGE */ 20255004 3 SMF22PGL FIXED(15), /* PG # OF LOWEST PAGE IN STORAGE */ 20305004 3 SMF22NPG FIXED(15); /* # OF PAGES IN STORAGE */ 20355004 DCL 1 SMF22IPL BASED BDY(BYTE), /* IPL ELEMENT @Y30AQPF*/ 20405004 3 SMF22RV4 CHAR(1), /*RESV @Y30AQPF*/ 20455004 3 SMF22IID FIXED(8), /* ELEMENT ID, X'04' FOR IPL 20505004 @Y30AQPF*/ 20555004 3 SMF22ION BIT(320); /* SS/I UNITS ONLINE AT IPL 20605004 @Y30AQPF*/ 20655004 DCL 1 SMF22VON BASED BDY(BYTE), /* VARY S ONLINE ELEMENT @Y30AQPF*/ 20705004 3 SMF22RV5 CHAR(1), /* RESERVED @Y30AQPF*/ 20755004 3 SMF22NID FIXED(8), /* ELEMENT ID, X'05' FOR VARY ONLI 20805004 @Y30AQPF*/ 20855004 3 SMF22RVA CHAR(1), /* RESERVED @Y30AQPF*/ 20905004 3 SMF22NSI CHAR(3); /* SUBSYSTEM ID @Y30AQPF*/ 20955004 DCL 1 SMF22VOF BASED BDY(BYTE), /* VARY S OFFLINE ELEMT @Y30AQPF*/ 21005004 3 SMF22RV6 CHAR(1), /* RESERVED @Y30AQPF*/ 21055004 3 SMF22FID FIXED(8), /* ELEMENT ID, X'06' FOR VARY OFFL 21105004 @Y30AQPF*/ 21155004 3 SMF22RVB CHAR(1), /* RESERVED @Y30AQPF*/ 21205004 3 SMF22FSI CHAR(3); /* SUBSYSTEM ID @Y30AQPF*/ 21255004 %IFAL23: ; 21305004 %IFAL25: IF IFAR25='' %THEN %GOTO IFAL26; 21355004 DCL 1 SMFRCD25 BASED(SMF25PTR) BDY(WORD), /*@Y02BPSE*/ 21405004 /* JES3 WILL PRODUCE ONE SMF RECORD 25 FOR EACH JOB TO @Y02BPSE*/ 21455004 /* REPRESENT ALL JCL STATIC ALLOCATIONS, PLUS SEPARATE @Y02BPSE*/ 21505004 /* RECORDS FOR EACH DYNAMIC ALLOCATION REQUEST AND @Y02BPSE*/ 21555004 /* SEPARATE RECORDS FOR EACH GROUP OF CATALOG ALLOCATIONS. @Y02BPSE*/ 21605004 3 SMF25LEN FIXED(15), /* RDW RECORD LENGTH @Y02BPSE*/ 21655004 3 SMF25SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR @Y02BPSE*/ 21705004 3 SMF25FLG BIT(8), /* OPERATING ENVIRONMENT @Y02BPSE*/ 21755004 3 SMF25RTY FIXED(8), /* RECORD TYPE 25 @Y02BPSE*/ 21805004 3 SMF25TME FIXED(31) BDY(BYTE), /* TOD RECRD WRITTEN @Y02BPSE*/ 21855004 3 SMF25DTE CHAR(4), /* DATE RECORD WRITTEN @Y02BPSE*/ 21905004 3 SMF25SID CHAR(4), /* SYSTEM ID @Y02BPSE*/ 21955004 3 SMF25JBN CHAR(8), /* JOBNAME @Y02BPSE*/ 22005004 3 SMF25RST FIXED(31) BDY(BYTE), /* READER START TIME @Y02BPSE*/ 22055004 3 SMF25RSD CHAR(4), /* READER START DATE @Y02BPSE*/ 22105004 3 SMF25UIF CHAR(8), /* USER ID FIELD @Y02BPSE*/ 22155004 /*************************************/ 22205004 /* BEGINNING OF DESCRIPTIVE SECTION */ 22255004 /*************************************/ 22305004 3 SMF25IND BIT(16), /* FUNCTION FLAGS @Y02BPSE*/ 22355004 5 SMF25DYN BIT(1), /* 1 = DYNAMIC ALLOCATION @Y02BPSE*/ 22405004 /* 0 = JCL, STATIC ALLOCATION @Y02BPSE*/ 22455004 5 SMF25CAT BIT(1), /* 1 = NON-EXECUTION ALLOCATION@Y02BPSE*/ 22505004 /* 0 = EXECUTION ALLOCATIONS @Y02BPSE*/ 22555004 5 SMF25FCH BIT(1), /* 1 = AUTOMATIC ALLOCATIONS @Y02BPSE*/ 22605004 /* 0 = MANUAL ALLOCATIONS @Y02BPSE*/ 22655004 5 SMF25RSV BIT(13), /* RESERVED @Y02BPSE*/ 22705004 3 SMF25NTF FIXED(31), /* NUMBER OF TAPES FETCHED @Y02BPSE*/ 22755004 3 SMF25NDF FIXED(31), /* NO. DISK VOLUMES FETCHED @Y02BPSE*/ 22805004 3 SMF25FST FIXED(31), /* TOD FETCH START @Y02BPSE*/ 22855004 3 SMF25FSD CHAR(4), /* DATE FETCH START @Y02BPSE*/ 22905004 3 SMF25SST FIXED(31), /* TOD *START SETUP ISSUED 22955004 (ZERO FOR AUTO FETCH) @Y02BPSE*/ 23005004 3 SMF25SSD CHAR(4), /* DATE *START SETUP ISSUED 23055004 (ZERO FOR AUTO FETCH) @Y02BPSE*/ 23105004 3 SMF25NTM FIXED(31), /* NUMBER OF TAPES MOUNTED @Y02BPSE*/ 23155004 3 SMF25NDM FIXED(31), /* NO. DISK VOLUMES MOUNTED @Y02BPSE*/ 23205004 3 SMF25MST FIXED(31), /* TOD 1ST MOUNT MESSAGE @Y02BPSE*/ 23255004 3 SMF25MSD CHAR(4), /* DATE 1ST MOUNT MESSAGE @Y02BPSE*/ 23305004 3 SMF25VVT FIXED(31), /* TOD JOB VERIFIED @Y02BPSE*/ 23355004 3 SMF25VVD CHAR(4), /* DATE JOB VERIFIED @Y02BPSE*/ 23405004 3 SMF25NMV FIXED(31), /* NO. MSS VOLUMES @Z40LL00*/ 23425003 3 SMF25END CHAR(0); /* END OF RECORD @ZA05171*/ 23455004 %IFAL26: IF IFAR26='' %THEN %GOTO IFALR3; 23505004 DCL 1 SMFRCD26 BASED(SMF26PTR) BDY(WORD), 23555004 /* RECORD TYPE 26 - JOB PURGE BY SUBSYSTEM */ 23605004 /* WRITTEN WHEN ALL SYSOUT FINISHED FOR JOB(FORE & BACKGROUND) */ 23655004 3 SMF26LEN FIXED(15), /* RDW RECORD LENGTH */ 23705004 3 SMF26SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 23755004 3 SMF26FLG BIT(8), /* OPERATING ENVIRONMENT */ 23805004 3 SMF26RTY FIXED(8), /* RECORD TYPE 26 */ 23855004 3 SMF26TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 23905004 3 SMF26DTE CHAR(4), /* DATE RECORD WRITTEN */ 23955004 3 SMF26SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 24005004 3 SMF26JBN CHAR(8), /* JOB NAME */ 24055004 3 SMF26RST FIXED(31) BDY(BYTE), /*READER START TIME(.01 SEC)*/ 24105004 3 SMF26RSD CHAR(4), /* READER START DATE */ 24155004 3 SMF26UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 24205004 3 SMF26RSV CHAR(4), /* RESV */ 24255004 3 SMF26SBS FIXED(15), /* SUBSYSTEM ID, JES2-2 JES3-5 */ 24305004 3 SMF26IND BIT(16), /* SECTION INDICATORS */ 24355004 5 SMF26DES BIT(1), /* DESCRIPTIVE SECTION PRESENT */ 24405004 5 SMF26EVT BIT(1), /* EVENT SECTION PRESENT */ 24455004 5 SMF26ATU BIT(1), /* ACTUALS SECTION PRESENT */ 24505004 5 * BIT(13), /* RESV */ 24555004 /* DESCRIPTIVE SECTION BEGINS */ 24605004 3 SMF26LN1 PTR(15), /* LGTH OF DESCRIPTIVE SECTION */ 24655004 3 SMF26RV1 CHAR(2), /* RESV @YL02120*/ 24705004 3 * BIT(8), /*ADDITIONAL JOB INFO @YL02120*/ 24755004 5 SMF26IN2 BIT(0), /*ADDITIONAL JOB INFO(JES2 ONLY) 24805004 0-BACKGROUNG JOB @YL02120 24855004 1-FOREGROUNG TIME SHARING@YL02120 24905004 2-SYSTEM TASK @YL02120 24955004 3-NO JOURNAL OPTION @YL02120 25005004 4-NO OUTPUT OPTION @YL02120 25055004 5-TYPRUN=SCAN @Z30AQPF 25105004 6 - TYPRUN=COPY @Z30AQPF 25155004 7 - RESERVED @YL02120*/ 25205004 5 SMF26IN3 BIT(8), /*ADDITIONAL JOB INFO(JES3 ONLY) */ 25255004 7 SMF26DJC BIT(1), /*0-DEPENDENT JOB(NET JOB 25305004 PROCESSED @ZA05171*/ 25355004 7 SMF26DLJ BIT(1), /*1-JOB SPECIFIED DEADLINE 25405004 SCHEDULING @ZA05171*/ 25455004 7 SMF26DLM BIT(1), /*2-JOB MET DEADLINE @ZA05171*/ 25505004 7 SMF26PRJ BIT(1), /*3-PROCESS STMT PROCESSED @ZA05171*/ 25555004 7 SMF26NJX BIT(1), /*4-JOB LEFT SYSTEM VIA NJP@ZA05171*/ 25605004 7 SMF26NJE BIT(1), /*5-JOB ENTERED SYS VIA NJP@ZA05171*/ 25655004 7 SMF26DJO BIT(1), /*6-JOB LEFT SYSTEM VIA DJ @ZA05171*/ 25705004 7 SMF27DJE BIT(1), /*7-JOB ENTERED SYS VIA DJ @ZA05171*/ 25755004 3 SMF26INF BIT(8), /* JOB INFORMATION @YL02120*/ 25805004 5 SMF26JCP BIT(1), /* 0-JOB PRIORITY EXTERNALLY ASSIGNED 25855004 JES2-VIA PRIORITY STMT 25905004 JES3-VIA PRTY PARM ON JOB STMT*/ 25955004 5 SMF26STU BIT(1), /* 1-SETUP JOB @ZA05171 26005004 JES2- SETUP STMT PROCESSED 26055004 JES3-PROCESSED BY PRE-EXEC STEUP*/ 26105004 5 SMF26TRH BIT(1), /* 2-JOB HELD VIA 'TYPERUN=HOLD' */ 26155004 5 * BIT(1), /* 3-JOB REQUESTED NO JES JOB LOG 26205004 (JES2 ONLY) @ZA05171*/ 26255004 5 * BIT(1), /* 4-EXEC BATCH JOB(JES2) @ZA05171*/ 26305004 5 SMF26EIR BIT(1), /* 5-JOB ENTERED VIA INTERNAL RDR */ 26355004 5 SMF26MRE BIT(1), /* 6-JOB WAS RERUN BY JES @ZA05171*/ 26405004 5 SMF26OPC BIT(1), /* 7-OPER CANCELED VIA CMND@ZA05171*/ 26455004 3 SMF26JNM CHAR(4), /* JES ASSIGNED JOB NUMBER @ZA05171*/ 26505004 3 SMF26JID CHAR(8), /*JOB ID OF FORM XXX0YYYY WHERE YYYY 26555004 IS JES ASSIGNED JOB # & XXX IS 26605004 'JOB' - NORMAL JES JOB @YL02120 26655004 'STC' - STARTED TASK CONTROL 26705004 'TSU' - TSO USER @YL02120*/ 26755004 3 SMF26NAM CHAR(20), /* PROGRAMMER'S NAME FROM JOB CARD */ 26805004 3 SMF26MSG CHAR(1), /* MESSAGE CLASS FROM JOB CARD */ 26855004 3 SMF26CLS CHAR(1), /* JOB CLASS FROM JOB CARD */ 26905004 3 SMF26XPI FIXED(8), /* INITIAL JOB PRIORITY @YL02120*/ 26955004 3 SMF26XPS FIXED(8), /* SELECTION PRI AT SELECTION */ 27005004 3 SMF26RV8 FIXED(32), /* RESERVED(JES3) @ZA05171*/ 27055004 5 SMF26OPI FIXED(8), /* INITIAL OUTPUT PRI(JES2 ONLY) */ 27105004 5 SMF26OPS FIXED(8), /*OUTPUT PRI AT SELECTION-JES2 ONLY*/ 27155004 5 SMF26LOC FIXED(15), /* INPUT ROUTE CODE (JES2 ONLY) */ 27205004 3 SMF26DEV CHAR(8), /* LOG DEV NAME OF WHERE JOB READ 27255004 USERID IF TSO SUBMIT @YL02120 27305004 SYSTEM NAME IF NJP @YL02120*/ 27355004 3 SMF26RVA CHAR(8), /* RESERVED (JES3) @ZA05171*/ 27405004 5 SMF26ACT CHAR(4), /* PROGRAMMER'S ACCT #(JES2 ONLY) */ 27455004 5 SMF26ROM CHAR(4), /* PROGRAMMER'S ROOM #(JES2 ONLY) */ 27505004 3 SMF26XTM FIXED(31), /* EST EXECUTION TIME(SEC) @YL026WA*/ 27555004 3 SMF26ELN FIXED(31), /* EST OUTPUT LINES */ 27605004 3 SMF26EPU FIXED(31), /* EST OUTPUT PUNCHED CARDS */ 27655004 3 SMF26J2D CHAR(20), /* JES2 ONLY DESCRIPTIVE SECTION */ 27705004 5 SMF26FRM CHAR(4), /* DEFAULT OUTPUT FORM NUMBER */ 27755004 5 SMF26CYP FIXED(15) BDY(BYTE), /* PRINT COPY @YL02120 27805004 COUNT FOR ALL OF JOB @YL02120*/ 27855004 5 SMF26LIN FIXED(15) BDY(BYTE), /* LINES PER PAGE @YL02120*/ 27905004 5 SMF26PRR FIXED(15) BDY(BYTE), /*PRINT ROUTE CODE@YL02120*/ 27955004 5 SMF26PUR FIXED(15) BDY(BYTE), /*PUNCH ROUTE CODE@YL02120*/ 28005004 5 SMF26PDD CHAR(8); /* JES2 PROC DDN - JCL CNVT@YM04806*/ 28055004 DCL 1 SMF26J3D BASED(ADDR(SMF26J2D)), /* @ZA05171*/ 28105004 3 SMF26DTY CHAR(1), /* DEADLINE SCHEDULE TYPE @YL02120*/ 28155004 3 SMF26RV6 CHAR(3), /* RESERVED @YL02120*/ 28205004 3 SMF26IGP CHAR(8), /* LOG INPUT DEV GP NAM(JOB SOURCE)*/ 28255004 3 SMF26PD3 CHAR(8), /* PROCEDURE DD NAME @YL02120*/ 28305004 3 SMF26NJO CHAR(8), /* SYS NAME WHERE JOB SENT VIA NJP */ 28355004 3 SMF26NJI CHAR(8), /* SYS WHICH SENT JOB VIA NJP */ 28405004 3 SMF26NET CHAR(8), /* ID OF DEPENDENT JOB NET TO WHICH 28455004 THIS JOB BELONGS(FROM //*NET STMT*/ 28505004 3 SMF26DTM FIXED(31) BDY(BYTE), /*DEADLINE SCH TOD@YL02120*/ 28555004 3 SMF26DDT CHAR(4), /* DEADLINE SCHEDULE DATE @YL02120*/ 28605004 3 SMF26CLN CHAR(8); /* JOB CLASS NAME @YL02120*/ 28655004 /* EVENT SECTION BEGINS HERE */ 28705004 DCL 1 SMF26A BASED(ADDR(SMF26LN1)+SMF26LN1) BDY(WORD), 28755004 3 SMF26LN2 PTR(15), /* LGTH OF EVENT SECTION */ 28805004 3 SMF26RV2 CHAR(2), /* RESV */ 28855004 3 SMF26RPT FIXED(31), /* TOD READER STOP */ 28905004 3 SMF26RPD CHAR(4), /* READER STOP DATE */ 28955004 3 SMF26CST FIXED(31), /* TOD CNVT START */ 29005004 3 SMF26CSD CHAR(4), /* CNVT START DATE */ 29055004 3 SMF26CPT FIXED(31), /* TOD CNVT STOP */ 29105004 3 SMF26CPD CHAR(4), /* CNVT STOP DATE */ 29155004 3 SMF26XST FIXED(31), /* TOD EXEC START */ 29205004 3 SMF26XSD CHAR(4), /* EXEC START DATE */ 29255004 3 SMF26XPT FIXED(31), /* TOD EXEC STOP */ 29305004 3 SMF26XPD CHAR(4), /* EXEC STOP DATE */ 29355004 3 SMF26OST FIXED(31), /* TOD OUTPUT PROCESSOR START */ 29405004 3 SMF26OSD CHAR(4), /* OUTPUT PROCESSOR START DATE */ 29455004 3 SMF26OPT FIXED(31), /* TOD OUTPUT PROCESSOR STOP */ 29505004 3 SMF26OPD CHAR(4); /* OUTPUT PROCESSOR STOP DATE */ 29555004 /* ACTUALS SECTION BEGINS HERE */ 29605004 DCL 1 SMF26B BASED(ADDR(SMF26LN2)+SMF26LN2) BDY(WORD), 29655004 3 SMF26LN3 PTR(15), /* LGTH OF ACTUALS SECTION */ 29705004 3 SMF26RV4 CHAR(2), /* RESV */ 29755004 3 SMF26ICD FIXED(31), /* # INPUT CARDS(JCL + DATA) */ 29805004 3 SMF26XLN FIXED(31), /* OUTPUT LINES GENERATER TO SPOOL */ 29855004 3 SMF26XPU FIXED(31), /* OUTPUT PUNCH CARDS GEN TO SPOOL */ 29905004 3 SMF26RID CHAR(4), /* INPUT PROCESSOR SYSTEM ID @Z30AQPF*/ 29955004 3 SMF26CID CHAR(4), /* JCL CONVERSION PROCESSOR 30005004 SYSTEM ID @Z30AQPF*/ 30055004 3 SMF26XID CHAR(4), /* EXECUTION PROCESSOR SYS ID @Z30AQPF*/ 30105004 3 SMF26OID CHAR(4), /* OUTPUT PROCESSOR SYSTEM ID @Z30AQPF*/ 30155004 3 SMF26JAF CHAR(42); /* JOB ACCT FIELDS(MAX LEN 42)@ZA05171*/ 30205004 %IFALR3: ; 30255004