* % GOTO SCTBSL; /* 00010020 MACRO 00020000 IEFASCTB 00040000 */**** SMB DELETION,EXTENDED ALLOC,INTERP. SUPPORT 01/24/72 00040802 .* M-004500,004600,007800,012000,013380,013644 Y02668 00042602 .* A-190700,191200,302200,502200,520200,750200,750700,846200 Y02668 00044602 .* M-011444,011448,012100 Y02670 00044702 .* D-011446 Y02670 00044802 .* C-011100,011447,011470,013380,013390,462200,515200 Y01113 00045002 .* C-542200,790200 Y01113 00046702 .* A-000404-000416,013304,013308,790700 Y01113 00048602 .* D-013460,013470,013480 Y01113 00050502 .* C-002620,062200 Y01029 00052402 .* A - DEFINE SCTPRFM2 BIT IN SCTSDP AND SCTSDPTY @ZA44031 00053303 .* A - DEFINE SCTEPRFM BIT IN SCTSDP AND SCTSDPTY @ZA44031 00053803 * MACMEAN SCT MEANS STEP CONTROL TABLE 00054402 * MACCOMP Y-2 SC1B9/PZD11 00056402 * MACSTAT Y-2 73145/16285 00058402 *********************************************************************** 00060000 * * 00080000 * STEP CONTROL TABLE * 00100000 * * 00120000 *********************************************************************** 00140000 DS 0D 00160000 INSMSCT EQU * STEP CONTROL TABLE 00180000 SCTDISKA DS CL3 DISK ADDRESS OF SCT 00200000 SCTTBLID DS CL1 TABLE ID OF SCT=2 00220002 SCTID EQU 2 00240000 SCTSSTAT DS CL1 INTERNAL STEP STATUS 00260000 EAADDRBT EQU 128 BIT 0 - ON FOR ADDRSPC=REAL Y01029 00262001 *EACAUSER EQU 64 CAN CAUSE ROLLOUT AACA 00264017 SCTNORST EQU 32 BIT 2 - NO RESTART TO BE DONE AACA 00266017 SCTNOCKP EQU 16 BIT 3 - NO CHECKPOINT TO BE TAKEN AACA 00268017 SCTDORST EQU 8 BIT 4 - DO RESTART IF NECESSARY AACA 00270017 *SCTKEY0 EQU 4 BIT 5 - FOR GRAPHICS - ALTER PROTECT KEY AACA 00272017 *SCTGRPH EQU 2 BIT 6 - FOR GRAPHICS - ABEND EXIT AACA 00274017 INCMSSTS EQU 1 BIT-7/STEP FAILED 00280000 SCTSTIME DS CL3 MAXIMUM STEP RUNNING TIME 00300000 SCTSEXEC DS CL2 STEP STATUS CODE PASSED TO THE 00320000 * INITIATOR AT TERMINATE OR THE 00340002 * LENGTH OF THE PARM FIELD IN THE 00350002 * SCTX. Y02641 00352002 SCTLALOC DS CL2 LENGTH OF ALLOCATION WORK AREA 00360000 * ALSO NUMBR OF GOOD DD CARDS 00370000 SCTFSIOT DS CL4 DISK ADDRESS OF FIRST SIOT 00380000 SCTAALOC DS CL4 DISK ADDRESS OF ALLOCATION 00400000 * WORK AREA 00420000 SCTANSCT DS CL4 DISK ADDRESS OF NEXT SCT 00440000 SCTLSIOT DS CL4 LAST SIOT FOR STEP Y02668 00450002 SCTDDNT DS CL4 SWA ADDRESS OF DDNT Y02641 00460002 SCTAFACT DS CL4 DISK ADDRESS OF FIRST ACT 00560000 * FOR THIS STEP 00580000 DS CL4 RESERVED 00600002 SCTADSTB DS CL4 DISK ADDRESS OF DSNAME 00640000 * TABLE FOR THIS STEP 00660000 SCTSCLPC DS CL8 NAME OF STEP THAT CALLED 00680000 * PROCEDURE 00700000 SCTSNAME DS CL8 STEPNAME 00720000 SCTRPACT DS CL2 RELATIVE POINTER TO STEP ENTRY 00740000 * IN ACT 00760000 DS CL2 RESERVED 00782002 SCTSNUMB DS CL1 STEP NUMBER Y02641 00810002 SCTNSMSG DS CL1 NUMBER OF SET UP MESSAGES 00820000 DS CL1 RESERVED 00830002 * 00860000 SCTSTYPE DS CL1 STEP TYPE 00880000 SCTGOSTP EQU 128 BIT 0- =1 IF PGM=*.(GO)STEP(FETCH DCB) 19874 00884019 * EQU 64 BIT 1- =1 IF SYSIN IS SPECIFIED (DD *) 19874 00888019 * EQU 32 BIT 2- =1 IF THE PARAMETER ASSOCIATED WITH A 19874 00892019 * SYSOUT KEYWORD SPECIFIES THE MESSAGE CLASS 19874 00896019 SCTSJFHK EQU 16 BIT 3 - JFCB H/K COMPLETE 00900000 * 00920000 * BITS 4, 5, AND 6 ARE USED BY THE INITIATOR, AS FOLLOWS-- 00940000 * 000 - USE ACTION CODE 00960000 * 001 - GO TO AVR MODULE 00980000 * 010 - GO TO SPACE REQUEST 01000000 * 011 - GO TO EXTERNAL ACTION SETUP 01020000 * 100 - GO TO EXTERNAL ACTION VERIFY 01040000 * 101 - NULL 01060000 * 110 - NULL 01080000 * 111-NULL 01100000 SCTJSCAT EQU 1 BIT 7- =1 PRVT CAT IS JOBCAT, =0 FOR STEPCAT Y01113 01110001 * 01140000 SCTXBTTR DS F TTR OF SCT EXTENSION BLOCK CONTAINING PARM AACA 01141017 SCTMSADR DS F ADDRESS OF REGION IN MAIN STORAGE - X'00 IN 1ST BYAACA 01142017 SCTSRBT DS CL4 ACCUMULATED SRB TIME FOR STEP Y02652 01142402 * * * * THE FOLLOWING FOUR BYTES ARE I254 01143219 * USED BY IEFSD41Q(MVT AND MFT-2), I254 01143419 * IEFSD42Q(MVT AND MFT-2), I254 01143619 * IEFW41SD(PCP), I254 01143819 * IEFW42SD(PCP), I254 01144019 * IEFYNIMP(ALL SYSTEMS) I254 01144219 SCTLDSTB DS CL4 LENGTH OF DSN TABLE Y02670 01144402 SCTPCAT DS CL4 PRIV.CATALOG SIOT DISK ADDR Y01113 01144702 SCTMSSZE DS H SIZE OF REGION IN MAIN STORAGE AACA 01145017 DS H RESERVED 01146002 SCTNIUSL DS CL2 COUNT OF TOTAL NO. OF DD'S FOR A STEP Y02668 01147002 SCTSDP DS CL2 STEP DISPATCHING PRIORITY- SET IN IEFVEA, I241 01148018 * USED BY THE INITIATOR I241 01149018 SCTEPRFM EQU 128 BIT 0=1 PERFORM SPECIFIED ON EXEC STATEMENT 01149103 * @ZA44031 01149203 SCTPRFM2 EQU 64 BIT 1=1 IF TWO BYTE PERFORM FIELD IS USED @ZA44031 01149403 SCTFSTEP EQU 32 BIT 2-FIST STEP TO BE EXECUTED I241 01150018 SCTSMF DS F STEP SYSIN COUNT FOR SMF SMF 01151018 SCTGOTTR DS CL4 TTR OF PGM=*. SIOT AACA 01152017 SCTTIOT DS CL4 THIS FIELD+1 IS A 3-BYTE TTRAACA 01153017 * OF THE STEP TIOT AACA 01154017 SCTSTAT2 EQU SCTTIOT EXTENSION OF STEP STATUS INDICATORS AACA 01155017 SCTBCT EQU SCTTIOT STEP STATUS INDICATORS 19874 01155519 * BIT 0 - RESERVED 19874 01156019 * THE FOLLOWING BIT INDICATES THAT DIRECT SYSOUT FACILITIES ARE O99 01156519 * REQUIRED FOR JOB SEPARATOR/SYSTEM MESSAGES O99 01157019 SCTMCVOL EQU 32 ALLOCATION FOR CVOL AACA 01160017 * BIT 3 - RESERVED 19874 01160519 SCTSTPLB EQU 8 BIT 4 - STEPLIB PRESENT AACA 01161017 SCTSPSYS EQU 4 BIT 5 - =1 IF SPOOLED SYSIN FOR STEP (EXPRESS O102 01161219 * CANCEL)SET BYIEFVDA,TESTED BY IEESD575 O102 01161419 * MVT AND MFT ONLY) O102 01161619 SCTJBEND EQU 2 JOB ENDED BIT AACA 01162017 SCTPGMNM DS CL8 PROGRAM NAME 01180002 SCTPRFMF DS CL1 PERFORMANCE GROUP NUMBER Y02668 01200002 DS CL1 RESERVED Y02670 01210002 SCTSDPCD DS CL2 FIRST STEP DEPENDENCY CODE 01240000 SCTSDPOP DS CL1 FIRST STEP DEPENDENCY OPERATOR 01260000 SCTSDPSA DS CL3 DISK ADDRESS OF DEPENDENCY SCT 01280000 DS CL36 SPACE FOR 6 MORE STEP DEPENDENCIES HW16 01285016 SCTABCND DS CL1 8TH CONDITION CODE SLOT - IF EVEN OR HW16 01290016 * ONLY WERE SPECIFIED, INFORMATION HERE. OTHERWISE, 8TH COND HW16 01295016 * CODE OR ZERO HW16 01300016 SCTABCAN EQU 16 STEP CANCEL-PRIOR ABEND NO EVEN/ONLY HW16 01305016 SCTONLYC EQU 8 STEP CANCEL-ONLY WITH NO PRIOR ABEND(S) HW16 01310016 SCTABEND EQU 4 THIS STEP ABENDED HW16 01315016 SCTEVEN EQU 2 COND=EVEN WAS SPECIFIED HW16 01320016 SCTONLY EQU 1 COND=ONLY WAS SPECIFIED HW16 01325016 DS CL5 TO COMPLETE CONDITION CODE SPACE HW16 01330016 SCTCATCT DS CL2 COUNT OF PRIV. CATALOG SIOTS Y01113 01330402 *******************************************************************AACA 01331017 * AACA 01332017 * IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO ADD AACA 01333017 * THE FOLLOWING FIELDS TO THE SCT. TO AVOID CAUSING AACA 01334017 * ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY AACA 01335017 * EXISTING MODULES WHICH REFERENCE THESE FIELDS,THEY AACA 01336017 * ARE GENERATED HERE ONLY AS COMMENTS. NOTE THAT IN AACA 01337017 * ACTUALITY THESE FIELDS OCCUPY THE 1ST 5 BYTES OF Y02668 01338002 * THE AREA THAT IMMEDIATELY FOLLOWS THESE COMMENTS. Y01113 01339001 * UNTIL THESE FIELDS ARE ACTUALLY INCORPORATED INTO THIS AACA 01340017 * MACRO,THEY MUST BE REFERENCED BY DISPLACEMENT (GIVEN AACA 01341017 * BELOW), PREFERABLY THROUGH THE USE OF EQUATES WITH AACA 01342017 * THE SYMBOLS DESIGNATED BELOW. AACA 01343017 * AACA 01344017 DS CL4 RESERVED 01345002 *SCTSTEND DS CL1 BIT 0= STEP STARTED 01350002 * BIT 1=STEP ENDED AACA 01356017 SCTSYSCK EQU 32 BIT 2=RESTART REQUEST SYSTEM Y02641 01356402 * INITIATED, C/P DATA SET Y02641 01356802 * ALREADY BEEN VALIDATED. Y02641 01356902 * DISPLACEMENT 172 (DECIMAL) AACA 01357017 DS CL3 RESERVED 01364402 SCTLNGTH EQU *-INSMSCT LENGTH OF SCT AACA 01366017 INDMDSNT DS 45F 01400000 MEND 01420000 */ % SCTBSL: ; 02220020 /* MACMEAN SCT MEANS STEP CONTROL TABLE */ 02270002 /* MACCOMP Y-2 SC1B9/PZD11 */ 02320002 /* MACSTAT Y-2 73145/16285 */ 02370002 DECLARE 1 INSMSCT BDY(DWORD) BASED(SCTPTR), /* SCT */ 03020020 4 SCTDISKA PTR(24) BDY(WORD), /* DISK ADDRESS OF SCT */ 03820020 4 SCTTBLID CHAR(1), /* TABLE ID OF SCT = 2 */ 04620002 4 SCTSSTAT BIT(8), /* INTERNAL STEP STATUS */ 05420020 6 EAADDRBT BIT(1), /* ADDRSPC=REAL ON EXEC Y01029*/ 06220001 6 EACAUSER BIT(1), /* CAN CAUSE ROLLOUT */ 07020020 6 SCTNORST BIT(1), /* NO RESTART TO BE DONE */ 07820020 6 SCTNOCKP BIT(1), /* NO CHECKPOINT TO BE TAKEN */ 08620020 6 SCTDORST BIT(1), /* DO RESTART IF NECESSARY */ 09420020 6 SCTKEY0 BIT(1), /* FOR GRAPHICS - ALTER PROTECT KEY */ 10220020 6 SCTGRPH BIT(1), /* FOR GRAPHICS - ABEND EXIT */ 11020020 6 INCMSSTS BIT(1), /* STEP FAILED */ 11820020 4 SCTSTIME PTR(24), /* MAXIMUM STEP RUNNING TIME */ 12620020 4 SCTSEXEC CHAR(2), /* STEP STATUS CODE OR THE LENGTH OF THE PARM 13420002 FIELD IN THE SCTX Y02641 */ 13470002 4 SCTLALOC PTR(15), /* LENGTH OF ALLOCATION WORK AREA OR NO.DDS */14220020 4 SCTFSIOT PTR(24) BDY(WORD), /* DISK ADDRESS OF FIRST SIOT */ 15020020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 15820020 4 SCTAALOC PTR(24) BDY(WORD), /* TTR OF ALLOC WORK AREA*/ 16620020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 17420020 4 SCTANSCT PTR(24) BDY(WORD), /* DISK ADDRESS OF NEXT SCT */ 18220020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 19020020 4 SCTLSIOT PTR(24) BDY(WORD), /* LAST SIOT FOR STEP Y02668*/ 19070002 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 19080002 4 SCTDDNT PTR(31) BDY(WORD), /* SWA ADDRESS OF DDNT Y02641 */ 19120002 4 SCTAFACT PTR(24) BDY(WORD), /* TTR OF 1ST ACT OF STEP */ 23020020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 23820020 4 * CHAR(4), /* RESERVED FOR FUTURE USE */ 25420002 4 SCTADSTB PTR(24) BDY(WORD), /* TTR OF DSN TABLE FOR THIS STEP */26220020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27020020 4 SCTSCLPC CHAR(8), /* NAME OF STEP THAT CALLED PROCEDURE */ 27820020 4 SCTSNAME CHAR(8), /* STEP NAME */ 28620020 4 SCTRPACT PTR(15), /* REL PTR TO STEP ENTRY IN ACT */ 29420020 4 * CHAR(2), /* RESERVED */ 30270002 4 SCTSNUMB CHAR(1), /* FAILING STEP NO. FOR AUTO RESTART Y02641*/ 30320002 4 SCTNSMSG PTR(8), /* NO. OF SETUP MESSAGES */ 31820020 4 * CHAR(1), /* RESERVED */ 32620002 4 SCTSTYPE BIT(8), /* STEP TYPE INDICATORS */ 33420020 6 SCTGOSTP BIT(1), /* FETCH DCB */ 34220020 6 SCTINPUT BIT(1), /* IF SYSIN IS SPECIFIED (DD *) */ 35020020 6 SCTOUTMC BIT(1), /* PARAMETER ASSOC WITH SYSOUT KEYWORD 35820020 SPECIFIES MSGCLASS */ 36620020 6 SCTSJFHK BIT(1), /* JFCB H/K COMPLETE */ 37420020 6 SCTINITB BIT(3), /* BITS USED BY THE INITIATOR */ 38220020 /* 000 -USE ACTION CODE 39020020 001 - GO TO AVR MODULE 39820020 001 40620020 010 - GO TO SPACE REQUEST 41420020 011 - GO TO EXTERNAL ACTION SETUP 42220020 100 - GO TO EXTERNAL ACTION VERIFY 43020020 101 - NULL 43820020 110 - NULL 44620020 111 - NULL */ 45420020 6 SCTJSCAT BIT(1), /* PRIV CAT:=1 JOBCAT ,=0 STEPCAT Y01113*/ 46220001 4 SCTXBTTR PTR(24) BDY(WORD), /* ADDR OF SCT BLOCK WITH PARM */ 47020020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 47820020 4 SCTMSADR PTR(31), /* ADDR OF REGION IN MAIN STORAGE */ 48620020 4 SCTSRBT PTR(31), /* ACCUMULATED SRB TIME FOR STEP Y02652 */ 49420002 4 SCTLDSTB CHAR(4), /* LENGTH OF DSNAME TABLE Y02668*/ 50220002 4 SCTPCAT CHAR(4), /* PRIV.CAT SIOT DISK ADDR Y01113*/ 51520002 4 SCTMSSZE PTR(15), /* SIZE OF REGION IN MAIN STORAGE */ 52620020 4 * PTR(15), /* RESERVED */ 53420002 4 SCTNIUSL CHAR(2), /*COUNT OF TOTAL NO. DD'S FOR A STEP Y02668 */ 54220002 4 SCTSDPTY CHAR(2), /* MISC BITS AND PIECES M0795*/ 55020001 6 SCTEPRFM BIT(1), /* PERFORM SPECIFIED ON EXEC STMT @ZA44031*/ 55820003 6 SCTPRFM2 BIT(1), /* TWO BYTE PERFORM FIELD IF BIT ON 56620003 @ZA44031*/ 56670003 6 SCTFSTEP BIT(1), /* FIRST STEP TO BE EXECUTED */ 56720003 6 SCTSDP BIT(5), /* DISPATCHING PRIORITY */ 56770003 6 * CHAR(1), /* OVERRIDE DISPATCHING PRIORITY M0795*/ 56820003 4 SCTSMF PTR(31), /* STEP SYSIN COUNT FOR SMF */ 59820020 4 SCTGOTTR PTR(31), /* TTR OF *.SIOT */ 60620020 4 SCTSTAT2 BIT(8), /* EXTENSION OF STEP STATUS INDICATORS */ 61420020 6 SCTBCT BIT(8), /* GDG BIAS COUNT UPDATE FLAG */ 62220020 8 * BIT(2), /* RESERVED FOR FUTURE USE */ 63020002 8 SCTMCVOL BIT(1), /* ALLOCATION FOR CVOL */ 68620020 8 * BIT(1), /* RESERVED FOR FUTURE USE */ 69420020 8 SCTSTPLB BIT(1), /* STEPLIB PRESENT */ 70220020 8 SCTSPSYS BIT(1), /* RESERVED FOR FUTURE USE */ 71020020 8 SCTJBEND BIT(1), /* JOB ENDED BIT */ 71820020 8 * BIT(1), /* RESERVED FOR FUTURE USE */ 72620002 4 SCTTIOT PTR(24), /* TIOT TTR */ 73420020 4 SCTPGMNM CHAR(8), /* PROGRAM NAME */ 74220020 4 SCTPRFMF CHAR(1), /* PERFORMANCE GROUP NUMBER Y02668*/ 75020002 4 * CHAR(1), /* RESERVED Y02668*/ 75070002 4 SCTCDENT (8) CHAR(6), /* 7 CONDITION CODE ENTRIES */ 75820020 6 SCTSDPCD CHAR(2), /* FIRST STEP CONDITION CODE */ 76620020 6 SCTSDPOP CHAR(1), /* FIRST CONDITION CODE OPERATOR */ 77420020 6 SCTSDPSA PTR(24) BDY(BYTE), /* TTR OF 1ST CONDITION SCT */ 78220020 4 SCTCATCT CHAR(2), /* COUNT OF PR. CAT SIOTS Y02668*/ 79020002 4 * CHAR(4), /* RESERVED */ 79820002 4 SCTSTEND BIT(8), /* BITS AND PIECES */ 81420020 6 SCTSTSRT BIT(1), /* STEP STARTED BIT */ 82220020 6 SCTSTPND BIT(1), /* STEP ENDED BIT */ 83020020 6 SCTSYSCK BIT(1), /* RESTART REQUEST SYSTEM INITIATED,C/P 83070002 DATA SET ALREADY BEEN VALIDATED Y02641*/ 83120002 6 * BIT(5), /* RESERVED FOR FUTURE USE */ 83820002 4 * CHAR(3); /* RESERVED Y02668*/ 84620002 DECLARE INDMDSNT CHAR(180) BDY(WORD) BASED(ADDR(INSMSCT)+176); 87020002 /* DSNAME TABLE */ 87820020 /* OVERLAY FOR EIGTH CONDITION CODE */ 88620020 DECLARE 1 * BASED( ADDR ( SCTCDENT)+42), /* EIGHT CONDITION CODE */89420020 4 SCTABCND BIT(8), /* 8TH CODE SLOT OR OTHER INFO */ 90220020 6 * BIT(3), /* RESERVED FOR FUTURE USE */ 91020020 6 SCTABCAN BIT(1), /* STEP CANCEL-PRIOR ABEND NO EVEN/ONLY */ 91820020 6 SCTONLYC BIT(1), /* STEP CANCEL-ONLY WITH NO PRIOR ABENDS */ 92620020 6 SCTABEND BIT(1), /* THIS STEP ABENDED */ 93420020 6 SCTEVEN BIT(1), /* COND=EVEN WAS SPECIFIED */ 94220020 6 SCTONLY BIT(1), /* COND=ONLY WAS SPECIFIED */ 95020020 4 * CHAR(5); /* REST OF CONDITION CODE SLOT */ 95820020 %DECLARE SCTID FIXED, 96620020 SCTLNGTH FIXED; 97420020 %SCTLNGTH=176; /* LENGTH OF STEP CONTROL TABLE */ 98220020 %SCTID=2; /* SCT ID =2 */ 99020020