*%GOTO IFABGN1; /* 00060002 MACRO 00070002 &NAME IFASMFR &RECTYPE */ 00072002 *%IFABGN1: ; 00080002 * /* */ 00090002 * /* MACMEAN IFASMFR MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING */ 00092002 * /* MACCOMP Y-2 SC102/BL27P */ 00094002 * /* MACSTAT Y-2 73298/42020 */ 00096000 * /* METHOD OF ACCESS */ 00098002 * /* PL/S - USER DEFINES MACRO VARIABLE IFARXX WHERE XX=RECORD NUM */ 00098402 * /* DECLARE SMFXXPTR PTR(31) OR RESPECIFY FOR BASE */ 00098802 * /* INCLUDE MACRO FROM LIBRARY */ 00099202 * /* EXAMPLE %IFAR08 = 'YES', NOTE. THE COMMA REP-*/ 00099602 * /* DCL SMF08PTR PTR(31), RESENTS A SEMI-COLON*/ 00106402 * /* %INCLUDE SYSLIB(IFASMFR), BUT ISN'T TO AVIOD */ 00109802 * /* A DIAGNOSTIC. */ 00113202 * /* */ 00113300 * /* */ 00113400 * /* THIS MACRO PROCESSES RECORDS IN THE RANGE 00-06. IT */ 00113500 * /* ACTS AS A ROUTER TO OTHER MACROS TO PROCESS OTHER */ 00113600 * /* RECORDS AS FOLLOWS: */ 00113700 * /* */ 00113800 * /* MACRO RECORDS */ 00113900 * /* ******** ******* */ 00114000 * /* IFASMFR1 07-19 */ 00114100 * /* IFASMFR2 20-27 */ 00114200 * /* IFASMFR3 28-36 */ 00114300 * /* IFASMFR4 37-46 */ 00114400 * /* IFASMFR5 47-54 */ 00114500 * /* IFASMFR6 55-69 */ 00114600 * /* IFASMFR7 70-73 */ 00114700 * /* IFASMFR8 74-79 */ 00114800 * /* IFASMFR9 80-93 */ 00114900 * /* IFASMFRA 94-103 */ 00115000 * /* IFASMFRB 104-113 */ 00115100 * /* IFAMSFRC 114-123 */ 00115200 * /* IFASMFRD 124-127 */ 00115300 *%GOTO IFABGN2; /* 00116602 .* 00133200 .* 00149800 .* CHANGE LEVEL= Z40MPTH, ZA05171, Z40FPTH, ZA10800, ZA27193 00166600 .* 00172800 .* 00179000 .* CHANGE ACTIVITY: 00185200 .* 00191400 .* $T8=UZ90390 ,EBB1102,850312,PDFS: TYPE 6 RESTRUCTURE @T8A 00197600 .* 00203800 .* 00210000 * THIS IS AN SMF MACRO WHICH CONTROLS THE BUILDING OF SMF RECORDS. THE 00216600 * REQUIRED FORMAT IS 00266600 * 00750002 * IFASMFR &RECTYPE 00800002 * 00825000 * NOTE: VALUES FOR &RECTYPE MUST BE ENCLOSED IN PARENS(UNLESS ONLY 1). 00850000 * 00950002 LCLA &NUM,&B 01500002 .* &NUM IS SET TO THE NUMBER OF SUBSTRING ITEMS IN THE FIRST PARAMETER 01550002 .* AND &B IS USED TO POINT AT EACH SUBSTRING ITEM. 01600002 AIF ('&RECTYPE' EQ '').E1 01900002 &NUM SETA N'&RECTYPE 02000002 AGO .CONTC 02050002 .CONTB ANOP 02100002 &NUM SETA &NUM-1 02150002 .CONTC ANOP 02200002 AIF (&NUM LE 0).OUT 02250002 &B SETA &B+1 02300002 .RTYCHK AIF ('&RECTYPE(&B)' EQ '').E3 02350002 AIF (&RECTYPE(&B) GT 127 OR &RECTYPE(&B) LT 0).E5 @Z40FPTH 02400000 AGO .CONTA 02450002 .E1 ANOP 02500002 SPACE 3 02550002 MNOTE 8,'PARAMETERS OMITTED, PROCESSING TERMINATED' 02600002 MEXIT 02650002 .E3 ANOP 02900002 SPACE 3 02950002 MNOTE 4,'NULL RECORD TYPE PASSED' 03000002 AGO .CONTB 03050002 .E5 ANOP 03300002 SPACE 3 03350002 MNOTE 4,'&RECTYPE(&B) INVALID RECORD TYPE SPECIFIED' 03400002 AGO .CONTB 03450002 .CONTA AIF (&RECTYPE(&B) GE 0 AND &RECTYPE(&B) LE 6).G0 03500000 AIF (&RECTYPE(&B) GE 7 AND &RECTYPE(&B) LE 19).G1 03550000 AIF (&RECTYPE(&B) GE 20 AND &RECTYPE(&B) LE 27).G2 03600000 AIF (&RECTYPE(&B) GE 28 AND &RECTYPE(&B) LE 36).G3 03650000 AIF (&RECTYPE(&B) GE 37 AND &RECTYPE(&B) LE 46).G4 03700000 AIF (&RECTYPE(&B) GE 47 AND &RECTYPE(&B) LE 54).G5 03750000 AIF (&RECTYPE(&B) GE 55 AND &RECTYPE(&B) LE 69).G6 03800000 AIF (&RECTYPE(&B) GE 70 AND &RECTYPE(&B) LE 73).G7 03850000 AIF (&RECTYPE(&B) GE 74 AND &RECTYPE(&B) LE 79).G8 03900000 AIF (&RECTYPE(&B) GE 80 AND &RECTYPE(&B) LE 93).G9 03950000 AIF (&RECTYPE(&B) GE 94 AND &RECTYPE(&B) LE 103).GA 04000000 AIF (&RECTYPE(&B) GE 104 AND &RECTYPE(&B) LE 113).GB 04050000 AIF (&RECTYPE(&B) GE 114 AND &RECTYPE(&B) LE 123).GC 04100000 AIF (&RECTYPE(&B) GE 124 AND &RECTYPE(&B) LE 127).GD 04150000 AGO .E5 06050002 .G0 ANOP 06100000 AIF (&RECTYPE(&B) EQ 0).IFAS000 06250002 AIF (&RECTYPE(&B) EQ 2).IFAS002 06350002 AIF (&RECTYPE(&B) EQ 3).IFAS003 06400002 AIF (&RECTYPE(&B) EQ 4).IFAS004 06450002 AIF (&RECTYPE(&B) EQ 5).IFAS005 06500002 AIF (&RECTYPE(&B) EQ 6).IFAS006 06700002 AGO .E5 07000002 .G1 ANOP 07037500 IFASMFR1 &RECTYPE(&B) 07075000 AGO .CONTB 07112500 .G2 ANOP 07150000 IFASMFR2 &RECTYPE(&B) 07187500 AGO .CONTB 07225000 .G3 ANOP 07262500 IFASMFR3 &RECTYPE(&B) 07300000 AGO .CONTB 07337500 .G4 ANOP 07375000 IFASMFR4 &RECTYPE(&B) 07412500 AGO .CONTB 07450000 .G5 ANOP 07487500 IFASMFR5 &RECTYPE(&B) 07525000 AGO .CONTB 07562500 .G6 ANOP 07600000 IFASMFR6 &RECTYPE(&B) 07637500 AGO .CONTB 07675000 .G7 ANOP 07712500 IFASMFR7 &RECTYPE(&B) 07750000 AGO .CONTB 07787500 .G8 ANOP 07825000 IFASMFR8 &RECTYPE(&B) 07862500 AGO .CONTB 07900000 .G9 ANOP 07937500 IFASMFR9 &RECTYPE(&B) 07975000 AGO .CONTB 08012500 .GA ANOP 08050000 IFASMFRA &RECTYPE(&B) 08087500 AGO .CONTB 08125000 .GB ANOP 08162500 IFASMFRB &RECTYPE(&B) 08200000 AGO .CONTB 08237500 .GC ANOP 08275000 IFASMFRC &RECTYPE(&B) 08312500 AGO .CONTB 08350000 .GD ANOP 08387500 IFASMFRD &RECTYPE(&B) 08425000 AGO .CONTB 08462500 .OUT MEXIT 08500002 .IFAS000 ANOP 08550002 EJECT 08600002 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 0 (IPL RECORD) 08650002 * RECORD LENGTH IS 31 BYTES 08700002 * 08750002 DS 0F ALIGN TO FULL WORD BOUNDARY 08800002 SMFRCD0 EQU * HEADER SEGMENT 08850002 SMF0LEN DS BL2'0' RECORD LENGTH 08900002 SMF0SEG DS BL2'0' SEGMENT DESCRIPTOR 08950002 SMF0FLG DC BL1'0' HEADER FLAG BYTE 09000002 SMF0RTY DC BL1'0' RECORD TYPE 0 09050002 SMF0TME DC BL4'0' TOD, USING FORMAT FROM TIME MACRO W/BIN. INTVL 09100000 SMF0DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: 00YYDDDF 09150002 SMF0SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 09250000 SMF0JWT DC BL4'0' JOB WAIT TIME DEFAULT VALUE IN MINUTES(BINARY) 09350000 SMF0BUF DC BL4'0' SMF BUFFER SIZE IN BYTES(BINARY) 09400000 SMF0VST DC BL4'0' VIRTUAL STORAGE SIZE IN K BLOCKS(BINARY)XM4432 09450000 SMF0OPT DC BL1'0' OPTIONS BYTE: 09500002 * BIT0 - SYSTEM & JOB DATA TO BE COLLECTED 09550002 * BIT1 - STEP DATA TO BE COLLECTED 09600002 * BIT2 - EXITS REQUESTED 09650002 * BIT3 - DATA SET ACCOUNTING 09700002 * BIT4 - VOLUME ACCOUNTING 09750002 * BIT5 - RESERVED(WAS ESV IN 14 AND 15) 09800002 * BIT6 - TEMPORARY-DATA-SET SCRATCH RECORDS 09850002 * BIT7 - =0 BACKGROUND JOB; =1 FOREGROUND JOB 09900002 SMF0RST DC BL4'0' REAL STORAGE SIZE IN K BLOCKS(BINARY) XM4432 09950000 AGO .CONTB 10000002 .IFAS002 ANOP 11600002 EJECT 11650002 * THIS RECORD IS WRITTEN BY THE SMF DUMP UTILITY PROGRAM AT THE 11700002 * BEGINNING OF A DUMP DATA SET. RECORD LENGTH IS 14 BYTES 11750002 * 11800002 DS 0F ALIGN TO FULL WORD BOUNDARY 11850002 SMFRCD2 EQU * HEADER SEGMENT 11900002 SMF2LEN DS BL2'0' RECORD LENGTH 11950002 SMF2SEG DS BL2'0' SEGMENT DESCRIPTOR 12000002 SMF2FLG DC BL1'0' HEADER FLAG BYTE 12050002 SMF2RTY DC BL1'0' RECORD TYPE 2 12100002 SMF2TME DC BL4'0' TOD, USING FORMAT FROM TIME MACRO W/BIN. INTVL 12150000 SMF2DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: 00YYDDDF 12200002 SMF2SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 12300000 AGO .CONTB 12400002 .IFAS003 ANOP 12450002 EJECT 12500002 * THIS RECORD IS WRITTEN BY THE SMF DUMP UTILITY PROGRAM AT THE END 12550002 * OF A DUMP DATA SET. RECORD LENGTH IS 14 BYTES. 12600002 * 12650002 DS 0F ALIGN TO FULL WORD BOUNDARY 12700002 SMFRCD3 EQU * HEADER SEGMENT 12750002 SMF3LEN DS BL2'0' RECORD LENGTH 12800002 SMF3SEG DS BL2'0' SEGMENT DESCRIPTOR 12850002 SMF3FLG DC BL1'0' HEADER FLAG BYTE 12900002 SMF3RTY DC BL1'0' RECORD TYPE 3 12950002 SMF3TME DC BL4'0' TOD, USING FORMAT FROM TIME MACRO W/BIN. INTVL 13000000 SMF3DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: 00YYDDDF 13050002 SMF3SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 13100000 AGO .CONTB 13200002 .IFAS004 ANOP 13250002 EJECT 13300002 * THIS RECORD IS WRITTEN AT NORMAL OR ABNORMAL TERMINATION OF A STEP. 13350002 * RECORD LENGTH IS VARIABLE. MINIMUM OF 137. 13400002 * 13450002 DS 0F ALIGN TO FULL WORD BOUNDARY 13500002 SMFRCD4 EQU * HEADER SEGMENT 13550002 SMF4LEN DS BL2'0' RECORD LENGTH 13600002 SMF4SEG DS BL2'0' SEGMENT DESCRIPTOR 13650002 SMF4FLG DC BL1'0' HEADER FLAG BYTE 13700002 SMF4RTY DC BL1'0' RECORD TYPE 4 13750002 SMF4TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 13800000 SMF4DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: OOYYDDDF 13850002 SMF4SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 13900000 SMF4JBN DC CL8' ' JOB NAME 14000000 SMF4RST DC BL4'0' READER START TIME (IN 100THS SECONDS) 14050000 SMF4RSD DC PL4'0000' READER START DATE 14100002 SMF4UIF DC CL8' ' USER IDENTIFICATION FIELD 14150000 SMF4STN DC BL1'0' STEP NUMBER 14200002 SMF4SIT DC BL4'0' STEP INITIATION TIME (IN 100THS SECONDS) 14250000 SMF4STID DC PL4'0000' STEP INITIATION DATE (PACKED DECIMAL FORMAT) 14300002 SMF4NCI DC BL4'0' NUMBER OF CARD IMAGES IN DD DATA OR DD * 14350000 * DATA SETS 14400002 SMF4SCC DC BL2'0' STEP COMPLETION CODE @ZA11851 14450000 SMF4PRTY DC BL1'0' PRIORITY AT WHICH STEP WAS DISPATCHED : 14500002 * ACTUAL PRIORITY=251-(15-USER PRIORITY)*16 14550002 SMF4PGMN DC CL8' ' PROGRAM NAME 14600002 SMF4STMN DC CL8' ' STEP NAME 14650002 SMF4RSH0 DC BL2'0' REGION SIZE REQ(PRIVATE AREA 1K UNIT) Y02901 14700000 SMF4PRV EQU SMF4RSH0 Y02901 14710002 SMF4SYST DC BL2'0' SYSTEM AREA USED(TOP OF PROVATE AREA) Y02901 14750000 SMF4H0ST DC BL2'0' STORAGE USED(VIRT OR REAL-SEE SMF4RIN) 14800000 SMF4STU EQU SMF4H0ST (LOW OF PRIVATE AREA) Y02901 14810002 SMF4RV1 DC BL6'0' RESERVED 14850000 SMF4SPK DC 1BL1'0' STORAGE PROTECT KEY A40791 14900002 SMF4STI DC 1BL1'0' STEP TERMINATION INDICATOR 14950002 * BIT0 - RESERVED 15000002 * BIT1 - CANCELLED AT EXIT IEFUJV 15050002 * BIT2 - CANCELLED AT EXIT IEFUJI 15100002 * BIT3 - CANCELLED AT EXIT IEFUSI 15150002 * BIT4 - CANCELLED AT EXIT IEFACTRT 15200002 * BIT5 - STEP IS TO BE RESTARTED @YL026WA 15250002 * BIT6 - 0=NORMAL COMPLETION 15300002 * 1=ABEND 15350002 * BIT7 - 1=STEP FLUSHED 15400002 SMF4RV2 DC BL2'0' RESERVED A40791 15450000 SMF4AST DC BL4'0' DEVICE ALLOC START TIME A40791 15500000 SMF4PPST DC BL4'0' PROBLEM PROGRAM START TIME A40791 15550000 SMF4RV3 DC BL1'0' RESERVED @YL026WA 15600002 SMF4SRBT DC BL3'0' STEP CPU TIME UNDER SRB(.01 SEC) @YL026WA 15610000 SMF4RIN DC BL2'0' RECORD INDICATORS 15650000 * BIT0-5 RESERVED @YM02618 15652002 * 6 =1 POSSIBLE ERROR IN DEV ENTRY @YM02618 15660002 * 7 =0 STOR IS VIRTUAL, =1 STOR IS REAL@YM02618 15700002 * 8-15 RESERVED @YM02618 15750002 SMF4RLCT DC BL2'0' OFFSET TO RELOCATE SECTION 15800000 SMF4LENN DC BL2'0' LENGTH OF EXCP PORTION OF RECORD 15850000 * FOR EACH DEVICE ASSIGNED TO EACH DATA SET THERE IS AN 8 BYTE 15900002 * ENTRY HAVING THE FOLLOWING FORMAT: 15950002 * 16000002 SMF4DEVC DC BL1'0' DEVICE CLASS 16050002 SMF4UTYP DC BL1'0' UNIT TYPE 16100002 SMF4CUAD DC BL2'0' CHANNEL AND UNIT ADDRESS 16137500 SMF4VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 16175000 SMF4EXCP DC BL4'0' COUNT OF EXCP'S ISSUED FOR THE DEVICE AND 16212500 * DATA SET 16250002 ORG SMF4DEVC 16300002 SMF4LNTH DC BL1'0' TOTAL LENGTH OF CPU AND ACCT. SECTION 16350002 SMF4SETM DC BL3'0' STEP CPU TIME UNDER TCB(.01SEC) @YL026WA 16400000 SMF4NAF DC BL1'0' NUMBER OF ACCOUNTING FIELDS 16450002 SMF4ACTF DS 0C EXEC STATEMENT ACCOUNTING FIELDS(VARIABLE) 16500002 * 16550002 * EACH ENTRY FOR AN ACCOUNTING FIELD CONTAINS THE LENGTH OF THE 16600002 * FIELD (1 BYTE,BINARY), FOLLOWED BY THE FIELD(EBCDIC).AN 16650002 * OMITTED FIELD IS REPRESENTED BY A LENGTH INDICATOR OF 0. 16700002 * 16750002 * RELOCATE SECTION 16800002 SMF4PGIN DS BL4'0' NUMBER OF PAGE-INS 16850000 SMF4PGOT DS BL4'0' NUMBER OF PAGE-OUTS 16900000 SMF4NSW DS BL4'0' NUM OF SWAPS Y02901 16910002 SMF4RGNS EQU SMF4NSW Y02901 16920002 SMF4PSI DS BL4'0' PAGES SWAPPED IN Y02901 16930002 SMF4SIN EQU SMF4PSI Y02901 16940002 SMF4PSO DS BL4'0' PAGES SWAPPED OUT Y02901 16942002 SMF4SOUT EQU SMF4PSO Y02901 16944002 SMF4VPI DS BL4'0' VAM PAGE INS Y02132 16946002 SMF4VPO DS BL4'0' VAM PAGE OUTS Y02132 16948002 * PERFORMANCE SECTION 16948100 SMF4SST DS BL4'0' STEP SERVICE TIME @YM07459 16948200 SMF4ACT DS BL4'0' STEP ACTIVE TIME @YM07459 16948300 SMF4PGNO DS BL2'0' PERFORMANCE NUMBER @YM07459 16948400 SMF4TRAN DS BL4'0' STEP TRANSACTION RESIDENCY TIME @Z40FPPF 16948500 SMF4RECL DS BL4'0' NUMBER OF RECLAIMS @Z40FPPF 16948600 SMF4RCLM DS BL4'0' NUMBER OF VIO RECLAIMS @Z40FPPF 16948700 SMF4CPGN DS BL4'0' NUMBER OF COMMON PAGE-INS @Z40FPPF 16948800 SMF4CRCL DS BL4'0' NUMBER OF COMMON RECLAIMS @Z40FPPF 16948900 SMF4PGST DS BL4'0' NUMBER OF PAGES STOLEN FROM @Z40FPPF 16949000 * THIS MEMORY @Z40FPPF 16949100 SMF4PSEC DS CL8 COUNT OF PAGE SECONDS @Z40FPPF 16949200 AGO .CONTB 16950002 .IFAS005 ANOP 17000002 EJECT 17050002 * THIS RECORD IS WRITTEN AT NORMAL OR ABNORMAL TERMINATION OF A JOB. 17100002 * RECORD LENGTH IS VARIABLE. MINIMUM OF 117. 17150002 * 17200002 DS 0F ALIGN TO FULL WORD BOUNDARY 17250002 SMFRCD5 EQU * HEADER SEGMENT 17300002 SMF5LEN DS BL2'0' RECORD LENGTH 17350002 SMF5SEG DS BL2'0' SEGMENT DESCRIPTOR 17400002 SMF5FLG DC BL1'0' HEADER FLAG BYTE 17450002 SMF5RTY DC BL1'0' RECORD TYPE 5 17500002 SMF5TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 17550000 SMF5DTE DC PL4'0000' DATE, PACKED DEC. FORM : OOYYDDDF(F IS A SIGN) 17600002 SMF5SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 17650000 SMF5JBN DC CL8' ' JOB NAME 17750000 SMF5RST DC BL4'0' READER START TIME FOR JOB (IN 100THS/SECONDS) 17800000 SMF5RSD DC PL4'0000' READER START DATE,PACKED DECIMAL FORMAT 17850002 SMF5UIF DC CL8' ' USER IDENTIFICATION FIELD 17900000 SMF5NST DC BL1'0' NUMBER OF STEPS IN THE JOB 17950002 SMF5JIT DC BL4'0' JOB INITIATION TIME (IN 100THS/SECONDS) 18000000 SMF5JID DC PL4'0000' JOB INITIATION DATE, PACKED DECIMAL FORMAT 18050002 SMF5NCI DC BL4'0' NUMBER OF CARD-IMAGE RECORDS IN DD DATA OR DD* 18100000 * DATA SETS 18150002 SMF5JCC DC BL2'0' JOB COMPLETION CODE 18200000 SMF5JPTY DC BL1'0' JOB PRIORITY 18250002 SMF5RSTT DC BL4'0' READER STOP TIME FOR JOB (IN 100THS/SECONDS) 18300000 SMF5RSTD DC PL4'0000' READER STOP DATE FOR JOB (IN PACKED DEC.FORM) 18350002 SMF5JBTI DC BL1'0' JOB TERMINATION INDICATOR 18400002 * BIT0-RESERVED 18450002 * 1-CANCELLED AT EXIT IEFUJV 18500002 * 2-CANCELLED AT EXIT IEFUJI 18550002 * 3-CANCELLED AT EXIT IEFUSI 18600002 * 4-CANCELLED AT EXIT IEFACTRT 18650002 * 5-RESERVED 18700002 * 6-O=NORMAL COMPLETION 18750002 * 1=ABEND 18800002 * 7-RESERVED 18850002 SMF5SMCI DC BL1'0' RESV-FORMERLY SYSOUT CLASSES INDICATOR Y02120 18883300 SMF5TRAN DC BL4'0' TOTAL TRANSACTION RESIDENCY TIME @ZM01380 18916600 SMF5CKRE DC BL1'0' RESV 18950002 SMF5RDCL DC BL1'0' READER DEVICE CLASS 19350002 SMF5RUTY DC BL1'0' READER UNIT TYPE 19400002 SMF5JICL DC CL1' ' JOB INPUT CLASS 19450002 SMF5SPK DC BL1'0' STORAGE PROTECT KEY A40791 19500000 SMF5SRBT DC BL3'0' JOB CPU TIME UNDER SRB(.01 SEC) @YL026WA 19550000 SMF5TJS DS BL4'0' TOTAL JOB SERVICE(SERVICE UNITS) Y02133 19560002 SMF5TTAT DS BL4'0' TOTAL TRANSACTION ACTIVE TIME FOR JOB Y02133 19570002 SMF5RV2 DS BL4'0' RESERVED @YL026WA 19580000 SMF5PGNO DC BL2'0' PERFORMANCE GROUP # @YL026WA 19590000 SMF5RV3 DC CL2' ' RESERVED @YL026WA 19592000 SMF5TLEN DC BL1'0' TOTAL LENGTH OF REST OF RECORD 19600002 SMF5PRGN DC CL20' ' PROGRAMMER'S NAME 19650000 SMF5JCPU DC BL3'0' JOB CPU TIME UNDER TCB(.01 SEC) @YL026WA 19700000 SMF5ACTF DC BL1'0' NUMBER OF ACCOUNTING FIELDS 19750002 SMF5JSAF DS 0C JOB STATEMENT ACCOUNTING FIELDS(VARIABLE) 19800002 * 19850002 * EACH ENTRY FOR AN ACCOUNTING FIELD CONTAINS THE LENGTH OF THE 19900002 * FIELD(1 BYTE,BINARY),FOLLOWED BY THE FIELD (EBCDIC).AN OMITTED 19950002 * FIELD IS REPRESENTED BY A LENGTH INDICATOR OF 0. 20000002 AGO .CONTB 20050002 .IFAS006 ANOP 20100002 EJECT 20150002 * IN JES2, THIS RECORD IS WRITTEN FOR EACH JOB OUTPUT ELEMENT, @YL02120 20200002 * WHICH REPRESENTS A GROUP OF DS DIFFERENTIATED BY PUNCH OR @YL02120 20250002 * PRINTER SETUP & TYPE OF OUTPUT(EG HELD VS NON-HELD). @YL02120 20260002 * FOR JES3, WRITTEN FOR EACH COPY OF A DATA SET @T8C 20310000 * 20355000 DS 0F ALIGN TO FULL WORD BOUNDARY 20400002 SMFRCD6 EQU * HEADER SEGMENT 20450002 SMF6LEN DS BL2'0' RECORD LENGTH 20500002 SMF6SEG DS BL2'0' SEGMENT DESCRIPTOR 20550002 SMF6FLG DC BL1'0' HEADER FLAG BYTE 20600002 SMF6RTY DC BL1'0' RECORD TYPE 6 20650002 SMFJ6 EQU 6 PRINT/PUNCH RECORD TYPE @T8A 20675000 SMF6TME DC BL4'0' TOD, USING FORMAT FROM TIME MACRO W/BIN. INTVL 20700000 SMF6DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: 00YYDDDF 20750002 SMF6SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 20850000 SMF6JBN DC CL8' ' JOB NAME 20950000 SMF6RST DC BL4'0' RDR START TIME, TIME JOB CARD 1ST READ @YL02120 21000000 SMF6RSD DC PL4'0000' READER START DATE 00YYDDDF 21050002 SMF6UIF DC CL8' ' USER ID FIELD 21100002 SMF6OWC DC CL1' ' OUTPUT WTR CLASS, BLANK FOR NON-SYSOUT @YL02120 21150002 SMF6WST DC BL4'0' WRITER START TIME 21200000 SMF6WSD DC PL4'0000' WRITER START DATE 21250002 SMF6NLR DC BL4'0' # OF LOGICAL RECORDS HANDLED BY WRITER @YL02120 21300000 * PER FORM # PER CLASS, INCLUDES REPEATS @YL02120 21350002 * AND RESTARTS. @YL02120 21370002 SMF6IOE DC BL1'0' IO ERROR INDICATOR: 21400002 * BITS 0-4 RESERVED Y02120 21450002 SMF6DIE EQU X'04' 5 - DATA INPUT ERROR @ZA05171 21550000 * 6 - RESV Y02120 21600002 SMFCBIE EQU X'01' 7 - CONTROL BLOCK INPUT ERROR @ZA05171 21650000 SMF6NDS DC BL1'0' # OF DATA SETS PROCESSED BY THE OUTPUT Y02120 21700002 * WRITER AND INCLUDED IN THIS RECORD. Y02120 21750002 * (COUNT FOR EACH TIME A DS IS PRINTED) Y02120 21760002 * DOES NOT INCLUDE RESTARTS. @YL02120 21770002 SMF6FMN DC CL4' ' FORM NUMBER 21776000 SMF6PAD1 DC BL1'0' STATUS INDICATORS @YL02120 21782000 * BIT MEANING @ZA10800 21788000 SMF6FEXT EQU X'80' 0 1 - FIRST EXTENSION PRESENT @ZA10800 21800000 * 1-7 RESERVED @ZA10800 21806000 SMF6SBS DS BL2 SUBSYSTEM GENERATING ID @YL02120 21812002 * EXTWTR=0, JES2=2, JES3=5 @T8C 21814000 SMF6LN1 DS BL2 LENGTH OF SECTION INCLUDING THIS FIELD @T8C 21816000 SMF6DCI DS BL1 DS CONTROL INDICATORS FOR DATA GROUP @T8C 21818000 SMF6DCRV EQU X'80' 0 - RESERVED @T8C 21818400 SMF6SDS EQU X'40' 1 - SPUN OFF DS @ZA05171 21818900 SMF6OCN EQU X'20' 2 - TERMINATED BY OPERATOR @ZA05171 21819400 SMF6ORD EQU X'10' 3 - INTERRUPTED BY OPERATOR (JES2) @ZA05171 21819900 * OPERATOR RESTARTED DATA SET @ZA05171 21820400 * WITH DESTINATION (JES3) @ZA05171 21820900 SMF6OR EQU X'08' 4 - RESTARTED BY OPERATOR @ZA05171 21821400 SMF6ROR EQU X'04' 5 - CONT OF INTERRUPTED GROUP (JES2) @ZA05171 21821900 * RECEIVED OP RESTARTED DS(JES3) @ZA05171 21822400 SMF6OSS EQU X'02' 6 - CARRIAGE OVERRIDEN BY OPER(JES2) @ZA05171 21822900 * OPERATOR STARTED WITH @ZA05171 21823400 * SINGLE SPACE(JES3) @ZA05171 21823900 SMF6INT EQU X'01' 7 - PUNCH WAS INTERPRETED @ZA05171 21824400 SMF6INDC DS BL1 INDICATOR BITS @T8A 21824500 * BITS 0-3 ARE RESERVED FOR FUTURE EXPANSION @T8A 21824600 * OF DATASET CONTROL INDICATORS @T8A 21824700 * BITS 4-7 ARE RECORD LEVEL INDICATORS IN @T8A 21824800 * BIT VALUE FORMAT. EXAMPLE: LEVEL 1=X'01' @T8A 21824900 * LEVEL 12=X'0C' @T8A 21825000 * LEVEL 15=X'0F' @T8A 21825100 * THIS NUMBER WILL BE INCREMENTED BY 1 @T8A 21825200 * EACH TIME A NEW RELEASE CHANGES THE RECORD @T8A 21825300 SMF6LEV2 EQU X'01' THIS VARIABLE IS FOR JES2 TO SET THE LEVEL @T8A 21825400 * INDICATOR BITS. SMF WILL UPDATE THIS @T8A 21825500 * COUNT EACH TIME JES2 REQUESTS AN UPDATE TO @T8A 21825600 * THIS RECORD. @T8A 21825700 SMF6LEV3 EQU X'01' THIS VARIABLE IS FOR JES3 TO SET THE LEVEL @T8A 21825800 * INDICATOR BITS. SMF WILL UPDATE THIS @T8A 21825900 * COUNT EACH TIME JES3 REQUESTS AN UPDATE TO @T8A 21826000 * THIS RECORD. @T8A 21826100 SMF6JNM DS CL4 JES ASSIGNED JOB NUMBER @YL02120 21826702 SMF6OUT DS CL8 LOGICAL OUTPUT DEVICE NAME @YL02120 21830002 SMF6FCB DS CL4 FCB ID Y02120 21840002 SMF6UCS DS CL4 UCS ID Y02120 21842002 * END OF RECORD FOR EXTERNAL WTR @YM04806 21842400 SMF6PGE DS BL4 APPROX PAGE COUNT(SKIP TO CHANNEL 1) @YL02120 21844002 * @YL02120 21844402 SMF6J2S EQU * BEGIN JES2 ONLY SECTION @YL02120 21844802 SMF6RTE DS BL2 OUTPUT ROUTE CODE OR ZERO @T8C 21845200 SMF6END2 DS 0X END OF JES2 RECORD @T8A 21845600 SMF6SIZ2 DS 0XL(SMF6END2-SMFRCD6) SIZE OF JES2 SMF6 RECORD @T8A 21846000 * EXCLUDING OPTIONAL EXTENSIONS @T8A 21846400 SMF6SIZ3 DS 0XL(SMF6END2-SMF6LN1) SIZE OF JES2 SMF6 RECORD @T8A 21846800 * FROM SMF6LN1 TO HERE @T8A 21847200 * @YL02120 21848002 ORG SMF6J2S @YL02120 21848402 SMF6J3S EQU * BEGIN JES3 ONLY SECTION @YL02120 21848502 SMF6DFE DS BL2 DATA FORMAT ERROR INDICATORS @YL02120 21848802 * BITS 0-5 RESV @YL02120 21849202 SMF6CCE EQU X'02' 6 - SOME 1ST CHAR CONTROL DATA BAD, @ZA05171 21849600 * DEFAULT USED @YL02120 21849702 SMF6RBE EQU X'01' 7 - BAD RECORD LENGTH(TRUNCATE OR PAD) @ZA05171 21849800 * 8-15 RESV @YL02120 21849902 SMF6OPR DS BL2 OUTPUT PRIORITY @YL02120 21866602 SMF6GRP DS CL8 LOGICAL OUTPUT DEVICE GROUP NAME @YL02120 21876602 SMF6RSVJ DS CL8 RESERVED FOR JES3 @ZA05171 21876900 SMF6RSVU DS CL4 RESERVED FOR USER @ZA05171 21877200 SMF6END DS 0X END OF JES3 BASE RECORD @ZA05171 21877500 SMF6SIZ DS 0XL(SMF6END-SMFRCD6) SIZE OF JES3 SMF6 RECORD @ZA05171 21877800 * EXCLUDING OPTIONAL EXTENSIONS @T8A 21877900 SMF6LSIZ DS 0XL(SMF6END-SMF6LN1) SIZE OF JES3 SMF6 RECORD @T8A 21878000 * FROM SMF6LN1 TO HERE @T8A 21878100 * @T8C 21878200 * FIRST EXTENSION - NON-IMPACT PRINTING SUBSYSTEM SECTION @T8C 21878300 * THIS SECTION WILL ONLY BE PRESENT WHEN @T8A 21878400 * SMF6SBS IS SET TO 2 OR 5 INDICATING THAT @T8A 21878500 * JES2 OR JES3 HAS GENERATED THIS RECORD @T8A 21878600 * @T8A 21878700 ORG SMF6LN1 @ZA27193 21878800 SMF6LN2 DS BL2 LENGTH FIRST EXTENSION INCLUDING THIS FLD @T8C 21878900 SMF6CPS DS 8CL1 COPIES DISTRIBUTION @ZA10800 21879300 SMF6CHR DS 4CL4 TRANSLATE TABLE NAMES FRO CHARS PARM @ZA10800 21879600 SMF6MID DS CL4 COPY MODIFICATION MODULE NAME @ZA10800 21879900 SMF6FLI DS CL4 FLASH OVERLAY NAME @ZA10800 21880200 SMF6FLC DS BL1 NUMBER OF COPIES FLASHED @ZA10800 21880500 SMF6BID DS BL1 FLAG BYTE @ZA10800 21880800 SMF6BTS EQU X'80' THE BTSS WAS USED FOR OUTPUT @ZA10800 21881100 SMF6OPJ EQU X'40' OPTCD=J WAS USED FOR OUTPUT @ZA10800 21881400 SMF6FEND DS 0X END OF FIRST EXTENSION @T8A 21882000 SMF6FSIZ DS 0XL(SMF6FEND-SMF6LN2) SIZE OF FIRST EXTENSION @T8A 21882600 AGO .CONTB 21883302 MEND */ 61681902 %IFABGN2:; 61682302 %IFAL00: IF IFAR00='' %THEN %GOTO IFAL01; 61682702 DCL 1 SMFRCD00 BASED(SMF00PTR) BDY(WORD), 61683102 /* RECORD TYPE 0 - IPL */ 61683502 /* FIRST RECORD WRITTEN DURING IPL - OPTIONS IN EFFECT */ 61683902 3 SMF0LEN FIXED(15), /* RDW RECORD LENGTH */ 61684302 3 SMF0SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 61684702 3 SMF0FLG BIT(8), /* OPERATING ENVIRONMENT */ 61685102 3 SMF0RTY FIXED(8), /* RECORD TYPE 0 */ 61685502 3 SMF0TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 61685902 3 SMF0DTE CHAR(4), /* DATE RECORD WRITTEN */ 61686302 3 SMF0SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 61686702 3 SMF0JWT FIXED(31) BDY(BYTE), 61687102 /* CONTINUOUS WAIT TIME LIMIT(MIN) */ 61687502 3 SMF0BUF FIXED(31) BDY(BYTE), /* VALUE OF BUF KEYWORD */ 61687902 3 SMF0VST FIXED(31) BDY(BYTE), /* VIRTUAL MEMORY SIZE(1K) */ 61688302 3 SMF0OPT BIT(8), /* SMF OPTIONS BYTE 61688702 0-SYSTEM AND JOB 61689102 1-STEP 61689502 2-EXITS TAKEN 61689902 3-DATA SET 61691902 4-DASD VOLUMES 61693902 5-RESERVED 61695902 6-SCRATCH FOR TEMPORARIES 61697902 7-=0 FOR BKGD, =1 FOR FRGD */ 61698302 3 SMF0RST FIXED(31) BDY(BYTE); /* REAL STORAGE SIZE(1K) */ 61698702 %IFAL01:; 61699102 %IFAL02: IF IFAR02='' %THEN %GOTO IFAL03; 61709102 DCL 1 SMFRCD02 BASED(SMF02PTR) BDY(WORD), 61719102 /* RECORD TYPE 2 - DUMP HEADER */ 61729102 /* WRITTEN AT BEGINNING OF SMF DUMP FILE */ 61739102 3 SMF2LEN FIXED(15), /* RDW RECORD LENGTH */ 61743102 3 SMF2SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 61745102 3 SMF2FLG BIT(8), /* OPERATING ENVIRONMENT */ 61747102 3 SMF2RTY FIXED(8), /* RECORD TYPE 2 */ 61747502 3 SMF2TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 61747902 3 SMF2DTE CHAR(4), /* DATE RECORD WRITTEN */ 61748302 3 SMF2SID CHAR(4); /* SYSTEM ID FROM INSTALLATION */ 61748702 %IFAL03: IF IFAR03='' %THEN %GOTO IFAL04; 61748802 DCL 1 SMFRCD03 BASED(SMF03PTR) BDY(WORD), 61748902 /* RECORD TYPE 3 - DUMP TRAILER */ 61749002 /* WRITTEN AT END OF SMF DUMP FILE */ 61765702 3 SMF3LEN FIXED(15), /* RDW RECORD LENGTH */ 61777702 3 SMF3SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 61779702 3 SMF3FLG BIT(8), /* OPERATING ENVIRONMENT */ 61781702 3 SMF3RTY FIXED(8), /* RECORD TYPE 3 */ 61782102 3 SMF3TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 61782202 3 SMF3DTE CHAR(4), /* DATE RECORD WRITTEN */ 61782302 3 SMF3SID CHAR(4); /* SYSTEM ID FROM INSTALLATION */ 61787902 %IFAL04: IF IFAR04='' %THEN %GOTO IFAL05; 61793502 DCL 1 SMFRCD04 BASED(SMF04PTR) BDY(WORD), 61843502 /* RECORD TYPE 4 - STEP TERMINATE */ 61849102 /* WRITTEN AT NORMAL OR ABNORMAL TERMINATION OF A BGD JOB STEP */ 61899102 3 SMF4LEN FIXED(15), /* RDW RECORD LENGTH */ 61999102 3 SMF4SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 62049102 3 SMF4FLG BIT(8), /* OPERATING ENVIRONMENT */ 62099102 3 SMF4RTY FIXED(8), /* RECORD TYPE 4 */ 62149102 3 SMF4TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 62199102 3 SMF4DTE CHAR(4), /* DATE RECORD WRITTEN */ 62249102 3 SMF4SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 62299102 3 SMF4JBN CHAR(8), /* JOB NAME */ 62349102 3 SMF4RST FIXED(31) BDY(BYTE), /* READER START TIME(.01 SEC)*/ 62399102 3 SMF4RSD CHAR(4), /* READER START DATE */ 62449102 3 SMF4UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 62499102 3 SMF4STN FIXED(8), /* STEP NUMBER */ 62549102 3 SMF4SIT FIXED(31) BDY(BYTE), /* STEP INITIATION TIME */ 62599102 3 SMF4STID CHAR(4), /* STEP INITATION DATE */ 62649102 3 SMF4NCI FIXED(31) BDY(BYTE), /* SPOOL IN COUNT */ 62699102 3 SMF4SCC FIXED(16) BDY(BYTE), /* STEP COMPLETION CODE */ 62749102 3 SMF4PRTY FIXED(8), /* DISPATCHING PRIORITY */ 62799102 3 SMF4PGMN CHAR(8), /* PROGRAM NAME */ 62849102 3 SMF4STMN CHAR(8), /* STEP NAME */ 62899102 3 SMF4PRV FIXED(16), /* REG REQ IN PRIVATE AREA(1K) */ 62949102 5 SMF4RSH0 FIXED(16), 62999102 3 SMF4SYST FIXED(16), /* SYS AREA USED-TOP OF PRIVATE(1K)*/ 63049102 3 SMF4STU FIXED(16), /* STOR USED-LOW OF PRIVATE(1K) */ 63099102 5 SMF4H0ST FIXED(16), 63149102 3 SMF4RV1 CHAR(6), /* RESV */ 63199102 3 SMF4SPK FIXED(8), /* STORAGE PROTECT KEY */ 63249102 3 SMF4STI BIT(8), /* STEP TERMINATION INDICATOR 63299102 0-RESV 63349102 1-CANCELLED AT EXIT IEFUJV 63399102 2-CANCELLED AT EXIT IEFUJI 63449102 3-CANCELLED AT EXIT IEFUSI 63499102 4-CANCELLED AT EXIT IEFACTRT 63549102 5-STEP TO BE RESTARTED @YL026WA 63599102 6-ABEND 63649102 7-STEP FLUSHED */ 63699102 3 SMF4RV2 CHAR(2), /* RESV */ 63749102 3 SMF4AST FIXED(31) BDY(BYTE), /* DEVICE ALLOC START TIME */ 63799102 3 SMF4PPST FIXED(31) BDY(BYTE), /* PROB PROG START TIME */ 63849102 3 SMF4RV3 CHAR(1), /* RESV @YL026WA*/ 63899102 3 SMF4SRBT PTR(24) BDY(BYTE), /* STEP CPU UNDER SRB @YL026WA*/ 63909102 3 SMF4RIN BIT(16), /* RECORD INDICATORS */ 63949102 5 * BIT(6), /* 0-5 RESV @YM02618*/ 63999102 5 SMF4IEX BIT(1), /* 6 POSSIBLE ERROR IN DEV ENTRY */ 64009102 5 * BIT(9), /* 7 =0 VIRT, =1 REAL STORAGE 64049102 8-15 RESV */ 64099102 3 SMF4RLCT FIXED(15), /* OFFSET TO RELOCATE SECTION */ 64149102 3 SMF4LENN FIXED(15); /* LGTH OF EXCP SECTION + THESE 2 */ 64199102 DCL 1 SMF4EXPS BASED BDY(WORD), /* EXCP SECTION, ENTRY FOR EACH 64249102 DEVICE OF EACH NON-SPOOLED DS */ 64299102 3 SMF4CUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 64349102 5 SMF4DEVC CHAR(1), /* DEVICE CLASS */ 64399102 5 SMF4UTYP CHAR(1), /* UNIT TYPE */ 64449102 3 SMF4CUAD CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 64499102 4 SMF4VDV BIT(1), /* VIRTUAL DEVICE @Y30AQPF*/ 64524100 3 SMF4EXCP FIXED(31); /* EXCP COUNT FOR DEVICE OF DS */ 64549102 DCL 1 SMF4CPUA BASED BDY(WORD), /* CPU TIME AND ACCT SECTION HDR */ 64599102 3 SMF4LNTH FIXED(8), /* LGTH OF CPU AND ACCT SECTIONS */ 64649102 3 SMF4SETM PTR(24), /*STEP CPU UNDER TCB(.01 S)@YL026WA*/ 64699102 3 SMF4NAF PTR(8); /* NUM OF ACCT FIELDS IN ACCT SECT */ 64709102 DCL 1 SMF4ACTF BASED BDY(BYTE), /* ACCT SECTION */ 64749102 3 SMF4ANC PTR(8), /* # CHAR IN THIS ACCT FIELD */ 64799102 3 SMF4BCD CHAR(*); /* ACCT FIELD CHARACTERS */ 64849102 DCL 1 SMF4RELS BASED BDY(BYTE), /* RELOCATE SECTION */ 64899102 3 SMF4PGIN FIXED(31) BDY(BYTE), /* # OF PAGE-INS */ 64949102 3 SMF4PGOT FIXED(31) BDY(BYTE), /* # OF PAGE-OUTS */ 64999102 3 SMF4NSW FIXED(31) BDY(BYTE), /* # OF SWAPS */ 65049102 5 SMF4RGNS FIXED(31) BDY(BYTE), 65099102 3 SMF4PSI FIXED(31) BDY(BYTE), /* # OF PAGES SWAPPED IN */ 65149102 5 SMF4SIN FIXED(31) BDY(BYTE), 65199102 3 SMF4PSO FIXED(31) BDY(BYTE), /* # OF PAGES SWAPPED OUT */ 65249102 5 SMF4SOUT FIXED(31) BDY(BYTE), 65299102 3 SMF4VPI FIXED(31) BDY(BYTE), /* # OF VIO PAGE-INS */ 65349102 3 SMF4VPO FIXED(31) BDY(BYTE), /* # OF VIO PAGE-OUTS 65353600 @Z40FPPF*/ 65358100 3 SMF4SST FIXED(31) BDY(BYTE), /* STEP SERVICE TIME @YM07459*/ 65362600 3 SMF4TAT FIXED(31) BDY(BYTE), /* STEP TRANSACTION ACTIVE 65367100 TIME @YM07459*/ 65371600 3 SMF4PGNO FIXED(16), /* PERFORMANCE GROUP NUMBER 65376100 @YM07459*/ 65380600 3 SMF4TRAN FIXED(31) BDY(BYTE), /* STEP TRANSACTION RESIDENCY 65385100 TIME @Z40FPPF*/ 65389600 3 SMF4RECL FIXED(31) BDY(BYTE), /* NUMBER OF RECLAIMS 65394100 @Z40FPPF*/ 65398600 3 SMF4RCLM FIXED(31) BDY(BYTE), /* NUMBER OF VIO RECLAIMS 65403100 @Z40FPPF*/ 65407600 3 SMF4CPGN FIXED(31) BDY(BYTE), /* NUMBER OF COMMON PAGE-INS 65412100 @Z40FPPF*/ 65416600 3 SMF4CRCL FIXED(31) BDY(BYTE), /* NUMBER OF COMMON RECLAIMS 65421100 @Z40FPPF*/ 65425600 3 SMF4PGST FIXED(31) BDY(BYTE), /* NUMBER OF PAGES STOLEN 65430100 FROM THIS MEMORY @Z40FPPF*/ 65434600 3 SMF4PSEC CHAR(8); /* COUNT OF PAGE SECONDS 65439100 @Z40FPPF*/ 65443600 %IFAL05: IF IFAR05='' %THEN %GOTO IFAL06; 65449102 DCL 1 SMFRCD05 BASED(SMF05PTR) BDY(WORD), 65499102 /* RECORD TYPE 5 - JOB TERMINATION */ 65549102 /* WRITTEN AT NORMAL OR ABNORMAL TERMINATION OF A JOB */ 65599102 3 SMF5LEN FIXED(15), /* RDW RECORD LENGTH */ 65699102 3 SMF5SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 65749102 3 SMF5FLG BIT(8), /* OPERATING ENVIRONMENT */ 65799102 3 SMF5RTY FIXED(8), /* RECORD TYPE 5 */ 65849102 3 SMF5TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 65899102 3 SMF5DTE CHAR(4), /* DATE RECORD WRITTEN */ 65949102 3 SMF5SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 65999102 3 SMF5JBN CHAR(8), /* JOB NAME */ 66049102 3 SMF5RST FIXED(31) BDY(BYTE), /*READER START TIME (.01 SEC)*/ 66099102 3 SMF5RSD CHAR(4), /* READER START DATE */ 66149102 3 SMF5UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 66199102 3 SMF5NST FIXED(8), /* # OF STEPS IN JOB */ 66249102 3 SMF5JIT FIXED(31) BDY(BYTE), /* JOB INITIATION TIME */ 66299102 3 SMF5JID CHAR(4), /* JOB INITATION DATE */ 66349102 3 SMF5NCI FIXED(31) BDY(BYTE), /* SPOOL-IN COUNT FOR JOB */ 66399102 3 SMF5JCC FIXED(16) BDY(BYTE), /* JOB COMPLETION CODE */ 66449102 3 SMF5JPTY FIXED(8), /* JOB PRIORITY */ 66499102 3 SMF5RSTT FIXED(31) BDY(BYTE), /* READER STOP TIME(.01 SEC)*/ 66549102 3 SMF5RSTD CHAR(4), /* READER STOP DATE */ 66599102 3 SMF5JBTI BIT(8), /* JOB TERMINATION INDICATORS 66649102 0-RESV 66699102 1-CANCELLED AT EXIT IEFUJV 66749102 2-CANCELLED AT EXIT IEFUJI 66799102 3-CANCELLED AT EXIT IEFUSI 66849102 4-CANCELLED AT EXIT IEFACTRT 66899102 5-RESV 66949102 6-ABEND 66999102 7-RESV */ 67049102 3 SMF5SMCI CHAR(1), /* RESV-FORMERLY SYSOUT CLASS IND */ 67074100 3 SMF5TRAN FIXED(31) BDY(BYTE), /* TOTAL TRANSACTION 67099100 RESIDENCY TIME @ZM01380*/ 67124100 3 SMF5CKRE CHAR(1), /* RESV */ 67149102 3 SMF5RDCL CHAR(1), /* READER DEVICE CLASS */ 67199102 3 SMF5RUTY CHAR(1), /* READER UNIT TYPE */ 67249102 3 SMF5JICL CHAR(1), /* JOB INPUT CLASS */ 67299102 3 SMF5SPK FIXED(8), /* STORAGE PROTECT KEY */ 67349102 3 SMF5SRBT PTR(24), /* JOB CPU UNDER SRB(.01 S)@YL026WA*/ 67399102 3 SMF5TJS FIXED(31) BDY(BYTE), /* TOTAL JOB SERV(SERV UNITS)*/ 67449102 3 SMF5TTAT FIXED(31) BDY(BYTE), /* TOTAL TRANSACTION ACTIVE 67499102 TIME FOR JOB */ 67549102 3 SMF5RV2 CHAR(4), /* RESV @YL026WA*/ 67599102 3 SMF5PGNO FIXED(16), /* PERFORMANCE GROUP # @YL026WA*/ 67609102 3 SMF5RV3 CHAR(2), /* RESERVED @YL026WA*/ 67619100 3 SMF5TLEN FIXED(8), /* LGTH OF REMAINDER OF RECORD */ 67649102 3 SMF5PRGN CHAR(20), /* PROGRAMMER'S NAME */ 67699102 3 SMF5JCPU FIXED(24) BDY(BYTE), /*JOB CPU TCB(.01 S)@YL026WA*/ 67749102 3 SMF5ACTF FIXED(8); /* # OF ACCT FIELDS IN ACCT SECTION*/ 67799102 DCL 1 SMF5JSAF BASED BDY(BYTE), /* ACCT SECTION */ 67849102 3 SMF5ANC PTR(8), /* # CHAR IN THIS ACCT FIELD */ 67899102 3 SMF5BCD CHAR(*); /* ACCT FIELD CHARACTERS */ 67949102 %IFAL06: IF IFAR06='' %THEN %GOTO IFALR1; 67999100 DCL 1 SMFRCD06 BASED(SMF06PTR) BDY(WORD), 68009102 /* RECORD TYPE 6 - SYSOUT WRITER @ZA10800*/ 68019100 /* IN JES2, WRITTEN FOR EACH JOB OUTPUT ELEMENT, WHICH @YL02120 68029102 REPRESENTS A GROUP OF DS DIFFERENTIATED BY PUNCH OR @YL02120 68039102 PRINTER SETUP & TYPE OF OUTPUT(EG HELD VS NON-HELD). @YL02120 68039502 IN JES3, WRITTEN FOR EACH COPY OF A DATA SET @T8C*/ 68040300 3 SMF6LEN FIXED(15), /* RDW RECORD LENGTH */ 68041102 3 SMF6SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 68043102 3 SMF6FLG BIT(8), /* OPERATING ENVIRONMENT */ 68045102 3 SMF6RTY FIXED(8), /* RECORD TYPE 6 */ 68047102 3 SMF6TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 68047502 3 SMF6DTE CHAR(4), /* DATE RECORD WRITTEN */ 68047902 3 SMF6SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 68048302 3 SMF6JBN CHAR(8), /* JOB NAME FROM JMR */ 68048702 3 SMF6RST FIXED(31) BDY(BYTE), /*READER START TIME (.01 SEC)*/ 68048802 3 SMF6RSD CHAR(4), /* READER START DATE */ 68048902 3 SMF6UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 68049002 3 SMF6OWC CHAR(1), /* OUTPUT WRITER CLASS- 68065702 BLANK FOR NON SYSOUT @YL02120*/ 68067702 3 SMF6WST FIXED(31) BDY(BYTE), /* TOD WRITER START */ 68075702 3 SMF6WSD CHAR(4), /* WRITER START DATE */ 68077702 3 SMF6NLR FIXED(31) BDY(BYTE), /* # LOGICAL RECORDS WRITTEN */ 68079702 3 SMF6IOE BIT(8), /* IO ERROR INDICATOR */ 68081702 5 * BIT(5), /* RESERVED @ZA05171*/ 68081900 5 SMF6DIE BIT(1), /* DATA INPUT ERROR @ZA05171*/ 68082100 5 * BIT(1), /* RESERVED @ZA05171*/ 68082300 5 SMF6CBIE BIT(1), /*CONTROL BLOCK INPUT ERROR@ZA05171*/ 68082500 3 SMF6NDS FIXED(8), /* # DS PROCESSED BY WRITER */ 68082700 3 SMF6FMN CHAR(4), /* FORM NUMBER */ 68082900 3 SMF6PAD1 BIT(8), /* EXTENSION INDICATOR @ZA10800*/ 68083100 5 SMF6FEXT BIT(1), /* FIRST EXTENSION PRESENT @T8C*/ 68083300 5 * BIT(7), /* RESERVED @ZA10800*/ 68083500 3 SMF6SBS FIXED(15), /* SUBSYSTEM GENERATING ID 68084302 EXTWTR=0, JES2-2, JES3-5 @T8C*/ 68086300 3 SMF6LN1 FIXED(15), /* LGTH OF SECTION INCLUDING SELF */ 68086702 3 SMF6DCI BIT(8), /* DATA SET CONTROL INDICATORS @T8C*/ 68087400 5 SMF6DCRV BIT(1), /* RESERVED @T8A*/ 68088100 5 SMF6SDS BIT(1), /* SPUN OFF DATA SET @ZA05171*/ 68088800 5 SMF6OCN BIT(1), /* TERMINATED BY OPERATOR @ZA05171*/ 68089500 5 SMF6ORD BIT(1), /* INTERRUPTED BY OPERATOR(JES2) 68090200 OPERATOR RESTARTED DATA SET WITH 68090900 DESTINATION(JES3) @ZA05171*/ 68091600 5 SMF6OR BIT(1), /* RESTARTED BY OPERATOR @ZA05171*/ 68092300 5 SMF6ROR BIT(1), /* CONTINUATION OF INTERRUPTED 68093000 GROUP(JES2) 68093700 RECEIVED OP RESTARTED DS(JES3) 68094400 @ZA05171*/ 68095100 5 SMF6OSS BIT(1), /* CARRIAGE OVERRIDEN BY 68095800 OPERATOR(JES2) 68096500 OPERATOR STARTED WITH SINGLE 68097200 SPACE(JES3) @ZA05171*/ 68097900 5 SMF6INT BIT(1), /* PUNCH WAS INTERRUPTED @ZA05171*/ 68098600 3 SMF6INDC BIT(8), /* BIT INDICATORS. BITS 0-3 ARE 68098800 RESERVED FOR FUTURE EXPANSION 68099000 OF DATA SET CONTROL INDICATORS. 68099200 BITS 4-7 ARE RECORD LEVEL 68099400 INDICATORS TO BE SET IN 68099600 BIT VALUE FORMAT. EXAMPLE: 68099800 LEVEL 1=X'01', LEVEL 12=X'0C'. 68100000 THIS NUMBER WILL BE INCREMENTED 68100200 BY 1 EACH TIME A NEW RELEASE 68100400 CHANGES THE RECORD. @T8A*/ 68100600 3 SMF6JNM CHAR(4), /* JES ASSIGNED JOB NUMBER @YL02120*/ 68100802 3 SMF6OUT CHAR(8), /* LOGICAL OUTPUT DEV NAME @YL02120*/ 68106902 3 SMF6FCB CHAR(4), /* FCB ID */ 68113002 3 SMF6UCS CHAR(4), /* UCS ID, END OF REC FOR EXT WTR */ 68119100 3 SMF6PGE FIXED(31) BDY(BYTE), /* APPROX PAGE COUNT @YL026WA*/ 68125202 3 SMF6J2S CHAR(2), /* SPECIAL JES2 SECTION @T8C*/ 68128000 5 SMF6RTE FIXED(15) BDY(BYTE), /* OUTPUT ROUTE CODE 68130800 OR ZERO @T8C*/ 68133600 3 SMF6END2 CHAR(0); /* END OF JES2 BASE RECORD @T8A*/ 68136400 DCL 1 * CHAR(24) DEFINED(SMF6J2S), /* @T8A*/ 68139200 3 SMF6J3S CHAR(24), /* SPECIAL JES3 SECTION @T8C*/ 68142000 5 SMF6DFE BIT(16), /* DATA FORMAT ERROR INDICATORS */ 68144800 7 * BIT(6), /* 0-5 RESERVED @T8C*/ 68147600 7 SMF6CCE BIT(1), /* 6-ONE OR MORE RECORDS CONTAINED 68150400 INVALID 1ST CHAR CONTROL DATA, 68153702 DEFAULT SUBSTITUTED @T8C*/ 68177600 7 SMF6RBE BIT(1), /* 7-INVALID LGTH REC IN DATA, 68201500 TRUNCATED OR PADDED @T8C*/ 68225400 7 * BIT(8), /* 8-15 RESERVED @T8C*/ 68249300 5 SMF6OPR FIXED(16) BDY(BYTE), /* OUTPUT PRIORITY @T8C*/ 68273200 5 SMF6GRP CHAR(8), /*LOG OUTPUT DEV GROUP NAME @T8C*/ 68297100 5 SMF6RSVJ CHAR(8), /*RESERVED FOR JES3 @T8C*/ 68321000 5 SMF6RSVU CHAR(4), /*RESERVED FOR USER @T8C*/ 68344900 3 SMF6END CHAR(0); /* END OF JES3 BASE RECORD @T8C*/ 68368800 /* BEGINNING OF FIRST EXTENSION - THIS SECTION WILL ONLY BE 68392700 PRESENT WHEN SMF6SBS IS SET TO 2 OR 5 INDICATING THAT 68416600 JES2 OR JES3 HAS GENERATED THIS RECORD. @T8A*/ 68440500 DCL 1 SMF6EXT1 BASED, /* FIRST EXTENSION - NON-IMPACT 68464400 PRINTING SUBSYSTEM SECTION @T8C*/ 68488300 3 SMF6LN2 FIXED(15), /* LENGTH OF FIRST EXTENSION 68512200 INCLUDING THIS FIELD @T8C*/ 68536100 3 SMF6CPS(8) CHAR(1), /* COPIES DISTRIBUTION @ZA10800*/ 68560400 3 SMF6CHR CHAR(16), /* TRANSLATE TABLE NAMES @ZA10800 68610400 FROM CHARS PARAMETER @ZA10800*/ 68660400 3 SMF6MID CHAR(4), /* COPY MODIFICATION @ZA10800 68710400 MODULE NAME @ZA10800*/ 68760400 3 SMF6FLI CHAR(4), /* FLASH OVERLAY NAME @ZA10800*/ 68810400 3 SMF6FLC BIT(8), /* NUMBER OF COPIES FLASHED@ZA10800*/ 68860400 3 SMF6BID BIT(8), /* FLAG BYTE @ZA10800*/ 68910400 4 SMF6BTS BIT(1), /* THE BTSS WAS USED FOR @ZA10800 68960400 OUTPUT @ZA10800*/ 69010400 4 SMF6OPJ BIT(1); /* OPTCD=J WAS USED FOR @ZA10800 69060400 OUTPUT @ZA10800*/ 69110400 %IFALR1: ; 69160400 %INCLUDE SYSLIB(IFASMFR1) NOSEG; 69210400 %INCLUDE SYSLIB(IFASMFR2) NOSEG; 69260400 %INCLUDE SYSLIB(IFASMFR3) NOSEG; 69310400 %INCLUDE SYSLIB(IFASMFR4) NOSEG; 69360400 %INCLUDE SYSLIB(IFASMFR5) NOSEG; 69410400 %INCLUDE SYSLIB(IFASMFR6) NOSEG; 69460400 %INCLUDE SYSLIB(IFASMFR7) NOSEG; 69510400 %INCLUDE SYSLIB(IFASMFR8) NOSEG; 69560400 %INCLUDE SYSLIB(IFASMFR9) NOSEG; 69610400 %INCLUDE SYSLIB(IFASMFRA) NOSEG; 69660400 %INCLUDE SYSLIB(IFASMFRB) NOSEG; 69710400 %INCLUDE SYSLIB(IFASMFRC) NOSEG; 69760400 %INCLUDE SYSLIB(IFASMFRD) NOSEG; 69810400