*/* INCLUDE SYSLIB(IECDSECS) Y02134*/ 00010000 * % GOTO PLSDSECS; /*GO TO THE PLS VERSION Y02134*/ 00020000 */* IECDSECS O/C/E CONTROL BLOCK MAPPING MACRO Y02134 00030000 MACRO 00050000 IECDSECS &PARMS,&EXPAND= 00100000 .* 00110000 *********************************************************************** 00110400 * 00110800 * CHANGE ACTIVITY = SEE BELOW 00110900 * 00111000 * VS2 RELEASE 03.8 DELETIONS/CHANGES 00111100 * 00111700 *A185750 @ZA51573 00112800 *$01=OZ72725,EDM1102,,STLBS: ADD NEW RESOURCE TO DADSM AUDIT TRAIL @01A 00114000 *$02=OZ81924,EDM1102,,FEGHA: BAD COMMENT CAUSING MSGIEV144 @02C 00114100 * 00114200 *********************************************************************** 00114400 * 00116000 .********************************************************************** 00120000 .* 00130000 .* MODULE NAME = IECDSECS (VS2-2) 00140000 .* 00142000 .* DESCRIPTIVE NAME = O/C/E CONTROL BLOCK ADDRESSING MACRO 00144000 .* 00146000 .* COPYRIGHT = NONE. 00148000 .* 00148400 .* STATUS = CHANGE LEVEL 000 00148800 .* 00149200 .* FUNCTION = O/C/E MACRO USED TO PROVIDE ADDRESSABILITY TO SYSTEM 00149600 .* CONTROL BLOCKS. 00149700 .* PLS VERSION: TO PROVIDE MAPPING OF EOV PORTION OF Y02134 00151700 .* O/C/E WORKAREA, PREFIX TO WTG TABLE AND WORKAREA, Y02134 00155900 .* RESIDENT ROUTINE WORKAREA, USER PARM LIST, WTG Y02134 00157900 .* TABLE. Y02134 00158000 .* 00158200 .* NOTES = THIS MACRO IS CALLED BY O/C/E CSECTS TO PROVIDE 00162400 .* ADDRESSABILITY TO SYSTEM CONTROL BLOCKS. THIS MACRO MAY 00166600 .* BE CALLED SEVERAL TIMES WITHIN ONE CSECT. INDICATORS 00168600 .* AND PARAMETERS ARE ACCUMULATED FROM EACH CALL AND ARE 00170600 .* EXPANDED AS DSECTS ON THE FINAL CALL OF THIS MACRO AT 00172600 .* THE END OF THE CALLING CSECT WHEN THE KEYWORD PARAMETER 00174600 .* EXPAND=YES IS SPECIFIED. 00175000 .* THE ABOVE DOES NOT APPLY TO THE PLS VERSION. THE Y02134 00185000 .* MACRO MAY BE INCLUDED ONLY ONCE. Y02134 00185400 .* 00186600 .* DEPENDENCIES = PLS: IECDSECT MUST BE INCLUDED IN Y02134 00186800 .* THE CSECT THAT IECDSECS IS INCLUDED Y02134 00186900 .* 00187200 .* RESTRICTIONS = EXPAND=ATEND AND EXPAND=ENDALL CAN ONLY BE 00187600 .* USED WITH THE ASSEMBLER H AND MAY NOT BE 00188000 .* USED WITH ASSEMBLER F OR ASSEMBLER XF. 00188400 .* 00188800 .* THE PARAMETERS 'DEB' AND/OR 'DEBX' Y02134 00189200 .* MAY NOT BE CODED IF 'IEZDEB' IS CODED, AS Y02134 00189300 .* DUPLICATELY DEFINED SYMBOLS WILL RESULT. Y02134 00189400 .* IF 'IEZDEB' IS CODED THEN THE MACRO, Y02134 00189500 .* IECEQU, MAY BE EXPANDED IN THE SAME Y02134 00191200 .* CSECT ONLY IF IEZDEB=YES IS CODED AS Y02134 00191600 .* A PARAMETER. Y02134 00192000 .* 00192900 .* REGISTER CONVENTIONS = NOT APPLICABLE. 00194600 .* 00196300 .* PATCH LABEL = NOT APPLICABLE. 00198000 .* 00199700 .* MODULE TYPE = MACRO. 00201400 .* 00203100 .* PROCESSOR = ASSEMBLER LANGUAGE/PLS Y02134 00204800 .* 00206500 .* MODULE SIZE = DESCRIBED BY THE LABELS: 00208200 .* 00218200 .* OPEN & OPEN TYPE=J WORK AREA SIZE = DXOWAEND. 00220200 .* CLOSE & CLOSE TYPE=T WORK AREA SIZE = DXCWAEND. 00220300 .* EOV & FEOV WORK AREA SIZE = DXEWAEND. 00220400 .* 00220500 .* OTHER SIZES GIVEN BY INDIVIDUAL CONTROL BLOCK MACROS. 00220600 .* 00221600 .* ATTRIBUTES = DSECT FIELDS. 00221700 .* 00221800 .* ENTRY POINT = AS DEFINED BY EACH CONTROL BLOCK MACRO. 00221900 .* 00222000 .* PURPOSE = THIS MACRO DEFINES THE CONTROL BLOCKS AND WORK 00222100 .* AREAS USED BY O/C/E CSECTS. 00222200 .* 00231100 .* LINKAGE = IECDSECS PARM1,PARM2,..., 00231200 .* EXPAND=(YES/NOPRINT/NO/ATEND/ENDALL) 00231300 .* FOR PLS THE LINKAGE IS Y02134 00231700 .* % INCLUDE(IECDSECS); Y02134 00232100 .* 00232700 .* INPUT = 00234500 .* 00234900 .* EXPAND=YES 00235300 .* 00235700 .* THIS PARAMETER WILL CAUSE THIS MACRO TO EXPAND THE 00235800 .* CONTROL BLOCKS AND WORK AREAS SPECIFIED BY THE 00235900 .* GLOBAL PARAMETERS IECDSCT & IECDSPM WHICH ARE SET 00236300 .* FROM PREVIOUS CALLS AND THE CURRENT CALL OF THIS 00236700 .* MACRO VIA THE POSITIONAL PARAMETERS, BELOW. A LATER 00237100 .* SPECIFICATION OF THE SAME CONTROL BLOCK WILL CAUSE 00237600 .* THE EXPANSION TO BE GENERATED WITH THE LATER OPTIONS. 00238000 .* THIS OPTION IS THE DEFAULT IF A NULL PARAMETER IS 00238400 .* SPECIFIED OR IF AN INVALID PARAMETER IS SPEDIFIED. 00238500 .* 00238700 .* EXPAND=NOPRINT 00238800 .* 00238900 .* THIS OPTION WILL BE THE SAME AS EXPAND=YES EXCEPT THAT 00239100 .* THE EXPANDED DSECTS WILL NOT BE PRINTED. THIS OPTION 00239200 .* MAY ALSO BE SPECIFIED EXTERNALLY VIA THE SYSPARM 00239300 .* PARAMETER IN THE ASSEMBLER PARM FIELD: 00239400 .* 00239500 .* PARM='SYSPARM(IECDSECS=NOPRINT)' 00239900 .* 00240200 .* THIS OPTION WILL OVERIDE ALL EXPAND=YES CALLS. 00240300 .* 00240500 .* EXPAND=NO 00241000 .* 00241100 .* THIS PARAMETER WILL CAUSE THE SPECIFIED POSITIONAL 00241700 .* PARAMETERS TO BE SAVED FOR A LATER EXPAND=YES CALL. 00242100 .* 00242200 .* EXPAND=ATEND/ENDALL 00242300 .* 00242400 .* EXPAND=ATEND,ENDALL CAN BE USED TO OVERIDE THE END 00243100 .* CARD DURING ASSEMBLY, SO THAT SEVERAL CSECTS MAY BE 00243200 .* CONCATENATED TOGETHER AND ASSEMBLED TOGETHER TO PRODUCE 00243300 .* ONE ASSEMBLY AND ONE LOAD MODULE CONSISTING OF SEVERAL 00243400 .* CSECTS. EACH CSECT MUST BE PRECEDED BY THE FOLLOWING 00243500 .* STATEMENTS TO ACHIEVE THIS RESULT. 00243600 .* 00243700 .* IECDSECS EXPAND=ATEND IGNORE EXPAND=YES & END CARDS 00243800 .* MACRO MACRO HEADER 00243900 .* END &PARM MACRO DEFINITION FOR END CARD 00244000 .* PRINT ON,NODATA,GEN RESTORE PRINT OPTIONS 00244100 .* DROP , DROP ALL PREVIOUS USINGS 00244200 .* MEND 00244300 .* 00244400 .* THE LAST CSECT IN THE ASSEMBLY SHOULD BE FOLLOWED WITH 00244500 .* 00244600 .* IECDSECS EXPAND=ENDALL EXPAND ALL DSECTS HERE 00244700 .* ENDALL , END CARD FOR ASSEMBLY 00244800 .* 00244900 .* PARM1,PARM2,..., 00252400 .* 00252600 .* PARAMETERS TO IECDSECS ARE SPECIFIED AS POSITIONAL 00252800 .* PARAMETERS AND MAY BE CODED IN ANY ORDER SEPARATED BY 00253000 .* COMMAS. THE PARAMETERS REPRESENT CONTROL BLOCK NAMES 00253200 .* WHICH ARE TO BE EXPANDED AS DSECTS. THE CONTROL BLOCKS 00253400 .* SPECIFIED MUST BE ONES WHICH ARE IDENTIFIED BELOW IN 00253600 .* THE CONTROL BLOCK DEFINITION TABLE. ALSO, THE 00253800 .* PARAMETERS MAY BE SPECIFIED AS PARENTHETICAL 00254000 .* EXPRESSIONS SO THAT PARAMETERS MAY BE PASSED TO THE 00254200 .* CONTROL BLOCK MACROS TO EXPAND DIFFERENT OPTIONS. THE 00254400 .* PARENTHETICAL EXPRESSIONS MAY BE USED IF IT IS 00254600 .* DEFINED FOR A CONTROL BLOCK MACRO. SEE CONTROL BLOCK 00254800 .* DESCRIPTIONS AND ACCEPTABLE PARAMETERS WITHIN EACH 00255000 .* CONTROL BLOCK SECTION, BELOW. THE PARENTHETICAL 00255200 .* EXPRESSIONS ARE IN THE FOLLOWING FORM: 00255400 .* 00255600 .* (CBNAME,PP1,PP2,...,(KWDP1,P1),(KWDP2,P2),...) 00255800 .* 00256000 .* CBNAME 00256200 .* 00256400 .* AN ACCEPTABLE CONTROL BLOCK NAME AS DEFINED IN THE 00256600 .* CONTROL BLOCK TABLE BELOW. 00256800 .* 00257100 .* PP1,PP2,... 00257500 .* 00257900 .* ACCEPTABLE POSITIONAL PARAMETERS AS DEFINED WITHIN 00258000 .* EACH CONTROL BLOCK SECTION. 00258300 .* 00258700 .* (KWD1,P1),(KWD2,P2),... 00259100 .* 00259500 .* KWD IS AN ACCEPTABLE KEYWORD PARAMETER AND P IS AN 00259600 .* ACCEPTABLE KEYWORD PARAMETER AS DEFINED WITHIN 00261600 .* EACH CONTROL BLOCK SECTION. 00262400 .* 00264400 .* FOR PLS THERE ARE NO OPERANDS TO THE CALL Y02134 00266400 .* 00268800 .* OUTPUT = MAPPING OF SPECIFIED CONTROL BLOCKS AND WORK AREAS. 00269200 .* SEE INPUT= ABOVE. 00272000 .* FOR PLS THE OUTPUT IS THE CONTROL BLOCK Y02134 00274000 .* STRUCTURES LISTED IN 'NOTES' ABOVE. Y02134 00274400 .* 00274800 .* EXIT NORMAL = MEND STATEMENT 00277600 .* 00280400 .* EXIT ERROR = MNOTE 4,'** INVALID PARAMETER SPECIFIED - X' 00283200 .* 00286000 .* EXTERNAL REFERENCES = SEE CONTROL BLOCK NAMES BELOW. 00288800 .* 00291600 .* ROUTINES = SEE CONTROL BLOCK NAMES BELOW. 00294400 .* 00297200 .* DATA AREAS = SEE CONTROL BLOCK NAMES BELOW. 00300000 .* 00327900 .* CONTROL BLOCKS = SEE CONTROL BLOCK NAMES BELOW. 00328300 .* 00328700 .* TABLES = CONTROL BLOCK NAME TABLE (LIMIT = 99 NAMES). 00329100 .* 00329200 .* MACROS = SEE CONTROL BLOCK NAMES BELOW. 00329300 .* 00329400 .********************************************************************** 00334900 .* 00335600 .********************************************************************** 00385600 .* 01100000 .* VARIABLES USED WITHIN THIS MACRO 01102000 .* 01110000 .********************************************************************** 01120000 .* 01130000 GBLB &IECDSCT(100) CUMULATIVE CONTROL BLOCK Y02080 01150000 GBLC &IECDSPM(100) CB MACRO PARMS Y02080 01180000 LCLA &N,&NB,&M INDEXES TO ARRAYS 01200000 LCLA &LIMIT LIMIT=MAX NO. OF PARMS Y02080 01210000 LCLB &EXPRNT EXPAND=NOPRINT OPTION SW Y02080 01220000 LCLC &NOPRINT SYSPARM NOPRINT STRING Y02080 01230000 LCLC &A(99) CONTROL BLOCK NAMES Y02080 01250000 LCLA &C0,&C1,&C2,&C3,&C4,&C5 NUMERICAL CONSTANTS Y02080 01260000 LCLA &C6,&C7,&C8,&C9,&C10 NUMERICAL CONSTANTS Y02080 01270000 LCLA &C100 NUMERICAL CONSTANTS Y02080 01272000 LCLC &KWD,&KWD0,&KWD1,&KWD2,&KWD3,&KWD4 KEYWORD PARMS Y02080 01280000 LCLC &KWD5,&KWD6,&KWD7,&KWD8,&KWD9 KEYWORD PARMS Y02080 01292000 LCLC &PP,&PP0,&PP1,&PP2,&PP3,&PP4 POSITIONAL PARMS Y02080 01294000 LCLC &PP5,&PP6,&PP7,&PP8,&PP9 POSITIONAL PARMS Y02080 01296400 LCLC &NULL NULL CHARACTER STRING Y02080 01298400 LCLC &YES,&NO,&ATEND,&ENDALL EXPAND PARAMETERS Y02080 01298800 .* 01300000 .********************************************************************** 01310000 .* 01320000 .* CONSTANTS 01330000 .* 01340000 .********************************************************************** 01342000 .* 01344000 &C0 SETA 0 CONSTANT 0 Y02080 01346000 &C1 SETA 1 CONSTANT 1 Y02080 01348000 &C2 SETA 2 CONSTANT 2 Y02080 01350000 &C3 SETA 3 CONSTANT 3 Y02080 01352000 &C4 SETA 4 CONSTANT 4 Y02080 01352400 &C5 SETA 5 CONSTANT 5 Y02080 01352800 &C6 SETA 6 CONSTANT 6 Y02080 01353200 &C7 SETA 7 CONSTANT 7 Y02080 01353600 &C8 SETA 8 CONSTANT 8 Y02080 01353700 &C9 SETA 9 CONSTANT 9 Y02080 01353800 &C10 SETA 10 CONSTANT 10 Y02080 01353900 &C100 SETA 100 CONSTANT 100 Y02080 01357200 &LIMIT SETA 99 LIMIT=MAX NO. OF PARMS Y02080 01360700 &NOPRINT SETC 'IECDSECS=NOPRINT' SYSPARM PRINT OPTION Y02080 01364000 &NULL SETC '' NULL CHARACTER STRING Y02080 01374000 &NO SETC 'NO' KEYWORD Y02080 01384000 &YES SETC 'YES' KEYWORD Y02080 01386000 &ATEND SETC 'ATEND' EXPAND KEYWORD AT END Y02080 01388000 &ENDALL SETC 'ENDALL' EXPAND KEYWORD END ALL Y02080 01390000 .* 01394000 .********************************************************************** 01444000 .* 01494000 .* CONTROL BLOCK NAMES ASSOCIATED WITH THIS MACRO 01496000 .* 01498000 .********************************************************************** 01498400 .* 01498800 &A(1) SETC 'CVT' MACRO = CVT Y02080 01500000 &A(2) SETC 'TCB' MACRO = IKJTCB Y02080 01550000 &A(3) SETC 'RB' MACRO = IKJRB Y02080 01600000 &A(4) SETC 'TIOT' MACRO = IEFTIOT1 Y02080 01650000 &A(5) SETC 'SMF' MACRO = IEESMCA Y02080 01700000 &A(6) SETC 'SMFRCD' MACRO = IFASMFR Y02080 01750000 &A(7) SETC 'SMFTCT' MACRO = IEFTCT Y02080 01800000 &A(8) SETC 'JMR' MACRO = IEFJMR Y02080 01850000 &A(9) SETC 'ICB' MACRO = NONE Y02080 01900000 &A(10) SETC 'JSCB' MACRO = IEZJSCB Y02080 01950000 &A(11) SETC 'PSCB' MACRO = IKJPSCB Y02080 02000000 &A(12) SETC 'UPT' MACRO = IKJUPT Y02080 02050000 &A(13) SETC 'ASCB' MACRO = IHAASCB Y02080 02060000 &A(14) SETC 'TSENQ' MACRO = NONE Y02080 02250000 &A(15) SETC 'TSB' MACRO = IKJTSB Y02080 02252000 &A(16) SETC 'DSAB' MACRO = IHADSAB Y02080 02260000 &A(17) SETC 'BASE' MACRO = IEEBASEA Y02080 02300000 &A(18) SETC 'PSA' MACRO = IHAPSA Y02080 02310000 &A(19) SETC 'IOB' MACRO = IEZIOB Y02080 02450000 &A(20) SETC 'DCB' MACRO = DCBD Y02080 02460000 &A(21) SETC 'DEB' MACRO = NONE Y02080 02500000 &A(22) SETC 'DEBX' MACRO = NONE Y02080 02510000 &A(23) SETC 'UCB' MACRO = IEFUCBOB Y02080 02550000 &A(25) SETC 'DSCB1' MACRO = IECSDSL1 Y02080 02600000 &A(26) SETC 'DSCB2' MACRO = IECSDSL1 Y02080 02650000 &A(27) SETC 'DSCB3' MACRO = IECSDSL1 Y02080 02700000 &A(28) SETC 'DSCB4' MACRO = IECSDSL1 Y02080 02750000 &A(29) SETC 'DSCB5' MACRO = IECSDSL1 Y02080 02760000 &A(30) SETC 'MAIN' MACRO = IECDSECT Y02080 02950000 &A(31) SETC 'UNITTAB' MACRO = NONE Y02080 03000000 &A(32) SETC 'USERLAB' MACRO = NONE Y02080 03050000 &A(33) SETC 'USERTOT' MACRO = NONE Y02080 03100000 &A(34) SETC 'WTG' MACRO = NONE Y02080 03150000 &A(35) SETC 'SECCORE' MACRO = NONE Y02080 03200000 &A(36) SETC 'PREFX' MACRO = NONE Y02080 03202000 &A(37) SETC 'IDAPDPRM' MACRO = IDAPDRPM X02898 03220000 &A(38) SETC 'SCVT' MACRO = IHASCVT Y02080 03222000 &A(39) SETC 'RRPL' MACRO = NONE Y02080 03224000 &A(40) SETC 'RMPL' MACRO = IHARMPL Y02080 03226000 &A(41) SETC 'ACB' MACRO = IFGACB Y02080 03228000 &A(42) SETC 'QDB' MACRO = IHAQDB Y02134 03228400 &A(43) SETC 'IEZDEB' MACRO = IEZDEB Y02134 03228800 &A(44) SETC 'APP' DSECT = APPNMTBL Y02082 03229200 &A(45) SETC 'EOVLAST' DSECT = EOVLAST Y02082 03229600 &A(46) SETC 'DSMADT' MACRO = NONE Y02144 03229700 &A(47) SETC 'CDE' MACRO = IHACDE Y02080 03229800 &A(48) SETC 'LPDE' MACRO = IHALPDE Y02080 03229900 &A(49) SETC 'PDAB' MACRO = PDABD YL03123 03230000 &A(50) SETC 'ICHACHKL' MACRO = ICHACHKL @Z40RSRJ 03232000 &A(51) SETC 'RACVT' MACRO = ICHPRCVT @G32DSMI 03232100 .********************************************************************** 03240000 .* 03242000 .* POSITIONAL PARAMETER ANALYSIS 03244000 .* 03246000 .********************************************************************** 03248000 .* 03350000 &NB SETA N'&SYSLIST NUMBER OF PARAMETERS IN PARMS 03400000 &N SETA &C0 INDEX TO PARAMETERS Y02080 03450000 .* 03450400 .IEC0010 ANOP LOOP FOR MORE PARMS Y02080 03452000 &N SETA &N+&C1 INCREMENT INDEX Y02080 03454000 AIF (&N GT &NB).IEC0050 MORE PARMS? Y02080 03460000 AIF ('&SYSLIST(&N,&C1)' EQ '&NULL').IEC0010 NULL? Y02080 03650000 .* 03652000 &M SETA &C0 INDEX TO CB NAMES Y02080 03660000 .* 03662000 .IEC0020 ANOP LOOP FOR MORE NAMES Y02080 03670000 &M SETA &M+&C1 INCREMENT INDEX Y02080 03680000 AIF (&M GT &LIMIT).IEC0030 MORE NAMES? Y02080 03730000 AIF ('&A(&M)' EQ '&NULL').IEC0020 NULL? Y02080 03740000 AIF ('&A(&M)' EQ '&SYSLIST(&N,&C1)').IEC0040 MATCH? Y02080 03742000 AGO .IEC0020 LOOP Y02080 03792000 .* 03842000 .IEC0030 MNOTE &C4,'** INVALID PARAMETER SPECIFIED - &SYSLIST(&N)' 03900000 AGO .IEC0010 LOOP Y02080 03910000 .* 03960000 .IEC0040 ANOP MATCH Y02080 04000000 &IECDSCT(&M) SETB 1 SET GLOBAL SWITCH Y02080 04050000 &IECDSPM(&M) SETC '&SYSLIST(&N)' SET UP CALL PARAMETERS Y02080 04062000 AGO .IEC0010 LOOP Y02080 04070000 .* 04400000 .********************************************************************** 04410000 .* 04420000 .* KEYWORD PARAMETER ANALYSIS 04430000 .* 04440000 .********************************************************************** 04442000 .* 04444000 .IEC0050 AIF ('&EXPAND' EQ '&ENDALL').IEC0110 EXPAND DSECTS? Y02080 04486500 AIF (&IECDSCT(&C100)).IEC0090 IF IGNORING EXPAND=YES Y02080 04500000 AIF ('&EXPAND' EQ '&ATEND').IEC0080 SET SW TO IGNORE? Y02080 04550000 AIF ('&EXPAND' EQ '&NO').IEC0090 EXPAND DSECTS? Y02080 04552000 AIF ('&EXPAND' EQ '&NULL').IEC0090 DEFAULT=YES Y02080 04552100 AIF ('&EXPAND' EQ 'NOPRINT').IEC0100 PRINT DSECTS? Y02080 04552400 .* 04554000 .********************************************************************** 04556000 .* 04556400 .* SYSPARM OVERRIDE PRINT PARAMETER 04556800 .* IF SYSPARM(IECDSECS=NOPRINT) THEN DSECTS REPRESENTED IN 04557200 .* IECDSECS WILL NOT BE PRINTED BUT WILL BE GENERATED. 04557800 .* 04557900 .********************************************************************** 04558000 .* 04558200 &N SETA &C1 SET N=1 Y02080 04558400 .IEC0060 AIF (K'&NOPRINT+&N-&C1 GT K'&SYSPARM).IEC0070 Y02080 04558800 AIF ('&SYSPARM'(&N,K'&NOPRINT) EQ '&NOPRINT').IEC0100 Y02080 04559200 &N SETA &N+&C1 N=N+1 Y02080 04559600 AGO .IEC0060 LOOP Y02080 04559700 .* 04559800 .IEC0070 AIF ('&EXPAND' EQ '&YES').IEC0110 EXPAND DSECTS? Y02080 04570000 MNOTE &C4,'** INVALID PARAMETER SPECIFIED - &EXPAND' 04594000 AGO .IEC0110 DEFAULT=YES Y02080 04596000 .* 04598400 .********************************************************************** 04608400 .* 04618400 .* END CARD OVERRIDE 04628400 .* 04632400 .********************************************************************** 04634400 .* 04636400 .IEC0080 ANOP SINGLE SOURCE ASSEMBLY Y02080 04637200 &IECDSCT(&C100) SETB 1 IGNORE EXPAND=YES Y02080 04650000 ENDALL OPSYN&NULL END ENDALL = END CARD Y02080 04700000 END OPSYN&NULL DROP END = DROP (IF NO MACRO) Y02080 04750000 .* 04760000 .********************************************************************** 04770000 .* 04780000 .* DELAY EXPANSION UNTIL LATER TIME. 04790000 .* 04794000 .********************************************************************** 04796000 .* 04798000 .IEC0090 MEXIT SAVE EXPANSION FOR LATER Y02080 04800000 .* 04850000 .********************************************************************** 05050000 .* 05060000 .* EXPAND=NOPRINT OR SYSPARM=NOPRINT SETS PRINT OFF 05070000 .* 05080000 .********************************************************************** 05090000 .* 05092000 .IEC0100 EJECT 05100000 &EXPRNT SETB 1 SET PRINT OFF SW Y02080 05110000 PUSH PRINT Y02080 05120000 PRINT OFF Y02080 05150000 AGO .IEC0120 GO TO GENERATE DSECTS Y02080 05152000 .* 05152400 .********************************************************************** 05152800 .* 05153200 .* EXPAND=YES 05153600 .* 05153700 .********************************************************************** 05153800 .* 05153900 .IEC0110 EJECT 05165400 .IEC0120 ANOP GENERATE DSECTS Y02080 05177000 .* 05188500 AIF (NOT &IECDSCT(1)).SKIPCVT BYPASS CVT IF NOT REQUESTED 05450000 SPACE 1 05500000 *********************************************************************** 05550000 * COMMUNICATIONS VECTOR TABLE DEFINITION * 05600000 *********************************************************************** 05650000 * 05700000 CVT DSECT 05750000 * CVT INVOKE CVT DSECT MACRO 05800000 CVT 05850000 * 05860000 ********** 05950000 EJECT 06000000 .SKIPCVT ANOP ENTRANCE LABEL ONLY 06050000 AIF (NOT &IECDSCT(38)).SKPSCVT SCVT REQUESTED? Y02080 06052000 SPACE 1 06054000 *********************************************************************** 06056000 * SECONDARY COMMUNICATIONS VECTOR TABLE DEFINITION 06058000 *********************************************************************** 06058400 SPACE 1 06058800 * IHASCVT INVOKE SCVT MACRO Y02080 06059200 IHASCVT 06059600 * 06059800 *********************************************************************** 06062000 EJECT 06063200 .SKPSCVT ANOP ENTRANCE LABEL ONLY 06065200 AIF (NOT &IECDSCT(13)).SKIPASC ASCB REQUESTED? Y02080 06066700 SPACE 1 06070000 *********************************************************************** 06080000 * ADDRESS SPACE CONTROL BLOCK 06090000 *********************************************************************** 06092000 * 06094000 * IHAASCB INVOKE ASCB MACRO Y02080 06096000 IHAASCB 06098000 * 06098800 *********************************************************************** 06098900 EJECT 06099600 .SKIPASC ANOP ENTRANCE LABEL ONLY 06099700 AIF (NOT &IECDSCT(2)).SKIPTCB BYPASS TCB IF NOT REQUESTED 06100000 SPACE 1 06150000 *********************************************************************** 06200000 * TASK CONTROL BLOCK DEFINITION * 06250000 *********************************************************************** 06300000 * 06350000 * IKJTCB INVOKE TCB DSECT MACRO 06400000 IKJTCB SYS=BOTH 06450000 * 06500000 DXTCB EQU TCB IECDSECS EQUS TO BE REMOVED 06550000 TCBPRB EQU TCBRBP MAYBE 06600000 TCBTTRN EQU TCBTRN 06700000 TCBPRTK EQU TCBPKF 06750000 DS X'00' 06800000 TCBFLG EQU TCBFLGS 06850000 TCBLODPT EQU TCBLLS 06900000 TCBINACT EQU TCBJPQ 06950000 TCBSIZ EQU TCBPIBT 07000000 TCBPRTY EQU TCBTCB 07050000 TCBTIME EQU TCBTME 07100000 TCBJSE EQU TCBJPQ LIST OF INACTIVE PROGRAMS ADDR 07150000 DS CL24 07250000 * 07300000 TCBTCT0M EQU TCBTCT-TCB 07320000 TCBTIOTC EQU TCBTIO-TCB 07330000 * 07340000 ********** 07350000 EJECT 07400000 .SKIPTCB ANOP ENTRANCE LABEL ONLY 07450000 AIF (NOT &IECDSCT(3)).SKIPRB BYPASS RB IF NOT REQUESTED 07500000 SPACE 1 07550000 *********************************************************************** 07600000 * REQUEST BLOCK DEFINITION * 07650000 *********************************************************************** 07700000 * 07750000 * IKJRB INVOKE RB DSECT MACRO 07800000 IKJRB 07810000 * 07850000 RBLOCK EQU RBSECT IECDSECS EQUS 07860000 RBSTABYT EQU RBFTCKPT+X'08' 07900000 SVRB34 EQU RBTRSVRB 07950000 PRBSIZE EQU PRBEND-RBSECT 08000000 SVRBOFF4 EQU RBEXSAVE-RBSECT 08050000 SVRBOFF2 EQU RBGRS2-RBSECT 08100000 NOTPRB EQU RBFTSVRB 08150000 * 08700000 ********** 08750000 EJECT 08800000 .SKIPRB ANOP ENTRANCE LABEL ONLY 08850000 AIF (NOT &IECDSCT(16)).SKIPDSA DSAB REQUESTED? Y02080 08900000 SPACE 1 08950000 *********************************************************************** 09000000 * DATA SET ASSOCIATION BLOCK 09050000 *********************************************************************** 09100000 * 09150000 * IHADSAB INVOKE IHADSAB MACRO Y02080 09200000 IHADSAB Y02080 09250000 * 09300000 *********************************************************************** 09310000 EJECT 09400000 .SKIPDSA ANOP ENTRANCE LABEL ONLY 09450000 AIF (NOT &IECDSCT(15)).SKIPTSB TSB REQUESTED? Y02080 09460000 SPACE 1 09470000 *********************************************************************** 09480000 * TIME SHARING BLOCK 09490000 *********************************************************************** 09492000 * 09494000 * IKJTSB INVOKE IKJTSB MACRO Y02080 09496000 IKJTSB Y02080 09498000 * 09498400 *********************************************************************** 09498800 EJECT 09499200 .SKIPTSB ANOP ENTRANCE LABEL ONLY 09499600 AIF (NOT &IECDSCT(14)).SKIPTSO TSOENQ AREA REQUESTED? Y02080 09499700 SPACE 1 09499800 *********************************************************************** 09499900 * TSO ENQ WORK AREA DEFINITION * 09516600 *********************************************************************** 09526600 * 09528600 TSOENQ DSECT Y01018 09530600 ENQMFL DS CL12 LIST FORM OF ENQ MACRO Y01018 09532600 TSQNAME DS CL8 QNAME FOR ENQ OR DEQ Y01018 09533000 TSRNAME DS CL4 RNAME FOR ENQ OR DEQ Y01018 09533100 * 09533200 *********************************************************************** 09538800 .SKIPTSO ANOP 09540800 AIF (NOT &IECDSCT(4)).SKIPTIO BYPASS TIOT IF NOT REQ'ED 09544400 SPACE 1 09550000 *********************************************************************** 09600000 * TASK INPUT/OUTPUT TABLE DEFINITION * 09650000 *********************************************************************** 09700000 * 09750000 TIOT DSECT 09800000 * IEFTIOT1 INVOKE TIOT DSECT MACRO 09850000 IEFTIOT1 09900000 * 09950000 * IECDSECS EQUS 09960000 TIOSPOUT EQU X'40' INDICATES 'SPOOLED' SYSOUT 09990000 TIOSPLIN EQU X'20' INDICATES 'SPOOLED' SYSIN 09992000 * 09994000 ********** 10000000 EJECT 10050000 .SKIPTIO ANOP ENTRANCE LABEL ONLY 10100000 AIF (NOT &IECDSCT(5)).SKIPSMF BYPASS SMF IF NOT REQ'D 10150000 SPACE 1 10200000 * IEESMCA INVOKE SYSTEMS MANAGEMENT 10250000 * FACILITIES DSECT MACRO 10300000 IEESMCA 10350000 * 10400000 ********** 10450000 EJECT 10500000 .SKIPSMF ANOP ENTRANCE LABEL ONLY 10550000 AIF (NOT &IECDSCT(6)).SKIPRCD BYPASS SMF RCD IF NOT REQ'D 10600000 SPACE 1 10650000 SMF14RCD DSECT 10700000 * IFASMFR (14) INVOKE SMF RECORD-BUILDING MACRO @02C 10750000 IFASMFR (14) 10800000 * 10850000 REGSAVE EQU SMF14UCB 10900000 * 10950000 ********** 11000000 EJECT 11050000 .SKIPRCD ANOP ENTRANCE LABEL ONLY 11100000 AIF (NOT &IECDSCT(7)).SKIPTCT BYPASS SMF TCT IF NOT REQ'D 11150000 SPACE 1 11200000 * 11250000 * IEFTCT INVOKE SMF TIMING CONTROL MACRO DSECT 11300000 IEFTCT 11350000 * 11400000 ********** 11450000 EJECT 11500000 .SKIPTCT ANOP ENTRANCE LABEL ONLY 11550000 AIF (NOT &IECDSCT(8)).SKIPJMR BYPASS JMR IF NOT REQUIRED 11600000 SPACE 1 11650000 * IEFJMR INVOKE JOB MANAGEMENT RCD MACRO 11700000 IEFJMR 11750000 * 11800000 ********** 11850000 EJECT 11900000 .SKIPJMR ANOP ENTRANCE LABEL ONLY 11950000 AIF (NOT &IECDSCT(11)).SKPPSCB BYPASS PSCB IF NOT REQUESTED 12000000 SPACE 1 12050000 *********************************************************************** 12100000 * PROTECTED STEP CONTROL BLOCK DEFINITION * 12150000 *********************************************************************** 12200000 * 12250000 * IKJPSCB INVOKE PSCB DSECT MACRO 12300000 IKJPSCB 12350000 * 12400000 ********** 12450000 EJECT 12500000 .SKPPSCB ANOP ENTRANCE LABEL ONLY 12550000 AIF (NOT &IECDSCT(18)).SKPPSA PSA REQUESTED? Y02080 12560000 SPACE 1 12570000 *********************************************************************** 12580000 * PREFIXED SAVE AREA DEFINITION 12590000 *********************************************************************** 12592000 SPACE 1 12594000 * IHAPSA Y02080 12596000 IHAPSA 12598000 * 12598400 *********************************************************************** 12598800 EJECT 12599200 .SKPPSA ANOP ENTRANCE LABEL ONLY 12599600 AIF (NOT &IECDSCT(9)).SKIPICB BYPASS ICB IF NOT REQUIRED 12600000 SPACE 1 12650000 *********************************************************************** 12700000 * INTERRUPT CONTROL BLOCK DEFINITION * 12750000 *********************************************************************** 12800000 * 12850000 ICB DSECT 12900000 ICBLNKAD DS F ADDRESS OF NEXT ICB 12950000 ICBECB DS F ECB FOR THIS ICB 13000000 ICBFLAG1 DS C FLAG BYTE 1 13050000 ICBFLAG2 DS C FLAG BYTE 2 13100000 ICBSNS1 DS C SENSE BYTE 1 13150000 ICBSNS2 DS C SENSE BYTE 2 13200000 ICBECBAD DS F ECB ADDRESS 13250000 ICBFLAG3 DS C FLAG BYTE 3 13300000 ICBCSW DS CL7 LOW ORDER 7 BYTES OF LAST CSW 13350000 ICBCPPTR DS F PT TO START OF CHAN PROGRAM 13400000 ICBINCR DS H FOR TAPE- USED TO INCR BLK CT 13450000 ICBINDIC DS H TWO BYTES OF INDICATOR BITS 13500000 ICBMBBCC DS D SEEK ADDR- DA DEVICE ONLY 13550000 * 13600000 ********** 13650000 EJECT 13700000 .SKIPICB ANOP ENTRANCE LABEL ONLY 13750000 AIF (NOT &IECDSCT(10)).SKPJSCB BYPASS JSCB IF NOT REQUESTED 13800000 SPACE 1 13850000 * IEZJSCB INVOKE JOB/STEP CONTROL BLOCK MACRO 13900000 IEZJSCB 13950000 * 14000000 ********** 14050000 EJECT 14100000 .SKPJSCB ANOP ENTRANCE LABEL ONLY 14150000 AIF (NOT &IECDSCT(12)).SKIPUPT BYPASS UPT IF NOT REQUIRED 14200000 SPACE 1 14250000 *********************************************************************** 14300000 * USER PROFILE TABLE DEFINITION * 14350000 *********************************************************************** 14400000 * 14450000 * IKJUPT INVOKE USER PROFILE TABLE MACRO 14500000 IKJUPT 14550000 * 14600000 ********** 14650000 EJECT 14700000 .SKIPUPT ANOP ENTRANCE LABEL ONLY 16500000 AIF (NOT &IECDSCT(17)).SKIPBAS SKIP IEEBASEA IF NOT REQ'D 16550000 SPACE 1 16600000 *********************************************************************** 16650000 * IEEBASE DSECT DEFINITION * 16700000 *********************************************************************** 16750000 * 16800000 * IEEBASEA INVOKE IEEBASE DSECT MACRO 16850000 IEEBASEA 16900000 * 16950000 *********************************************************************** 17000000 * 17050000 EJECT 17100000 .SKIPBAS ANOP ENTRANCE LABEL ONLY 17150000 AIF (NOT &IECDSCT(40)).SKIPRMP RMPL REQUESTED? Y02080 17160000 SPACE 1 17170000 *********************************************************************** 17180000 * RECOVERY TERMINATION MANAGER LIST DEFINITION 17190000 *********************************************************************** 17192000 SPACE 1 17194000 * IHARMPL INVOKE RMPL MACRO Y02080 17196000 IHARMPL 17198000 * 17198400 *********************************************************************** 17198800 * 17199200 EJECT 17199600 .SKIPRMP ANOP ENTRANCE LABEL ONLY 17199700 AIF (NOT &IECDSCT(49)).SKIPDAB BYPASS PDAB IF NOT REQUESTED 17200000 *********************************************************************** 17201000 * PARALLEL DATA ACCESS BLOCK DEFINITION 17202000 *********************************************************************** 17203000 * 17204000 * PDABD INVOKE THE PDAB DSECT YL03123 17205000 PDABD 17206000 * 17207000 ********** 17208000 EJECT 17209000 .SKIPDAB ANOP ENTRANCE LABEL ONLY 17210000 AIF (NOT &IECDSCT(20)).SKIPDCB BYPASS DCB IF NOT REQUESTED 17500000 SPACE 1 17550000 *********************************************************************** 17600000 * DATA CONTROL BLOCK DEFINITION * 17650000 *********************************************************************** 17700000 * 17750000 * DCBD DSORG=(PS,IS,DA,TQ) @ZA05616 17800000 DCBD DSORG=(PS,IS,DA,TQ) @ZA05616 17802000 * 17900000 DCBMCRF1 EQU DCBMACRF+1 BYTE 2 OF DCBMACRF FIELD OC038 17950000 * 18000000 ********** 18050000 EJECT 18100000 .SKIPDCB ANOP ENTRANCE LABEL ONLY 18150000 AIF (NOT &IECDSCT(41)).SKIPACB ACB REQUESTED? Y02080 18152000 SPACE 1 18154000 *********************************************************************** 18156000 * ADVANCED CONTROL BLOCK DEFINITION 18158000 *********************************************************************** 18158400 * 18158800 * IFGACB Y02080 18159200 IFGACB 18159400 * 18159700 *********************************************************************** 18161700 EJECT 18165600 .SKIPACB ANOP ENTRANCE LABEL ONLY Y02080 18166000 AIF (NOT &IECDSCT(19)).SKIPIOB IOB REQUESTED? Y02080 18166700 SPACE 1 18170000 *********************************************************************** 18180000 * INPUT/OUTPUT BLOCK DEFINITION 18190000 *********************************************************************** 18192000 SPACE 1 18192400 IOB DSECT Y02080 18194400 * IEZIOB INVOKE THE IOB MACRO Y02080 18196000 IEZIOB 18198000 * 18198400 *********************************************************************** 18198800 EJECT 18199800 .SKIPIOB ANOP ENTRANCE LABEL ONLY 18199900 AIF (NOT &IECDSCT(21)).SKIPDEB BYPASS DEB IF NOT REQ' ED 18200000 SPACE 1 18250000 *********************************************************************** 18300000 * DATA EXTENT BLOCK DEFINITION * 18350000 *********************************************************************** 18400000 * 18450000 IHADEB DSECT 18500000 DEB EQU IHADEB 18550000 DEBAMID DS 0CL1 @ZA51573 18575000 DEBNMSUB DS 0CL1 18600000 DEBTCBAD DS CL4 18650000 DEBAMLNG DS 0CL1 18700000 DEBAMDEP DS 0CL1 18750000 DEBDEBAD DS CL4 18800000 DEBOFLGS DS 0CL1 18850000 DEBIRBAD DS CL4 18900000 DEBOPATB DS CL1 TYPE OF I/O 18950000 DEBQSCNT DS CL1 PURGE - QUIESCE COUNT 19000000 DEBFLGS1 DS CL1 DATA SET FLAGS 19050000 DS CL1 RESERVED 19150000 DEBSYSPG DS 0CL4 19200000 DEBNMEXT DS 0CL1 19250000 DEBUSRPC DS 0A 19300000 DEBUSRPG DS CL4 19350000 DEBPRIOR DS 0CL1 19400000 DEBECBAD DS CL4 19450000 DEBPROTG DS 0CL1 19500000 DEBDEBID DS 0CL1 19550000 DEBDCBAD DS CL4 19600000 DEBSCALE DS 0CL1 19650000 DEBEXSCL DS 0CL1 19700000 DEBAPPAD DS CL4 19750000 DEBMODIF DS 0CL1 19800000 DEBDVMOD DS 0CL1 19850000 DEBUCBAD DS CL4 19900000 DEBTVLSQ DS 0CL2 19950000 DEBBINUM DS CL2 20000000 DEBTVLNM DS 0CL2 20050000 DEBSTRCC DS CL2 20100000 DEBSTRHH DS CL2 20150000 DEBENDCC DS CL2 20200000 DEBENDHH DS CL2 20250000 DEBNMTRK DS CL2 20300000 DEBVOLSQ DS H 20350000 DEBVOLNM DS H 20400000 DEBSUBID DS H 20450000 DS F 20500000 ORG DEBDVMOD 20550000 DEBNIEE DS 0CL1 20600000 DEBFIEAD DS CL4 20650000 DEBNPEE DS 0CL1 20700000 DEBFPEAD DS CL4 20750000 DEBNOEE DS 0CL1 20800000 DEBFOEAD DS CL4 20850000 DEBDISAD DS CL4 20900000 * 20950000 ********** 21000000 EJECT 21070000 .SKIPDEB ANOP ENTRANCE LABEL ONLY 21100000 AIF (NOT &IECDSCT(22)).SKIPDBX BYPASS DEB EXTENSION Y02134 21110000 SPACE 1 21120000 *********************************************************************** 21130000 * DEB EXTENSION DEFINITION * 21140000 *********************************************************************** 21142000 * 21144000 DEBXTN DSECT 21146000 DEBXLNGH DS H LENGTH OF DEB EXTENSION 21148000 DEBXFLG1 DS XL1 RESERVED 21148400 DEBXRV48 DS XL1 RESERVED 21148500 DEBXDSAB DS A ADDRESS OF DSAB 21148800 DEBXDCBM DS XL4 DCB MODIFICATION MASK 21149200 DEBXDBPR DS A DEB POINTER 21149600 DEBXDSO1 DS XL1 FIRST BYTE OF DSORG 21149700 DEBXDSO2 DS XL1 SECOND BYTE OF DSORG 21149800 DEBXMCF1 DS XL1 FIRST BYTE OF MACRF 21149900 DEBXMCF2 DS XL1 SECOND BYTE OF MACRF 21166600 DEBXXARG DS A ADDR OF BDAM READ EXCL LIST 21167000 DEBXRV39 DS A RESERVED 21167100 DEBXRV40 DS A RESERVED 21171100 DEBXOPET DS XL8 DATASET OPEN TIME @ZA39299 21173100 EJECT 21176600 .SKIPDBX ANOP 21178600 AIF (NOT &IECDSCT(43)).SKIPZDB SKIP IEZDEB Y02134 21180600 * IEZDEB 21182600 IEZDEB 21183000 EJECT 21189800 .SKIPZDB ANOP Y02134 21193200 AIF (NOT &IECDSCT(50)).SKIPICH SKIP ICHACHKL @Z40RSRJ 21193600 * ICHACHKL @Z40RSRJ 21193700 ICHACHKL @Z40RSRJ 21194200 EJECT @Z40RSRJ 21194700 .SKIPICH ANOP @Z40RSRJ 21195200 AIF (NOT &IECDSCT(51)).SKIPRAC SKIP RAC CVT @G32DSMI 21196000 * ICHPRCVT @G32DSMI 21196200 ICHPRCVT @G32DSMI 21196400 EJECT @G32DSMI 21197400 .SKIPRAC ANOP @G32DSMI 21197600 AIF (NOT &IECDSCT(23)).SKIPUCB BYPASS UCB IF NOT REQUESTED 21198400 SPACE 1 21205600 *********************************************************************** 21250000 * UNIT CONTROL BLOCK DEFINITION * 21300000 *********************************************************************** 21350000 * 21400000 .****************************************************************Y02134 21410000 .* Y02134 21420000 .* IF PREFIX=NO OR PREFIX=, (DEFAULT) IS SPECIFIED, Y02134 21430000 .* DEFINED FIELDS IN THE UCB ARE GENERATED, BUT THE Y02134 21440000 .* FIELDS IN THE UCB PREFIX ARE NOT GENERATED. Y02134 21442000 .* TO GENERATE FIELDS IN THE UCB PREFIX, Y02134 21444000 .* SPECIFY PREFIX=YES USING THE FORMAT DESCRIBED IN Y02134 21444400 .* THE DESCRIPTION OF PARMS IN THE PROLOGUE OF THIS MACRO. Y02134 21446000 .* Y02134 21448400 .* EXAMPLE: IECDSECS (UCB,(PREFIX,YES)) Y02134 21448800 .* Y02134 21449200 .****************************************************************Y02134 21449300 .* Y02134 21449400 &N SETA &C1 SET N=1 Y02134 21449600 &KWD1 SETC '&NULL' SET KEYWORD TO DEFAULT Y02134 21449700 .IEC2300 AIF (&N+&C6-&C1+&C1 GT K'&IECDSPM(23)).IEC2330 LENGTH Y02134 21449800 AIF ('&IECDSPM(23)'(&N,&C6) EQ 'PREFIX').IEC2310 KWD Y02134 21449900 &N SETA &N+&C1 N=N+1 Y02134 21466600 AGO .IEC2300 LOOP Y02134 21476600 .* Y02134 21478600 .IEC2310 ANOP KEYWORD SPECIFIED Y02134 21480600 &N SETA &N+&C6+&C1 SKIP OVER DELIMITER Y02134 21482600 &KWD1 SETC '&NULL' INITIALIZE TO NULL Y02134 21483000 .IEC2320 AIF (&N GT K'&IECDSPM(23)).IEC2330 CHECK THE LENGTH Y02134 21483100 AIF ('&IECDSPM(23)'(&N,&C1) LT 'A').IEC2330 DELIMITER Y02134 21483200 &KWD1 SETC '&KWD1'.'&IECDSPM(23)'(&N,&C1) MOVE CHAR TO PARM Y02134 21488800 &N SETA &N+&C1 N=N+1 Y02134 21490800 AGO .IEC2320 LOOP Y02134 21492800 .* Y02134 21493200 .IEC2330 SPACE 1 Y02134 21493600 AIF ('&KWD1' EQ '&YES').IEC2340 CHECK FOR PREFIX Y02134 21494000 UCB DSECT 21534000 SRT EQU UCB 21542000 .IEC2340 MNOTE ' IEFUCBOB PREFIX=&KWD1,LIST=YES' Y02134 21650000 IEFUCBOB PREFIX=&KWD1,LIST=YES Y02134 21700000 SPACE 1 Y02134 21710000 * 21720400 * IECDSECS EQUS 21727400 UCBPRTCT EQU X'02' - FILE PROTECT RING INSTALLED 21734400 * 21755400 *********************************************************************** 21776400 EJECT 21788200 .SKIPUCB ANOP ENTRANCE LABEL ONLY 21800000 AIF (NOT &IECDSCT(25)).SKIPDS1 BYPASS DSCB1 IF NOT REQUESTD 21850000 SPACE 1 21900000 *********************************************************************** 21950000 * DATA SET CONTROL BLOCK -- FORMAT 1 * 22000000 *********************************************************************** 22050000 * 22100000 DSCB1 DSECT 22150000 * IECSDSL1 (1) INVOKE DCSB FMT 1 DSECT MACRO 22200000 IECSDSL1 (1) 22250000 * 22300000 *********************************************************************** 22350000 EJECT 22400000 .SKIPDS1 ANOP ENTRANCE LABEL ONLY 22450000 AIF (NOT &IECDSCT(26)).SKIPDS2 BYPASS DSCB2 IF NOT REQUESTD 22500000 SPACE 1 22550000 *********************************************************************** 22600000 * DATA SET CONTROL BLOCK -- FORMAT 2 * 22650000 *********************************************************************** 22700000 * 22750000 DSCB2 DSECT 22800000 * IECSDSL1 (2) INVOKE DCSB FMT 2 DSECT MACRO 22850000 IECSDSL1 (2) 22900000 * 22950000 *********************************************************************** 23000000 EJECT 23050000 .SKIPDS2 ANOP ENTRANCE LABEL ONLY 23100000 AIF (NOT &IECDSCT(27)).SKIPDS3 BYPASS DSCB3 IF NOT REQUESTD 23150000 SPACE 1 23200000 *********************************************************************** 23250000 * DATA SET CONTROL BLOCK -- FORMAT 3 * 23300000 *********************************************************************** 23350000 * 23400000 DSCB3 DSECT 23450000 * IECSDSL1 (3) INVOKE DCSB FMT 3 DSECT MACRO 23500000 IECSDSL1 (3) 23550000 * 23600000 *********************************************************************** 23650000 EJECT 23700000 .SKIPDS3 ANOP ENTRANCE LABEL ONLY 23750000 AIF (NOT &IECDSCT(28)).SKIPDS4 BYPASS DSCB4 IF NOT REQUESTD 23800000 SPACE 1 23850000 *********************************************************************** 23900000 * DATA SET CONTROL BLOCK -- FORMAT 4 * 23950000 *********************************************************************** 24000000 * 24050000 DSCB4 DSECT 24100000 * IECSDSL1 (4) INVOKE DCSB FMT 4 DSECT MACRO 24150000 IECSDSL1 (4) 24200000 * 24250000 *********************************************************************** 24300000 EJECT 24350000 .SKIPDS4 ANOP ENTRANCE LABEL ONLY 24400000 AIF (NOT &IECDSCT(29)).SKIPDS5 BYPASS DSCB5 IF NOT REQUESTD 24450000 SPACE 1 24500000 *********************************************************************** 24550000 * DATA SET CONTROL BLOCK -- FORMAT 5 * 24600000 *********************************************************************** 24650000 * 24700000 DSCB5 DSECT 24750000 * IECSDSL1 (5) INVOKE DCSB FMT 5 DSECT MACRO 24800000 IECSDSL1 (5) 24850000 * 24900000 *********************************************************************** 24950000 EJECT 25000000 .SKIPDS5 ANOP ENTRANCE LABEL ONLY 25050000 AIF (NOT &IECDSCT(42)).SKIPQDB BYPASS QDB IF NOT REQ Y02134 25100000 SPACE 1 25150000 *********************************************************************** 25200000 * DSAB QUEUE DESCRIPTOR BLOCK * 25250000 *********************************************************************** 25300000 * 25350000 QDB DSECT 25350400 * IHAQDB INVOKE DSAB QDB DSECT MACRO 25350800 IHAQDB 25351200 * 25351600 *********************************************************************** 25351700 EJECT 25351800 .SKIPQDB ANOP ENTRANCE LABEL ONLY Y02134 25351900 AIF (NOT &IECDSCT(30)).SKIPMN BYPASS MAIN IF NOT REQ'D 25352000 .********************************************************************** 25352400 .* O/C/E WORK AREAS 25352800 .********************************************************************** 25353200 .* 25354000 .* IF IOB=YES OR IOB=, (DEFAULT) IS SPECIFIED, INTERNALLY 25360000 .* DEFINED FIELDS IN THE IOB ARE GENERATED. THE LABELS 25370000 .* FOR THESE FIELDS ARE MUTUALLY EXCLUSIVE OF THE LABELS 25380000 .* GENERATED BY THE IEZIOB MACRO. CODE IOB=NO TO BYPASS 25390000 .* IOB LABELS IN IECDSECT. SEE DESCRIPTION OF PARMS IN 25402000 .* THE PROLOGUE OF THIS MACRO. 25404000 .* 25404400 .* EXAMPLE: IECDSECS (MAIN,(IOB,YES)) 25404800 .* 25406000 &N SETA &C1 SET N=1 Y02080 25410000 &KWD1 SETC '&YES' SET KEYWORD TO DEFAULT Y02080 25412000 .IEC3000 AIF (&N+&C3-&C1+&C1 GT K'&IECDSPM(30)).IEC3030 LENGTH Y02080 25420000 AIF ('&IECDSPM(30)'(&N,&C3) EQ 'IOB').IEC3010 KEYWORD Y02080 25430000 &N SETA &N+&C1 N=N+1 Y02080 25440000 AGO .IEC3000 LOOP Y02080 25442000 .* 25442400 .IEC3010 ANOP KEYWORD SPECIFIED Y02080 25444000 &N SETA &N+&C3+&C1 SKIP OVER DELIMITER Y02080 25446000 &KWD1 SETC '&NULL' INITIALIZE TO NULL Y02080 25448000 .IEC3020 AIF (&N GT K'&IECDSPM(30)).IEC3030 CHECK THE LENGTH Y02080 25448400 AIF ('&IECDSPM(30)'(&N,&C1) LT 'A').IEC3030 DELIMITER Y02080 25448800 &KWD1 SETC '&KWD1'.'&IECDSPM(30)'(&N,&C1) MOVE CHAR TO PARM Y02080 25448900 &N SETA &N+&C1 N=N+1 Y02080 25449000 AGO .IEC3020 LOOP Y02080 25449100 .* 25449200 .IEC3030 SPACE 1 25450000 FORCORE DSECT 25700000 MNOTE ' IECDSECT IOB=&KWD1' Y02080 25710000 IECDSECT IOB=&KWD1 Y02080 25800000 SPACE 1 25992800 *********************************************************************** 25993200 * ADDITIONAL O/C/E FIELDS 25993600 *********************************************************************** 25994000 SPACE 1 26000000 ORG DXCCW5 26050000 DXDSNAME DS CL17 TEMP SAVE AREA FOR DSNAME OF 26100000 * GENERATION DATA GROUP DATA SET 26150000 SPACE 1 26200000 ORG DXCCW8 26250000 DXREGSAV DS 0CL32 REG SAVE AREA FOR RES RTN 26300000 DXREG9 DS F REGISTER 9 26350000 DXREGA DS F REGISTER 10 26400000 DXREGB DS F REGISTER 11 26450000 DXREGC DS F REGISTER 12 26500000 DXREGD DS F REGISTER 13 26550000 DXREGE DS F REGISTER 14 26600000 DXREG0 DS F REGISTER 0 26650000 DXREG1 DS F REGISTER 1 26700000 SPACE 1 26750000 ORG DXCCW12 Y02134 26800000 DXIDENT DS 0CL8 MODULE IDENTIFIERS 26900000 DXCALLID DS CL2 ID OF CALLING MODULE 26950000 DXRETMOD DS 0CL5 ID AND EPA OF RET MODULE 27000000 DXRETID DS CL2 ID OF RETURN MODULE 27050000 DXRETTTR DS CL3 VCON OF RETURN MODULE Y02134 27100000 DXRETCOD DS CL1 RET CODE ISSUED TO USER Y02134 27150000 * BY PROBLEM DETERMINATION Y02134 27200000 * AT ABEND Y02134 27210000 * ALSO USED AS INTERFACE Y02134 27220000 * TO SUBROUTINES Y02134 27230000 ORG DXXCTL Y02134 27240000 DXABCODE DS CL2 SYSTEM ABEND CODE ISSUED BY 27250000 * PROBLEM DETERMINATION ROUTINE 27300000 DXSAVMOD DS 0CL5 SAVED RETURN ADDRESS Y02134 27350000 DXSAVID DS CL2 ID OF SAVED RETURN MOD Y02134 27400000 DXSAVADR DS CL3 SAVED VCON RETURN ADDRSS Y02134 27400400 DXSAVOFF DS CL1 SAVED RETURN OFFSET Y02134 27400800 SPACE 1 Y02134 27401200 ORG DXRESSW Y02134 27401600 DXRESIND DS X INDIC USED BY IFG019RA Y02134 27402000 SPACE 1 27410000 ORG DXREG1 27420000 DXBTAMX DS CL1 SET TO 0 BY IFG0196V AND YM0947 27430000 * USED BY BTAM EXECUTORS 27440000 EJECT 27490000 *********************************************************************** 27540000 * 27590000 * END-OF-VOLUME WHERE-TO-GO TABLE 28100000 * 28150000 * NOTE- CHANGES TO THIS TABLE OR TO THE WHERE-TO-GO TABLE 28200000 * DSECT SHOULD BE COORDINATED, BECAUSE THE TWO TABLES 28250000 * ARE VIRTUALLY IDENTICAL IN USAGE AND ORGANIZATION. 28300000 * 28350000 *********************************************************************** 28354000 SPACE 1 28356000 ORG FORCORE+DSECTSIZ Y02080 28495800 DXXWTG DS 0F EOV WTG TABLE Y02080 28496200 DXXWTOPR DC AL2(12),AL2(0) WTG WTO PREFIX Y02080 28497800 DXXAREA DS 0CL29 WTG TABLE BASIC SECTION 28497900 DXXMODNM DS 0CL8 MODULE NAME 28500000 DS CL6 FIRST 6 BYTES OF MODULE NAME 28550000 DXXMODID DS CL2 MODULE ID 28600000 DXXMODEP DS CL4 USED FOR MODULE ADDRESS Y02080 28650000 DS CL2 NOT USED Y02080 28660000 DXXTTR DS 0CL3 ADR OF CSECT EP Y02080 28700000 DS CL2 28800000 DXXPREFX DS CL4 POINTER TO PREFIX Y02080 28850000 DS CL2 28900000 DXXATTRB DS CL2 NOT USED Y02080 28950000 DXXMODSZ DS CL3 NOT USED Y02080 29000000 DXXTXTLN DS CL2 NOT USED Y02080 29050000 DXXLNG DS 0C NOT USED Y02080 29100000 DXOPCLSW DS C SWITCHES FOR COMMUNICATING 29150000 * BETWEEN OPEN, CLOSE AND E-O-V 29200000 DXXPATHS DS CL2 (NOT USED BY E-O-V) 29250000 DXXENTRY DS 0CL8 FIRST ENTRY IN WTG TABLE 29350000 DXXIDTTR DS CL5 ID & VCON OF NEXT CSECT Y02080 29400000 DXXCORE DS CL3 ADDRESS OF MAIN WORK AREA 29450000 DXXLAST DS CL2,XL3,AL3 LAST ENTRY IN TABLE Y02080 29452000 DXXEND EQU *-FORCORE END OF PSEUDO WTG TABLE Y02080 29460000 SPACE 1 29510000 DXOWAEND EQU FORCORE+DSECTSIZ END OF OPEN WORK AREA Y02080 30210000 DXCWAEND EQU FORCORE+DSECTSIZ END OF CLOSE WORK AREA Y02080 30220000 DXEWAEND EQU FORCORE+DXXEND END OF EOV WORK AREA Y02080 30260000 OPENSIZE EQU DSECTSIZ SIZE OF OPEN WORK AREA Y02080 30270000 CLOSSIZE EQU DSECTSIZ SIZE OF CLOSE WORK AREA Y02080 30280000 EOVSIZE EQU DSECTSIZ SIZE OF EOV WORK AREA Y02080 30290000 * 30300000 *********************************************************************** 35400000 EJECT 35450000 .SKIPMN ANOP ENTRANCE LABEL ONLY 35500000 AIF (NOT &IECDSCT(36)).SKIPPRE PREFIX REQUESTED? Y02080 35510000 &PP1 SETC 'DS' SET DEFAULT FIRST PARM Y02080 35510500 &PP2 SETC '0D' SET DEFAULT SECOND PARM Y02080 35512000 AIF (NOT &IECDSCT(34)).IEC3600 WTG REQUESTED? Y02080 35514600 &PP1 SETC 'DSECT' SET DSECT INDICATOR Y02080 35515000 &PP2 SETC '&NULL' SET NULL Y02080 35515400 .IEC3600 ANOP GENERATE PREFIX AREA Y02080 35515600 SPACE 1 35516000 *********************************************************************** 35516400 * O/C/E/D WORK AREA PREFIX Y02080 35517300 *********************************************************************** 35519100 SPACE 1 35520000 IECPREFX &PP1 &PP2 PREFIX TO ALL WORK AREAS Y02080 35540000 IECCORID DS AL4 4-CHAR ID OF THIS AREA Y02080 35542000 DS AL4 Y02080 35544000 IECCORLN DS AL4 LENGTH OF THIS AREA Y02080 35548000 IECCORAD DS AL4 POINTER TO THIS AREA Y02080 35548400 IECCORKY DS AL1 STORAGE PROT KEY OF AREA Y02080 35548500 DS AL2 Y02080 35548800 IECCORSP DS AL1 SUBPOOL OF THIS WORK AREAY02080 35549200 IECCORPS DS AL4 PTR TO INIT BASE PREFIX Y02080 35549600 IECCORP1 DS AL4 POINTER TO PREV PREFIX Y02080 35549700 IECCORP2 DS AL4 POINTER TO NEXT PRFX Y02080 35549800 IECSTART DS 0D START OF WORK AREA Y02080 35550000 * 35550400 *********************************************************************** 35550800 SPACE 1 35552000 *********************************************************************** 35554000 * EXTENDED PREFIX DEFINITION 35556000 * THE FOLLOWING AREA IS ONLY ONCE WHEN 35556400 * FIRST O/C/E/D IECRES GET IS ISSUED. 35556800 *********************************************************************** 35558000 SPACE 1 35558400 * REGISTER 1 POINTS HERE ON RETURN FROM IECRES GET Y02080 35560000 IECEXTPR DS 0D EXTENDED PRFX (1ST AREA) Y02080 35576600 IECREGSV DS 18F 18 WORD REG SAVE AREA Y02080 35577000 IECWTGTB DS AL4 POINTER TO WTG TABLE Y02080 35578600 IECRRPRM DS AL4 PTR TO RECOVERY ROUTINE Y02080 35580600 * PARAMETER LIST 35582600 IECDAEND DS 0D PREFIX END (EOV/DADSM) Y02080 35583000 AIF ('&PP1' NE 'DSECT').IEC3610 TEST FOR DADSM CALL Y02080 35583100 IECDCBNO DS 0C NUMBER OF DCBS Y02144 35583200 IECUPRML DS AL4 MOVED PARM LIST POINTER Y02080 35583300 IECRESWA DS AL4 IFG019RA WORK AREA PTR Y02080 35583400 IECMSGQA DS AL4 MESSAGE WORK AREA Y02080 35585300 IECQMNGR DS AL4 QMNGRIO WORK AREA Y02134 35587300 IECOCEND DS 0D END OF PREFIX FOR O/C/E Y02080 35588800 .IEC3610 ANOP Y02080 35590800 * 35591200 *********************************************************************** 35592800 AIF ('&PP1' EQ 'DSECT').IEC3620 TEST FOR DADSM CALL Y02080 35592900 SPACE 1 35593000 *********************************************************************** 35593100 * DADSM WHERE-TO-GO TABLE DEFINITION * 35593400 *********************************************************************** 35593800 SPACE 1 35593900 WTGWTOPR DC AL2(12),AL2(0) PREFIX FOR RES WTO Y02080 35594000 WTG EQU * IECWTGTB POINTS HERE Y02080 35594400 WTGMODNM DS CL8 MODULE NAME Y02080 35595300 WTGMODEP DS AL4 MODULE ENTRY POINT ADDR Y02080 35595500 * 35595700 *********************************************************************** 35595900 EJECT Y02080 35596000 .IEC3620 ANOP RECOVERY ROUTINE AREA Y02080 35596100 AIF ('&PP1' NE 'DSECT').SKIPPRE TEST FOR DADSM CALL Y02080 35602800 SPACE 1 35631100 *********************************************************************** 35631200 * RESIDENT ROUTINE WORK AREA 35631300 *********************************************************************** 35631400 SPACE 1 35636000 RWARESWA DSECT RESIDENT ROUTINE ECBLIST Y02080 35638000 RWAPREFX DS 0CL12 PREFIX TO ECB LIST Y02080 35640000 RWATRACE DS AL4 POINTER TO TRACE ROUTINE Y02080 35640400 RWATRBUF DS AL4 POINTER TO TRACE BUFFER Y02080 35640500 RWAPARM DS AL4 PARAMETER LIST ADDRESS Y02080 35640700 RWALIST DS 0F LIST OF ECB POINTERS Y02080 35662500 * - 1 ECB/DCB IN PARM LIST Y02080 35672500 * 35672900 *********************************************************************** 35673300 SPACE 1 35674500 *********************************************************************** 35676500 * USER PARAMETER LIST (COPY) 35678500 *********************************************************************** 35680500 SPACE 1 35682500 USERPRML DSECT Y02080 35682600 DXDCBLST DS F PSEUDO DCB PARAMETER LIST (SO 35682900 * THAT EOV CAN INTERFACE WITH THE 35683300 * RES RTN LIKE OPEN AND CLOSE) 35683700 * 35683800 * THIS AREA IS VARIABLE IN LENGTH, DEPENDING 35683900 * ON THE LENGTH OF THE USERS PARAMETER LIST. 35684000 * 35684100 *********************************************************************** 35684200 EJECT 35684700 .SKIPPRE ANOP ENTRANCE LABEL ONLY Y02080 35684900 AIF (NOT &IECDSCT(39)).SKPRRPL RRPL REQUESTED? Y02080 35694900 SPACE 1 35704900 *********************************************************************** 35706900 * RECOVERY ROUTINE PARAMETER LIST 35708900 *********************************************************************** 35710900 SPACE 1 35711300 IECRRPL DSECT Y02080 35711700 RRPLIST DS 0F PARM LIST FOR RECOVERY Y02144 35711900 RRFUNCTN DS C OPEN/CLOSE/EOV/DADSM Y02144 35712300 * ..FUNCTION IN CONTROL Y02144 35712500 RRFOPEN EQU X'13' OPEN FUNCTION INDICATOR Y02144 35712900 RRFOPENJ EQU X'16' OPEN TYPE=J INDICATOR Y02144 35713000 RRFCLOS EQU X'14' CLOSE FUNCTION INDICATOR Y02144 35713100 RRFTCLOS EQU X'17' OPEN TYPE=J INDICATOR Y02144 35713200 RRFEOV EQU X'37' EOV FUNCTION INDICATOR Y02144 35713400 RRFFEOV EQU X'1F' FEOV FUNCTION INDICATOR Y02144 35713800 RRFRJFCB EQU X'40' RDJFCB INDICATOR Y02144 35713900 RRFDADSM EQU X'80' DADSM FUNCTION INDICATOR Y02144 35714000 RRFALLOC EQU X'A0' DADSM ALLOCATE YM8515 35714200 RRFEXTND EQU X'B7' DADSM EXTEND YM8515 35714600 RRFPRLSE EQU X'94' DADSM PARTIAL RELEASE YM8515 35714700 RRFLSPAC EQU X'CE' DADSM LSPACE YM8515 35714800 RRFOBTN EQU X'9B' DADSM OBTAIN YM8515 35715200 RRFRENAM EQU X'9E' DADSM RENAME YM8515 35715300 RRFSCRTH EQU X'9D' DADSM SCRATCH YM8515 35715700 * Y02144 35716100 RRFLAGS1 DS C OPEN/CLOSE/EOV RECOVERY Y02144 35716200 * ..ROUTINE INDICATORS Y02144 35716300 ***** RRFLAGS1 INDICATORS Y02144 35716700 RRFUSREX EQU X'40' USER EXIT IN CONTROL Y02144 35717100 RRFAMEXG EQU X'20' A.M. EXECUTOR IN CONTROL Y02144 35717300 RRFAMEXR EQU X'10' A.M. EXEC RETURNED CNTRL Y02144 35717700 RRFAMSTR EQU X'08' A.M. STRING IN CONTROL Y02144 35718100 RRFNSL EQU X'04' NSL RTN GIVEN CONTROL Y02144 35718300 RRFSMF EQU X'02' SMF IN CONTROL Y02144 35718700 RRFTRACE EQU X'01' TRACE ROUTINE IN CONTROL Y02144 35718800 * Y02144 35718900 RRFLAGS2 DS C OPEN/CLOSE/EOV RECOVERY Y02144 35719000 * ..ROUTINE INDICATORS Y02144 35719400 ***** RRFLAGS2 INDICATORS Y02144 35719500 RRFFIN1 EQU X'80' 1ST LOAD OF FUNC DONE Y02144 35719600 RRFENQPW EQU X'20' ENQ ON PASSWORD DATA SET Y02144 35720400 RRFQMNGR EQU X'10' QUEUE MANAGER IN CONTROL Y02144 35720800 RRFPRDET EQU X'02' PROB DETERM IN CONTROL Y02144 35721700 RRFENQUL EQU X'01' ENQ ON UL TRACK Y02144 35721800 * Y02144 35722200 RRFLAGS3 DS C OPEN/CLOSE/EOV RECOVERY Y02144 35722600 * ..ROUTINE INDICATORS Y02144 35722700 ***** RRFLAGS3 INDICATORS Y02144 35723100 RRFNRTCA EQU X'40' NO RTCA EXISTS Y02144 35724000 RRFFINFC EQU X'20' FINAL FORCE CLOSE PASS Y02144 35724400 RRFFCEXC EQU X'10' FORCE CLOSE EXEC IN CTRL Y02144 35724500 RRFTERM EQU X'08' TERM ENTRY Y02144 35724600 * Y02144 35724900 RR1WRKAR DS AL4 RECOVERY ROUTINE WORK Y02144 35725300 * ..AREA ADDRESS Y02144 35725400 RR1RETRY DS AL4 1ST LEVEL RECOVERY RTN Y02144 35725800 * ..BYPASS ADDRESS Y02144 35726200 RRXRETRY DS AL4 FOR OPEN/CLOSE/EOV: Y02144 35726300 * ..RECOVERY RTN EXECUTOR Y02144 35726700 * ..BYPASS ADDRESS Y20144 35727100 RRUCBPTR EQU RRXRETRY FOR DADSM: UCB ADDRESS Y02144 35727200 RRMLRTRY DS AL4 OPEN/CLOSE/EOV RETRY PTR Y02144 35727600 RRFWORK DS AL4 WORK WORD Y02144 35728000 RRPLEND EQU * DEFINE END OF AREA Y02080 35728400 * 35728800 *********************************************************************** 35728900 EJECT 35729100 .SKPRRPL ANOP Y02080 35729600 AIF (NOT &IECDSCT(46)).SKIPDSM DSMADT REQUESTED? Y02144 35729800 SPACE 1 35730000 *********************************************************************** 35730200 * DADSM RECOVERY ROUTINE AUDIT TRAIL AREA 35730400 *********************************************************************** 35730600 SPACE 1 35730800 DSMADTW1 DS 0F DADSM SWITCHES Y02144 35731000 DSMADTB1 DS B GENERAL STATUS SWITCHES Y02144 35731300 * Y02144 35731700 DSMISAM EQU X'80' ISAM ALLOCATE Y02144 35731800 DSMVIO EQU X'40' VIO ALLOCATE Y02144 35732200 DSMLOCK EQU X'08' LOCAL MEMORY LOCK GOTTEN Y02144 35732600 DSMRPSAP EQU X'04' RPS APPENDAGE LOADED Y02144 35732700 DSMUCBAL EQU X'02' UCB DYNAMICALLY ALLOCATD Y02144 35733100 DSMASWAP EQU X'01' SYSEVENT OKSWAT INDICATR YM8511 35733200 * Y02144 35733500 DSMADTB2 DS B ENQ STATUS SWITCHES Y02144 35733600 * Y02144 35734000 DSMVTOCR EQU X'80' ENQ'ED ON SYSVTOC Y02144 35734400 DSMSMCE EQU X'40' ENQ'ED SMC ON SYSVTOC Y02144 35734500 DSMTIOTE EQU X'20' ENQ'ED ON SYSZTIOT Y02144 35734900 DSMDSNE EQU X'10' ENQ'ED ON SYSDSN Y02144 35735300 DSMDMNTE EQU X'08' ENQ'D ON SYSZDMNT @01A 35735400 * Y02144 35735500 DSMADTB3 DS B RESERVED Y02144 35735800 DSMADTB4 DS B RESERVED Y02144 35736200 DSMADTW2 DS F POINTER TO SYSZTIOT ENQ Y02144 35736500 * MINOR NAME FOR OBTAIN, Y02144 35736700 * RENAME, AND SCRATCH Y02144 35737100 * POINTER TO SYSZDMNT ENQ @01A 35737200 * MINOR NAME FOR OBTAIN, @01A 35737300 * AND LSPACE IF DSMADTB2 @01A 35737400 * EQUALS DSMDMNTE (X'08') @01A 35737500 DSMADTW3 DS F POINTER TO DSNAME FOR Y02144 35737600 * OBTAIN (SEARCH OPTION), Y02144 35737700 * RENAME, AND SCRATCH. Y02144 35738000 * POINTER TO THE VDSCB FOR Y02144 35738400 * VIO ALLOCATE Y02144 35738800 DSMADTW4 DS F DSAB ADDRESS FOR RENAME Y02144 35738900 * AND SCRATCH Y02144 35739000 * DSAB LIST ADDRESS FOR Y02144 35739100 * ISAM ALLOCATE Y02144 35741100 DSMADTW5 DS F RESERVED Y02144 35741300 DSMADTW6 DS F RESERVED Y02144 35741400 * Y02144 35741500 *********************************************************************** 35741600 .SKIPDSM ANOP Y02144 35741700 AIF (NOT &IECDSCT(34)).SKIPWTG BYPASS WTG IF NOT REQUESTED 35741800 SPACE 1 35741900 *********************************************************************** 35742000 * WHERE-TO-GO TABLE DEFINITION * 35742100 *********************************************************************** 35742200 * 35742300 * NOTE- CHANGES TO THIS TABLE OR THE END-OF-VOLUME WTG TABLE 35742400 * IN THE 'FORCORE' DSECT SHOULD BE COORDINATED, SINCE 35742500 * THE TWO TABLES ARE VIRTUALLY IDENTICAL IN USAGE AND 35742600 * ORGANIZATION. 35742700 * 35742800 *********************************************************************** 35742900 SPACE 1 35743000 WTGTABLE DSECT 35743100 WTGWTOPR DC AL2(12),AL2(0) WTG WTO PREFIX Y02080 35743200 WTG EQU * IECWTGTB POINTS HERE Y02080 35743300 WTGAREA DS 0CL29 WTG TABLE BASIC SECTION 35743400 WTGMODNM DS 0CL8 MODULE NAME 35743500 DS CL6 FIRST 6 BYTES OF MODULE NAME 35743600 WTGMODID DS CL2 MODULE ID 35743700 WTGMODEP DS AL4 CSECT EPA Y02080 35743800 DS CL2 NOT USED Y02080 35743900 WTGTTR DS 0CL3 NOT USED Y02080 35744000 DS CL2 35744100 WTGPREFX DS CL4 POINTER TO PREFIX Y02080 35744200 DS CL2 35744600 WTGATTRB DS CL2 NOT USED Y02080 35744700 WTGMODSZ DS CL3 NOT USED Y02080 35744800 WTGTXTLN DS CL2 NOT USED Y02080 35744900 WTGLNG DS C NOT USED Y02080 35745000 WTGPATHS DS CL2 'OPEN'/'CLOSE' PROCESSING INDS 35745100 *** WTGPATHS INDICATORS 35745200 WTGPRLSE EQU X'80' - DA PARTIAL RELEASE WAS REQ'D 35745300 WTGNSL EQU X'40' - NSL TAPE INPUT PROCESSING 35745400 * ..REQUIRES THE DSNAME WTO MOD 35746500 WTGTCLOS EQU X'20' - TCLOSE XCTL'D TO NSL ROUTINES 35747600 WTGSMF EQU X'10' SMF IS ACTIVE AND REQUIRED 35748700 * ..FOR THIS DATA SET 35749800 WTGJFCBW EQU X'08' JFCB HAS BEEN ALTERED AND MUST 35750900 * ..BE WRITTEN BACK TO JOBQUEUE 35752000 WTGSPMSG EQU X'04' SUPPRESS ADDITIONAL YA02128 35752200 * ..3270 NOT READY MSGS YA02128 35752400 * ..FOR BTAM OPEN YA02128 35752600 *** WTGPATHS+1 INDICATORS 35753100 WTGTSENQ EQU X'04' - WAS TSO ENQ SUCCESSFUL? Y01018 35754200 WTGTRACE EQU X'80' - OPTIONAL TRACE FACILITY REQ'D 35755300 WTGRECHK EQU X'02' - INCORRECT NSL VOL WAS MOUNTED 35756400 WTGOPD EQU X'01' - LAST LOAD OF OPEN REQUIRES 35757500 * ..PROBLEM DETERMINATION, BUT 35758600 * ..ADD'L DCB'S MUST FIRST 35759700 * ..BE COMPLETED 35760900 WTGENTRY DS 0CL8 - FIRST ENTRY IN WTG TABLE 35761900 WTGIDTTR DS CL5 - ID AND TTR OF NEXT MODULE 35763000 WTGCORE DS CL3 - ADDRESS OF MAIN WORK AREA 35764100 WTGEND EQU * - END OF THE WHERE-TO-GO TABLE 35765200 * 35766300 AIF (NOT &IECDSCT(36) OR NOT &IECDSCT(39) OR *35766700 NOT &IECDSCT(34)).SKIPWTG PREFIX, WTG, & RRPLIST Y02080 35767100 WTGFIXED EQU IECOCEND-IECEXTPR+WTGEND-WTGTABLE+RRPLEND-IECRRPL+RWALIS*35767200 T-RWARESWA STATIC LEN OF 1ST W/A Y02080 35767300 *********************************************************************** 35767400 EJECT 35768500 .SKIPWTG ANOP ENTRANCE LABEL ONLY 35797800 AIF (NOT &IECDSCT(33)).SKIPUT BYPASS USERTOT IF NOT REQ'D 35797900 SPACE 1 35800000 *********************************************************************** 35803600 * USER TOTALING FACILITY SAVE AND WORK AREA * 35815200 *********************************************************************** 35826800 * 35838400 TOTSAVWA DSECT 35850000 TOTSVPTR DS F ADDR OF THE SAVE RTN 35900000 TOTCURNT DS F ADDR OF CURRENT SAVE SEGMENT 35950000 TOTSTART DS F BEGINNING ADDR OF SAVE SEGMENTS 36000000 TOTENDAD DS F ADDR OF LAST SAVE SEGMENT 36050000 TOTSVLNG DS F LENGTH OF THE USER'S SAVE AREA 36100000 TOTUSRWA DS F ADDR OF THE USERS TOT AREA 36150000 TOTTOTLN DS F TOTAL LENGTH OF GETMAIN 36200000 TOTEOVPT DS F POINTER TO EOV SEG 36250000 TOTREGSV DS D SAVE AREA FOR R11 & R12 36300000 DS D SAVE AREA FOR REG'S 36350000 * 36400000 ********** 36450000 EJECT 36500000 .SKIPUT ANOP ENTRANCE LABEL ONLY 36550000 AIF (NOT &IECDSCT(32)).SKIPUL BYPASS USERLAB IF NOT REQ'D 36600000 SPACE 1 36650000 *********************************************************************** 36700000 * USER LABEL WORK AREA DEFINITION FOR DATA MANAGEMENT ROUTINESY02082 36750000 *********************************************************************** 36800000 * 36850000 ULDMWK DSECT Y02082 36900000 ULREGSAV DS 0F SAVE AREA FOR CALLER'S REGS 36950000 ULREG5 DS F SAVE AREA FOR REGISTER 5 37000000 ULREG6 DS F SAVE AREA FOR REGISTER 6 37050000 ULREG7 DS F SAVE AREA FOR REGISTER 7 37100000 ULREG8 DS F SAVE AREA FOR REGISTER 8 37150000 ULREG9 DS F SAVE AREA FOR REGISTER 9 37200000 ULREG10 DS F SAVE AREA FOR REGISTER 10 37250000 ULREG11 DS F SAVE AREA FOR REGISTER 11 37300000 ULREQ DS F SAVE AREA FOR REGISTER 12, 37350000 * CONTAINS UL DCB EXIT LIST ENTRY 37400000 * 37450000 ULWK1 DS 1F WORK AREA 37500000 ULRETCOD EQU ULWK1+3 SAVE AREA FOR USER RETURN CODE 37550000 ULWK2 DS 1F BYTE 0 USED FOR SWITCH 37600000 ULCNT EQU ULWK2+2 37650000 ULWK3 DS 1F WORK AREA 37700000 ULWK4 DS 1F WORK AREA 37750000 ULWK5 DS 1F WORK AREA 37800000 ULWK6 DS 1F WORK AREA 37850000 ULWK7 DS 1F WORK AREA 37900000 ULWK8 DS 1F WORK AREA 37950000 ULWK9 DS 1F WORK AREA 38000000 ULWK10 DS 1F WORK AREA 38050000 * 38100000 ULDMBUFR DS CL80 USER LABEL BUFFER FOR Y02082 38110000 ULDMEND EQU * DATA MANAGEMENT ROUTINES Y02082 38120000 *****************************************************************Y02082 38130000 * USER LABEL WORK AREA DEFINITION FOR USER Y02082 38140000 *****************************************************************Y02082 38142000 ULUWK DSECT Y02082 38144000 ULBUFR DS CL80 USER LABEL BUFFER 38150000 * 38200000 ULPARM DS 0CL16 PARAMETER LIST 38250000 ULBUFPTR DS F POINTER TO USER LABEL BUFFER 38300000 ULDCBPTR DS F ADDR OF USER'S DCB 38350000 ULERRPTR DS F POINTER TO WORK IOB ERROR INFO 38400000 ULTOTPTR DS F POINTER TO USER TOTALING AREA 38450000 ULUEND EQU * Y02082 38460000 * 38472000 ***** USER LABEL EXIT RETURN CODES 38474000 * 38476000 READNEXT EQU 4 * USER LABEL RETURN CODE- READ 38478000 * ..NEXT LABEL AND REURN TO USER 38478400 WRITNEXT EQU 8 * USER LABEL RETURN CODE- WRITE 38478800 * ..LABEL AND REURN TO USER 38479200 * 38479600 USERLU EQU ULUEND-ULUWK USER'S UL AREA LENGTH Y02082 38481600 USERLDM EQU ULDMEND-ULDMWK DATA MGT UL AREA LENGTH Y02082 38481700 RDNEXT EQU READNEXT 38482000 WRITEUPD EQU WRITNEXT 38484000 WRITERET EQU WRITNEXT 38486000 * 38500000 ********** 38550000 EJECT 38600000 .SKIPUL ANOP ENTRANCE LABEL ONLY 38650000 AIF (NOT &IECDSCT(31)).SKIPTAB BYPASS UNITTAB IF NOT REQ'D 38700000 SPACE 1 38750000 *********************************************************************** 38800000 * UNIT TABLE WORK AREA DEFINITION * 38850000 *********************************************************************** 38900000 * 38950000 UNITABLE DSECT 39000000 UNITSICC DS H 39050000 UNITSIHH DS H 39100000 UNITTRLN DS H 39150000 UNITDVHI DS CL1 39200000 UNITOVHL DS CL1 39250000 UNITOVHK DS CL1 39300000 UNITFLAG DS CL1 39350000 UNITTOLR DS H 39400000 UNITTULR DS H 39450000 UNITTVLR DS H 39500000 * 39550000 ********** 39600000 EJECT 39650000 .SKIPTAB ANOP ENTRANCE LABEL ONLY 39700000 AIF (NOT &IECDSCT(35)).SKIPSEC BYPASS SEC IF NOT REQ'D 42650000 SPACE 1 42700000 *********************************************************************** 42750000 * SECURITY WORK AREA DEFINITION * 42800000 *********************************************************************** 42850000 * 42900000 SECCORE DSECT 42950000 * Y02134 42960000 MYPREFIX DS 0F BEGINNING OF PREFIX Y02134 42998400 * Y02134 42998500 ORG SECCORE+IECOCEND-IECSTART Y02134 42998800 * Y02134 42999000 MYVSAMWA DS 4F WORK AREA FOR VSAM Y02134 42999100 * Y02134 42999400 MYCODE1 DS X CALLER INDICATOR Y02134 42999600 * 0 = OPEN Y02134 42999800 * 1 = EOV Y02134 43000000 * 2 = RENAME Y02134 43001900 * 3 = SCRATCH Y02134 43002300 * 4 = RESTART DA Y02134 43002400 * 5 = RESTART TAPE Y02134 43002500 MYCODE2 DS X TRY COUNT Y02134 43002600 * Y02134 43003000 MYERRCOD DS X ERROR RETURN CODE Y02134 43003400 MYRETCOD DS X RETURN LOAD OFFSET Y02134 43003800 MYRETMOD DS 0CL12,CL8,A RETURN LOAD NAME AND EP Y02134 43003900 MYRETURN DS A CALLER SAVE AREA Y02134 43004000 DS 0D ALIGN BOUNDARY Y02134 43004100 * Y02134 43004200 *****************************************************************Y02134 43004600 * Y02134 43004700 * THE FOLLOWING FIELDS IN THIS DSECT MUST BE Y02134 43004800 * COORDINATED WITH FIELDS IN THE IECDSECT MACRO Y02134 43005000 * Y02134 43006800 *****************************************************************Y02134 43008800 * Y02134 43009200 MYDSCB DS 0CL96 DSCB AREA Y02134 43010600 MYRPLLTH DS 0X'08' WTOR REPLY LENGTH = 8 Y02134 43012500 MYRPLADR DS A WTOR REPLY ADDR Y02134 43014400 MYRPLECB DS A WTOR REPLY ECB ADDR Y02134 43016300 MYMSIZE DS H WTO/R MESSAGE LENGTH Y02134 43018200 MYMCSFLG DS X'8000' WTO/R MCS FLAG Y02134 43020100 MYMAREA DS 0CL64 TEXT AND MCS CODES Y02134 43022000 MYMIEC DS C'IEC301A ' MESSAGE ID AND A BLANK Y02134 43023900 MYMNOID DS C'S JOB ' FIXED PART OF MESSAGE Y02134 43025800 MYMJOBN DS CL8 TIOT JOB NAME HERE Y02134 43027700 MYMSTEP DS C',STEP ' FIXED PART OF MESSAGE Y02134 43029600 MYMSTEPN DS CL8 TIOT STEP NAME HERE Y02134 43031500 MYMDDNM DS C',DDNAME ' FIXED PART OF MESSAGE Y02134 43033400 MYMDDNMN DS CL8 TIOT DDNAME HERE Y02134 43035300 MYMCONC DS C',CONC' FIXED PART OF MESSAGE Y02134 43037200 MYMCONCN DS C'000' CONCATENATION NO. HERE Y02134 43039100 MYMFLAGC DS XL4 MCS ROUTCDE & DESC CODES Y02134 43041000 MYMDSN EQU MYMNOID+2 'DSNAME ' FIXED Y02134 43042900 MYMDSNN EQU MYMDSN+7 DSNAME INSERTED HERE Y02134 43044800 * Y02134 43046700 ORG MYDSCB+DXJBF-FORCORE Y02134 43048600 * Y02134 43050500 MYAREA DS 0CL176 176 BYTE PASSWORD AREA Y02134 43052400 MYDSN DS CL44 DATA SET NAME Y02134 43054300 MYREPLY DS CL8 PASSWORD READ AREA Y02134 43056200 * Y02134 43058100 MYLOGFLD DS 0CL80 PASSWORD RECORD Y02134 43060000 * Y02134 43099800 MYCNTR DS H BINARY USE COUNT Y02134 43149800 MYMODE DS X PROTECTION MODE INDICATR Y02134 43199800 DS 77C LOGGING FIELD (OPTIONAL) Y02134 43299800 * Y02134 43301800 MYSYSDSN DS CL44 DSNAME WORK AREA Y02134 43309800 * Y02134 43359800 ORG MYDSCB+DXECB-FORCORE Y02134 43360200 * Y02134 43361800 MYECB DS F ECB FOR I/O Y02134 43399800 MYIOB DS CL32 IOB FOR I/O Y02134 43449800 MYDAADDR DS D MBBCCHHR Y02134 43499800 MYYYY DS 0F ALIGN WORK DEB TO FULL WORD 44750000 MYDEB EQU MYYYY-4 BASE ADDR OF THIS WORK DEB 44800000 MYDEBDEB DS A ADDRESS OF NEXT DEB (NOT USED) 44850000 MYDEBIRB DS A ADDRESS OF IRB (NOT USED) 44900000 MYDEBSYS DS F ATTRIBUTES (NOT USED) Y02134 44950000 MYDEBNMX DS 0X'01' NO. OF EXTENTS = 1 45000000 MYDEBUSR DS A ADDR IOB PURGE CHAIN (NOT USED) 45050000 MYDEBECB DS A ADDRESS PURGE ECB (NOT USED) 45100000 MYDEBID DS 0X'0F' 0 PROTECT KEY, DEB ID 45200000 MYDEBDCB DC A(MYDCB) ADDRESS OF WORK DCB Y02134 45250000 MYDCBAD EQU MYDEBDCB DCB ADDRESS Y02134 45260000 MYDEBAPP DS A ADDR SYS1.SVCLIB APP VECTOR TBL 45300000 MYDEBMOD DS 0X DIRECT ACCESS FILE MASK 45350000 MYDEBUCB DS A ADDRESS OF UCB 45400000 MYDEBBIN DS H BIN NUMBER 45450000 MYDEBSCC DS H CYLINDER START ADDRESS 45500000 MYDEBSHH DS H HEAD START ADDRESS 45550000 MYDEBECC DS H CYLINDER END ADDRESS 45600000 MYDEBEHH DS H HEAD END ADDRESS 45650000 MYDEBNTR DS H NO. OF TRACKS IN EXTENT 45700000 * 45750000 MYXXX DS 0F SHORT DCB Y02134 45760000 MYDCB EQU MYXXX-44 DCB ADDRESS Y02134 45770000 MYDCBDEB DC A(MYDEB) ADDRESS OF DEB Y02134 45780000 * Y02134 45790000 MYCCW DS CL96 12 CCWS Y02134 45792000 * Y02134 45794000 MYXCTL DS 0D XCTL PARAMETER LIST Y02134 45810000 * Y02134 45842000 MYENQSW1 DS F ENQ/DEQ CONSTANT Y02134 45844000 MYENQSW2 DS A POINTER TO 8 BYTE QNAME Y02134 45846000 MYENQSW3 DS A POINTER TO 44 BYTE RNAME Y02134 45848000 MYENQSW4 DC C'SYSZPSWD' 8 BYTE QNAME = SYSZPSWD Y02134 45848100 * Y02134 45848200 ORG MYDSCB+DXASCBAD-FORCORE Y02134 45848400 * Y02134 45858400 MYASCB DS A ASCB ADDRESS Y02134 45898400 MYTCB DS A TCB ADDRESS Y02134 45900400 MYJSCB DS A JSCB ADDRESS Y02134 45902400 MYDSABQD DS A DSAB QDB ADDRESS Y02134 45904400 MYDSABAD DS A FIRST DSAB (CONCATNATN) Y02134 45906400 MYDSAB DS A CURRENT DSAB Y02134 45907200 MYTIOT DS A TIOT ADDRESS Y02134 45907600 MYUCB DS A UCB ADDRESS Y02134 45908000 * Y02134 45908100 ORG MYDSCB+DXOWAEND-FORCORE Y02134 45911400 * Y02134 45913400 MYWTGWTO DC 0XL4'00',AL2(12),AL2(0) MODULE TRACE WTO PREFIX Y02134 45920700 MYWTG DS 0CL32 WTG TABLE Y02134 45920800 MYWTGNM DS CL8 CURRENT MODULE NAME Y02134 45920900 MYWTGEP DS A CURRENT MODULE ENTRY PT Y02134 45921300 DS A NOTUSED Y02134 45922100 MYPREFX DC A(MYPREFIX) POINTER TO PREFIX Y02134 45926700 * Y02134 45928700 ORG MYDSCB+DXEWAEND-FORCORE Y02134 45978700 * Y02134 46028700 SECSIZE EQU *-SECCORE LENGTH OF THIS DSECT 46300000 * 46350000 *********************************************************************** 46400000 EJECT 46410000 .SKIPSEC ANOP ENTRANCE LABEL ONLY 46450000 AIF (NOT &IECDSCT(37)).SKIPVSP BYPASS VSAM PARM LIST X02898 46499900 SPACE 1 46500000 *********************************************************************** 46500300 * VSAM WORK AREA DEFINITION Y02080 46501900 *********************************************************************** 46503900 SPACE 1 46505900 * IDAPDPRM Y02080 46509900 IDAPDPRM X02989 46549900 * 46551900 *********************************************************************** 46553900 EJECT 46555900 .SKIPVSP ANOP X02989 46559900 AIF (NOT &IECDSCT(44)).SKIPAPP BYPASS APP NAME TBL Y02082 46561900 SPACE 1 Y02082 46563900 *********************************************************************** 46565900 * APPENDAGE NAME TABLE DEFINITION Y02082 46567900 *********************************************************************** 46568300 * Y02082 46568700 APPNMTBL DSECT APPENDAGE NAME TABLE Y02082 46569100 APPBAL DS H BALANCE OF UNUSED CORE Y02082 46569200 APPSIZE DS H SIZE OF APP NAME TABLE Y02082 46569300 APPENTRY DS 5F ENTRY FOR EACH APP TYPE Y02082 46569400 APPNAMID DS 0C LIST OF VALID APP IDS Y02082 46570900 * Y02082 46571300 APPTYPE DSECT DEFINITION OF ONE ENTRY Y02082 46571700 APPCOUNT DS H COUNT OF APPENDAGE IDS Y02082 46572100 APPOFFST DS H OFFSET TO IDS, THIS TYPE Y02082 46572200 * Y02082 46572400 *********************************************************************** 46573900 EJECT Y02082 46575400 .SKIPAPP ANOP ENTRANCE LABEL ONLY Y02082 46576900 AIF (NOT &IECDSCT(45)).SKIPEVL BYPASS EOV LAST W/A Y02082 46577300 SPACE 1 Y02082 46577700 *********************************************************************** 46578100 * EOV LAST LOAD WORK AREA * 46579600 *********************************************************************** 46582900 * Y02082 46584300 EOVLAST DSECT EOV SPECIAL WORK AREA Y02082 46585200 EOVREGSV DS 18F REGISTER SAVE AREA Y02082 46585600 EOVDEBAD DS F DEB ADDRESS Y02082 46586800 EOVUKEY DS CL1 USER KEY Y02082 46586900 DS AL3 DEAD SPACE Y02082 46587000 EOVVOLSW DS F VOL SWITCH INDR Y02082 46587100 EOVENT1 DS F BDAM/VS FIRST ENTRY INDR Y02082 46587200 EOVURGSV DS F ADDR USER REG SAVE AREA Y02082 46587300 * Y02082 46587500 *********************************************************************** 46587700 EJECT Y02082 46588100 .SKIPEVL ANOP ENTRANCE LABEL ONLY Y02082 46588200 AIF (NOT &IECDSCT(47)).SKIPCDE BYPASS CDE Y02080 46588300 SPACE 1 Y02080 46588400 *********************************************************************** 46591400 * CONTENTS DIRECTORY ENTRY * 46595000 *********************************************************************** 46595300 IHACDE Y02080 46595700 * Y02080 46595800 *********************************************************************** 46596000 EJECT Y02080 46596100 .SKIPCDE ANOP Y02080 46596200 AIF (NOT &IECDSCT(48)).SKIPLPD BYPASS LPDE Y02080 46596300 SPACE 1 Y02080 46596800 *********************************************************************** 46597200 * LINK PACK DIRECTORY ENTRY * 46597300 *********************************************************************** 46597600 IHALPDE Y02080 46597700 * Y02080 46597800 *********************************************************************** 46598200 EJECT Y02080 46599400 .SKIPLPD ANOP Y02080 46599800 AIF (NOT &EXPRNT).EXIT TEST FOR PRINT OFF Y02080 46600400 POP PRINT Y02080 46600900 .EXIT ANOP Y02080 46601900 .* 46604900 .********************************************************************** 46607900 .* FORGET PREVIOUS PARMS 46610900 .********************************************************************** 46613900 .* 46616900 &N SETA &C1 N=1 Y02080 46619900 &M SETA &LIMIT+&C1 M=LIMIT+1 Y02080 46622900 .EXIT010 AIF (&N GT &M).EXIT020 IF N GT LIMIT+1, EXIT Y02080 46625900 &IECDSCT(&N) SETB 0 INITIALIZE GLOBAL SWITCH Y02080 46628900 &IECDSPM(&N) SETC '&NULL' INITIALIZE CALL PARMS Y02080 46631900 &N SETA &N+&C1 N=N+1 Y02080 46634900 AGO .EXIT010 LOOP Y02080 46637900 .* 46640900 .EXIT020 MEND 46643900 .* Y02134*/ 46646900 *%PLSDSECS:; /* Y02134*/ 46649900 * 46699900 */* EOV PORTION OF O/C/E WORKAREA */ 46749900 * 46799900 *DCL 1 DXXWTG BDY(WORD) DEFINED(DSECTSIZ), /*EOV WTG TABLE */ 46849900 * 2 DXXWTOPR CHAR(4); /*IFG019RA WTO PREFIX AREA */ 46859900 *DCL 1 DXXAREA DEFINED(DSECTSIZ) POS(5) BDY(WORD), /*MAIN WTG TABLE */ 46869900 * 2 DXXMODNM CHAR(8), /*MODULE NAME */ 46899900 * 3 * CHAR(6), /*FIRST 6 BYTES OF MODULE NM */ 46949900 * 3 DXXMODID CHAR(2), /*MODULE ID */ 46999900 * 2 DXXMODEP PTR(31), /*MODULE ENTRY POINT */ 47049900 * 2 * CHAR(4), /*NOT USED */ 47099900 * 2 DXXPREFX PTR(31), /*ADDRESS OF PREFIX */ 47199900 * 2 * CHAR(2), /*NOT USED */ 47249900 * 2 DXXATTRB CHAR(2), /*NOT USED */ 47299900 * 2 DXXMODSZ CHAR(3), /*NOT USED */ 47349900 * 2 DXXTXTLN CHAR(2), /*NOT USED */ 47399900 * 2 DXXLNG CHAR(1), /*NOT USED */ 47449900 * 3 DXOPCLSW CHAR(1), /*SWITCHES FOR COMMUNICATING 47499900 * BETWEEN OPEN/CLOSE/EOV */ 47549900 * 2 DXXPATHS CHAR(2), /*NOT USED BY EOV */ 47599900 * 2 DXXENTRY CHAR(8) BDY(WORD), /*FIRST ENTRY IN WTG TABLE */ 47649900 * 3 DXXIDTTR CHAR(5), /*ID & TTR/VCON OF NEXT CSECT*/ 47699900 * 4 DXEID CHAR(2), /*ID OF NEXT CSECT */ 47709900 * 4 DXETTR CHAR(3), /*TTR/VCON OF NEXT CSECT */ 47719900 * 3 DXXCORE PTR(24), /*ADDRESS OF MAIN WORK AREA */ 47749900 * 2 DXXLAST CHAR(8) BDY(WORD), /*LAST ENTRY IN WTG TABLE */ 47759900 * 2 DXXEND CHAR(0); /*END OF WTG TABLE (EOV) */ 47769900 * 47799900 */* O/C/E/D WORK AREA PREFIX DEFINITION */ 47849900 * 47899900 *DCL 1 IECPREFX BASED(WTGPREFX) BDY(WORD), 47949900 * 2 IECCORID CHAR(4), /*ID OF THIS AREA */ 47999900 * 2 * CHAR(4), 48049900 * 2 IECCORLN PTR(31), /*LENGTH OF THIS AREA */ 48149900 * 2 IECCORAD PTR(31), /*POINTER TO THIS AREA */ 48199900 * 2 IECCORKY CHAR(1), /*KEY OF THIS AREA */ 48249900 * 2 * CHAR(2), 48299900 * 2 IECCORSP CHAR(1), /*SUBPOOL OF THIS AREA */ 48309900 * 2 IECCORPS PTR(31), /*POINTER TO INITIAL PREFIX */ 48349900 * 2 IECCORP1 PTR(31), /*POINTER TO PREVIOUS PREFIX */ 48399900 * 2 IECCORP2 PTR(31), /*POINTER TO NEXT PREFIX */ 48449900 * 48499900 */* EXTENDED PREFIX DEFINITION */ 48549900 */* THE FOLLOWING AREA IS ONLY OBTAINED ONCE WHEN */ 48599900 */* FIRST O/C/E/D IECRES GET IS ISSUED. */ 48649900 * 48699900 * 2 IECEXTPR BDY(WORD), /*EXTENDED PREFIX */ 48749900 * 3 IECREGSV CHAR(72), /*18 WORD SAVE AREA */ 48799900 * 3 IECWTGTB PTR(31), /*POINTER TO WTG TABLE */ 48849900 * 3 IECRRPRM PTR(31), /*POINTER TO RR PARM LIST */ 48899900 */* END OF PREFIX FOR DADSM/EOV */ 48949900 * 3 IECUPRML PTR(31), /*MOVED PARM LIST POINTER */ 49009900 * 4 IECDCBNO FIXED(8), /*NUMBER OF DCBS */ 49019900 * 3 IECRESWA PTR(31), /*IFG019RA WORK AREA PTR */ 49049900 * 3 IECMSGQA PTR(31), /*MESSAGE WORK AREA */ 49059900 * 3 IECQMNGR PTR(31); /*QMNGRIO WORK AREA */ 49069900 * 49099900 */* RESIDENT ROUTINE (IFG019RA) WORK AREA */ 49149900 * 49199900 *DCL 1 RWARESWA BASED(IECRESWA) BDY(WORD), 49249900 * 2 RWAPREFX CHAR(12) BDY(WORD), /*PREFIX TO ECB LIST */ 49299900 * 3 RWATRACE PTR(31), /*POINTER TO TRACE ROUTINE */ 49349900 * 3 RWATRBUF PTR(31), /*POINTER TO TRACE BUFFER */ 49399900 * 3 RWAPARM PTR(31), /*PARAMETER LIST ADDRESS */ 49449900 * 2 RWALIST PTR(31); /*LIST OF ECB POINTERS */ 49499900 * 49549900 */* USER PARAMETER LIST (COPY) */ 49599900 * 49649900 *DCL 1 USERPRML PTR(31) BDY(WORD) BASED, 49699900 * 2 DXDCBLST PTR(31); /*PSUEDO DCB PARM LIST FOR */ 49749900 * /*EOV */ 49799900 * 49849900 */* RECOVERY ROUTINE PARAMETER LIST */ 49899900 * 49949900 *DCL 1 IECRRPL BASED BDY(WORD), 49999900 * 2 RRPLIST, /*PARM LIST FOR RECOVERY */ 50049900 * 3 RRFUNCTN CHAR(1), /*OPEN/CLOSE/EOV/DADSM 50059900 * FUNCTION IN CONTROL */ 50061900 */* DEFINITION OF RRFUNCTN FIELD BY FUNCTION FOLLOWS THIS STRUCTURE */ 50063900 * 4 RRFDADSM BIT(1), /*DADSM FUNCTION INDICATOR */ 50069900 * 4 RRFRJFCB BIT(1), /*RDJFCB INDICATOR */ 50079900 * 3 RRFLAGS1 CHAR(1), /*OPEN/CLOSE/EOV RECOVERY 50089900 * ROUTINE INDICATORS */ 50090000 * 4 * BIT(1), /*RESERVED */ 50090300 * 4 RRFUSREX BIT(1), /*USER EXIT IN CONTROL */ 50090700 * 4 RRFAMEXG BIT(1), /*A.M. EXECUTOR GIVEN CONTROL*/ 50090800 * 4 RRFAMEXR BIT(1), /*A.M. EXEC RETURNED CONTROL */ 50091100 * 4 RRFAMSTR BIT(1), /*A.M. STRING IN CONTROL */ 50091500 * 4 RRFNSL BIT(1), /*NSL RTN GIVEN CONTROL */ 50091600 * 4 RRFSMF BIT(1), /*SMF IN CONTROL */ 50091700 * 4 RRFTRACE BIT(1), /*TRACE ROUTINE IN CONTROL */ 50091800 * 3 RRFLAGS2 CHAR(1), /*OPEN/CLOSE/EOV RECOVERY 50091900 * ROUTINE INDICATORS */ 50092000 * 4 RRFFIN1 BIT(1), /*1ST LOAD OF FUNCTION DONE */ 50092300 * 4 * BIT(1), /*RESERVED */ 50092700 * 4 RRFENQPW BIT(1), /*ENQ'D ON PASSWORD DATA SET */ 50093100 * 4 RRFQMNGR BIT(1), /*QUEUE MANAGER IN CONTROL */ 50093500 * 4 * BIT(2), /*RESERVED */ 50093600 * 4 RRFPRDET BIT(1), /*PROBLEM DETERM IN CONTROL */ 50093900 * 4 RRFENQUL BIT(1), /*ENQ'D ON UL TRACK */ 50099400 * 3 RRFLAGS3 CHAR(1), /*OPEN/CLOSE/EOV RECOVERY 50105100 * ROUTINE INDICATORS */ 50105500 * 4 * BIT(1), /*RESERVED */ 50107100 * 4 RRFNRTCA BIT(1), /*NO RTCA EXISTS */ 50109100 * 4 RRFFINFC BIT(1), /*FINAL FORCE CLOSE PASS */ 50109500 * 4 RRFFCEXC BIT(1), /*FORCE CLOSE EXEC IN CONTROL*/ 50109900 * 4 RRFTERM BIT(1), /*TERM ENTRY */ 50110000 * 4 * BIT(3), /*RESERVED */ 50110300 * 3 RR1WRKAR PTR(31), /*RECOVERY RTN WORK AREA PTR */ 50110700 * 3 RR1RETRY PTR(31), /*1ST LEVEL RECOVERY ROUTINE 50116300 * BYPASS ADDRESS */ 50118300 * 3 RRXRETRY PTR(31), /*FOR OPEN/CLOSE/EOV: 50121900 * RECOVERY ROUTINE EXECUTOR 50123900 * BYPASS ADDRESS */ 50125900 * 4 RRUCBPTR PTR(31), /*FOR DADSM: UCB ADDRESS */ 50127500 * 3 RRMLRTRY PTR(31), /*OPEN/CLOSE/EOV RETRY ADDR */ 50133100 * 3 RRFWORK PTR(31); /*WORK WORD */ 50138700 * 50138800 */* DEFINITION OF RRFUNCTN FIELD BY FUNCTION */ 50138900 * 50139200 *DCL (RRFOPEN CONSTANT('13'X), /*OPEN FUNCTION */ 50139500 * RRFOPENJ CONSTANT('16'X), /*OPEN TYPE=J FUNCTION */ 50139900 * RRFCLOS CONSTANT('14'X), /*CLOSE FUNCTION */ 50140300 * RRFTCLOS CONSTANT('17'X), /*CLOSE TYPE=T FUNCTION */ 50140400 * RRFEOV CONSTANT('37'X), /*EOV FUNCTION */ 50140500 * RRFFEOV CONSTANT('1F'X), /*FEOV FUNCTION */ 50140600 * RRFALLOC CONSTANT('A0'X), /*DADSM ALLOCATE FUNCTION */ 50142600 * RRFEXTND CONSTANT('B7'X), /*DADSM EXTEND FUNCTION */ 50143000 * RRFPRLSE CONSTANT('94'X), /*DADSM PARTIAL RELEASE */ 50143400 * RRFLSPAC CONSTANT('CE'X), /*DADSM LSPACE FUNCTION */ 50143800 * RRFOBTN CONSTANT('9B'X), /*DADSM OBTAIN FUNCTION */ 50144200 * RRFRENAM CONSTANT('9E'X), /*DADSM RENAME FUNCTION */ 50148100 * RRFSCRTH CONSTANT('9D'X)) BIT(8); /*DADSM SCRATCH FUNCTION */ 50150100 * 50152100 */* DADSM RECOVERY ROUTINE AUDIT TRAIL AREA */ 50154100 * 50154500 *DCL 1 DSMADTRL BASED BDY(WORD), 50154900 * 2 DSMADTW1, /*DADSM AUDIT TRAIL SWITCHES */ 50155300 * 3 DSMADTB1 CHAR(1), /*GENERAL STATUS SWITCHES */ 50155700 * 4 DSMISAM BIT(1), /*ISAM ALLOCATE */ 50155800 * 4 DSMVIO BIT(1), /*VIO ALLOCATE */ 50155900 * 4 * BIT(2), /*RESERVED */ 50166900 * 4 DSMLOCK BIT(1), /*LOCAL MEMORY LOCK OBTAINED */ 50176900 * 4 DSMRPSAP BIT(1), /*RPS APPENDAGE LOADED */ 50177300 * 4 DSMUCBAL BIT(1), /*UCB DYNAMICALLY ALLOCATED */ 50177700 * 4 DSMASWAP BIT(1), /*SYSEVENT OKSWAP IND YM8511*/ 50177800 * 3 DSMADTB2 CHAR(1), /*ENQ STATUS SWITCHES */ 50181500 * 4 DSMVTOCR BIT(1), /*ENQ'ED ON SYSVTOC */ 50183500 * 4 DSMSMCE BIT(1), /*ENQ'ED SMC ON SYSVTOC */ 50183900 * 4 DSMTIOTE BIT(1), /*ENQ'ED ON SYSZTIOT */ 50184300 * 4 DSMDSNE BIT(1), /*ENQ'ED ON SYSDSN */ 50184700 * 4 DSMDMNTE BIT(1), /*ENQ'ED ON SYSZDMNT @01A*/ 50185100 * 4 * BIT(3), /*RESERVED @01C*/ 50185500 * 3 DSMADTB4 CHAR(1), /*RESERVED */ 50190800 * 2 DSMADTW2 PTR(31), /*POINTER TO SYSZTIOT ENQ 50191200 * MINOR NAME FOR OBTAIN, 50191600 * RENAME, AND SCRATCH. OR - */ 50191700 * /*POINTER TO SYSZDMNT ENQ 50191800 * MINOR NAME FOR OBTAIN, AND 50191900 * LSPACE IF DSMADTB2 EQUALS 50192000 * DSMDMNTE (X'08') @01A*/ 50192100 * 2 DSMADTW3 PTR(31), /*POINTER TO DSNAME FOR 50192400 * OBTAIN (SEARCH OPTION), 50199500 * RENAME, AND SCRATCH. 50201500 * POINTER TO THE VDSCB FOR 50203500 * VIO ALLOCATE */ 50205500 * 2 DSMADTW4 PTR(31), /*DSAB ADDRESS FOR RENAME 50205900 * AND SCRATCH */ 50206300 * 2 DSMADTW5 CHAR(4), /*RESERVED */ 50206700 * 2 DSMADTW6 CHAR(4); /*RESERVED */ 50207100 * 50207200 */* WHERE-TO-GO-TABLE */ 50207300 * 50214400 *DCL 1 WTGTABLE BASED(RWTG-LENGTH(WTGWTOPR)) BDY(WORD), 50221500 * /*WTG TABLE */ 50228600 * 2 WTGWTOPR CHAR(4); /*IFG019RA WTO TRACE PREFIX */ 50235700 *DCL 1 WTG BASED(RWTG) BDY(WORD), /*WTG TABLE MAIN SECTION */ 50242800 * 2 WTGAREA CHAR(29) BDY(WORD), /*WTG TABLE BASIC SECTION */ 50249900 * 3 WTGMODNM CHAR(8), /*MODULE NAME */ 50299900 * 4 * CHAR(6), /*FIRST 6 BYTES OF MODULE NM */ 50399900 * 4 WTGMODID CHAR(2), /*MODULE ID */ 50449900 * 3 WTGMODEP PTR(31), /*CSECT ENTRY POINT ADDRESS */ 50499900 * 3 * CHAR(4), /*NOT USED */ 50549900 * 3 WTGPREFX PTR(31), /*POINTER TO PREFIX */ 50699900 * 3 * CHAR(2), 50799900 * 3 WTGATTRB CHAR(2), /*NOT USED */ 50849900 * 3 WTGMODSZ CHAR(3), /*NOT USED */ 50899900 * 3 WTGTXTLN CHAR(2), /*NOT USED */ 50949900 * 2 WTGLNG CHAR(1), /*NOT USED */ 50999900 * 2 WTGPATHS CHAR(2), /*OPEN/CLOSE PROCESSING BITS */ 51049900 * 3 WTGPRLSE BIT(1), /*DA PARTIAL RELEASE REQUIRED*/ 51099900 * 3 WTGNSL BIT(1), /*NSL TAPE INPUT */ 51149900 * 3 WTGTCOS BIT(1), /*TCLOSE XCTL'D TO NSL ROUTNS*/ 51199900 * 3 WTGSMF BIT(1), /*SMF IS ACTIVE AND REQUIRED */ 51249900 * 3 WTGJFCBW BIT(1), /*JFCB HAS BEEN ALTERED AND 51299900 * MUST BE REWRITTEN */ 51349900 * 3 * BIT(3), /*RESERVED */ 51399900 * 3 WTGTRACE BIT(1), /*OPTIONAL TRACE FACILITY RQD*/ 51449900 * 3 * BIT(4), /*RESERVED */ 51499900 * 3 WTGTSENQ BIT(1), /*TSO ENQ SUCCESSFUL */ 51549900 * 3 WTGRECHK BIT(1), /*INCORRECT NSL VOLUME MNTD */ 51599900 * 3 WTGOPD BIT(1); /*LAST LOAD OF OPEN REQUIRES: 51649900 * PROBLEM DETERMINATION BUT 51699900 * ADDITIONAL DCBS TO BE 51749900 * PROCESSED */ 51799900 * 51849900 */* WHERE TO GO TABLE ENTRY */ 51899900 * 51909900 *DCL 1 WTGENTRY BASED(RWTGC) BDY(WORD), /*FIRST ENTRY IN WTG TABLE */ 51949900 * 2 WTGIDTTR CHAR(5), /*ID AND TTR OF NEXT MODULE */ 51999900 * 3 WTGEID CHAR(2), /*ID OF NEXT MODULE */ 52009900 * 3 WTGETTR CHAR(3), /*TTR/CORE ADDRESS OF NEXT 52019900 * MODULE */ 52029900 * 2 WTGCORE PTR(24); /*ADDRESS OF WORKAREA */ 52049900 * 52099900 */* ADDITIONAL O/C/E FIELDS */ 52149900 * 52199900 *DCL DXDSNAME CHAR(17) DEFINED(DXCCW5); /*TEMP SAVE AREA FOR DSNAME OF 52249900 * GENERATION DATA GROUP DATA 52299900 * SET */ 52349900 * 52399900 *DCL 1 DXREGSAV DEFINED(DXCCW8), /*REG SAVE AREA FOR RES RTN */ 52449900 * 2 DXREG9 CHAR(4), /*REGISTER 9 */ 52499900 * 2 DXREGA CHAR(4), /*REGISTER 10 */ 52549900 * 2 DXREGB CHAR(4), /*REGISTER 11 */ 52599900 * 2 DXREGC CHAR(4), /*REGISTER 12 */ 52649900 * 2 DXREGD CHAR(4), /*REGISTER 13 */ 52699900 * 2 DXREGE CHAR(4), /*REGISTER 14 */ 52749900 * 2 DXREG0 CHAR(4), /*REGISTER 0 */ 52799900 * 2 DXREG1 CHAR(4); /*REGISTER 1 */ 52849900 * 52899900 *DCL 1 DXIDENT DEFINED(DXCCW12), /*PROB DETERMINATION AREAS 52909900 * AND SUBRTN LINK AREA */ 52929900 * 2 DXCALLID CHAR(2), /*ID OF CALLING MODULE */ 53049900 * 2 DXRETMOD CHAR(5), /*ID AND TTR OF RET MODULE */ 53099900 * 3 DXRETID CHAR(2), /*ID OF RETURN MODULE */ 53149900 * 3 DXRETTTR CHAR(3), /*TTR/VCON OF RETURN MODULE */ 53199900 * 2 DXRETCOD CHAR(1); /*RETURN CODE ISSUED TO USER 53201900 * BY PROBLEM DETERMINATION 53203900 * AT ABEND 53205900 * ALSO MOD ENTRY OFFSET */ 53207900 * 53208300 *DCL 1 * DEFINED(DXXCTL), /*SUBRTN LINKAGE AREA */ 53208700 * 2 DXABCODE CHAR(2), /*SYSTEM ABEND CODE ISSUED BY 53249900 * PROBLEM DETERMINATION RTN */ 53299900 * 2 DXSAVMOD CHAR(5), /*SAVED MODULE ID/VCON */ 53309900 * 3 DXSAVID CHAR(2), /*SAVED MODULE ID */ 53319900 * 3 DXSAVADR CHAR(3), /*SAVED MODULE ADDRESS */ 53329900 * 2 DXSAVOFF CHAR(1); /*SAVED RETURN OFFSET */ 53339900 * 53349900 *DCL 1 * DEFINED(DXRESSW), /*RESIDENT ROUTINE INDICATOR */ 53399900 * 2 DXRESIND CHAR(1); /*INDICATORS FOR THE RES RTN */ 53459900 * 53499900 *DCL DXBTAMX CHAR(1) DEFINED(DXREG1); /*SET TO 0 BY IFG0196V AND 53549900 * USED BY BTAM EXECUTORS */ 53599900 * 53649900 * DCL 1 APPNMTBL BASED, /* APPENDAGE NAME TABLE */ 53699900 * 2 APPBAL FIXED (15), /* BALANCE OF UNUSED CORE */ 53749900 * 2 APPSIZE FIXED (15), /* SIZE OF TABLE */ 53799900 * 2 APPENTRY (5) FIXED (31), /* HEADER FOR ONE ENTRY */ 53849900 * 3 APPCOUNT FIXED (15), /* COUNT OF NAMES, THIS TYPE */ 53899900 * 3 APPOFFST FIXED (15), /* OFFSET TO 1ST NAME */ 53949900 * 2 APPNAMID CHAR (104); /* LIST OF NAME IDS */ 53999900 * 54000000