* % GO TO LCTBSL; /* 20032 00300001 MACRO 00600001 IEFALLCT 00900001 * */ 00903003 * /*STATUS - VS2 SU16 PTF @ZA68215*/ 00904000 * /* MERGE SU4,10,16 BACK TO BASE PTF @ZA30173*/ 00905003 * /* RESHIPMENT OF UZ17119 @ZA33389*/ 00905503 * /* DEFINE BIT LCTTIMAB TO SUPPORT OZ60241 @ZA68215*/ 00905700 * /* ********************************* 00906003 * * LINKAGE CONTROL TABLE - LCT * 01500001 * ********************************* 01800001 DS 0F 02400001 LCTQDRTY DS CL4 - POINTER TO JOB'S CSCB Y02652 02700002 LCTSRTAD DS CL4 - SRT ADDRESS 04200001 LCTTCBAD DS CL4 - CURRENT TCB ADDRESS Y02652 04500002 LCTQENTY DS CL4 - 04550000 LCTTIMAB EQU X'80' BIT 0 - TIMER ABEND HAS @ZA68215 04600000 * OCCURRED. @ZA68215 04700000 * BIT 1 OF HIGH ORDER BYTE USED 04750000 * IN CONJUNCTION WITH 'NOSEP'. 05100001 * BIT 2 - DEVICE WAIT RECOVERY 05400001 * BIT 3 - SPACE WAIT RECOVERY 05700001 LCTERRM EQU 1 - BIT 7 - JOB TERMINATION STATUS 06000001 * THE THREE LOW ORDER BYTES CON- 06300001 * TAIN THE ADDRESS OF THE 06600001 * LINKOR'S REGISTER SAVE AREA 06900001 LCTJCTAD DS CL4 - JCT STORAGE ADDRESS OR 0 07200002 LCTSCTAD DS CL4 - SCT STORAGE ADDRESS OR 0 Y02669 07500002 LCTWORKA EQU * - MINSYS 3 TEMP INSERT 07550001 LCTSCTDA DS 0F - SCT SWA ADDRESS Y02669 07600002 LCTSCTVA DS CL3 - SCT SWA VIRTUAL ADDRESS Y02669 07650002 DS C - RESERVED Y02669 07700002 LCTPSPAR DS CL4 - FIRST BYTE UNUSED-LAST 3 BYTES 08400001 * ADDRESS OF A/T COMM. AREA 08700001 LCTERR DS 0C - NEW LCTERROR BITS Y02670 08710002 LCTJFAIL EQU X'80' - IF ON, JOB FAILED Y02670 08750002 LCTSALCD EQU X'40' - IF ON, AT LEAST ONE STEP 08800002 * WAS ALLOCATED Y02670 08850002 LCTPALCD EQU X'20' - IF ON, THIS STEP 08900002 * PARTIALLY ALLOCATED Y02670 08950002 LCTSFAIL EQU X'10' - IF ON, STEP BYPASSED Y02670 08960002 LCTACOMP EQU X'08' - IF ON ALLOCATION HAS YM07219 08966002 * BEEN COMPLETED BUT YM07219 08972002 * UNALLOCATION IS YET TO YM07219 08978002 * RUN. USED TO TEST FOR YM07219 08984002 * RETRY IN THE INIT ESTAE YM07219 08990002 LCTJCFAL EQU X'04' - ON IF JOB FAILED @Z30CPPH 08993003 * BECAUSE OF COND CODES @Z30CPPH 08996003 LCTVTERM EQU X'02' - ON IF ALLOC FAILED AND @G24LPSJ 08997003 * MSS SELECTS DONE @G24LPSJ 08998003 LCTERROR DS CL4 - ERROR CODE 09000001 LCTPARM1 DS CL4 - MULTI USE PARAMETER FIELD 09300001 LCTPARM2 DS CL4 - MULTI USE PARAMETER FIELD 09600001 LCTPARM3 DS CL4 - MULTI USE PARAMETER FIELD 09900001 LCTPARM4 DS CL4 - MULTI USE PARAMETER FIELD 10200001 LCTCMCBA DS CL4 - CORE ADDRESS OF CONTROL 10500001 * BYTES FOR CORE MANAGEMENT 10800001 LCTSTIND EQU * - STATUS INDICATOR FIELD 10850001 LCTNSPAD DS CL1 - NON SETUP PADDING BYTE 11400001 LCTJFCBH DS CL1 - JFCB HOUSEKEEPPING BYTE 11700001 LCTS2PEM EQU 128 - 1ST PDQ TBL ENTRY MADE 12000001 * IS INDICATOR 12300001 LCTS2COP EQU 64 - CORE OBTAINED FOR PDQ 12600001 * TABLE INDICATOR 12900001 LCTS2FES EQU 32 - FIRST ENTRY INTO PDQ PROC 13200001 * S/R FOR THE STEP INDICATR 13500001 LCTSNUMB DS CL1 - CURRENT STEP NUMBER 13800001 LCTACTON DS CL1 - ACTION CODE 14100001 LCTSMBAD DS CL4 - POINTER TO SMB 14400001 LCTREGSV EQU 0 _ NEW DESIGN 14450001 LCTQMPAM EQU 144 - QMGR PARAMETER AREA 14500001 LCTCOREA EQU 128 - 16 BYTE GETMAIN AREA 14550001 LCTBATMN DS 1F - USED IN GENERATING A UNIQUE 16200001 * VOLUME SERIAL NUMBER WHEN THE 16500001 * USER DOESN'T SPECIFY ONE ON 16800001 * HIS DD CARD AND DOES SPECIFY 17100001 * A PASSED DATA SET ON UNLABELED 17400001 * TAPE. 17700001 LCTCOMCD DS 0F - WARMSTART ABEND CODE Y02641 18000002 LCTCOMD1 DS H - WARMSTART COMP. CODE Y02641 18050002 LCTCOMD2 DS H - WARMSTART COMP. CODE Y02641 18100002 LCTRTRN DS 1F - RETURN ADDRESS TO MASTER 18600001 * SCHED FOR STOP INIT 18900001 LCTSREG EQU LCTRTRN - REG 14 RETURN ADDR FOR INIT 18950001 LCTINTSW DS C - INITIATOR INTERNAL SWITCHES 19300002 LCTINPPT EQU 128 - PGM. NAME IS IN PPT Y02656 19350002 LCTPRIV EQU 64 - PROGRAM IS PRIVILEGED Y02655 19400002 LCTPPAA EQU 32 - ISSUE MESSAGE FOR 'PROBLEM 19450002 * PROG. ATTRIBUTES ASSIGNED Y02655 19500002 LCTMINRG EQU 16 - JOB FLUSH - USE MINPAR 20100001 LCTSTART EQU 8 - TASK NAME NOT FOUND ON COMMAND 20400001 LCTSTOP EQU 4 - INIT INTERNAL STOP 20700001 LCTABEND EQU 2 - EXECUTED PGM ABENDED 20750001 LCTNDSI EQU 1 - MUST VERIFY TASKLIB BEFORE 20800002 * ASSIGNING 'NO DATA SET 20850002 * INTEGRITY' Y02652 20900002 LCTPUBYT DS CL1 - PREFERRED USAGE FLAGS @ZA16877 21000003 LCT2LPU EQU X'80' - 2ND LEVEL PREFERRED @ZA16877 21040003 LCT1LPU EQU X'40' - 1ST LEVEL PREFERRED @ZA16877 21080003 LCTN2LP EQU X'20' - NOT 2ND LEVEL PREFERRED @ZA16877 21120003 LCTNSWP EQU X'10' - NON-SWAPPABLE @ZA16877 21160003 DS CL2 - RESERVED @ZA16877 21200003 LCTTMWRK DS 4F - TIMER WORK AREA Y02669 21300002 ORG LCTTMWRK Y02669 21350002 LCTTJTU4 DS 0F - TOTAL JOB TIME USED Y02669 21400002 DS C - RESERVED Y02669 21450002 LCTTJTU3 DS FL3 - TOTAL JOB TIME USED Y02669 21500002 LCTTSTL4 DS 0F - STEP TIME LIMIT Y02669 21550002 DS C - RESERVED Y02669 21600002 LCTTSTL3 DS FL3 - STEP TIME LIMIT Y02669 21650002 LCTTSTR4 DS 0F - STEP TIME REMAINING Y02669 21700002 LCTTMBYT DS B - FLAG Y02669 21750002 LCTTIFJ EQU X'80' - TIME IS LIMIT FOR JOB Y02669 21760002 LCTTSTR3 DS FL3 - STEP TIME REMAINING Y02669 21800002 LCTTSTU4 DS 0F - STEP TIME USED Y02669 21850002 DS C - RESERVED Y02669 21900002 LCTTSTU3 DS FL3 - STEP TIME USED Y02669 21950002 LCTSMF EQU LCTTMWRK+8 - PTR TO DEVICES USED OR JMR 23400002 * OR TO JMR 23410001 LCTJOBLB DS 1F - ADDRESS OF JOBLIB OR 24000001 * STEPLIB DCB 24300001 LCTATLST DS 1F - ADDRESS OF ALLOCATE-TERMINATE 24600001 * PARAMETER LISTS 24900001 REGSAVE DS 36F - A/T REG SAVE AREA 25200001 * REGISTER SAVEAREA 25250001 QMGR1 DS 9F - QMPA FOR SWA 25500001 DS 9F - RESERVED Y02652 25800002 LCTASCBA DS 1F - POINTER TO CURRENT ASCB Y02669 26100002 LCTJMRAD DS 1F - JMR ADDRESS Y02668 26400002 LCTECBAD DS 1F - ECB LIST ADDRESS 27300001 ECBLIST EQU LCTECBAD - 27350001 * WITH LCTECBAD 27650001 LCTIDENT DC 2F'0' - HOLDER FOR IDENTIFIER 27900001 LCTPIB EQU LCTIDENT - 27910001 LCTSPIL EQU LCTIDENT+4 27920001 LCTDSBCT EQU LCTIDENT+4 - COUNT OF DSB'S FOR JOB 27950001 LCTALCFG EQU LCTIDENT+6 - ALLOC FLAG BYTE 28000001 LCTODSFL EQU 128 - ODS FAILED INDICATOR 28050001 LCTMSGWT EQU 64 - WTO MESSAGE LOST 28100001 DS CL8 - RESERVED Y02652 29100002 LCTTSRB4 DS 0F - STEP SRB TIME USED Y02669 29150002 DS C - RESERVED Y02669 29200002 LCTTSRB3 DS FL3 - STEP SRB TIME USED Y02669 29250002 * THESE FIELDS ARE NEEDED FOR L-SHAPE/INIT MERGE 30300001 LCTOPSW1 DS 0C - INIT OPTION BYTE 1 30900001 * BIT 7 UNUSED 30950001 LCTDPSWA EQU 128 - DON'T SET 'DON'T SHARE SWA' 31200002 * ON ATTACH Y02621 31250002 LCTDWFF EQU 64 - DON'T PROCESS DED WORK FILE 31500001 * FILES 31550001 LCTCANF EQU 8 - ALLOW CANCEL ONLY AT ALLOC 32400001 LCTONEJF EQU 4 - STARTED TASK INDICATOR 32700001 LCTENTR DS F - INIT ENTRANCE LIST ADDR 33333302 LCTEXIT EQU LCTENTR - INIT EXIT LIST ADDR 33350001 LCTOPSW2 DS C - INIT OPTIONS BYTE 2 33600002 * BITS 5, 6 UNUSED 33650002 LCTTIMEF EQU 128 - DON'T TIME THIS 33900001 LCTCRF EQU 64 - DISALLOW CKPT/RESTART 34200001 LCTCKRST EQU 32 - THIS BIT IS SET BY IEFXB609 34210003 * TO INFORM IEFSD101 TO INSERT 34220003 * PROGRAM NAME IEFRSTRT IN SCT 34230003 * AFTER PPT PROCESSING @ZA20168 34235003 LCTBPRAC EQU 4 - BYPASS RACINIT @Z40RPPJ 34240003 LCTNORC EQU 2 - BYPASS ALLOC. RECOVERY Y02652 34250002 LCTENQU EQU 1 - DON'T WAIT FOR DATA SETS 35150001 DS CL3 - RESERVED Y02652 35400002 LCTOPSW3 DS 0C - INIT OPTION BYTE 3 36000001 LCTRDER EQU 64 - SPECIAL A/T PROCESSING FOR 36002001 * IEFRDER DD CARD 36002401 LCTNSYS EQU 32 - DO NOT ASSIGN SPECIAL 36002802 * PROPERTIES Y02652 36002902 LCTJNLF EQU 8 - JOURNALING REQUESTED 36003202 LCTALERR EQU 4 - ALLOC ERROR EXISTED 36004101 LCTJSCB DS F - ADDRESS OF JSCB 36010001 DS 9F - RESERVED Y02652 36020002 LCTSTEPL DS 1F - POINTER TO STAE EXIT PARAMETER 36020402 * LIST FOR INITIATOR Y02653 36020502 LCTSSOBA DS 1F - SSOB FOR THIS TASK Y02668 36020802 LCTJCTDA DS 0F - JCT SWA ADDRESS Y02652 36021202 LCTJCTVA DS CL3 - JCT SWA VIRTUAL ADDRESS Y02652 36021302 DS C - RESERVED Y02652 36021402 LCTTIOTI DS 1F - INIT TIOT TTR 36021601 LCTSTATA DS 1C - INIT STATUS BYTE 1 36021701 LCTSUSPD EQU 128 - SUSPEND INIT 36021801 LCTSNOWK EQU 64 - GO TO IEEMF105 IF NO WORK 36021901 LCTBTJOB EQU 32 - SUSPEND INIT BETWEEN JOBS 36071901 LCTNECBL EQU 16 - DON'T CONSTRUCT ECB LIST 36081901 LCTJCPIB EQU 8 - GET JOB CLASS INFO FROM PIB 36091901 LCTNOSDP EQU 4 - BYPASS STEP DISP PRI CODE 36101901 LCTNOGCB EQU 2 - BYPASS GCB PROCESSING 36111901 LCTCPART EQU 1 - CHECK PART BOUNDARIES FOR RSTRT 36113901 LCTSTATB DS 1C - INIT STATUS BYTE 2 36115901 LCTECBPB EQU 128 - ECB LIST PTR IN PIB 36117901 LCTNOREG EQU 64 - BYPASS REGION DETERMINATION CODE 36119901 LCTNOATC EQU 32 - BYPASS ATTACH/DETACH CONSIDER. 36120301 LCTWRITE EQU 16 - WRITE LOT WITH TIOT 36120701 LCTNREAD EQU 8 - DON'T READ JCT AND SCT 36121101 LCTSBPOL EQU 4 - GET WTPCB AND JSCB IN SP 255 36121501 LCTNPKEY EQU 2 - PGM TO RUN IN KEY ZERO 36121601 LCTMFTIO EQU 1 - USE IEEMFTIO DURING TERM 36121701 LCTRFB DS 1C - RESTART FUNCTION SWITCHES 36121801 * BIT 7 UNUSED 36131902 LCTRFBSM EQU 128 - CALL IEFXB601 36138501 LCTRFBCR EQU 64 - AUTOMATIC CHKPT. RESTART Y02641 36148502 LCTRFBRV EQU 32 - SPECIAL INTERP PROCESSING 36150501 * DURING WARM START 36150901 LCTRFBDC EQU 16 - DEFERRED CKPNT/RESTART 36152501 LCTRFBMS EQU 8 - DON'T MODIFY JSB FIELDS 36154502 LCTRFBEF EQU 4 - MERGE TO EOF OF JOURNAL 36154902 LCTRFBRP EQU 2 - CALL IEFPREP 36155001 LCTRFB1 DS 1C - RESERVED FOR WARMSTART/RESTART 36155102 LCTTSIZ DS 1C - TO INFORM ALLOCATION OF SIZE 36160702 * OF MASTER SCHED. TIOT Y02670 36161102 LCTINTS2 DS B - INTERNAL SWITCHES, BYTE 2 Y02652 36161502 * IT WILL BE CLEARED FOR EVERY STEP BY IEFSD101 Y02652 36161902 LCTSYS EQU X'80' SYSTEM TASK REQUESTED Y02652 36162302 LCTBPPAS EQU X'40' BYPASS PASSWD PROTECT. @ZA03944 36162503 LCTTSWPC EQU X'20' TRANSWAP COMPLETED @ZA16877 36162703 LCTATTC EQU X'10' INITATT HAS BEEN ISSUED 36163103 * (RESET AT INITDET TIME) @ZA16877 36163503 DS 2C - RESERVED Y02652 36163903 DS 1F - RESERVED Y02652 36164702 LCTLBWAP DS 1F - LOAD BALANCING W/A PTR 36165101 LCTIMSG DS 1F - VIRT ADDR OF IEFIB650 36165501 DS F - RESERVED Y02652 36167502 LCTIWORK DS CL64 - TEMPORARY WORK AREA, TO @Y02BPSR 36168203 * BE USED ONLY BY THE @Y02BPSR 36168903 * INITIATOR @Y02BPSR 36169603 LCTLABEL DS C'ENDOFLCT' TO HELP IDENTIFY THE @Y02BPSR 36170303 * LCT IN A STORAGE DUMP @Y02BPSR 36171003 IEFEND EQU * - END OF LCT 36171901 MEND 37200001 **/ %LCTBSL:; /* 20032*/ 37500001 * DECLARE 37800001 * 1 LCT BASED(LCTPTR) BDY(WORD), 38100001 * 3 LCTQDRTY PTR(31), 38400001 * 5 * BIT(8), /* RESERVED Y02652*/ 38700002 * 5 * PTR(24), /* ADDRESS OF THE JOB'S CSCB */ 39300001 * 3 LCTSRTAD PTR(31), 39600001 * 5 * BIT(8), /* UNUSED */ 39900001 * 5 * PTR(24), /* SRT ADDRESS */ 40200001 * 3 LCTTCBAD PTR(31), 40500001 * 5 * BIT(8), /* UNUSED */ 40800001 * 5 * PTR(24), /* CURRENT TCB ADDRESS Y02652*/ 41100002 * 3 LCTQENTY PTR(31), 41400001 * 5 * BIT(8), 41700001 * 7 LCTTIMAB BIT(1), /*TIMER ABEND HAS OCCURRED @ZA68215*/ 42000000 * 7 * BIT(1), /* USED IN CONJUCTION WITH NOSEP */ 42300001 * 7 * BIT(1), /* DEVICE WAIT RECOVERY */ 42600001 * 7 * BIT(1), /* SPACE WAIT RECOVERY */ 42900001 * 7 * BIT(1), /* UNUSED */ 43200001 * 7 * BIT(1), /* UNUSED */ 43500001 * 7 * BIT(1), /* UNUSED */ 43800001 * 7 LCTERRM BIT(1), /* JOB TERMINATION STATUS */ 44100001 * 5 * PTR(24), /* ADDRESS OF LINKOR'S 44150001 * SAVE AREA */ 44200001 * 3 LCTJCTAD PTR(31), 44400001 * 5 * BIT(8), /* UNUSED */ 44700001 * 5 * PTR(24), /* JCT STORAGE ADDRESS OR 0 */ 45000002 * 3 LCTSCTAD PTR(31), 45300001 * 5 * BIT(8), /* UNUSED */ 45600001 * 5 * PTR(24), /* SCT STORAGE ADDRESS OR 0 Y02669*/ 45650002 * 3 LCTSCTDA PTR(31), /* SCT SWA ADDRESS */ 46200002 * 4 LCTWORKA PTR(31), 46250001 * 5 LCTSCTVA PTR(24) BDY(WORD), /* SCT SWA VIRTUAL ADDRESS */ 46300002 * 5 * BIT(8), /* UNUSED */ 46500001 * 3 LCTPSPAR PTR(31), 47100001 * 5 * BIT(8), /* UNUSED */ 47400001 * 5 * PTR(24), /* ADDRESS OF ALLOC/TERM 47700001 * COMMUNICATION AREA */ 48000001 * 3 LCTERROR FIXED(31), /* ERROR CODES */ 48300001 * 5 LCTERR BIT(8), /* NEW LCTERROR BITS Y02670*/ 48350002 * 7 LCTJFAIL BIT(1), /* IF ON, JOB FAILED Y02670*/ 48400002 * 7 LCTSALCD BIT(1), /* IF ON, AT LEAST ONE STEP 48450002 * WAS ALLOCATED Y02670*/ 48500002 * 7 LCTPALCD BIT(1), /* IF ON, THIS STEP 48550002 * PARTIALLY ALLOCATED Y02670*/ 48560002 * 7 LCTSFAIL BIT(1), /* IF ON, STEP BYPASSED Y02670*/ 48570002 * 7 LCTACOMP BIT(1), /* IF ON ALLOCATION HAS BEEN 48575002 * COMPLETED BUT UNALLOCATION 48580002 * IS YET TO RUN. USED TO TEST 48585002 * ESTAE YM07219*/ 48590003 * 7 LCTJCFAL BIT(1), /* ON IF JOB FAILED BECAUSE 48591003 * CONDITION CODES @Z30CPPH*/ 48592003 7 LCTVTERM BIT(1), /* ON IF ALLOC FAILED AND 48593003 MSS SELECTS DONE @G24LPSJ*/ 48594003 * 3 LCTPARM1 FIXED(31), /* MULTI USE PARAMETER FIELD */ 48600001 * 3 LCTPARM2 FIXED(31), /* MULTI USE PARAMETER FIELD */ 48900001 * 3 LCTPARM3 FIXED(31), /* MULTI USE PARAMETER FIELD */ 49200001 * 3 LCTPARM4 FIXED(31), /* MULTI USE PARAMETER FIELD */ 49500001 * 3 LCTCMCBA PTR(31), 49800001 * 5 * BIT(8), /* UNUSED */ 50100001 * 5 * PTR(24), /* CORE ADDRESS OF CONTROL 50400001 * BYTES FOR CORE MANAGEMENT */ 50700001 * 3 LCTNSPAD BIT(8), /* NON SETUP PADDING BYTE */ 51000001 * 5 LCTSTIND BIT(8), 51050001 * 3 LCTJFCBH BIT(8), /* JFCB HOUSEKEEPING BYTE */ 51300001 * 5 LCTS2PEM BIT(1), /* FIRST PDQ TABLE ENTRY MADE */ 51600001 * 5 LCTS2COP BIT(1), /* CORE OBTAINED FOR PDQ TABLE */ 51900001 * 5 LCTS2FES BIT(1), /* FIRST ENTRY IN PDQ FOR STEP */ 52200001 * 5 * BIT(1), /* UNUSED */ 52500001 * 5 * BIT(1), /* UNUSED */ 52800001 * 5 * BIT(1), /* UNUSED */ 53100001 * 5 * BIT(1), /* UNUSED */ 53400001 * 5 * BIT(1), /* UNUSED */ 53700001 * 3 LCTSNUMB PTR(8), /* CURRENT STEP NUMBER */ 54000001 * 3 LCTACTON PTR(8), /* ACTION CODE */ 54300001 * 3 LCTSMBAD PTR(31), 54600001 * 5 * BIT(8), 54900001 * 5 * PTR(24), /* SMB ADDRESS */ 55200001 * 3 LCTBATMN FIXED(31), /* USED IN GENERATING A UNIQUE 55500001 * VOLUME SERIAL NUMBER WHEN 55800001 * THE USER DOESN'T SPECIFY ONE 56100001 * ON HIS DD CARD AND DOES 56400001 * SPECIFY A PASSED DATA SET ON 56700001 * UNLABELED TAPE. */ 57000001 * 3 LCTCOMCD PTR(31), /* WARMSTART ABEND CODE Y02641*/ 57300002 * 5 LCTCOMD1 PTR(15), /* WARMSTART COMP. CODE Y02641*/ 57350002 * 5 LCTCOMD2 PTR(15), /* WARMSTART COMP. CODE Y02641*/ 57400002 * 3 LCTRTRN PTR(31), 58500001 * 5 LCTSREG PTR(31), 58550001 * 7 * BIT(8), /* UNUSED */ 58800001 * 7 * PTR(24), /* RETURN ADDRESS TO MASTER 59100001 * SCHEDULER(FOR STOP 59400001 * INITIATOR) */ 59700001 * 3 * PTR(31), 60000002 * 5 LCTINTSW BIT(8), /* INITIATOR INTERNAL SWITCH */ 60300001 * 7 LCTINPPT BIT(1), /* PGM. NAME IS IN PPT Y02656*/ 60350002 * 7 LCTPRIV BIT(1), /* PROGRAM IS PRIVILEGED Y02655*/ 60400002 * 7 LCTPPAA BIT(1), /* ISSUE MESSAGE FOR 'PROBLEM PROG. 60450002 * ATTRIBURES ASSIGNED' Y02656*/ 60500002 * 7 LCTMINRG BIT(1), /* JOB FLUSH - USE MINPAR */ 61500001 * 7 LCTSTART BIT(1), /* TASKNAME NOT FOUNND ON 61800001 * COMMAND */ 62100001 * 7 LCTSTOP BIT(1), /* INITIATOR INTERNAL STOP */ 62400001 * 7 LCTABEND BIT(1), /* EXECUTED PGM ABENDED */ 62700001 * 7 LCTNDSI BIT(1), /* MUST VERIFY TASKLIB BEFORE 63000002 * ASSIGNING 'NO DATA SET 63100002 * INTEGRITY' Y02652*/ 63150002 * 5 LCTPUBYT BIT(8), /* PREFERRED USAGE FLAGS @ZA16877*/ 63300003 * 7 LCT2LPU BIT(1), /* 2ND LEVEL PREFERRED @ZA16877*/ 63320003 * 7 LCT1LPU BIT(1), /* 1ST LEVEL PREFERRED @ZA16877*/ 63340003 * 7 LCTN2LP BIT(1), /* NOT 2ND LEVEL PREFERRED @ZA16877*/ 63360003 * 7 LCTNSWP BIT(1), /* NON-SWAPPABLE @ZA16877*/ 63380003 * 7 * BIT(1), /* UNUSED @ZA16877*/ 63400003 * 7 * BIT(1), /* UNUSED @ZA16877*/ 63420003 * 7 * BIT(1), /* UNUSED @ZA16877*/ 63440003 * 7 * BIT(1), /* UNUSED @ZA16877*/ 63460003 * 5 * CHAR(2), /* RESERVED @ZA16877*/ 63480003 * 3 LCTTMWRK CHAR(16) BDY(WORD), /* TIMER WORK AREA Y02669*/ 63600002 * 5 LCTTJTU4 FIXED(31), /* TOTAL JOB TIME USED Y02669*/ 63650002 * 7 * BIT(8), /* RESERVED Y02669*/ 63700002 * 7 LCTTJTU3 FIXED(24), /* TOTAL JOB TIME USED Y02669*/ 63750002 * 5 LCTTSTL4 FIXED(31), /* STEP TIME LIMIT Y02669*/ 63800002 * 7 * BIT(8), /* RESERVED Y02669*/ 63850002 * 7 LCTTSTL3 FIXED(24), /* STEP TIME LIMIT Y02669*/ 63860002 * 5 LCTTSTR4 FIXED(31), /* STEP TIME REMAINING Y02669*/ 63870002 * 6 LCTSMF CHAR(4) BDY(WORD), /* FOR SMF, PTR. TO JMR OR DEVICES 63872002 * USED Y02669*/ 63874002 * 7 LCTTMBYT BIT(8), /* FLAG Y02669*/ 63880002 * 9 LCTTTIFJ BIT(1), /* TIME LIMIT IS FOR JOB Y02669*/ 63890002 * 7 LCTTSTR3 FIXED(24), /* STEP TIME REMAINING Y02669*/ 63892002 * 5 LCTTSTU4 FIXED(31), /* STEP TIME USED Y02669*/ 63894002 * 7 * BIT(8), /* RESERVED Y02669*/ 63896002 * 7 LCTTSTU3 FIXED(24), /* STEP TIME REMAINING Y02669*/ 63898002 * 3 LCTJOBLB PTR(31), 63900001 * 5 * BIT(8), /* UNUSED */ 64200001 * 5 * PTR(24), /* POINTER TO JOBLIB OR 64500001 * STEPLIB DCB */ 64800001 * 3 LCTATLST PTR(31), 65100001 * 5 * BIT(8), /* UNUSED */ 65400001 * 5 * PTR(24), /* ADDRESS OF ALLOCATE/TERMINATE 65700001 * PARAMETER LIST */ 66000001 * 3 REGSAVE (36)FIXED(31), /* ALLOC/TERM REGISTER 66300001 * SAVE AREA */ 66600001 * 3 QMGR1 (9) FIXED(31), /* QUEUE MGR PARAMETER AREA */ 66900001 * 3 * CHAR(36) BDY(WORD), /* RESERVED Y02652*/ 67200002 * 3 LCTASCBA PTR(31), /* ADDR OF CURRENT ASCB Y02669*/ 67500002 * 3 LCTJMRAD FIXED(31), /* JMR ADDRESS Y02668*/ 67800002 * 3 LCTECBAD PTR(31), 68100001 * 4 ECBLIST PTR(31), 68150001 * 5 * BIT(8), 68400001 * 5 * PTR(24), /* PTR TO ECB LIST */ 68700001 * 3 LCTIDENT CHAR(8) BDY(WORD), /*HOLDER FOR IDENTIFIER */ 69000001 * 5 LCTPIB FIXED(31), 69050001 * 5 LCTSPIL FIXED(31), 69100001 * 7 LCTDSBCT FIXED(15), /* COUNT OF JOB'S DSB'S */ 69110001 * 7 LCTALCFG BIT(8), /* ALLOCATION FLAGS */ 69150001 * 8 LCTODSFL BIT(1), /* ODS FAILED INDICATOR */ 69200001 * 8 LCTMSGWT BIT(1), /* WTO MESSAGE LOST */ 69250001 * 8 * BIT(1), /* UNUSED */ 69260001 * 8 * BIT(1), /* UNUSED */ 69270001 * 8 * BIT(1), /* UNUSED */ 69280001 * 8 * BIT(1), /* UNUSED */ 69290001 * 8 * BIT(1), /* UNUSED */ 69292001 * 8 * BIT(1), /* UNUSED */ 69294001 * 7 * BIT(8), 69296001 * 3 * CHAR(8) BDY(WORD), /* RESERVED Y02652*/ 69300002 * 3 LCTTSRB4 FIXED(31), /* STEP SRB TIME USED Y02669*/ 69600002 * 4 * BIT(8), /* RESERVED Y02669*/ 69650002 * 4 LCTTSRB3 FIXED(24), /* STEP SRB TIME USED Y02669*/ 69700002 * 3 LCTENTR PTR(31), /* ADDR OF INIT ENTRANCE LIST */ 70500001 * 4 LCTEXIT PTR(31), /* ADDR OF INIT EXIT LIST */ 70550001 * 5 LCTOPSW1 BIT(8), /* INITIATOR OPTION BYTE 1 */ 70800001 * 7 LCTDPSWA BIT(1), /* DON'T SET 'DON'T SHARE SWA' 71100002 * ON ATTACH Y02621*/ 71150002 * 7 LCTDWFF BIT(1), /* DON'T PROCESS DEDICATED 71400001 * WORK FILE */ 71700001 * 7 * BIT(1), /* RESERVED Y02652*/ 72000002 * 7 * BIT(1), /* RESERVED Y02652*/ 72300002 * 7 LCTCANF BIT(1), /* ALLOW CANCEL ONLY AT ALLOC */ 72600001 * 7 LCTONEJF BIT(1), /* STARTED TASK INDICATOR */ 72900001 * 7 * BIT(1), /* RESERVED Y02652*/ 72950002 * 7 * BIT(1), /* RESERVED Y02652*/ 73000002 * 5 * PTR(24), /* ADDR. OF IEL */ 73800002 * 3 * PTR(31), /* RESERVED Y02652*/ 74100002 * 5 LCTOPSW2 BIT(8), /* INITIATOR OPTION BYTE 2 */ 74400001 * 7 LCTTIMEF BIT(1), /* DON'T TIME THIS */ 74700001 * 7 LCTCRF BIT(1), /* DON'T ALLOW CHECK/RESTART */ 75000001 * 7 LCTCKRST BIT(1), /* THIS BIT IS SET BY IEFXB609 TO 75050003 INFORM IGFSD101 TO INSERT PROGRAM 75060003 NAME IEFRSTRT IN SCT AFTER 75110003 PPT PROCESSING @ZA20168*/ 75160003 * 7 * BIT(1), /* RESERVED Y02652*/ 75210003 * 7 * BIT(1), /* RESERVED Y02652*/ 75260003 * 7 LCTBPRAC BIT(1), /* BYPASS RACINIT @Z40RPPJ*/ 75310003 * 7 LCTNORC BIT(1), /* BYPASS ALLOC. RECOVERY Y02652*/ 76500002 * 7 LCTENQU BIT(1), /* DON'T WAIT FOR DATA SETS */ 76800001 * 5 * PTR(24), /* RESERVED Y02652*/ 77100002 * 3 LCTJSCB PTR(31), 78300001 * 5 LCTOPSW3 BIT(8), /* INITIATOR OPTION BYTE THREE */ 78600002 * 7 * BIT(1), /* RESERVED Y02652*/ 78650002 * 7 LCTRDER BIT(1), /* SPECIAL A/T PROCESSING FOR 78700001 * IEFRDER DD CARD */ 78710001 * 7 LCTNSYS BIT(1), /* DO NOT ASSIGN SPECIAL 78750002 * PROPERTIES Y02652*/ 78760002 * 7 * BIT(1), /* UNUSED */ 78800001 * 7 LCTJNLF BIT(1), /* JOURNALING REQUESTED */ 78850002 * 7 LCTALERR BIT(1), /* ERROR DURING ALLOCATION */ 78860001 * 7 * BIT(1), /* RESERVED Y02652*/ 78870002 * 7 * BIT(1), /* UNUSED */ 78880001 * 5 * PTR(24), /* ADDRESS OF JSCB */ 78900001 * 3 * (9) FIXED(31), /* RESERVED Y02652*/ 80150002 * 3 LCTSTEPL PTR(31), /* ADDR OF STAE EXIT PARAMETER 80200002 * LIST FOR INITIATOR Y02653*/ 80204002 * 3 LCTSSOBA PTR(31), /* ADDR OF SSOB FOR THIS TASKY02668*/ 80206002 * 3 LCTJCTDA PTR(31), /* JCT SWA ADDRESS Y02652*/ 80220002 * 5 LCTJCTVA PTR(24) BDY(WORD), /*JCT SWA VIRTUAL ADDRESS Y02652*/ 80230002 * 5 * PTR(8), /* RESERVED Y02652*/ 80240002 * 3 LCTTIOTI FIXED(31), /* INIT TIOT TTR */ 80250001 * 3 LCTSTATA BIT(8), /* INIT STATUS BYTE 1 */ 80300001 * 5 LCTSUSPD BIT(1), /* SUSPEND INIT */ 80350001 * 5 LCTSNOWK BIT(1), /* CALL IEEMF105 IF NO WORK */ 80352001 * 5 LCTBTJOB BIT(1), /* SUSPEND INIT BETWEEN JOBS */ 80354001 * 5 LCTNECBL BIT(1), /* DON'T CONSTRUCT ECB LIST */ 80356001 * 5 LCTJCPIB BIT(1), /* GET JOB CLASS INFO FROM PIB */ 80358001 * 5 LCTNOSDP BIT(1), /* BYPASS STEP DISP PRI CODE */ 80358401 * 5 LCTNOGCB BIT(1), /* BYPASS GCB PROCESSING */ 80358801 * 5 LCTCPART BIT(1), /* CHECK PART BOUNDS IF RESTART */ 80359201 * 3 LCTSTATB BIT(8), /* INIT STATUS BYTE 2 */ 80360001 * 5 LCTECBPB BIT(1), /* PUT ECB LIST PTR IN PIB */ 80370001 * 5 LCTNOREG BIT(1), /* BYPASS REGION DETERMINE CODE */ 80380001 * 5 LCTNOATC BIT(1), /* BYPASS ATTACH/DETACH CONSIDER. */ 80390001 * 5 LCTWRITE BIT(1), /* WRITE LOT WITH TIOT */ 80392001 * 5 LCTNREAD BIT(1), /* DON'T READ JCT AND SCT */ 80394001 * 5 LCTSBPOL BIT(1), /* GET WTPCB AND JSCB IN SP 255 */ 80396001 * 5 LCTNPKEY BIT(1), /* PGM RUNS IN PK ZERO */ 80398001 * 5 LCTMFTIO BIT(1), /* USE IEEMFTIO DURING TERM */ 80398401 * 3 LCTRFB BIT(8), /* RESTART FUNCTION SWITCHES */ 80398801 * 5 LCTRFBSM BIT(1), /* CALL IEFXB601 */ 80399201 * 5 LCTRFBCR BIT(1), /* AUTOMATIC CHKPT. RESTART Y02641*/ 80399602 * 5 LCTRFBRV BIT(1), /* SPECIAL WARMSTART PROCESSING */ 80419902 * 5 LCTRFBDC BIT(1), /* DEFERRED CHECKPOINT/RESTART */ 80429902 * 5 LCTRFBMS BIT(1), /* DON'T MODIFY JSB FIELDS */ 80439902 * 5 LCTRFBEF BIT(1), /* MERGE TO EOF OF JOURNAL */ 80449902 * 5 LCTRFBRP BIT(1), /* CALL IEFPREP */ 80459901 * 5 * BIT(1), /* RESERVED */ 80469901 * 3 LCTRFB1 BIT(8), /* RESERVED FOR WARMSTART/RESTART */ 80479902 * 3 * PTR(31), /* RESERVED Y02652*/ 80481902 * 5 LCTTSIZ PTR(8), /* TO INFORM ALLCOATION OF SIZE OF 80489902 * MASTER SCHED. TIOT Y02641*/ 80490702 * 5 LCTINTS2 BIT(8), /* INTERNAL SWITCHES, BYTE 2. 80492702 * IT WILL BE CLEARED FOR EVERY STEP BY IEFSD101. Y02652*/ 80493102 * 7 LCTSYS BIT(1), /* SYSTEM TASK REQUESTED Y02652*/ 80493602 * 7 LCTBPPAS BIT(1), /* BYPASS PASSWD PROTECT. @ZA03944*/ 80493703 * 7 LCTTSWPC BIT(1), /* TRANSWAP COMPLETED @ZA16877*/ 80493903 * 7 LCTATTC BIT(1), /* INITATT HAS BEEN ISSUED 80494303 * (RESET AT INITDET TIME) @ZA16877*/ 80494703 * 3 * PTR(31), /* RESERVED Y02652*/ 80495103 * 3 LCTLBWAP PTR(31), /* PTR TO LOAD BAL WORK AREA */ 80495901 * 3 LCTIMSG PTR(31), /* VIRTUAL ADDR. OF IEFIB650 Y02652*/ 80497902 * 3 * PTR(31), /* RESERVED Y02652*/ 80547903 * 3 LCTIWORK CHAR(64), /* TEMPORARY WORK AREA, TO BE USED 83547903 * ONLY BY THE INITIATOR @Y02BPSR*/ 86547903 * 3 LCTLABEL CHAR(8); /* TO CONTAIN THE CHARACTERS 89547903 * 'ENDOFLCT', TO HELP IDENTIFY 92547903 * THE LCT IN A STORAGE DUMP @Y02BPSR*/ 95547903