* % GOTO JCTBSL; /* 00010020 MACRO 00020020 IEFAJCTB 00030020 .* 00030304 .* 00030904 .* CHANGE = M2344,M0697,Y01029,Y02028,M0752,Y02670,Y02668,Y02641, 00033404 .* Y01012,Z40RPTH,Z40RPSM,@ZA44001,@Z52459 @ZA52459 00033703 .* 00034903 *************************************************************** 00036103 * * 00037303 * ADD LABEL IEFAACTB TO ASSEMBLER VERSION FOR ADDRESSABILITY *@ZA44001 00038503 * TO THE ACT *@ZA44001 00039703 * SMB DELETION OF FIELDS YOLD001 11/17/71 00040903 * ADD LABEL ACTACCNT TO ASSEMBLER VERSION @ZA52459 00041503 * * 00042103 *************************************************************** 00043303 * MACMEAN JCT MEANS JOB CONTROL TABLE 00044802 * MACCOMP Y-2 SC1B9/PZD83 @ZA04561 00045804 * MACCOMP Y-2 SCIB9/PZD83 @Z40RPTH 00046804 * MACSTAT Y-2 75239/Z40RPSM @Z40RPSM 00047804 *********************************************************************** 00050020 ** ** 00060020 ** JOB CONTROL TABLE ** 00070020 ** ** 00080020 *********************************************************************** 00090020 DS 0D 00100020 INJMJCT EQU * 00110020 JCTDSKAD DS CL3 DISK ADDRESS OF THIS JCT 00120020 JCTIDENT DS CL1 JCT ID = 0 00130002 JCTID EQU 0 00140020 JCTJSRNO DS CL1 INTERNAL JOB SERIAL NUMBER 00150020 JCTJBLBS DS 0C JOBLIB SWITCH BITS 0-3 00160020 JCTJSTAT DS 1C JOB STATUS INDICATORS 00170002 JCTJSTPC EQU 32 BIT-2/JOB STEP CANCELLED BY CONDITION CODES 00180020 JCTABEND EQU 8 BIT 4 - JCT ABEND BIT HW16 00200020 INCMSTS EQU 4 BIT-5/JOB FAILED BIT 00210020 * BIT 5 = 1 JOB FAILED 00220020 * BIT 6 = 0 GO JOB 00230020 INDMCTLG EQU 2 BIT 6 = 1 CATALOG JOB 00240020 INCMCAT EQU 2 BIT-6/CATALOG BIT 00250020 INCMNSET EQU 1 BIT7/RESERVED @ZA04561 00260004 JCTJMGPO DS CL1 MESSAGE CLASS 00290020 JCTJMGLV DS 0C 4 BITS FOR MESSAGE LEVEL -SET BY IEFVJA 00300020 INCMMGL1 EQU 16 JCL MESSAGE LEVEL=1 BIT I68 00310020 INCMMGL2 EQU 32 JCL MESSAGE LEVEL=2 BIT I68 00320020 INCMALL EQU 128 ALLOCATION MESSAGE LEVEL=1 BIT I68 00330020 JCTJPRTY DS 1C 4 BITS FOR JOB PRIORITY 00340020 JCTJNAME DS CL8 JOBNAME 00350020 JCTJTPTN DS CL8 T/P TERMINAL NAME 00360020 JCTPDIP DS CL4 PDI CORE POINTER Y02670 00370002 JCTGDGNT DS CL3 GDG NAME TABLE Y02670 00380002 JCTJCSMF DS CL1 JOB CLASS SPECS FOR SMF Y02668 00382002 * TERMINATION ROUTINES Y02668 00386002 JCTSDKAD DS CL4 DISK ADDRESS OF FIRST SCT 00390020 JCTJCTX DS CL4 ADDRESS OF JCTX @Z40RPSM 00397004 JCTACTAD DS CL4 DISK ADDRESS OF FIRST ACT 00410020 JCTSMRBA DS CL8 RBA SYSTEM MSG D.S. Y02641 00460002 JCTSCT DS CL1 STEP NO. OF FAILING STEP Y02641 00462002 DS CL1 RESERVED 00472002 JCTJDPCD DS CL2 DEPENDENCY CODE 00480020 JCTJDPOP DS CL2 DEPENDENCY OPERATOR 00490020 DS CL28 ROOM FOR 7 MORE DEPS 00500020 JCTRSW1 DS C CHECKPOINT/RESTART SWITCHES 00510020 JCTWARMS EQU 128 BIT0 - WARM START 00520020 JCTSTERM EQU 64 STEP TERMINATION HAS BEGUN (PCP WARM START ONLY)AACA 00530020 JCTCONTR EQU 32 BIT 2 - JOB IS ELIGIBLE FOR CONTINUE RESTART Y02641 00532002 * PROCESSING 00534002 JCTCKFT EQU 16 BIT 3 - CHECKPOINT TAKEN FOR THIS STEP 00540020 JCTCKPTR EQU 8 BIT 4 - CHECKPOINT RESTART (INTRA-STEP) TO BE DONE 00550020 JCTSTEPR EQU 4 BIT 5 - STEP RESTART TO BE DONE 00560020 * BITS 6AND 7 MUST BE ZERO 00570020 JCTRSW2 DS C CHECKPOINT/RESTART SWITCHES 00580020 JCTSYSCK EQU 128 BIT 0 - SYSCHK DD STATEMENT PRESENT 00590020 JCTNARST EQU 64 BIT 1 - JOB INELIGIBLE FOR AUTOMATIC RESTART Y02641 00592002 JCTNORST EQU 32 BIT 2 - NO RESTART TO BE DONE 00600020 JCTNOCKP EQU 16 BIT 3 - NO CHECKPOINTS TO BE TAKEN 00610020 JCTRESTT EQU 8 BIT 4 - DO RESART IF NECESSARY 00620020 JCTDSOCR EQU 4 BIT 5- RESERVED M2344 00670001 JCTDSOJB EQU 2 BIT 6- RESERVED M2344 00680001 *********************************************************************** 00720020 * ** 00730020 * IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO ** 00740020 * ADD THE FOLLOWING FIELDS TO THE JCT. TO AVOID CAUSING ** 00750020 * ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY EXIST- ** 00760020 * ING MODULES WHICH REFERENCE THESE FIELDS, THEY ARE GEN- ** 00770020 * ERATED HERE ONLY AS COMMENTS CARDS. NOTE THAT DUE TO THE ** 00780020 * FACT THAT THIS MACRO GENERATES THE ACT IMMEDIATELY AFTER ** 00790020 * THE JCT, IT IS NOT POSSIBLE TO REFERENCE THESE FIELDS BY ** 00800020 * CODING THEM AFTER THE MACRO. FOR NOW THEY MUST BE REF- ** 00810020 * ERENCED BY DISPLACEMENT (WHICH IS GIVEN BELOW), PREFER- ** 00820020 * ABLY THROUGH THE USE OF EQUATES AND THE SYMBOLS BELOW. ** 00830020 * NOTE ALSO THAT THIS MACRO IS NOT VALID FOR REFERENCING ** 00840020 * THE ACT UNTIL THESE NEW FIELDS HAVE ACTUALLY BEEN ** 00850020 * INCORPORATED. ** 00860020 * ** 00870020 *********************************************************************** 00880020 * * 00890020 *JCTDETDA DS CL4 TTR OF DISENQ TABLE * 00900020 * (DISPLACEMENT = 88 (DECIMAL) * 00910020 *JCTEQREG DS CL2 REGION PARAMETER (BINARY) * 00920020 * (DISPLACEMENT = 92 (DECIMAL) * 00930020 * * 00940020 *********************************************************************** 00950020 DS 6C ROOM FOR THE ABOVE 00960020 JCTQIDNT DS C IDENTITY OF Q FOR JOB (MVT ONLY) 00970020 JCTSNUMB DS C NUMBER OF STEPS RUN (MVT ONLY) 00980020 JCTSTIOT DS F TTR OF COMPRESSED TIOT (MVT ONLY) 00990020 * IN PCP-C/R SAVE OF SCATALLY BY IEFRAPCP AACA 01000020 JCTDEVT DS F DEVICE TYPE OF CHECKPOINT DATA SET 01010020 JCTCKTTR DS 3C TTR OF JFCB FOR CHECKPOINT DATA SET 01020020 JCTNTRK DS C NUMBER OF TRACKS ON SYS1.JOBQE USED BY PTM258 01030020 * THE JOB -SET AND USED BY THE INIT./TERM. PTM258 01040020 JCTNRCKP DS H NUMBER OF CHECKPOINTS TAKEN 01050020 JCTVOLSQ DS C VOLUME SEQUENCE NUMBER FOR CHECKPOINT DATA SET 01060020 JCTJSB DS C JOB STATUS SWITCHES Y02641 01070002 JCTJSBIN EQU 8 JOB ENTERED INTERPRETATION Y02641 01072002 JCTJSBAL EQU 4 JOB ENTERED ALLOCATION Y02641 01074002 JCTJSBEX EQU 2 JOB ENTERED EXECUTION Y02641 01076002 JCTJSBTM EQU 1 JOB ENTERED TERMINATION Y02641 01078002 JCTSSTR DS F TTR OF SCT FOR FIRST STEP TO BE RUN 01080020 JCTSTAT2 DS 1C ADDITIONAL STATUS INDICATORS O102 01090020 JCTSPSYS EQU 128 BIT 0 - =1 INDICATES SPOOLED SYSIN FOR JOB O102 01100020 * SET BY IEFVDA O102 01110020 * TESTED BY IEESD575(QUEUE ALTER)- O102 01120020 * MVT AND MFT ONLY O102 01130020 JCTADSPC EQU 64 BIT 1 - =1 INDICATES ADDRSPC=REAL Y01029 01132001 * SET BY VEA AND VJA Y01029 01134001 JCTENDIT EQU 32 SET BY IEFSD41Q,IEFWEXTA A25134 01140020 * TESTED BY IEFDSOWR,IEFYNIMP A25134 01150020 * JOB TERMINATION INDICATOR A25134 01160020 JCTSWSM EQU 16 BIT 3 - =1 INDICATES WARM START MESSAGE M3144 01170020 * 'INIT=JOBNAME' IS TO BE SUPPRESSED M3144 01180020 * FOR THIS JOB M3144 01190020 * SET BY IEFVHH M3144 01200020 * TESTED BY IEFSD305 M3144 01210020 JCTPERFM EQU 8 PERFORM SPEC'D ON THE JOB CARD 01260002 JCTBLP EQU 4 0-BLP WILL BE TREATED AS NL Y02668 01310002 * 1-BLP WILL BE TREATED AS BYPASS Y02668 01360002 * LABEL PROCESSING Y02668 01410002 JCTCKIDL DS C LENGTH OF CHECKPOINT ID 01413000 JCTCKIDT DS CL16 CHECKPOINT IDENT AACA 01413317 *******************************************************************AACA 01413617 * THE FOLLOWING SYSTEMS MGMT FACILITIES SUBFIELDS MUST AACA 01413917 * BEGIN ON A HALF WORD BOUNDARY AACA 01414217 *******************************************************************AACA 01414517 JCTJMR DS CL3 TTR OF JMR *** SYSTEMS *** AACA 01414817 JCTJMRD DS CL1 DATE DIFFERENCE STEP START-JOB START * AACA 01415117 JCTJMROP DS CL1 SMF OPTION SWITCHES * MANAGEMENT AACA 01415417 JCTJMRCL DS CL1 SMF CANCELLATION CONTROL STATUS * AACA 01415717 JCTJMRTL DS CL3 JOB TIME LIMIT * FACILITIES AACA 01416017 JCTJMRSS DS CL3 STEP START TIME OF DAY * AACA 01416317 JCTJMRJT DS CL3 JOB START TIME OF DAY * SUBFIELDS AACA 01416617 JCTJMRJD DS CL3 JOB START DATE ***************** AACA 01416917 JCTSRBT DS CL4 ACCUMULATED SRB TIME FOR JOB Y02652 01417302 DS CL1 RESERVED 01417702 JCTSSD DS CL3 STEP START DATE Y02668 01420702 JCTUSER DS CL7 USER ID FIELD. SET BY C/I MODULE IEFVJA @Z40RPTH 01427704 * AS A RESULT OF A USER KEYWORD ON THE JOB @Z40RPTH 01428404 * STATEMENT. @Z40RPTH 01429104 JCTPRFMF DS CL1 PERFORMANCE GROUP NUMBER Y02668 01432702 JCTACODE DS CL4 ABEND CODE FIELD Y02641 01432802 JCTVULDP DS CL4 POINTER TO VOLUME UNLOAD TABLE Y02670 01433102 JCTLNGTH EQU *-INJMJCT JCT LENGTH 20001 01433719 ***************************************************************** 20001 01434719 ** ** 01440000 ** ACCOUNT CONTROL TABLE ** 01460000 ** ** 01480000 *********************************************************************** 01500000 IEFAACTB DS 0D @ZA44001 01510003 ACTDSKAD DS CL3 DISK ADDRESS OF THIS ACT 01520000 ACTIDENT DS CL1 TABLE ID ACT = 16 01540000 ACTID EQU 1 01560000 ACTNEXT DS CL4 DISK ADDRESS OF NEXT ACT 01580000 ACTPRGNM DS CL20 PROGRAMMERS NAME 01600000 ACTJTIME DS CL3 JOB RUNNING TIME 01620000 ACTJNFLD DS 1C NBR OF JOB ACCOUNTING FIELDS 01640000 ACTACCNT DS CL144 THE REST OF THE FIELDS HAVE THE @ZA52459 01660003 * FOLLOWING FORMAT FOR JOB ACCOUNTING- 01680000 * 1 BYTE- LENGTH OF FIELD 01700000 * VARIABLE BYTES- CONTENTS OF FIELD 01720000 * (REPEATED FOR N FIELDS) 01740000 * STEP ACCOUNTING HAS THE FOLLOWING 01760000 * FORMAT FOR EACH STEP- 01780000 * 3 BYTES- MAXIMUM STEP RUNNING TIME 01800000 * 1 BYTE- NBR OF FIELDS IN STEP 01820000 * 1 BYTE- LENGTH OF FIELD 01840000 * VARIABLE BYTES- CONTENTS OF FIELD 01860000 * (LAST 2 REPEATED N TIMES) 01880000 * THIS SECTION FORMERLY HELD THE SMB MADE OBSOLETE BY AOS/II RELEASE 2 01950002 MEND 02260000 */ % JCTBSL: ; 03060020 /* MACMEAN JCT MEANS JOB CONTROL TABLE */ 03110002 /* MACCOMP Y-2 SC1B9/PZD83 */ 03160004 /* MACSTAT Y-2 75239/Z40RPSM */ 03210004 DECLARE 1 INJMJCT BASED(JCTPTR), /* NAME OF TABLE */ 03860020 4 JCTDSKAD PTR(24) BDY (WORD), /* DISK ADDRESS OF THIS JCT */ 04660020 4 JCTIDENT CHAR(1), /* JCT IDENTIFICATION = 0 */ 05460002 4 JCTJSRNO PTR(8), /* INTERNAL JOB SERIAL NUMBER */ 06260020 4 JCTJSTAT BIT(8), /* JOB STATUS INDICATORS */ 07060020 6 JCTJBLBS BIT(1), /* JOBLIB SWITCH */ 07860020 6 * BIT(1), /* RESERVED Y02670 */ 08660002 6 JCTJSTPC BIT(1), /* STEP CANCELLED BY CONDITION CODES */ 09460020 6 * BIT(1), /* RESERVED Y02670 */ 10260002 6 JCTABEND BIT(1), /* ABEND BIT */ 11060020 6 INCMSTS BIT(1), /* JOB FAILED BIT */ 11860020 6 INDMCTLG BIT(1), /* CATALOG JOB */ 12660020 8 INCMCAT BIT(1), /* CATALOG BIT */ 13460020 6 INCMNSET BIT(1), /* RESERVED @ZA04561*/ 14260004 4 JCTJMGPO CHAR(1), /* MESSAGE CLASS */ 15060020 4 JCTJBYTE BIT(8), /* MSGLEVEL & PRIORITY */ 15860020 6 JCTJMGLV BIT(4), /* MSGLEVEL - SET BY IEFVJA */ 16660020 8 INCMALL BIT(1), /* ALLOC MSGLEVEL=1 */ 17460020 8 * BIT(1), /* RESERVED FOR FUTURE USE */ 18260020 8 INCMMGL2 BIT(1), /* JCL MSGLEVEL=2 */ 19060020 8 INCMMGL1 BIT(1), /* JCL MSGLEVEL=1 */ 19860020 6 JCTJPRTY BIT(4), /* JOB PRIORITY */ 20660020 4 JCTJNAME CHAR(8), /* JOBNAME */ 21460020 4 JCTJTPTN CHAR(8), /* T/P TERMINAL NAME */ 22260020 4 JCTPDIP PTR(24) BDY(WORD), /* PDI CORE POINTER Y02670 */ 23060002 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 23860020 4 JCTGDGNT PTR(24) BDY(WORD), /* GDG NAME TABLE Y02670*/ 24660002 4 JCTJCSMF CHAR(1), /* JOB CLASS SPECS FOR SMF TERMINATION 24710002 ROUTINES Y02668 */ 24760002 4 JCTSDKAD PTR(24) BDY(WORD), /* DISK ADDR. OF FIRST SCT */ 26260020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27060020 4 JCTJCTX PTR(24) BDY(WORD), /* ADDRESS OF JCTX @Z40RPSM*/ 27160004 4 * CHAR(1), /* RESERVED FOR FURTURE USE @Z40RPSM*/ 27210004 4 JCTACTAD PTR(24) BDY(WORD), /* DISK ADDR. OF FIRST ACT */ 29460020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 30260020 4 JCTSMRBA CHAR(8) BDY(WORD), /* RBA OF SYSTEM MSG DS Y02641*/ 30310002 4 JCTSCT CHAR(1), /* STEP # OF FAILING STEP Y02641*/ 34270002 4 * CHAR(1), /* RESERVED */ 34320002 4 JCTCCODE (8) CHAR(4), /* CONDITION CODES AND OPERATORS */ 35060020 6 JCTJDPCD CHAR(2), /* JOB CONDITION CODE */ 35860020 6 JCTJDPOP CHAR(1), /* JOB CONDITION OPERATOR */ 36660020 6 * CHAR(1), /* RESERVED FOR FUTURE USE */ 37460020 4 JCTRSW1 BIT(8), /* CHECKPOINT/RESTART SWITCHES */ 38260020 6 JCTWARMS BIT(1), /* WARM START */ 39060020 6 JCTSTERM BIT(1), /* STEP TERM. HAS BEGUN */ 39860020 6 JCTCONTR BIT(1), /* JOB ELIGIBLE FOR CONTINUE RESTART 40660002 PROCESSING Y02641 */ 40710002 6 JCTCKFT BIT(1), /* CHECKPOINT TAKEN FOR THIS STEP */ 41460020 6 JCTCKPTR BIT(1), /* CHECKPOINT/RESTART TO BE DONE */ 42260020 6 JCTSTEPR BIT(1), /* STEP RESTART TO BE DONE */ 43060020 6 * BIT(2), /* BITS 6,7 - MUST BE ZERO */ 43860020 4 JCTRSW2 BIT(8), /* CHECKPOINT/RESTART SWITCHES */ 44660020 6 JCTSYSCK BIT(1), /* SYSCHEK DD STMT PRESENT */ 45460020 6 JCTNARST BIT(1), /* JOB INELIGIBLE FOR AUTO RESTART Y02641*/ 46260002 6 JCTNORST BIT(1), /* NO RESTART TO BE DONE */ 47060020 6 JCTNOCKP BIT(1), /* NO CHECKPOINTS TO BE TAKEN */ 47860020 6 JCTRESTT BIT(1), /* DO RESTART IF NECESSARY */ 48660020 6 JCTDSOCR BIT(1), /* RESERVED M2344*/ 48710001 6 JCTDSOJB BIT(1), /* RESERVED M2344*/ 48760001 6 JCTDSDRA BIT(1), /* DSDR PROCESSING HAS NOT SUCCESS. ENDED */50260020 4 JCTDETDA PTR(24) BDY(WORD), /* TTR OF DSENQ TABLE */ 51060020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 51860020 4 JCTEQREG CHAR(2), /* REGION PARAMETER */ 52660020 4 JCTQIDNT CHAR(1), /* IDENTITY OF Q FOR JOB (MVT) */ 53460020 4 JCTSNUMB PTR(8), /* NUMBER OF STEPS RUN */ 54260020 4 JCTSTIOT PTR(24) BDY(WORD), /* TTR OF COMPRESSED TIOT (MVT) */ 55060020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 55860020 4 JCTDEVT CHAR(4), /* DEVICE TYPE OF CHECKPOINT DATA SET */ 56660020 4 JCTCKTTR PTR(24) BDY(WORD), /* TTR OF JFCB FOR CKPT DATA SET */ 57460020 4 JCTNTRK PTR(8), /* NUMBER OF TRK ON JOBQ USED BY THE JOB 58260020 - SET & USED BY INIT/TERM */ 59060020 4 JCTNRCKP FIXED(15), /* NUMBER OF CHECKPOINTS TAKEN */ 59860020 4 JCTVOLSQ PTR(8), /* VOLUME SEQUENCE NUMBER FOR CHECKPOINT DS */60660020 4 JCTJSB PTR(8), /* JOB STATUS SWITCHES Y02641*/ 61460002 6 * BIT(4), /* RESERVED Y02641*/ 61510002 6 JCTJSBIN BIT(1), /* JOB ENTERED INTERPRETATION Y02641*/ 61560002 6 JCTJSBAL BIT(1), /* JOB ENTERED ALLOCATION Y02641*/ 61610002 6 JCTJSBEX BIT(1), /* JOB ENTERED EXECUTION Y02641*/ 61660002 6 JCTJSBTM BIT(1), /* JOB ENTERED TERMINATION Y02641*/ 61710002 4 JCTSSTR PTR(24) BDY(WORD), /* TTR OF SCT FOR 1ST STEP */ 62260020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 63060020 4 JCTSTAT2 BIT(8), /* A25134 */ 63260020 6 JCTSPSYS BIT(1), /* SPOOLED SYSIN FOR JOB A25134 */ 63460020 6 JCTADSPC BIT(1), /* ADDRSPC=REAL FOR JOB Y01029 */ 63660002 6 JCTENDIT BIT(1), /* JOB TERM INDICATOR A25134 */ 63860020 6 JCTSWSM BIT(1), /* INDICATES WARM START MESSAGE 63960020 'INIT=JOBNAME' IS TO BE SUPPRESSED 64060020 FOR THIS JOB 64160020 SET BY IEFVHH 64260020 TESTED BY IEFSD305 M3144 */ 64360020 6 JCTPERFM BIT(1), /* PERFORM SPEC'D ON JOB CARD */ 64410002 6 JCTBLP BIT(1), /* 0-BLP WILL BE TREATED AS NL 64420002 1-BLP WILL BE TREATED AS BYPASS 64430002 LABEL PROCESSING Y02668 */ 64440002 6 * BIT(2), /* RESERVED M3144 */ 64460002 4 JCTCKIDL PTR(8), /* LENGTH OF CHECKPOINT ID */ 64660020 4 JCTCKIDT CHAR(16), /* CHECKPOINT ID */ 65460020 /* SYSTEM MANAGEMENT FACILITIES SUBFIELDS */ 66260020 4 JCTJMR PTR(24) BDY(HWORD), /* TTR OF JMR */ 67060020 4 JCTJMRD CHAR(1), /* DATE DIFFERENCE - STEP/JOB STARTS */ 67860020 4 JCTJMROP BIT(8), /* SMF OPTION SWITCHES */ 68660020 4 JCTJMRCL CHAR(1), /* SMF CANCELLATION CONTROL STATUS */ 69460020 4 JCTJMRTL CHAR(3), /* JOB TIME LIMIT */ 70260020 4 JCTJMRSS CHAR(3), /* STEP START ( TIME OF DAY ) */ 71060020 4 JCTJMRJT CHAR(3), /* JOB START ( TIME OF DAY ) */ 71860020 4 JCTJMRJD CHAR(3), /* JOB START DATE */ 72660020 4 JCTSRBT PTR(31), /* ACCUMULATED SRB TIME FOR JOB Y02652 */ 72710002 4 * CHAR(1), /* RESERVED */ 72760002 4 JCTSSD CHAR(3), /* STEP START DATE Y02668*/ 78260002 4 JCTUSER CHAR(7), /* USER ID - SET BY IEFVJA @Z40RPTH*/ 78660004 4 JCTPRFMF PTR(8), /* PERFORMANCE GROUP NUMBER Y02668*/ 79110002 4 JCTACODE CHAR(4), /* ABEND CODE FIELD Y02670 */ 79160002 4 JCTVULDP PTR(24) BDY(WORD), /* PTR TO VOL UNLOAD TAB Y02670*/ 79910002 4 * CHAR(1); /* RESERVED */ 79960002 /* ACCOUNT CONTROL TABLE */ 80660020 DECLARE 1 IEFAACTB BDY(DWORD) BASED( ADDR(INJMJCT) + 176 ), 81460002 4 ACTDSKAD PTR(24) BDY(DWORD), /* DISK ADDR OF THIS ACT */ 82260020 4 ACTIDENT CHAR(1), /* ACT ID = 1 */ 83060020 4 ACTNEXT PTR(24) BDY(WORD), /* TTR OF NEXT ACT */ 83860020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 84660020 4 ACTPRGNM CHAR(20), /* PROGRAMMERS NAME */ 85460020 4 ACTJTIME PTR(24) BDY(WORD), /* JOB RUNNING TIME */ 86260020 4 ACTJNFLD PTR(8), /* NBR OF JOB ACCT FIELDS */ 87060020 4 ACTACCNT CHAR(144); /* SPACE FOR VARIABLE FIELDS */ 87860002 /* THE REST OF THE FIELDS HAVE THE FOLLOWING FORMAT FOR JOB 88660020 ACCOUNTING- 1 BYTE- LENGTH OF FIELD 89460020 VARIABLE BYTES- CONTENTS OF FIELD 90260020 (LAST 2 REPEATED FOR N FIELDS ) 91060020 STEP ACCOUNTING HAS THE FOLLOWING FORMAT FOR EACH STEP- 91860020 3 BYTES- MAXIMUM STEP RUNNING TIME 92660020 1 BYTE- NBR OF FIELDS IN STEP 93460020 1 BYTE- LENGTH OF FIELD 94260020 VARIABLE BYTES- CONTENTS OF FIELD 95060020 (LAST 2 REPEATED N TIMES ) */ 95860020 %DECLARE JCTID FIXED, 96660020 JCTLNGTH FIXED; 97460020 %JCTLNGTH=176; /* LENGTH OF JOB CONTROL TABLE */ 98260020 %JCTID=0; /* JCT ID = 0 */ 99060020