* 00110000 * % GOTO DEBL1; /* 00160000 MACRO 00200000 IEZDEB &LIST=NO 00300000 DEB DSECT , */ 00400000 *%DEBL1 : ; 00410000 * 00500000 */* **************************************************************** */ 00600000 */* */ 00700000 */* ***** DATA EXTENT BLOCK ***** */ 00800000 */* */ 00900000 */* OS/VS2 RELEASE 3.0 AND 3.7 PTF, 12/20/77, LEVEL=2 @ZA34098*/ 00910000 */* */ 00960000 */* METHOD OF ACCESS */ 00970000 */* PL/S - DCL (DEBPTR,DEBDAPTR,DEBEXPTR,DEBSBPTR) PTR */ 00980000 */* BAL - FIVE DSECTS ARE PRODUCED. USING ON A DSECT NAME */ 00990000 */* GIVES ADDRESSABILITY FOR ALL SYMBOLS WITHIN THAT */ 01000000 */* DSECT. THE DSECT NAMES AND THE SECTIONS WITHIN EACH */ 01010000 */* DSECT ARE */ 01020000 */* */ 01030000 */* DEB *** APPENDAGE VECTOR TABLE SECTION */ 01040000 */* PREFIX TABLE */ 01050000 */* BASIC SECTION */ 01060000 */* UNIT RECORD, MAGNETIC TAPE AND */ 01070000 */* TELECOMMUNICATIONS DEVICES SECTION */ 01080000 */* 3540 ACCESS METHOD DEPENDENT SECTN @X04AA9A*/ 01085000 */* ISAM DEPENDENT SECTION */ 01090000 */* *** POINTERS TO THE DEB IN OTHER CONTROL */ 01092000 */* BLOCKS SUCH AS DCB POINT TO THE BASIC */ 01094000 */* SECTION. USING ON DEBBASIC GIVES */ 01096000 */* ADDRESSABILITY FOR BASIC SECTION AND */ 01098000 */* NEXT TWO SECTIONS. DEBAPPAD IN BASIC */ 01098400 */* SECTION CONTAINS ADDRESS OF APPENDAGE */ 01098800 */* VECTOR TABLE (AVT) SECTION. PREFIX */ 01099200 */* FOLLOWS AVT SECTION. */ 01099600 */* DEBDASD DIRECT ACCESS STORAGE DEVICE SECTION */ 01100000 */* DEBACSMD EXCP, BSAM AND QSAM DEPENDENT SECTION */ 01110000 */* BPAM DEPENDENT SECTION */ 01120000 */* BDAM DEPENDENT SECTION */ 01130000 */* BTAM DEPENDENT SECTION */ 01140000 */* GAM DEPENDENT SECTION */ 01150000 */* ISAM LOAD MODE EXTENSION ** */ 01160000 */* ISAM SCAN MODE EXTENSION ** */ 01170000 */* BISAM MODE EXTENSION ** */ 01180000 */* ** FOR THESE 3 EXTENSIONS, LOAD REGISTER */ 01190000 */* FROM DEBEXPT IN ISAM DEPENDENT SECTION */ 01200000 */* TO SET REGISTER FOR USING. */ 01210000 */* DEBSUBNM SUBROUTINE NAME SECTION */ 01220000 */* DEBXTN EXTENSION FOR OS/VS2 */ 01222000 */* */ 01224000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 01226000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 01227000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 01228400 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 01228800 */* STATEMENT NUMBERS FOR DEBDASD AND DEBACSMD IS IN */ 01229200 */* THE DIRECT ACCESS STORAGE DEVICE SECTION. */ 01229600 */* */ 01229700 */* F.E.'S */ 01229800 */* MICROFICHE LISTING - IEZDEB */ 01229900 */* */ 01233200 */* DEVELOPERS */ 01235200 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 01235600 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 01236000 */* */ 01236400 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 01236500 */* */ 01236700 */* FUNCTION */ 01240000 */* THE DATA EXTENT BLOCK (DEB) CONTAINS AN EXTENSION OF */ 01250000 */* INFORMATION IN THE DCB. EACH DEB IS ASSOCIATED WITH A */ 01260000 */* DCB, AND THE TWO POINT TO EACH OTHER. THE DEB CONTAINS */ 01270000 */* INFORMATION CONCERNING THE PHYSICAL CHARACTERISTICS OF */ 01280000 */* THE DATA SET AND OTHER INFORMATION THAT IS USED BY THE */ 01290000 */* CONTROL PROGRAM. */ 01300000 */* */ 01600000 */* **************************************************************** */ 01700000 * 01710000 *%GOTO DEBL2; /* 01720000 PUSH PRINT 01770000 AIF ('&LIST' EQ 'YES').DEB1 01780000 PRINT OFF 01790000 .DEB1 ANOP 01792000 SPACE 1 01800000 ********************************************************************** 01900000 * APPENDAGE VECTOR TABLE SECTION OF THE DEB * 02000000 * POINTED TO BY DEBAPPAD * 02050000 ********************************************************************** 02100000 SPACE 1 02200000 DEBAVT DS 0D - APPENDAGE VECTOR TABLE 02300000 DEBEOEA DS 0A - ADDRESS OF END-OF-EXTENT APPENDAGE ROUTINE 02400000 * ICB280 02410000 DEBEOEAB DS B - FLAG BYTE ICB280 02450000 DEBTCAMQ EQU DEBEOEA - TCAM USES AS WORK AREA (BITS 0-3) @ZA34098 02451000 DEBEOENP EQU X'0F' - NUMBER OF 2K PAGES TO BE FIXED FOR THE 02460000 * END-OF-EXTENT APPENDAGE ICB280 02470000 DEBEOEAD DS AL3 - ADDRESS OF END-OF-EXTENT APPENDAGE ROUTINE 02480000 * ICB280 02490000 DEBSIOA DS 0A - ADDRESS OF START I/O APPENDAGE ROUTINE ICB280 02500000 DEBSIOAB DS B - FLAG BYTE ICB280 02550000 DEBPGFX EQU X'80' - ADDRESS IN DEBSIOAD CAN BE USED TO DETERMINE 02560000 * THE ENTRY POINT TO THE PAGE FIX (PGFX) 02570000 * APPENDAGE ROUTINE BY ADDING 4 TO THE ADDRESS 02580000 * IN DEBSIOAD ICB280 02592000 DEBSIOX EQU X'40' - IF ZERO, DO NOT ENTER SIO APPENDAGE WHEN ERP 02594400 * IS ACTIVE. IF ONE, ENTER SIO APPENDAGE EVEN 02594800 * WHEN ERP IS ACTIVE. ICB372 02595200 DEBIOVR EQU X'20' - IF ONE, EXCPVR REQUEST IS VALID. 02595400 * IF ZERO, EXCPVR REQUEST IS INVALID AND WILL 02595600 * NOT BE EXECUTED. ICB401 02595800 DEBFIX EQU X'10' - INDICATION THAT DEB HAS BEEN FIXED (OS/VS2) 02596800 * (MDC032) YM5929 02598200 DEBSIONP EQU X'0F' - NUMBER OF 2K PAGES TO BE FIXED FOR THE 02600800 * SIO APPENDAGE ICB280 02603100 DEBSIOAD DS AL3 - ADDRESS OF START I/O APPENDAGE ROUTINE ICB280 02605400 DEBPCIA DS 0A - ADDRESS OF PCI APPENDAGE ROUTINE ICB280 02607700 DEBPCIAB DS B - FLAG BYTE ICB280 02610000 DEBRSV24 EQU X'80',,C'X' RESERVED 02620000 DEBRSV25 EQU X'40',,C'X' RESERVED 02630000 DEBRSV26 EQU X'20',,C'X' RESERVED 02640000 DEBRSV27 EQU X'10',,C'X' RESERVED 02642000 DEBPCINP EQU X'0F' - NUMBER OF 2K PAGES TO BE FIXED FOR THE 02650000 * PCI APPENDAGE ICB280 02660000 DEBPCIAD DS AL3 - ADDRESS OF PROGRAM-CONTROLLED-INTERRUPTION 02670000 * (PCI) APPENDAGE ROUTINE ICB280 02680000 DEBCEA DS 0A - ADDRESS OF CHANNEL-END APPENDAGE ROUTINE 02700000 * ICB280 02710000 DEBCEAB DS B - FLAG BYTE ICB280 02750000 DEBESMVR EQU X'80',,C'X' VALIDITY CHECK FOR EXCPVR CALLER @ZA34098 02752000 DEBRSV29 EQU X'40',,C'X' RESERVED 02754000 DEBRSV30 EQU X'20',,C'X' RESERVED 02756000 DEBRSV31 EQU X'10',,C'X' RESERVED 02758000 DEBCENP EQU X'0F' - NUMBER OF 2K PAGES TO BE FIXED FOR THE 02760000 * CHANNEL-END APPENDAGE ICB280 02770000 DEBCEAD DS AL3 - ADDRESS OF CHANNEL-END APPENDAGE ROUTINE 02780000 * ICB280 02790000 DEBXCEA DS 0A - ADDRESS OF ABNORMAL-END APPENDAGE ROUTINE 02800000 * ICB280 02810000 DEBXCEAB DS B - FLAG BYTE ICB280 02850000 DEBRSV32 EQU X'80',,C'X' RESERVED 02852000 DEBRSV33 EQU X'40',,C'X' RESERVED 02854000 DEBRSV34 EQU X'20',,C'X' RESERVED 02856000 DEBRSV35 EQU X'10',,C'X' RESERVED 02858000 DEBXCENP EQU X'0F' - NUMBER OF 2K PAGES TO BE FIXED FOR THE 02860000 * ABNORMAL-END APPENDAGE ICB280 02870000 DEBXCEAD DS AL3 - ADDRESS OF ABNORMAL-END APPENDAGE ROUTINE 02880000 * ICB280 02890000 SPACE 1 02900000 ********************************************************************** 03000000 * DEB PREFIX TABLE * 03100000 ********************************************************************** 03200000 SPACE 1 03300000 DEBPREFX DS 0A - DEB PREFIX TABLE 03400000 DEBWKARA DS XL1 - I/O SUPPORT WORK AREA (DIRECT ACCESS) 03500000 DEBDSCBA DS XL7 - DSCB ADDRESS (BBCCHHR) USED BY I/O SUPPORT 03600000 * (DIRECT ACCESS) 03610000 DEBXTNP DS 0A - POINTER TO DEB EXTENSION (OS/VS2) MDC008 03650000 DEBDCBMK DS XL4 - DCB MODIFICATION MASK USED BY I/O SUPPORT 03700000 * (OS/VS1) MDC009 03750000 DEBLNGTH DS BL1 - LENGTH OF DEB IN DOUBLE WORDS 03800000 DEBAMTYP DS C - ACCESS METHOD TYPE ICB380 03810000 DEBTBLOF DS H - OFFSET IN THE DEB TABLE TO THE ENTRY FOR 03820000 * THIS DEB ICB380 03830000 SPACE 1 04000000 *********************************************************************** 04100000 * DEB BASIC SECTION * 04200000 *********************************************************************** 04300000 SPACE 1 04400000 DEBBASIC EQU * 04500000 DEBTCBAD DS 0A - ADDRESS OF TCB FOR THIS DEB 04600000 DEBAMID DS 0BL1 - VTAM/TCAM DEB ID FLAG @ZA51573 04625000 DEBTAMID EQU X'00' - TCAM DEB ID @ZA51573 04650000 DEBVAMID EQU X'0F' - VTAM DEB ID @ZA51573 04675000 DEBNMSUB DS BL1 - NUMBER OF SUBROUTINES LOADED BY OPEN 04700000 * EXECUTOR ROUTINES 04800000 DEBTCBB DS AL3 - ADDRESS OF TCB FOR THIS DEB 04900000 DEBDEBAD DS 0A - ADDRESS OF THE NEXT DEB IN THE SAME TASK 05000000 DEBAMLNG DS BL1 - NUMBER OF BYTES IN THE ACCESS METHOD DEPENDENT 05100000 * SECTION. FOR BDAM THIS FIELD CONTAINS THE 05200000 * LENGTH EXPRESSED IN NUMBER OF WORDS. 05300000 DEBDEBB DS AL3 - ADDRESS OF THE NEXT DEB IN THE SAME TASK 05500000 DEBIRBAD DS 0A - IRB STORAGE ADDRESS USED FOR APPENDAGE 05600000 * ASYNCHRONOUS EXITS 05700000 DEBOFLGS DS B - DATA SET STATUS FLAGS 05800000 DEBDISP EQU X'C0' - DATA SET DISPOSITION FLAGS 05900000 * BIT SETTING DISPOSITION 06000000 * DEBDSOLD 01 OLD DATA SET 06100000 * DEBDSMOD 10 MOD DATA SET 06200000 * DEBDSNEW 11 NEW DATA SET 06300000 DEBEOF EQU X'20' - END-OF-FILE (EOF) ENCOUNTERED (TAPE INPUT) 06400000 * FORMAT 1 DSCB BIT 93.0 INDICATES THAT THE 06450000 * CURRENT VOLUME IS THE LAST VOLUME OF THE DATA 06460000 * SET (DASD INPUT) 06470000 DEBRLSE EQU X'10' - RELEASE UNUSED EXTERNAL STORAGE (DASD) 06500000 * EMULATOR TAPE WITH SECOND GENERATION FORMAT. 06600000 * TAPE MAY CONTAIN BLOCKS SHORTER THAN 12 06650000 * CHARACTERS. (TAPE) 06700000 DEBDCB EQU X'08' - DCB MODIFICATION 06800000 DEBSPLIT EQU X'04' - SPLIT CYLINDER (DASD) 06900000 * 7-TRACK EMULATOR TAPE WITH POSSIBLE MIXED 07000000 * PARITY RECORDS (TAPE) 07100000 DEBLABEL EQU X'02' - NONSTANDARD LABELS 07200000 DEBRERR EQU X'01' - USE REDUCED ERROR RECOVERY PROCEDURE (TAPE) 07300000 * CONCATENATED PARTITIONED ORGANIZATION DATA 07350000 * SETS PROCESSED USING BPAM (DASD) 07400000 DEBIRBB DS AL3 - IRB STORAGE ADDRESS USED FOR APPENDAGE 07500000 * ASYNCHRONOUS EXITS 07550000 DEBOPATB DS B - FLAGS INDICATING BOTH THE METHOD OF I/O 07600000 * PROCESSING AND THE DISPOSITION THAT IS TO BE 07700000 * PERFORMED WHEN AN END-OF-VOLUME (EOV) 07800000 * CONDITION OCCURS 07900000 DEBABEND EQU X'80' - SET BY ABEND INDICATING A SYSABEND OR 08000000 * SYSUDUMP DATA SET (OS/VS2) 08100000 DEBZERO EQU X'40' - ALWAYS ZERO 08200000 DEBPOSIT EQU X'30' - DATA SET POSITIONING FLAGS 08300000 * BIT SETTING POSITIONING 08400000 * DEBRERED 01 REREAD 08500000 * DEBLEAVE 11 LEAVE 08600000 DEBACCS EQU X'0F' - TYPE OF I/O ACCESSING BEING DONE 08700000 * BIT SETTING ACCESSING 08800000 * DEBINPUT 0000 INPUT 08900000 * DEBOUTPT 1111 OUTPUT 09000000 * DEBINOUT 0011 INOUT 09100000 * DEBOUTIN 0111 OUTIN 09200000 * DEBRDBCK 0001 RDBACK 09300000 * DEBUPDAT 0100 UPDAT 09400000 DEBQSCNT DS BL1 - PURGE (SVC 16) - QUIESCE COUNT. NUMBER OF 09500000 * DEVICES EXECUTING USER'S CHANNEL PROGRAMS, 09600000 * AS SHOWN BY BITS 5 AND 6 OF UCBFL1 FIELDS. 09700000 DEBFLGS1 DS BL1 - FLAG FIELD 09850000 DEBPWCKD EQU X'80' - PASSWORD WAS SUPPLIED DURING OPEN. EOV WILL 09852000 * NOT REQUEST A PASSWORD FOR EACH ADDITIONAL 09854000 * VOLUME OF A MULTIVOLUME DATA SET. 09856000 DEBEOFDF EQU X'40' - SET BY EOV TO INFORM CLOSE THAT AN END-OF-FILE 09860000 * HAS BEEN ENCOUNTERED AND, THEREFORE, DEFERRED 09870000 * USER LABEL PROCESSING IS ALLOWED. 09880000 DEBRSIOA EQU X'20' - SIO APPENDAGE RE-ENTRY AUTHORIZATION BIT 09882000 * (OS/VS1) (MDC331) @XM06077 09883000 DEBEXCPA EQU X'10' - EXCP IS AUTHORIZED FOR THIS DEB @ZA20762 09884000 DEBCINDI EQU X'08' - DCB ASSOCIATED WITH THIS DEB IS BEING 09890000 * PROCESSED BY THE COMPATIBILITY INTERFACE 09892000 * ROUTINES (VSAM) ICB462 09892400 DEBF1CEV EQU X'04' - EOV PROCESSING OCCURRED DURING CLOSE 09893000 * PROCESSING. TESTED AND SET TO ZERO BY CLOSE, 09895000 * SET TO ONE BY EOV. (ICB353) A42228 09895400 DEBAPFIN EQU X'02' - IF ON, AUTHORIZED PROGRAMS CAN BE LOADED 09898000 * MDC001 09898400 DEBXTNIN EQU X'01' - IF ONE, DEB EXTENSION EXISTS (OS/VS2) MDC007 09898800 DEBRSV05 DS XL1 - RESERVED 09900000 DEBUSRPG DS 0A - ADDRESS OF FIRST IOB IN THE USER PURGE CHAIN 10000000 * (OS/VS1) 10050000 * ADDRESS OF PURGED I/O RESTORE LIST (PIRL) 10100000 * (OS/VS2) (MDC029) YM3158 10150000 DEBNMEXT DS BL1 - NUMBER OF EXTENTS SPECIFIED IN DSCB'S 10200000 DEBUSRPB DS AL3 - ADDRESS OF FIRST IOB IN THE USER PURGE CHAIN 10300000 * (OS/VS1) 10310000 * ADDRESS OF PURGED I/O RESTORE LIST (PIRL) 10320000 * (OS/VS2) (MDC030) YM3158 10330000 DEBRRQ DS 0A - POINTER TO RELATED REQUEST QUEUE (OS/VS2) 10350000 * MDC026 10360000 DEBECBAD DS 0A - ADDRESS OF A PARAMETER LIST USED TO LOCATE 10400000 * THE PURGE ECB FOR AN SVC PURGE REQUEST 10500000 * (OS/VS1) MDC025 10550000 DEBPRIOR DS BL1 - PRIORITY OF THE TASK OWNING DEB 10600000 DEBECBB DS AL3 - ADDRESS OF A PARAMETER LIST USED TO LOCATE 10700000 * THE PURGE ECB FOR AN SVC PURGE REQUEST 10750000 * (OS/VS1) MDC025 10760000 DEBDCBAD DS 0A - ADDRESS OF DCB ASSOCIATED WITH THIS DEB 10800000 DEBPROTG DS 0BL1 - TASK PROTECTION KEY IN HIGH-ORDER 4 BITS 10900000 DEBDEBID DS BL1 - A HEX F IN LOW-ORDER 4 BITS TO IDENTIFY 11000000 * THIS BLOCK AS A DEB 11100000 DEBDCBB DS AL3 - ADDRESS OF DCB ASSOCIATED WITH THIS DEB 11200000 DEBAPPAD DS 0A - ADDRESS OF THE I/O APPENDAGE VECTOR TABLE 11300000 DEBEXSCL DS XL1 - EXTENT SCALE - 4 FOR DIRECT ACCESS DEVICE AND 11400000 * 3525 CARD PUNCH WITH DEVICE-ASSOCIATED DATA 11450000 * SET SUPPORT AND 2 FOR NONDIRECT ACCESS DEVICE 11460000 * AND COMMUNICATION DEVICE. THIS FIELD IS USED 11500000 * TO DETERMINE THE SIZE OF THE DEVICE DEPENDENT 11700000 * SECTION ICB394 11800000 DEBAPPB DS AL3 - ADDRESS OF THE I/O APPENDAGE VECTOR TABLE 11900000 DEBBASND EQU * 12000000 SPACE 1 12100000 *********************************************************************** 12200000 * UNIT RECORD, MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION * 12300000 * * 12400000 * NOTE FOR TELECOMMUNICATIONS DEVICES, THE UCB ADDRESS IS * 12500000 * REPEATED FOR EACH LINE ASSIGNED * 12600000 *********************************************************************** 12700000 SPACE 1 12800000 DEBDDS1 EQU * 12900000 DEBSUCBA DS 0A - ADDRESS OF A UCB ASSOCIATED WITH A GIVEN 13000000 * DATA SET 13100000 DEBSDVM DS B - DEVICE MODIFIER. FOR MAGNETIC TAPE, SET MODE 13200000 * OPERATION CODE. FOR UNIT RECORD, NOT USED. 13300000 DEBSUCBB DS AL3 - ADDRESS OF A UCB ASSOCIATED WITH A GIVEN 13500000 * DATA SET 13502000 DEBDEVED DS 0A - END OF COMMON UNIT RECORD FIELDS (MDC330) 13503000 * @X04AA9A 13504000 SPACE 1 13505000 * THE FOLLOWING FIELDS ARE PRESENT ONLY FOR THE 3525 WITH 13510000 * DEVICE-ASSOCIATED DATA SET SUPPORT 13515000 SPACE 1 13520000 DEBRDCB DS 0A - ADDRESS OF DCB FOR THE READ ASSOCIATED DATA 13525000 * SET ICB394 13530000 DEBRSV06 DS X - RESERVED ICB394 13535000 DEBRDCBA DS AL3 - ADDRESS OF DCB FOR THE READ ASSOCIATED DATA 13540000 * SET ICB394 13542000 DEBPDCB DS 0A - ADDRESS OF DCB FOR THE PUNCH ASSOCIATED DATA 13545000 * SET ICB394 13550000 DEBRSV07 DS X - RESERVED ICB394 13555000 DEBPDCBA DS AL3 - ADDRESS OF DCB FOR THE PUNCH ASSOCIATED DATA 13560000 * SET ICB394 13562000 DEBWDCB DS 0A - ADDRESS OF DCB FOR THE PRINT ASSOCIATED DATA 13565000 * SET ICB394 13570000 DEBRSV08 DS X - RESERVED ICB394 13575000 DEBWDCBA DS AL3 - ADDRESS OF DCB FOR THE PRINT ASSOCIATED DATA 13580000 * SET ICB394 13590000 SPACE 2 13590600 *********************************************************************** 13591200 * 3540 ACCESS METHOD DEPENDENT SECTION @X04AA9A* 13591800 * (OS/VS1 ONLY) @X04AA9A* 13592400 * * 13593000 * NOTE THIS SECTION FOLLOWS DEBSUCBA IN UNIT RECORD, MAGNETIC * 13593600 * TAPE, TELECOMMUNICATIONS DEVICES SECTION IF DEB IS * 13594200 * FOR 3540 DEVICE. @X04AA9A* 13594800 *********************************************************************** 13595400 SPACE 2 13596000 ORG DEBDEVED - @X04AA9A 13596600 SPACE 1 13597200 DEBASC09 DS 0CL16 - 3540 ACCESS METHOD DEPENDENT SECTION 13597800 * (MDC317) @X04AA9A 13598400 DEBVOLAC DS CL1 - VOLUME ACCESSABILITY INDICATOR (MDC327) 13600000 * @X04AA9A 13603000 DEBDSSQL DS CL1 - DATA SET SECURITY QUALIFIER (MDC328) @X04AA9A 13606000 DEBVSEQU DS FL1 - VOLUME SEQUENCE NUMBER (MDC318) @X04AA9A 13609000 DEBEAMFG DS B - FLAG BYTE (MDC319) @X04AA9A 13612000 DEBMULTI EQU X'80' - MULTI-VOLUME INDICATOR (MDC320) @X04AA9A 13615000 DEBDSOPN EQU X'40' - DATA SET IS OPEN (MDC321) @X04AA9A 13618000 DEBVAMSG EQU X'20' - VOLUME ACCESSABILITY MESSAGE HAS BEEN ISSUED 13621000 * (MDC329) @X04AA9A 13624000 DEBSECVL EQU X'10' - SECURE VOLUME (MDC332) @X04AA9A 13625000 DEBRV004 EQU X'08',,C'X' - RESERVED @X04AA9A 13630000 DEBRV005 EQU X'04',,C'X' - RESERVED @X04AA9A 13633000 DEBRV006 EQU X'02',,C'X' - RESERVED @X04AA9A 13636000 DEBRV007 EQU X'01',,C'X' - RESERVED @X04AA9A 13639000 DEBDSID DS 0CL8 - DATA SET IDENTIFIER (DSID) (INPUT) (MDC305) 13642000 * @X04AA9A 13642600 DEBEXDTE DS CL6 - EXPIRATION DATE (OUTPUT) (MDC333) @X04AA9A 13643200 DEBWTPTI DS CL1 - WRITE PROTECT INDICATOR (OUTPUT) (MDC334) 13643800 * @X04AA9A 13644400 DEBRV008 DS CL1 - RESERVED (OUTPUT) (MDC335) @X04AA9A 13645000 DEBEOD DS 0CL4 - END OF DATA (EOD) ADDRESS (INPUT) (MDC306) 13651000 * @X04AA9A 13654000 DEBBOE DS 0CL4 - BEGINNING OF EXTENT (BOE) ADDRESS (OUTPUT) 13657000 * (MDC322) @X04AA9A 13663000 DEBEODRV DS 0XL1 - RESERVED (MDC307) @X04AA9A 13666000 DEBBOERV DS XL1 - RESERVED (MDC323) @X04AA9A 13669000 DEBEODTT DS 0XL1 - EOD TRACK NUMBER (MDC308) @X04AA9A 13672000 DEBBOETT DS XL1 - BOE TRACK NUMBER (MDC324) @X04AA9A 13675000 DEBEOD0 DS 0XL1 - MUST BE ZERO (MDC309) @X04AA9A 13681000 DEBBOE0 DS XL1 - MUST BE ZERO (MDC325) @X04AA9A 13684000 DEBEODSS DS 0XL1 - EOD SECTOR NUMBER (MDC310) @X04AA9A 13687000 DEBBOESS DS XL1 - BOE SECTOR NUMBER (MDC326) @X04AA9A 13690000 SPACE 2 13693000 *********************************************************************** 13700000 * DEB ISAM DEPENDENT SECTION * 13800000 * * 13810000 * NOTE PRESENT ONLY IF ISAM IS USED. FOLLOWS THE BASIC * 13850000 * SECTION AND PRECEDES THE DIRECT ACCESS STORAGE DEVICE * 13860000 * SECTION. COUNTED AS ONE EXTENT IN DEBNMEXT. * 13870000 *********************************************************************** 13900000 SPACE 1 14000000 ORG DEBBASND 14100000 SPACE 1 14200000 DEBISAM EQU * 14300000 DEBFIEAD DS 0A - ADDRESS OF FIRST INDEX EXTENT 14400000 DEBNIEE DS BL1 - NUMBER OF EXTENTS OF INDEPENDENT INDEX AREA 14500000 DEBFIEB DS AL3 - ADDRESS OF FIRST INDEX EXTENT 14700000 DEBFPEAD DS 0A - ADDRESS OF THE FIRST PRIME DATA EXTENT 14800000 DEBNPEE DS BL1 - NUMBER OF EXTENTS OF PRIME DATA AREA 14900000 * (M=0 EXTENT) 14950000 DEBFPEB DS AL3 - ADDRESS OF THE FIRST PRIME DATA EXTENT 15000000 DEBFOEAD DS 0A - ADDRESS OF THE FIRST OVERFLOW EXTENT 15100000 DEBNOEE DS BL1 - NUMBER OF EXTENTS OF INDEPENDENT OVERFLOW AREA 15200000 DEBFOEB DS AL3 - ADDRESS OF THE FIRST OVERFLOW EXTENT 15400000 DEBEXPT DS 0A - ADDRESS OF ISAM DEB EXTENSION ICB379 15500000 DEBRPSID DS BL1 - ROTATIONAL POSITION SENSING (RPS) DEVICE 15750000 * INDICATORS 15754000 DEBRPSP EQU X'80' - PRIME DATA AREA IS ON RPS DEVICE 15760000 DEBRPSI EQU X'40' - INDEPENDENT INDEX AREA IS ON RPS DEVICE 15770000 DEBRPSO EQU X'20' - INDEPENDENT OVERFLOW AREA IS ON RPS DEVICE 15780000 DEBRPSAP EQU X'10' - RPS SIO APPENDAGE HAS BEEN LOADED 15790000 DEBRSV09 EQU X'08',,C'X' RESERVED 15790400 DEBRSV10 EQU X'04',,C'X' RESERVED 15790800 DEBRSV11 EQU X'02',,C'X' RESERVED 15791200 DEBRSV12 EQU X'01',,C'X' RESERVED 15791600 DEBEXPTA DS AL3 - ADDRESS OF ISAM DEB EXTENSION ICB379 15792000 SPACE 2 15800000 *********************************************************************** 15900000 * DIRECT-ACCESS STORAGE DEVICE SECTION * 16000000 * * 16100000 * NOTE IF ISAM IS BEING USED, THIS SECTION FOLLOWS THE ISAM * 16150000 * DEVICE DEPENDENT SECTION. OTHERWISE, IT FOLLOWS THE * 16200000 * BASIC SECTION. * 16250000 * * 16300000 * THERE IS ONE OF THESE SECTIONS FOR EACH EXTENT. * 16350000 *********************************************************************** 16500000 SPACE 1 16600000 DEBDASD DSECT 16700000 DEBUCBAD DS 0A - ADDRESS OF UCB ASSOCIATED WITH THIS DATA 16800000 * EXTENT 16850000 DEBDVMOD DS B - DEVICE MODIFIER - FILE MASK 16900000 DEBUCBA DS AL3 - ADDRESS OF UCB ASSOCIATED WITH THIS DATA 17000000 * EXTENT 17050000 DEBBINUM DS CL2 - BIN NUMBER 17100000 DEBSTRCC DS CL2 - CYLINDER ADDRESS FOR THE START OF AN EXTENT 17200000 * LIMIT 17300000 DEBSTRHH DS CL2 - READ/WRITE TRACK ADDRESS FOR THE START OF AN 17400000 * EXTENT LIMIT 17500000 DEBENDCC DS CL2 - CYLINDER ADDRESS FOR THE END OF AN EXTENT 17600000 * LIMIT 17700000 DEBENDHH DS CL2 - READ/WRITE TRACK ADDRESS FOR THE END OF AN 17800000 * EXTENT LIMIT 17900000 DEBNMTRK DS CL2 - NUMBER OF TRACKS ALLOCATED TO A GIVEN EXTENT. 18000000 * FOR SPLIT CYLINDER DATA SETS, THIS FIELD 18050000 * REPRESENTS THE NUMBER OF TRACKS BETWEEN THE 18100000 * START ADDRESS OF THE EXTENT AND THE END 18150000 * ADDRESS OF THE EXTENT. 18200000 SPACE 2 18300000 *********************************************************************** 18400000 * EXCP ACCESS METHOD, BSAM AND QSAM DEPENDENT SECTION * 18500000 *********************************************************************** 18600000 SPACE 1 18700000 DEBACSMD DSECT 18800000 SPACE 1 18900000 DEBVOLSQ DS 0CL2 - VOLUME SEQUENCE NUMBER FOR MULTIVOLUME 19000000 * SEQUENTIAL DATA SETS 19100000 DEBVOLBT DS B - FIRST BYTE OF DEBVOLSQ (MDC016) YA00318 19150000 DEBEXFUL EQU X'80' - SET BY EOV WHEN REWRITING AN OLD DIRECT ACCESS 19160000 * DATA SET TO INDICATE THAT ALL PREVIOUS 19170000 * EXISTING EXTENTS HAVE BEEN FILLED 19180000 * (MDC017) YA00318 19182000 DEBRSV36 EQU X'40',,C'X' - RESERVED MDC018 19190000 DEBRSV37 EQU X'20',,C'X' - RESERVED MDC018 19192000 DEBRSV38 EQU X'10',,C'X' - RESERVED MDC018 19194000 DEBRSV39 EQU X'08',,C'X' - RESERVED MDC018 19196000 DEBRSV40 EQU X'04',,C'X' - RESERVED MDC018 19198000 DEBRSV41 EQU X'02',,C'X' - RESERVED MDC018 19198400 DEBRSV42 EQU X'01',,C'X' - RESERVED MDC018 19198800 DEBVLSEQ DS FL1 - FOR DIRECT ACCESS, SEQUENCE NUMBER OF THE 19199200 * VOLUME OF THE DATA SET RELATIVE TO THE FIRST 19199600 * VOLUME OF THE DATA SET. FOR TAPE, SEQUENCE 19199700 * NUMBER OF THE VOLUME OF THE DATA SET RELATIVE 19199800 * TO THE FIRST VOLUME PROCESSED.(MDC019) YA00318 19199900 DEBVOLNM DS CL2 - TOTAL NUMBER OF VOLUMES IN A MULTIVOLUME 19200000 * SEQUENTIAL DATA SET. 19300000 DEBDSNM DS 0CL8 - MEMBER NAME. THIS FIELD APPEARS ONLY WHEN AN 19400000 * OUTPUT DATA SET HAS BEEN OPENED FOR A MEMBER 19500000 * NAME AND THE DSCB SPECIFIES A PARTITIONED 19600000 * DATA SET. 19700000 DEBUTSAA DS 0A - ADDRESS OF THE USER TOTALING SAVE AREA 19900000 DEBRSV13 DS X - RESERVED 20000000 DEBUTSAB DS AL3 - ADDRESS OF THE USER TOTALING SAVE AREA 20100000 DEBRSV14 DS XL4 - RESERVED (IF USER TOTALING WAS SPECIFIED) 20200000 DEBBLKSI DS H - MAXIMUM BLOCK SIZE (MDC346) @ZA03699 20230000 DEBLRECL DS H - LOGICAL RECORD LENGTH (MDC347) @ZA03699 20260000 SPACE 2 20300000 *********************************************************************** 20400000 * BPAM DEPENDENT SECTION * 20500000 *********************************************************************** 20600000 SPACE 2 20700000 ORG DEBACSMD 20800000 SPACE 1 20900000 DEBEXTNM DS 0C - FOR A PARTITIONED DATA SET OPENED FOR INPUT, 21000000 * EACH ONE-BYTE FIELD CONTAINS THE EXTENT NUMBER 21100000 * OF THE FIRST EXTENT ENTRY FOR EACH DATA SET 21200000 * EXCEPT THE FIRST, IF TWO OR MORE DATA SETS ARE 21300000 * CONCATENATED. THE NUMBER OF BYTES IN THE 21400000 * FIELD IS EQUAL TO ONE LESS THAN THE NUMBER OF 21500000 * DATA SETS CONCATENATED. 21700000 DEBDSNAM DS CL8 - FOR A PARTITIONED DATA SET OPENED FOR 21800000 * OUTPUT FOR A MEMBER NAME, THIS FIELD IS THE 21900000 * MEMBER NAME. 22000000 SPACE 2 22100000 *********************************************************************** 22200000 * BDAM DEPENDENT SECTION * 22300000 *********************************************************************** 22400000 SPACE 2 22500000 ORG DEBACSMD 22600000 SPACE 1 22700000 * ***************************************** 22800000 * * FOR FIXED LENGTH RECORDS WITH THE * 22900000 * * OPTION OF RELATIVE BLOCK ADDRESSING * 23000000 * * (BUT NOT TRACK OVERFLOW) * 23100000 * ***************************************** 23200000 SPACE 1 23300000 DEBDBLK DS 0F - ONE FOUR-BYTE FIELD FOR EACH EXTENT 23400000 * DESCRIBED IN THE DEVICE DEPENDENT SECTION 23500000 DEBDBPT DS AL1 - NUMBER OF BLOCKS PER TRACK 23700000 DEBDBPE DS CL3 - NUMBER OF BLOCKS PER EXTENT 23800000 SPACE 2 23900000 ORG DEBACSMD 24000000 SPACE 1 24100000 * ***************************************** 24200000 * * FOR FIXED LENGTH RECORDS WITH THE * 24300000 * * OPTION OF RELATIVE BLOCK ADDRESSING * 24400000 * * AND TRACK OVERFLOW. * 24500000 * ***************************************** 24600000 SPACE 1 24700000 DEBDTPP DS FL4 - NUMBER OF TRACKS PER PERIOD 24800000 DEBDBPP DS FL4 - NUMBER OF BLOCKS PER PERIOD 24900000 SPACE 1 24950000 * THE FOLLOWING FIELD OCCURS ONCE FOR 25000000 * EACH EXTENT. 25100000 SPACE 1 25150000 DEBDBPEF DS FL4 - NUMBER OF BLOCKS PER EXTENT 25200000 SPACE 2 25300000 *********************************************************************** 25400000 * BTAM DEPENDENT SECTION * 25500000 * * 25550000 * NOTE THIS SEGMENT IS ALWAYS PRESENT FOR BTAM. IT IS USED * 25560000 * WHEN A BUFFER POOL OR DYNAMIC BUFFERING IS USED. * 25570000 * OTHERWISE, THE FIELDS ARE ZERO. * 25580000 *********************************************************************** 25600000 SPACE 2 25700000 ORG DEBACSMD 25800000 SPACE 1 25900000 DEBTBFRA DS 0A - ADDRESS OF THE BUFFER ROUTINE 26400000 DEBRSV15 DS X - RESERVED 26500000 DEBTBFRB DS AL3 - ADDRESS OF THE BUFFER ROUTINE 26600000 SPACE 1 26650000 * THE FOLLOWING FIELD IS REPEATED FOR EACH 26700000 * CCW ON THE CHANNEL PROGRAM QUEUE 26800000 SPACE 1 26850000 DEBTCCWA DS 0A - ADDRESS OF THE FIRST (OR FOLLOWING) CCW ON 26900000 * THE QUEUE 26950000 DEBRSV16 DS X - RESERVED 27000000 DEBTCCWB DS AL3 - ADDRESS OF THE FIRST (OR FOLLOWING) CCW ON 27100000 * THE QUEUE 27150000 SPACE 2 27200000 *********************************************************************** 27300000 * GAM DEPENDENT SECTION * 27400000 *********************************************************************** 27500000 SPACE 2 27600000 ORG DEBACSMD 27700000 SPACE 1 27800000 DEBFUCBA DS 0A - ADDRESS OF FIRST UCB 27900000 DEBRSV17 DS X - RESERVED 28000000 DEBFUCBB DS AL3 - ADDRESS OF FIRST UCB 28100000 DEBLUCBA DS 0A - ADDRESS OF LAST UCB 28200000 DEBRSV18 DS X - RESERVED 28300000 DEBLUCBB DS AL3 - ADDRESS OF LAST UCB 28400000 SPACE 2 28419600 *********************************************************************** 28420000 * ISAM LOAD MODE EXTENSION * 28421000 * POINTED TO BY DEBEXPT * 28422000 *********************************************************************** 28423000 SPACE 2 28424000 ORG DEBACSMD 28426000 SPACE 1 28430000 DEBDCBFA DS A - ADDRESS OF DCB FIELD AREA MDC013 28432000 DEBPUT DS A - ADDRESS OF PUT MODULE ICB379 28434000 SPACE 2 28436000 *********************************************************************** 28438000 * ISAM SCAN MODE EXTENSION * 28440000 * POINTED TO BY DEBEXPT * 28444000 *********************************************************************** 28446000 SPACE 2 28448000 ORG DEBACSMD 28450000 SPACE 1 28454000 DS A - DEBDCBFA - ADDRESS OF DCB FIELD AREA MDC014 28456000 DEBGET DS A - ADDRESS OF GET OR PUT MODULE - THIS FIELD 28460000 * IS ALSO CALLED DEBPUT ICB379 28462000 DEBWKPT4 DS A - SAME AS DCBWKPT4 - ADDRESS OF UCB ICB379 28464000 DEBWKPT5 DS A - SAME AS DCBWKPT5 - ADDRESS OF GET APPENDAGE 28466000 * MODULE ICB379 28470000 DEBCREAD DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28472000 * READ ICB379 28474000 DEBCSETL DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28476000 * SETL ICB379 28480000 DEBCWRIT DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28482000 * WRITE ICB379 28484000 DEBCCHK DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28486000 * WRITE VALIDITY CHECK ICB379 28490000 DEBCREWT DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28491000 * RE-WRITE ICB379 28494000 DEBCRECK DS A - ADDRESS OF CHANNEL-END APPENDAGE FOR 28496000 * RE-CHECK ICB379 28498000 DEBAREAD DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28502000 * READ ICB379 28504000 DEBASETL DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28506000 * SETL ICB379 28510000 DEBAWRIT DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28512000 * WRITE ICB379 28512800 DEBACHK DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28516000 * WRITE VALIDITY CHECK ICB379 28520000 DEBAREWT DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28520400 * RE-WRITE ICB379 28524000 DEBARECK DS A - ADDRESS OF ABNORMAL-END APPENDAGE FOR 28526000 * RE-CHECK ICB379 28528000 DEBRPSST DS A - ADDRESS OF RPS SIO APPENDAGE IF ADDRSPC=REAL 28530000 * WAS NOT SPECIFIED ICB379 28532000 SPACE 2 28534000 *********************************************************************** 28536000 * BISAM MODE EXTENSION * 28538000 * POINTED TO BY DEBEXPT * 28540000 *********************************************************************** 28542000 SPACE 2 28544000 ORG DEBACSMD 28546000 SPACE 1 28548000 DS A - DEBDCBFA - ADDRESS OF DCB FIELD AREA MDC015 28550000 DEBDISAD DS A - ADDRESS OF PRIVILEGED MODULE ENTERED WHEN A 28552000 * BISAM MACRO INSTRUCTION IS EXECUTED ICB379 28554000 DS A - DEBWKPT4 - SAME AS DCBWKPT4 - ADDRESS OF THE 28556000 * PART 1 APPENDAGE MODULE (ABNORMAL AND 28558000 * CHANNEL-END APPENDAGES) ICB379 28560000 DS A - DEBWKPT5 - SAME AS DCBWKPT5 - ADDRESS OF THE 28562000 * PART 2 APPENDAGE MODULE (ABNORMAL AND 28564000 * CHANNEL-END APPENDAGES) ICB379 28566000 DEBFREED DS A - ADDRESS OF DYNAMIC BUFFERING MODULE ICB379 28568000 DEBRPSIO DS A - ADDRESS OF RPS SIO APPENDAGE MODULE IF 28570000 * ADDRSPC=REAL WAS NOT SPECIFIED AND IF DYNAMIC 28572000 * BUFFERING IS USED ICB379 28574000 DEBSIOA2 DS A - ADDRESS OF DYNAMIC BUFFERING APPENDAGE MODULE 28576000 * DISPLACED BY PAGE FIX (PGFX) APPENDAGE IF 28578000 * ADDRSPC=REAL WAS NOT SPECIFIED ICB379 28580000 SPACE 2 28582000 *********************************************************************** 28600000 * SUBROUTINE NAME SECTION * 28700000 * * 28750000 * NOTE FOLLOWS THE ACCESS METHOD DEPENDENT SECTION, OR THE * 28760000 * DEVICE DEPENDENT SECTION IF THERE IS NO ACCESS * 28770000 * METHOD SECTION * 28780000 *********************************************************************** 28800000 SPACE 1 28900000 DEBSUBNM DSECT 29000000 DEBSUBID DS CL2 - SUBROUTINE IDENTIFICATION. EACH ACCESS METHOD 29500000 * SUBROUTINE, APPENDAGE SUBROUTINE, AND IRB 29550000 * ROUTINE WILL HAVE A UNIQUE EIGHT-BYTE NAME. 29600000 * THE LOW-ORDER TWO BYTES OF EACH ROUTINE NAME 29650000 * WILL BE IN THIS FIELD IF THE SUBROUTINE IS 29700000 * LOADED BY THE OPEN ROUTINES. 29750000 SPACE 2 29801000 *********************************************************************** 29802000 * DEB EXTENSION (OS/VS2) * 29803000 * POINTED TO BY DEBXTNP * 29804000 *********************************************************************** 29805000 SPACE 1 29806000 DEBXTN DSECT 29807000 DEBXLNGH DS H - LENGTH OF DEB EXTENSION MDC002 29808000 DEBXFLG1 DS B - FLAG BYTE (MDC027) YM1272 29808300 DEBXCDCB EQU X'80' - DEBDCBAD FIELD CONTAINS THE ADDRESS OF A 29808600 * COPIED DCB. USED BY END-OF-VOLUME, TCLOSE AND 29809000 * TASK CLOSE. (MDC028) YM1272 29809200 DEBXTSKC EQU X'40' - TASK CLOSE IS CLOSING THE RELATED DCB. SET BY 29809300 * TASK CLOSE AND INTERROGATED BY END-OF-VOLUME, 29809400 * FEOV AND TCLOSE FOR DEB'S NOT ON THE CURRENT 29809500 * TCB DEB CHAIN. (MDC031) YM2869 29809600 DEBXDSSI EQU X'20' - DATA SET SECURITY INDICATOR. SET BY OPEN AND 29810600 * CHECKPOINT. INTERROGATED BY EOV. 29812000 * (MDC348) @Z40RP9A 29812600 DEBXWIND EQU X'10' - MSS WINDOW PROCESSING INDICATOR. @ZA37313 29814000 * SET BY OPEN. INTERROGATED BY EOV, @ZA37313 29814500 * SAM EOB AND CLOSE. @ZA37313 29815000 DEBXACIS EQU X'08' - ACQUIRE ISSUED WITH INHIBIT STAGE @ZA37313 29815500 * INDICATED DURING OPEN OR EOV. @ZA37313 29816000 * SET BY OPEN AND EOV. @ZA37313 29816500 * INTERROGATED BY SVC 126. @ZA37313 29817000 DEBXRV45 EQU X'04',,C'X' - RESERVED 29818000 DEBXRV46 EQU X'02',,C'X' - RESERVED 29819000 DEBXRV47 EQU X'01',,C'X' - RESERVED 29821000 DEBXRV48 DS X - RESERVED 29823000 DEBXDSAB DS A - POINTER TO DSAB MDC004 29824000 DEBXDCBM DS XL4 - DCB MODIFICATION MASK USED BY I/O SUPPORT 29825000 * MDC005 29826000 DEBXDBPR DS A - POINTER TO DEB MDC006 29827000 DEBXDSO1 DS B - SAME AS DCBDSORG BYTE 1 MDC020 29828000 DEBXDSO2 DS B - SAME AS DCBDSORG BYTE 2 MDC021 29833000 DEBXMCF1 DS B - SAME AS DCBMACRF BYTE 1 MDC022 29843000 DEBXMCF2 DS B - SAME AS DCBMACRF BYTE 2 MDC023 29845000 DEBXXARG DS A - ADDRESS OF BDAM READ EXCLUSIVE LIST MDC024 29847000 DEBXOPNJ DS A - POINTER TO DSAB (SEPARATE FROM DEBXDSAB) 29849000 * DYNAMICALLY ALLOCATED BY OPEN TYPE=J. THIS 29851000 * POINTER WILL EXIST FOR NON-AUTHORIZED CALLERS 29852000 * OF OPEN TYPE=J FOR A DIRECT ACCESS DATA SET 29852900 * WHERE THE DATA SET NAME BEING OPENED IS 29853800 * DIFFERENT FROM THE DATA SET DESCRIBED BY THE 29854700 * DDNAME IN DCB AND THE JFCNWRIT BIT IS ON IN 29855600 * JFCB. THE POINTER WILL BE USED BY CLOSE TO 29856500 * DYNAMICALLY UNALLOCATE THE DATA SET. 29857400 * (MDC352) @ZA02193 29858300 DEBXSAMB DS A - ADDRESS OF SAM BLOCK (SAMB) (MDC351) @Z40FP9A 29860100 DEBXOPET DS XL8 - DATASET OPEN TIME SET BY OPEN INITIAL @ZA39299 29861000 POP PRINT 29862000 MEND , */ 29900000 *%DEBL2 : ; 30000000 *%IF IKEPLS='' %THEN 30050000 * %GOTO DEBL3; 30060000 *%IHALPUSH='@LISTPUSH'; 30070000 *%IHALPOP='@LISTPOP'; 30080000 *%IHALOFF='@LISTOFF'; 30090000 *IHALPUSH; 30092000 *%IF IHALIST='YES' %THEN 30094000 * %GOTO DEBL3; 30096000 *IHALOFF; 30098000 *%DEBL3 : ; 30098400 * /* *************************************************************** */ 30100000 * /* DEB BASIC SECTION */ 30200000 * /* *************************************************************** */ 30300000 * 30400000 * DECLARE 30500000 * 1 DEBBASIC BASED(DEBPTR) BDY(WORD), 30600000 * 3 DEBTCBAD PTR(31), /* ADDRESS OF TCB FOR THIS DEB */ 30700000 * 4 DEBNMSUB CHAR(1), /* NUMBER OF SUBROUTINES LOADED 30900000 * BY OPEN EXECUTOR ROUTINES */ 31000000 * 4 DEBTCBB PTR(24), /* ADDRESS OF TCB FOR THIS DEB */ 31100000 * 3 DEBDEBAD PTR(31), /* ADDRESS OF THE NEXT DEB IN 31400000 * THE SAME TASK */ 31450000 * 4 DEBAMLNG CHAR(1), /* NUMBER OF BYTES IN THE ACCESS 31500000 * METHOD DEPENDENT SECTION. 31600000 * FOR BDAM THIS FIELD CONTAINS 31650000 * THE LENGTH EXPRESSED IN 31700000 * NUMBER OF WORDS */ 31800000 * 4 DEBDEBB PTR(24), /* *** SAME AS DEBDEBAD ABOVE */ 31900000 * 3 DEBIRBAD PTR(31), /* IRB STORAGE ADDRESS USED FOR 32200000 * APPENDAGE ASYNCHRONOUS EXITS */ 32300000 * 4 DEBOFLGS CHAR(1), /* DATA SET STATUS FLAGS */ 32400000 * 5 DEBDISP BIT(2), /* DATA SET DISPOSITION FLAGS */ 32500000 * %DCL DEBDSOLD CHAR; 32700000 * %DEBDSOLD='''01''B'; /* OLD */ 32800000 * %DCL DEBDSMOD CHAR; 32900000 * %DEBDSMOD='''10''B'; /* MOD */ 33000000 * %DCL DEBDSNEW CHAR; 33100000 * %DEBDSNEW='''11''B'; /* NEW */ 33200000 * 5 DEBEOF BIT(1), /* END-OF-FILE (EOF) ENCOUNTERED 33300000 * (TAPE INPUT) 33350000 * FORMAT 1 DSCB BIT 93.0 33360000 * INDICATES THAT THE CURRENT 33370000 * VOLUME IS THE LAST VOLUME OF 33380000 * THE DATA SET (DASD INPUT) */ 33390000 * 5 DEBRLSE BIT(1), /* RELEASE UNUSED EXTERNAL 33400000 * STORAGE (DASD) 33450000 * EMULATOR TAPE WITH SECOND 33460000 * GENERATION FORMAT. TAPE MAY 33470000 * CONTAIN BLOCKS SHORTER THAN 33480000 * 12 CHARACTERS (TAPE) */ 33490000 * 5 DEBDCB BIT(1), /* DCB MODIFICATION */ 33500000 * 5 DEBSPLIT BIT(1), /* SPLIT CYLINDER (DASD) 33600000 * 7-TRACK EMULATOR TAPE WITH 33650000 * POSSIBLE MIXED PARITY RECORDS 33660000 * (TAPE) */ 33670000 * 5 DEBLABEL BIT(1), /* NONSTANDARD LABELS */ 33700000 * 5 DEBRERR BIT(1), /* USE REDUCED ERROR RECOVERY 33800000 * PROCEDURE (TAPE) 33900000 * CONCATENATED PARTITIONED 33950000 * ORGANIZATION DATA SETS 34000000 * PROCESSED USING BPAM (DASD) */ 34050000 * 4 DEBIRBB PTR(24), /* *** SAME AS DEBIRBAD ABOVE */ 34100000 * 3 DEBOPATB CHAR(1), /* FLAGS INDICATING BOTH THE 34400000 * METHOD OF I/O PROCESSING AND 34500000 * THE DISPOSITION THAT IS TO BE 34600000 * PERFORMED WHEN AN END-OF-VOLUME 34700000 * (EOV) CONDITION OCCURS */ 34800000 * 4 DEBABEND BIT(1), /* SET BY ABEND INDICATING A 34900000 * SYSABEND OR SYSUDUMP DATA 35000000 * SET (OS/VS2) */ 35100000 * 4 DEBZERO BIT(1), /* ALWAYS ZERO */ 35200000 * 4 DEBPOSIT BIT(2), /* DATA SET POSITIONING FLAGS */ 35300000 * %DCL DEBRERED CHAR; 35500000 * %DEBRERED='''01''B'; /* REREAD */ 35600000 * %DCL DEBLEAVE CHAR; 35700000 * %DEBLEAVE='''11''B'; /* LEAVE */ 35800000 * 4 DEBACCS BIT(4), /* TYPE OF I/O ACCESSING BEING 35900000 * DONE */ 36000000 * %DCL DEBINPUT CHAR; 36100000 * %DEBINPUT='''0000''B'; /* INPUT */ 36200000 * %DCL DEBOUTPT CHAR; 36300000 * %DEBOUTPT='''1111''B'; /* OUTPUT */ 36400000 * %DCL DEBINOUT CHAR; 36500000 * %DEBINOUT='''0011''B'; /* INOUT */ 36600000 * %DCL DEBOUTIN CHAR; 36700000 * %DEBOUTIN='''0111''B'; /* OUTIN */ 36800000 * %DCL DEBRDBCK CHAR; 36900000 * %DEBRDBCK='''0001''B'; /* RDBACK */ 37000000 * %DCL DEBUPDAT CHAR; 37100000 * %DEBUPDAT='''0100''B'; /* UPDAT */ 37200000 * 3 DEBQSCNT CHAR(1), /* PURGE (SVC 16) - QUIESCE 37300000 * COUNT. NUMBER OF DEVICES 37400000 * EXECUTING USER'S CHANNEL 37500000 * PROGRAMS, AS SHOWN BY BITS 5 37600000 * AND 6 OF UCBFL1 FIELDS */ 37700000 * 3 DEBFLGS1 CHAR(1), /* FLAG FIELD */ 37750000 * 4 DEBPWCKD BIT(1), /* PASSWORD WAS SUPPLIED DURING 37762000 * OPEN. EOV WILL NOT REQUEST A 37764000 * PASSWORD FOR EACH ADDITIONAL 37766000 * VOLUME OF A MULTIVOLUME DATA 37768000 * SET */ 37768400 * 4 DEBEOFDF BIT(1), /* SET BY EOV TO INFORM CLOSE 37770000 * THAT AN END-OF-FILE HAS BEEN 37780000 * ENCOUNTERED AND, THEREFORE, 37790000 * DEFERRED LABEL PROCESSING IS 37790400 * ALLOWED */ 37790800 * 4 DEBRSIOA BIT(1), /* SIO APPENDAGE RE-ENTRY 37791200 * AUTHORIZATION BIT (OS/VS1) 37791600 * (MDC331) @XM06077*/ 37792000 * 4 DEBEXCPA BIT(1), /* EXCP IS AUTHORIZED @ZA40332 37792400 * FOR THIS DEB @ZA40332*/ 37792600 * 4 DEBCINDI BIT(1), /* DCB ASSOCIATED WITH THIS DEB 37793000 * IS BEING PROCESSED BY THE 37794000 * COMPATIBILITY INTERFACE 37795000 * ROUTINES (VSAM) ICB462*/ 37796000 * 4 DEBF1CEV BIT(1), /* EOV PROCESSING OCCURRED 37796300 * DURING CLOSE PROCESSING. 37798300 * TESTED AND SET TO ZERO BY 37798400 * CLOSE, SET TO ONE BY EOV. 37812900 * (ICB353) A42228*/ 37822900 * 4 DEBAPFIN BIT(1), /* IF ON, AUTHORIZED PROGRAMS 37827500 * CAN BE LOADED MDC001*/ 37842000 * 4 DEBXTNIN BIT(1), /* IF ONE, DEB EXTENSION EXISTS 37856500 * (OS/VS2) MDC007*/ 37871000 * 3 DEBRSV05 CHAR(1), /* RESERVED */ 37885500 * 3 DEBUSRPG PTR(31), /* ADDRESS OF FIRST IOB IN THE 37900000 * USER PURGE CHAIN (OS/VS1) 38000000 * ADDRESS OF PURGED I/O RESTORE 38020000 * LIST (PIRL) (OS/VS2) 38040000 * (MDC029) YM3158*/ 38060000 * 4 DEBNMEXT CHAR(1), /* NUMBER OF EXTENTS SPECIFIED 38100000 * IN DSCB'S */ 38200000 * 4 DEBUSRPB PTR(24), /* *** SAME AS DEBUSRPG ABOVE */ 38300000 * 3 DEBRRQ PTR(31), /* POINTER TO RELATED REQUEST 38350000 * QUEUE (OS/VS2) MDC026*/ 38400000 * 4 DEBECBAD PTR(31), /* ADDRESS OF A PARAMETER LIST 38500000 * USED TO LOCATE THE PURGE ECB 38600000 * FOR AN SVC PURGE REQUEST 38700000 * (OS/VS1) MDC025*/ 38750000 * 5 DEBPRIOR CHAR(1), /* PRIORITY OF THE TASK OWNING 38800000 * DEB */ 38900000 * 5 DEBECBB PTR(24), /* *** SAME AS DEBECBAD ABOVE */ 39000000 * 3 DEBDCBAD PTR(31), /* ADDRESS OF DCB ASSOCIATED 39300000 * WITH THIS DEB */ 39400000 * 4 DEBPROTG CHAR(1), /* TASK PROTECTION KEY IN HIGH- 39500000 * ORDER 4 BITS */ 39600000 * 5 DEBDEBID CHAR(1), /* A HEX F IN LOW-ORDER 4 BITS 39700000 * TO IDENTIFY THIS BLOCK AS A 39800000 * DEB */ 39900000 * 4 DEBDCBB PTR(24), /* *** SAME AS DEBDCBAD ABOVE */ 40000000 * 3 DEBAPPAD PTR(31), /* ADDRESS OF THE I/O APPENDAGE 40300000 * VECTOR TABLE */ 40400000 * 4 DEBEXSCL CHAR(1), /* EXTENT SCALE- 4 FOR DIRECT 40500000 * ACCESS DEVICE AND 3525 CARD 40505000 * PUNCH WITH DEVICE-ASSOCIATED 40510000 * DATA SET SUPPORT AND 2 FOR 40515000 * NONDIRECT ACCESS DEVICE AND 40520000 * COMMUNICATION DEVICE. THIS 40700000 * FIELD IS USED TO DETERMINE 40800000 * THE SIZE OF THE DEVICE 40900000 * DEPENDENT SECTION ICB394*/ 41000000 * 4 DEBAPPB PTR(24), /* *** SAME AS DEBAPPAD ABOVE */ 41100000 * 3 DEBBASND CHAR(0) BDY(WORD); 41400000 * 41500000 * /* *************************************************************** */ 41600000 * /* UNIT RECORD, MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION*/ 41700000 * /* */ 41800000 * /* NOTE FOR TELECOMMUNICATIONS DEVICES, THE UCB ADDRESS */ 41900000 * /* IS REPEATED FOR EACH LINE ASSIGNED */ 42000000 * /* *************************************************************** */ 42100000 * 42200000 * DECLARE 1 DEBBAS02 42250000 *%IF IKEPLS='2' %THEN 42260000 * %GOTO DEBA3; 42270000 * BASED(ADDR(DEBBASND)) BDY(WORD), 42280000 *%GOTO DEBA4; 42290000 *%DEBA3 : ; 42292000 * DEF(DEBBASND) BDY(WORD), 42294000 *%DEBA4 : ; 42296000 * 3 DEBDDS1 BDY(WORD), 42300000 * 4 DEBSUCBA PTR(31), /* ADDRESS OF UCB ASSOCIATED 42400000 * WITH A GIVEN DATA SET */ 42500000 * 5 DEBSDVM CHAR(1), /* DEVICE MODIFIER. FOR MAGNETIC 42600000 * TAPE, SET MODE OPERATION CODE. 42700000 * FOR UNIT RECORD, NOT USED. */ 42800000 * 5 DEBSUCBB PTR(24), /* *** SAME AS DEBSUCBA ABOVE */ 42900000 * 4 DEBDEVED CHAR(0) BDY(WORD), /* END OF COMMON UNIT RECORD 42901000 * FIELDS (MDC330) @X04AA9A*/ 42902000 * 42905000 * /* THE FOLLOWING FIELDS ARE PRESENT ONLY FOR THE 3525 WITH */ 42910000 * /* DEVICE-ASSOCIATED DATA SET SUPPORT */ 42915000 * 42920000 * 4 DEBRDCB PTR(31), /* ADDRESS OF DCB FOR THE READ 42925000 * ASSOCIATED DATA SET ICB394*/ 42930000 * 5 DEBRSV06 CHAR(1), /* RESERVED ICB394*/ 42935000 * 5 DEBRDCBA PTR(24), /* SAME AS DEBRDCB ABOVE ICB394*/ 42940000 * 4 DEBPDCB PTR(31), /* ADDRESS OF DCB FOR THE PUNCH 42945000 * ASSOCIATED DATA SET ICB394*/ 42950000 * 5 DEBRSV07 CHAR(1), /* RESERVED ICB394*/ 42955000 * 5 DEBPDCBA PTR(24), /* SAME AS DEBPDCB ABOVE ICB394*/ 42960000 * 4 DEBWDCB PTR(31), /* ADDRESS OF DCB FOR THE PRINT 42965000 * ASSOCIATED DATA SET ICB394*/ 42970000 * 5 DEBRSV08 CHAR(1), /* RESERVED ICB394*/ 42975000 * 5 DEBWDCBA PTR(24); /* SAME AS DEBWDCB ABOVE ICB394*/ 42980000 * 42984000 * 42988000 * /* *************************************************************** */ 42992000 * /* 3540 ACCESS METHOD DEPENDENT SECTION @X04AA9A*/ 42996000 * /* (OS/VS1 ONLY) @X04AA9A*/ 43000000 * /* */ 43004000 * /* NOTE THIS SECTION FOLLOWS DEBSUCBA IN UNIT RECORD, */ 43008000 * /* MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION */ 43012000 * /* IF DEB IS FOR 3540 DEVICE. @X04AA9A*/ 43016000 * /* *************************************************************** */ 43020000 * 43024000 * DECLARE 1 DEBACS09 43028000 *%IF IKEPLS='2' %THEN 43032000 * %GOTO DEBA5; 43036000 * BASED(ADDR(DEBDEVED)) BDY(WORD), /* @X04AA9A*/ 43040000 *%GOTO DEBA6; 43044000 *%DEBA5 : ; 43050000 * DEF(DEBDEVED) BDY(WORD), /* @X04AA9A*/ 43053000 *%DEBA6 : ; 43056000 * 2 DEBASC09 CHAR(16) BDY(WORD), /* 3540 ACCESS METHOD DEPENDENT 43059000 * SECTION (MDC317) @X04AA9A*/ 43062000 * 3 DEBVOLAC CHAR(1), /* VOLUME ACCESSABILITY 43065000 * INDICATOR (MDC327) @X04AA9A*/ 43068000 * 3 DEBDSSQL CHAR(1), /* DATA SET SECURITY QUALIFIER 43071000 * (MDC328) @X04AA9A*/ 43074000 * 3 DEBVSEQU PTR(8), /* VOLUME SEQUENCE NUMBER 43077000 * (MDC318) @X04AA9A*/ 43080000 * 3 DEBEAMFG BIT(8), /* FLAG BYTE (MDC319) @X04AA9A*/ 43083000 * 4 DEBMULTI BIT(1), /* MULTI-VOLUME INDICATOR 43086000 * (MDC320) @X04AA9A*/ 43089000 * 4 DEBDSOPN BIT(1), /* DATA SET IS OPEN 43092000 * (MDC321) @X04AA9A*/ 43095000 * 4 DEBVAMSG BIT(1), /* VOLUME ACCESSABILITY MESSAGE 43098000 * HAS BEEN ISSUED (MDC329) 43101000 * @X04AA9A*/ 43104000 * 4 DEBSECVL BIT(1), /* SECURE VOLUME (MDC332) 43107000 * @X04AA9A*/ 43108000 * 4 DEBRV004 BIT(1), /* RESERVED @X04AA9A*/ 43110000 * 4 DEBRV005 BIT(1), /* RESERVED @X04AA9A*/ 43113000 * 4 DEBRV006 BIT(1), /* RESERVED @X04AA9A*/ 43116000 * 4 DEBRV007 BIT(1), /* RESERVED @X04AA9A*/ 43119000 * 3 DEBDSID CHAR(8), /* DATA SET IDENTIFIER (DSID) 43122000 * (INPUT) (MDC305) @X04AA9A*/ 43125000 * 4 DEBEXDTE CHAR(6), /* EXPIRATION DATE (OUTPUT) 43125600 * (MDC333) @X04AA9A*/ 43126200 * 4 DEBWTPTI CHAR(1), /* WRITE PROTECT INDICATOR 43126800 * (OUTPUT) (MDC334) @X04AA9A*/ 43127400 * 4 DEBRV008 CHAR(1), /* RESERVED (OUTPUT) (MDC335) 43131000 * @X04AA9A*/ 43132000 * 3 DEBEOD CHAR(4) BDY(WORD), /* END OF DATA (EOD) ADDRESS 43134000 * (INPUT) (MDC306) @X04AA9A*/ 43137000 * 4 DEBBOE CHAR(4) BDY(WORD), /* BEGINNING OF EXTENT (BOE) 43140000 * ADDRESS (OUTPUT) (MDC322) 43143000 * @X04AA9A*/ 43146000 * 5 DEBEODRV PTR(8), /* RESERVED (MDC307) @X04AA9A*/ 43149000 * 6 DEBBOERV PTR(8), /* RESERVED (MDC323) @X04AA9A*/ 43152000 * 5 DEBEODTT PTR(8), /* EOD TRACK NUMBER 43155000 * (MDC308) @X04AA9A*/ 43158000 * 6 DEBBOETT PTR(8), /* BOE TRACK NUMBER 43161000 * (MDC324) @X04AA9A*/ 43164000 * 5 DEBEOD0 PTR(8), /* MUST BE ZERO 43167000 * (MDC309) @X04AA9A*/ 43170000 * 6 DEBBOE0 PTR(8), /* MUST BE ZERO 43173000 * (MDC325) @X04AA9A*/ 43176000 * 5 DEBEODSS PTR(8), /* EOD SECTOR NUMBER 43179000 * (MDC310) @X04AA9A*/ 43182000 * 6 DEBBOESS PTR(8); /* BOE SECTOR NUMBER 43185000 * (MDC326) @X04AA9A*/ 43188000 * 43192000 * 43196000 * /* *************************************************************** */ 43200000 * /* DEB ISAM DEPENDENT SECTION */ 43300000 * /* */ 43350000 * /* NOTE PRESENT ONLY IF ISAM IS USED. FOLLOWS THE BASIC */ 43360000 * /* SECTION AND PRECEDES THE DIRECT ACCESS STORAGE */ 43370000 * /* DEVICE SECTION. COUNTED AS ONE EXTENT IN DEBNMEXT. */ 43380000 * /* *************************************************************** */ 43400000 * 43500000 * DECLARE 1 DEBBAS01 43600000 *%IF IKEPLS='2' %THEN 43650000 * %GOTO DEBA1; 43660000 * BASED(ADDR(DEBBASND)) BDY(WORD), 43700000 *%GOTO DEBA2; 43750000 *%DEBA1 : ; 43760000 * DEF(DEBBASND) BDY(WORD), 43770000 *%DEBA2 : ; 43780000 * 2 DEBISAM BDY(WORD), 43900000 * 3 DEBFIEAD PTR(31), /* ADDRESS OF FIRST INDEX 44000000 * EXTENT */ 44100000 * 4 DEBNIEE CHAR(1), /* NUMBER OF EXTENTS OF 44200000 * INDEPENDENT INDEX AREA */ 44300000 * 4 DEBFIEB PTR(24), /* *** SAME AS DEBFIEAD ABOVE */ 44400000 * 3 DEBFPEAD PTR(31), /* ADDRESS OF THE FIRST PRIME 44700000 * DATA EXTENT */ 44800000 * 4 DEBNPEE CHAR(1), /* NUMBER OF EXTENTS OF PRIME 44900000 * DATA AREA (M=0 EXTENT) */ 45000000 * 4 DEBFPEB PTR(24), /* *** SAME AS DEBFPEAD ABOVE */ 45100000 * 3 DEBFOEAD PTR(31), /* ADDRESS OF THE FIRST 45400000 * OVERFLOW EXTENT */ 45500000 * 4 DEBNOEE CHAR(1), /* NUMBER OF EXTENTS OF 45600000 * INDEPENDENT OVERFLOW AREA */ 45700000 * 4 DEBFOEB PTR(24), /* *** SAME AS DEBFOEAD ABOVE */ 45800000 * 3 DEBEXPT PTR(31), /* ADDRESS OF ISAM DEB 45900000 * EXTENSION ICB379*/ 46000000 * 4 DEBRPSID BIT(8), /* ROTATIONAL POSITION SENSING 46350000 * (RPS) DEVICE INDICATORS */ 46352000 * 5 DEBRPSP BIT(1), /* PRIME DATA AREA IS ON RPS 46360000 * DEVICE */ 46370000 * 5 DEBRPSI BIT(1), /* INDEPENDENT INDEX AREA IS ON 46380000 * RPS DEVICE */ 46390000 * 5 DEBRPSO BIT(1), /* INDEPENDENT OVERFLOW AREA IS 46392000 * ON RPS DEVICE */ 46394000 * 5 DEBRPSAP BIT(1), /* RPS SIO APPENDAGE HAS BEEN 46396000 * LOADED */ 46398000 * 5 DEBRSV09 BIT(1), /* RESERVED */ 46398400 * 5 DEBRSV10 BIT(1), /* RESERVED */ 46398500 * 5 DEBRSV11 BIT(1), /* RESERVED */ 46398600 * 5 DEBRSV12 BIT(1), /* RESERVED */ 46398700 * 4 DEBEXPTA PTR(24); /* SAME AS DEBEXPT ABOVE ICB379*/ 46398800 * 46399200 * /* *************************************************************** */ 46399600 * /* DIRECT ACCESS STORAGE DEVICE SECTION */ 46400000 * /* */ 46450000 * /* NOTE IF ISAM IS BEING USED, THIS SECTION FOLLOWS THE */ 46500000 * /* ISAM DEVICE DEPENDENT SECTION. OTHERWISE, IT */ 46550000 * /* FOLLOWS THE BASIC SECTION. */ 46600000 * /* */ 46610000 * /* THERE IS ONE OF THESE SECTIONS FOR EACH EXTENT. */ 46620000 * /* *************************************************************** */ 46650000 * 46700000 * DECLARE 46750000 * 1 DEBDASD BASED(DEBDAPTR) BDY(WORD), 46800000 * 3 DEBUCBAD PTR(31), /* ADDRESS OF UCB ASSOCIATED 47600000 * WITH THIS DATA EXTENT */ 47700000 * 4 DEBDVMOD CHAR(1), /* DEVICE MODIFIER - FILE MASK */ 47800000 * 4 DEBUCBA PTR(24), /* *** SAME AS DEBUCBAD ABOVE */ 47900000 * 3 DEBBINUM CHAR(2), /* BIN NUMBER */ 48000000 * 3 DEBSTRCC CHAR(2), /* CYLINDER ADDRESS FOR THE 48100000 * START OF AN EXTENT LIMIT */ 48200000 * 3 DEBSTRHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 48300000 * THE START OF AN EXTENT LIMIT */ 48400000 * 3 DEBENDCC CHAR(2), /* CYLINDER ADDRESS FOR THE END 48500000 * OF AN EXTENT LIMIT */ 48600000 * 3 DEBENDHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 48700000 * THE END OF AN EXTENT LIMIT */ 48800000 * 3 DEBNMTRK CHAR(2); /* NUMBER OF TRACKS ALLOCATED 48900000 * TO A GIVEN EXTENT. FOR SPLIT 49000000 * CYLINDER DATA SETS, THIS 49050000 * FIELD REPRESENTS THE NUMBER 49060000 * OF TRACKS BETWEEN THE START 49070000 * ADDRESS OF THE EXTENT AND THE 49080000 * END ADDRESS OF THE EXTENT. */ 49090000 * 49100000 * 49300000 * /* *************************************************************** */ 49400000 * /* EXCP ACCESS METHOD, BSAM AND QSAM DEPENDENT SECTION */ 49500000 * /* *************************************************************** */ 49600000 * 49700000 * DECLARE 49800000 * 1 DEBACSMD BASED(DEBEXPTR) BDY(WORD), 49900000 * 3 DEBVOLSQ CHAR(2), /* VOLUME SEQUENCE NUMBER FOR 50100000 * MULTIVOLUME SEQUENTIAL DATA 50200000 * SETS */ 50300000 * 4 DEBVOLBT BIT(8), /* FIRST BYTE OF DEBVOLSQ 50350000 * (MDC016) YA00318*/ 50360000 * 5 DEBEXFUL BIT(1), /* SET BY EOV WHEN REWRITING AN 50370000 * OLD DIRECT ACCESS DATA SET TO 50380000 * INDICATE THAT ALL PREVIOUS 50390000 * EXISTING EXTENTS HAVE BEEN 50392000 * FILLED (MDC017) YA00318*/ 50394000 * 5 DEBRSV36 BIT(1), /* RESERVED MDC018*/ 50396000 * 5 DEBRSV37 BIT(1), /* RESERVED MDC018*/ 50398000 * 5 DEBRSV38 BIT(1), /* RESERVED MDC018*/ 50398400 * 5 DEBRSV39 BIT(1), /* RESERVED MDC018*/ 50398800 * 5 DEBRSV40 BIT(1), /* RESERVED MDC018*/ 50399200 * 5 DEBRSV41 BIT(1), /* RESERVED MDC018*/ 50399600 * 5 DEBRSV42 BIT(1), /* RESERVED MDC018*/ 50399700 * 4 DEBVLSEQ PTR(8), /* FOR DIRECT ACCESS, SEQUENCE 50399800 * NUMBER OF THE VOLUME OF THE 50399900 * DATA SET RELATIVE TO THE 50433200 * FIRST VOLUME OF THE DATA SET. 50443200 * FOR TAPE, SEQUENCE NUMBER OF 50453200 * THE VOLUME OF THE DATA SET 50463200 * RELATIVE TO THE FIRST VOLUME 50465200 * PROCESSED. (MDC019) YA00318*/ 50465600 * 3 DEBVOLNM CHAR(2), /* TOTAL NUMBER OF VOLUMES IN A 50466700 * MULTIVOLUME SEQUENTIAL DATA 50500000 * SET. */ 50600000 * 3 DEBDSNM CHAR(8) BDY(WORD), /* MEMBER NAME. THIS FIELD 50700000 * APPEARS ONLY WHEN AN OUTPUT 50750000 * DATA SET HAS BEEN OPENED FOR 50760000 * A MEMBER NAME AND THE DSCB 50800000 * SPECIFIES A PARTITIONED 50900000 * DATA SET. */ 51000000 * 5 DEBUTSAA PTR(31), /* ADDRESS OF THE USER TOTALING 51100000 * SAVE AREA */ 51300000 * 6 DEBRSV13 CHAR(1), /* RESERVED */ 51400000 * 6 DEBUTSAB PTR(24), /* *** SAME AS DEBUTSAA ABOVE */ 51500000 * 5 DEBRSV14 CHAR(4) BDY(WORD),/* RESERVED (IF USER TOTALING 51550000 * WAS SPECIFIED) */ 51850000 * 3 DEBBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE 51860000 * (MDC346) @ZA03699*/ 51870000 * 3 DEBLRECL FIXED(15); /* LOGICAL RECORD LENGTH 51880000 * (MDC347) @ZA03699*/ 51890000 * 51900000 * 52000000 * /* *************************************************************** */ 52100000 * /* BPAM DEPENDENT SECTION */ 52200000 * /* *************************************************************** */ 52300000 * 52400000 * 52500000 * DECLARE 1 DEBACS01 52600000 * BASED(DEBEXPTR) BDY(WORD), 52700000 * 3 DEBDSNAM CHAR(8) BDY(WORD), /* FOR A PARTITIONED DATA SET 52900000 * OPENED FOR OUTPUT FOR A 53000000 * MEMBER NAME, THIS FIELD IS 53100000 * THE MEMBER NAME. */ 53200000 * 4 DEBEXTNM CHAR(1); /* FOR A PARTITIONED DATA SET 53300000 * OPENED FOR INPUT, EACH ONE- 53400000 * BYTE FIELD CONTAINS THE 53500000 * EXTENT NUMBER OF THE FIRST 53600000 * EXTENT ENTRY FOR EACH DATA 53700000 * SET EXCEPT THE FIRST, IF TWO 53800000 * OR MORE DATA SETS ARE 53900000 * CONCATENATED. THE NUMBER OF 54000000 * BYTES IN THE FIELD IS EQUAL 54100000 * TO ONE LESS THAN THE NUMBER 54200000 * OF DATA SETS CONCATENATED. */ 54300000 * 54400000 * 54500000 * /* *************************************************************** */ 54600000 * /* BDAM DEPENDENT SECTION */ 54700000 * /* *************************************************************** */ 54800000 * 54900000 * 55000000 * DECLARE 1 DEBACS02 55100000 * BASED(DEBEXPTR) BDY(WORD), 55200000 * 55300000 * /* ***************************************** */ 55400000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 55500000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 55600000 * /* * (BUT NOT TRACK OVERFLOW) * */ 55700000 * /* ***************************************** */ 55800000 * 55900000 * 3 DEBDBLK FIXED(31), /* ONE FOUR-BYTE FIELD FOR EACH 56000000 * EXTENT DESCRIBED IN THE 56100000 * DEVICE DEPENDENT SECTION. */ 56200000 * 4 DEBDBPT PTR(8), /* NUMBER OF BLOCKS PER TRACK */ 56300000 * 4 DEBDBPE CHAR(3); /* NUMBER OF BLOCKS PER EXTENT */ 56400000 * 56500000 * 56600000 * DECLARE 1 DEBACS03 56700000 * BASED(DEBEXPTR) BDY(WORD), 56800000 * 56900000 * /* ***************************************** */ 57000000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 57100000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 57200000 * /* * AND TRACK OVERFLOW. * */ 57300000 * /* ***************************************** */ 57400000 * 57500000 * 3 DEBDTPP FIXED(31), /* NUMBER OF TRACKS PER PERIOD */ 57600000 * 3 DEBDBPP FIXED(31), /* NUMBER OF BLOCKS PER PERIOD */ 57700000 * /* THE FOLLOWING FIELD OCCURS ONCE FOR */ 57800000 * /* EACH EXTENT. */ 57900000 * 3 DEBDBPEF FIXED(31); /* NUMBER OF BLOCKS PER EXTENT */ 58000000 * 58100000 * 58200000 * /* *************************************************************** */ 58300000 * /* BTAM DEPENDENT SECTION */ 58400000 * /* */ 58450000 * /* NOTE THIS SEGMENT IS ALWAYS PRESENT FOR BTAM. IT IS */ 58460000 * /* USED WHEN A BUFFER POOL OR DYNAMIC BUFFERING IS */ 58470000 * /* USED. OTHERWISE, THE FIELDS ARE ZERO. */ 58480000 * /* *************************************************************** */ 58500000 * 58600000 * 58700000 * DECLARE 1 DEBACS04 58800000 * BASED(DEBEXPTR) BDY(WORD), 58900000 * 3 DEBTBFRA PTR(31), /* ADDRESS OF THE BUFFER ROUTINE*/ 59400000 * 4 DEBRSV15 CHAR(1), /* RESERVED */ 59500000 * 4 DEBTBFRB PTR(24), /* ADDRESS OF THE BUFFER ROUTINE*/ 59600000 * /* THE FOLLOWING FIELD IS REPEATED FOR EACH */ 59800000 * /* CCW ON THE CHANNEL PROGRAM QUEUE */ 60000000 * 3 DEBTCCWA PTR(31), /* ADDRESS OF THE FIRST (OR 60100000 * FOLLOWING) CCW ON THE QUEUE */ 60200000 * 4 DEBRSV16 CHAR(1), /* RESERVED */ 60300000 * 4 DEBTCCWB PTR(24); /* *** SAME AS DEBCCWA ABOVE */ 60400000 * 60700000 * 60800000 * /* *************************************************************** */ 60900000 * /* GAM DEPENDENT SECTION */ 61000000 * /* *************************************************************** */ 61100000 * 61200000 * 61300000 * DECLARE 1 DEBACS05 61400000 * BASED(DEBEXPTR) BDY(WORD), 61500000 * 3 DEBFUCBA PTR(31), /* ADDRESS OF FIRST UCB */ 61700000 * 4 DEBRSV17 CHAR(1), /* RESERVED */ 61800000 * 4 DEBFUCBB PTR(24), /* ADDRESS OF FIRST UCB */ 61900000 * 3 DEBLUCBA PTR(31), /* ADDRESS OF LAST UCB */ 62100000 * 4 DEBRSV18 CHAR(1), /* RESERVED */ 62200000 * 4 DEBLUCBB PTR(24); /* ADDRESS OF LAST UCB */ 62300000 * 62318800 * 62319200 * /* *************************************************************** */ 62319600 * /* ISAM LOAD MODE EXTENSION */ 62320000 * /* *************************************************************** */ 62320800 * 62321800 * 62322800 * DECLARE 1 DEBACS06 62324000 * BASED(DEBEXPT) BDY(WORD), 62326000 * 2 DEBDCBFA PTR(31), /* ADDRESS OF DCB FIELD AREA 62328000 * MDC013*/ 62330000 * 2 DEBPUT PTR(31); /* ADDRESS OF PUT MODULE ICB379*/ 62332000 * 62334000 * 62335000 * /* *************************************************************** */ 62336000 * /* ISAM SCAN MODE EXTENSION */ 62338000 * /* *************************************************************** */ 62340000 * 62342400 * 62342800 * DECLARE 1 DEBACS07 62343800 * BASED(DEBEXPT) BDY(WORD), 62346000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 62348000 * FIELD AREA MDC014*/ 62350000 * 2 DEBGET PTR(31), /* ADDRESS OF GET OR PUT MODULE 62352000 * - THIS FIELD IS ALSO CALLED 62354000 * DEBPUT ICB379*/ 62356000 * 2 DEBWKPT4 PTR(31), /* SAME AS DCBWKPT4 - ADDRESS OF 62357000 * UCB ICB379*/ 62358000 * 2 DEBWKPT5 PTR(31), /* SAME AS DCBWKPT5 - ADDRESS OF 62360000 * GET APPENDAGE MODULE ICB379*/ 62362000 * 2 DEBCREAD PTR(31), /* ADDRESS OF CHANNEL-END 62364000 * APPENDAGE FOR READ ICB379*/ 62366000 * 2 DEBCSETL PTR(31), /* ADDRESS OF CHANNEL-END 62368000 * APPENDAGE FOR SETL ICB379*/ 62369000 * 2 DEBCWRIT PTR(31), /* ADDRESS OF CHANNEL-END 62370000 * APPENDAGE FOR WRITE ICB379*/ 62372000 * 2 DEBCCHK PTR(31), /* ADDRESS OF CHANNEL-END 62374000 * APPENDAGE FOR WRITE VALIDITY 62376000 * CHECK ICB379*/ 62378000 * 2 DEBCREWT PTR(31), /* ADDRESS OF CHANNEL-END 62379000 * APPENDAGE FOR RE-WRITE ICB379*/ 62380000 * 2 DEBCRECK PTR(31), /* ADDRESS OF CHANNEL-END 62382000 * APPENDAGE FOR RE-CHECK ICB379*/ 62384000 * 2 DEBAREAD PTR(31), /* ADDRESS OF ABNORMAL-END 62386000 * APPENDAGE FOR READ ICB379*/ 62388000 * 2 DEBASETL PTR(31), /* ADDRESS OF ABNORMAL-END 62390000 * APPENDAGE FOR SETL ICB379*/ 62391000 * 2 DEBAWRIT PTR(31), /* ADDRESS OF ABNORMAL-END 62392000 * APPENDAGE FOR WRITE ICB379*/ 62394000 * 2 DEBACHK PTR(31), /* ADDRESS OF ABNORMAL-END 62396000 * APPENDAGE FOR WRITE VALIDITY 62398000 * CHECK ICB379*/ 62400000 * 2 DEBAREWT PTR(31), /* ADDRESS OF ABNORMAL-END 62402000 * APPENDAGE FOR RE-WRITE ICB379*/ 62402500 * 2 DEBARECK PTR(31), /* ADDRESS OF ABNORMAL-END 62404000 * APPENDAGE FOR RE-CHECK ICB379*/ 62406000 * 2 DEBRPSST PTR(31); /* ADDRESS OF RPS SIO APPENDAGE 62408000 * IF ADDRSPC=REAL WAS NOT 62410000 * SPECIFIED ICB379*/ 62412000 * 62413000 * 62414000 * /* *************************************************************** */ 62416000 * /* BISAM MODE EXTENSION */ 62418000 * /* *************************************************************** */ 62420000 * 62422400 * 62422800 * DECLARE 1 DEBACS08 62423800 * BASED(DEBEXPT) BDY(WORD), 62426000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 62428000 * FIELD AREA MDC015*/ 62430000 * 2 DEBDISAD PTR(31), /* ADDRESS OF PRIVILEGED MODULE 62432000 * ENTERED WHEN A BISAM MACRO 62434000 * INSTRUCTION IS EXECUTED 62434400 * ICB379*/ 62435400 * 2 * PTR(31), /* DEBWKPT4 - SAME AS DCBWKPT4 - 62438000 * ADDRESS OF THE PART 1 62440000 * APPENDAGE MODULE (ABNORMAL 62442000 * AND CHANNEL-END APPANDAGES) 62444000 * ICB379*/ 62446000 * 2 * PTR(31), /* DEBWKPT5 - SAME AS DCBWKPT5 - 62447000 * ADDRESS OF THE PART 2 62448000 * APPENDAGE MODULE (ABNORMAL 62450000 * AND CHANNEL-END APPANDAGES) 62452000 * ICB379*/ 62454000 * 2 DEBFREED PTR(31), /* ADDRESS OF DYNAMIC BUFFERING 62456000 * MODULE ICB379*/ 62458000 * 2 DEBRPSIO PTR(31), /* ADDRESS OF RPS SIO APPENDAGE 62459000 * MODULE IF ADDRSPC=REAL WAS 62460000 * NOT SPECIFIED AND IF DYNAMIC 62462000 * BUFFERING IS USED ICB379*/ 62464000 * 2 DEBSIOA2 PTR(31); /* ADDRESS OF DYNAMIC BUFFERING 62466000 * APPENDAGE MODULE DISPLACED BY 62468000 * PAGE FIX (PGFX) APPENDAGE IF 62470000 * ADDRSPC=REAL WAS NOT 62480000 * SPECIFIED ICB379*/ 62490000 * 62500000 * 62600000 * /* *************************************************************** */ 62700000 * /* SUBROUTINE NAME SECTION */ 62800000 * /* */ 62850000 * /* NOTE FOLLOWS THE ACCESS METHOD DEPENDENT SECTION, OR THE */ 62860000 * /* DEVICE DEPENDENT SECTION IF THERE IS NO ACCESS */ 62870000 * /* METHOD SECTION. */ 62880000 * /* *************************************************************** */ 62900000 * 63000000 * DECLARE 63100000 * 1 DEBSUBNM BASED(DEBSBPTR) BDY(WORD), 63200000 * 4 DEBSUBID CHAR(2); /* SUBORUTINE IDENTIFICATION. 63700000 * EACH ACCESS METHOD SUBROUTINE, 63750000 * APPENDAGE SUBROUTINE, AND IRB 63800000 * ROUTINE WILL HAVE A UNIQUE 63850000 * EIGHT-BYTE NAME. THE LOW- 63900000 * ORDER TWO BYTES OF EACH 63950000 * ROUTINE NAME WILL BE IN THIS 64000000 * FIELD IF THE SUBROUTINE IS 64050000 * LOADED BY THE OPEN ROUTINES. */ 64100000 * 64400000 * 65700000 * /* *************************************************************** */ 65800000 * /* APPENDAGE VECTOR TABLE SECTION OF THE DEB */ 65900000 * /* *************************************************************** */ 66000000 * 66100000 * DECLARE 66110000 * 1 DEB BASED(DEBAPPAD) BDY(WORD), 66120000 * 2 DEBAVT BDY(WORD), /* APPENDAGE VECTOR TABLE */ 66200000 * 3 DEBEOEA PTR(31), /* ADDRESS OF END-OF-EXTENT 66400000 * APPENDAGE ROUTINE */ 66500000 * 4 DEBEOEAB CHAR(1), /* FLAG BYTE ICB280*/ 66510000 * 5 DEBTCAMQ BIT(4), /* TCAM WORK AREA @ZA34098*/ 66530000 * 5 DEBEOENP BIT(4), /* NUMBER OF 2K PAGES TO BE 66560000 * FIXED FOR THE END-OF-EXTENT 66570000 * APPENDAGE ICB280*/ 66580000 * 4 DEBEOEAD PTR(24), /* ADDRESS OF END-OF-EXTENT 66590000 * APPENDAGE ROUTINE ICB280*/ 66592000 * 3 DEBSIOA PTR(31), /* ADDRESS OF START I/O 66600000 * APPENDAGE ROUTINE */ 66700000 * 4 DEBSIOAB CHAR(1), /* FLAG BYTE ICB280*/ 66750000 * 5 DEBPGFX BIT(1), /* ADDRESS IN DEBSIOAD CAN BE 66752000 * USED TO DETERMINE THE ENTRY 66754000 * POINT TO THE PAGE FIX (PGFX) 66756000 * APPENDAGE ROUTINE BY ADDING 66758000 * 4 TO ADDRESS IN DEBSIOAD 66758800 * ICB280*/ 66759600 * 5 DEBSIOX BIT(1), /* IF ZERO, DO NOT ENTER SIO 66759700 * APPENDAGE WHEN ERP IS ACTIVE. 66759800 * IF ONE, ENTER SIO APPENDAGE 66759900 * EVEN WHEN ERP IS ACTIVE. 66763200 * ICB372*/ 66763600 * 5 DEBIOVR BIT(1), /* IF ONE, EXCPVR REQUEST IS 66764200 * VALID. IF ZERO, EXCPVR 66765200 * REQUEST IS INVALID AND WILL 66766400 * NOT BE EXECUTED. ICB401*/ 66766600 * 5 DEBFIX BIT(1), /* INDICATION THAT DEB HAS BEEN 66767600 * FIXED (OS/VS2) (MDC032) 66768900 * YM5929*/ 66769400 * 5 DEBSIONP BIT(4), /* NUMBER OF 2K PAGES TO BE 66770000 * FIXED FOR THE SIO 66780000 * APPENDAGE ICB280*/ 66790000 * 4 DEBSIOAD PTR(24), /* ADDRESS OF START I/O 66792000 * APPENDAGE ROUTINE ICB280*/ 66794000 * 3 DEBPCIA PTR(31), /* ADDRESS OF PCI APPENDAGE 66800000 * ROUTINE */ 66810000 * 4 DEBPCIAB CHAR(1), /* FLAG BYTE ICB280*/ 66850000 * 5 DEBRSV24 BIT(1), /* RESERVED */ 66860000 * 5 DEBRSV25 BIT(1), /* RESERVED */ 66862000 * 5 DEBRSV26 BIT(1), /* RESERVED */ 66864000 * 5 DEBRSV27 BIT(1), /* RESERVED */ 66866000 * 5 DEBPCINP BIT(4), /* NUMBER OF 2K PAGES TO BE 66870000 * FIXED FOR THE PCI APPENDAGE 66880000 * ROUTINE ICB280*/ 66890000 * 4 DEBPCIAD PTR(24), /* ADDRESS OF PROGRAM- 66892000 * CONTROLLED-INTERRUPTION (PCI) 66892400 * APPENDAGE ROUTINE ICB280*/ 66894000 * 3 DEBCEA PTR(31), /* ADDRESS OF CHANNEL-END 66900000 * APPENDAGE ROUTINE */ 67000000 * 4 DEBCEAB CHAR(1), /* FLAG BYTE ICB280*/ 67050000 * 5 DEBESMVR BIT(1), /* EXCPVR VALIDITY CHK @ZA34098*/ 67060000 * 5 DEBRSV29 BIT(1), /* RESERVED */ 67062000 * 5 DEBRSV30 BIT(1), /* RESERVED */ 67064000 * 5 DEBRSV31 BIT(1), /* RESERVED */ 67066000 * 5 DEBCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 67070000 * FIXED FOR THE CHANNEL-END 67080000 * APPENDAGE ICB280*/ 67090000 * 4 DEBCEAD PTR(24), /* ADDRESS OF CHANNEL END 67092000 * APPENDAGE ROUTINE ICB280*/ 67094000 * 3 DEBXCEA PTR(31), /* ADDRESS OF ABNORMAL-END 67100000 * APPENDAGE ROUTINE */ 67200000 * 4 DEBXCEAB CHAR(1), /* FLAG BYTE ICB280*/ 67250000 * 5 DEBRSV32 BIT(1), /* RESERVED */ 67260000 * 5 DEBRSV33 BIT(1), /* RESERVED */ 67262000 * 5 DEBRSV34 BIT(1), /* RESERVED */ 67264000 * 5 DEBRSV35 BIT(1), /* RESERVED */ 67266000 * 5 DEBXCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 67270000 * FIXED FOR THE ABNORMAL-END 67280000 * APPENDAGE ICB280*/ 67290000 * 4 DEBXCEAD PTR(24), /* ADDRESS OF ABNORMAL-END 67292000 * APPENDAGE ROUTINE ICB280*/ 67294000 * 67300000 * /* *************************************************************** */ 67400000 * /* DEB PREFIX TABLE */ 67500000 * /* *************************************************************** */ 67600000 * 67700000 * 2 DEBPREFX BDY(WORD), /* DEB PREFIX TABLE */ 67800000 * 3 DEBWKARA CHAR(1) BDY(WORD), /* I/O SUPPORT WORK AREA 67900000 * (DIRECT ACCESS) */ 67950000 * 3 DEBDSCBA CHAR(7) BDY(WORD,2),/* DSCB ADDRESS (BBCCHHR) USED 68000000 * BY I/O SUPPORT (DIRECT 68100000 * ACCESS) */ 68100400 * 3 DEBXTNP PTR(31), /* POINTER TO DEB EXTENSION 68101000 * (OS/VS2) MDC008*/ 68102000 * 4 DEBDCBMK CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 68200000 * I/O SUPPORT (OS/VS1) MDC009*/ 68300000 * 3 DEBLNGTH CHAR(1), /* LENGTH OF DEB IN DOUBLE 68400000 * WORDS */ 68500000 * 3 DEBAMTYP CHAR(1), /* ACCESS METHOD TYPE ICB380*/ 68600000 * 3 DEBTBLOF FIXED(15); /* OFFSET IN THE DEB TABLE TO 68700000 * THE ENTRY FOR THIS DEB ICB380*/ 68800000 * 68850000 * 68900000 * /* *************************************************************** */ 68950000 * /* DEB EXTENSION (OS/VS2) */ 69000000 * /* *************************************************************** */ 69050000 * 69100000 * DECLARE 69150000 * 1 DEBXTN BASED(DEBXTNP) BDY(WORD), 69200000 * 2 DEBXLNGH FIXED(15), /* LENGTH OF DEB EXTENSION 69250000 * MDC002*/ 69300000 * 2 DEBXFLG1 BIT(8), /* FLAG BYTE (MDC027) YM1272*/ 69350000 * 3 DEBXCDCB BIT(1), /* DEBDCBAD FIELD CONTAINS THE 69353000 * ADDRESS OF A COPIED DCB. 69356000 * USED BY END-OF-VOLUME, TCLOSE 69359000 * AND TASK CLOSE. (MDC028) 69362000 * YM1272*/ 69365000 * 3 DEBXTSKC BIT(1), /* TASK CLOSE IS CLOSING THE 69366000 * RELATED DCB. SET BY TASK 69368000 * CLOSE AND INTERROGATED BY 69368500 * END-OF-VOLUME, FEOV AND 69369000 * TCLOSE FOR DEB'S NOT ON THE 69369500 * CURRENT TCB DEB CHAIN. 69370000 * (MDC031) YM2869*/ 69370500 * 3 DEBXDSSI BIT(1), /* DATA SET SECURITY INDICATOR. 69370700 * SET BY OPEN AND CHECKPOINT. 69371000 * INTERROGATED BY EOV. 69371700 * (MDC348) @Z40RP9A*/ 69372400 * 3 DEBXWIND BIT(1), /* MSS WINDOW PROCESSING INDIC. 69374000 * SET BY OPEN. INTERROGATED 69374600 * BY EOV, SAM EOB AND CLOSE. 69375200 * @ZA37313*/ 69375800 * 3 DEBXACIS BIT(1), /* ACQUIRE ISSUED WITH INHIBIT 69376400 * STAGE INDICATED DURING OPEN OR 69377000 * EOV. SET BY OPEN AND EOV. 69377600 * INTERROGATED BY SVC 126. 69378200 * @ZA37313*/ 69378800 * 3 DEBXRV45 BIT(1), /* RESERVED */ 69380000 * 3 DEBXRV46 BIT(1), /* RESERVED */ 69383000 * 3 DEBXRV47 BIT(1), /* RESERVED */ 69386000 * 2 DEBXRV48 CHAR(1), /* RESERVED */ 69389000 * 2 DEBXDSAB PTR(31), /* POINTER TO DSAB MDC004*/ 69400000 * 2 DEBXDCBM CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 69450000 * I/O SUPPORT MDC005*/ 69500000 * 2 DEBXDBPR PTR(31), /* POINTER TO DEB MDC006*/ 69550000 * 2 DEBXDSO1 BIT(8), /* SAME AS DCBDSORG BYTE 1 69600000 * MDC020*/ 69650000 * 2 DEBXDSO2 BIT(8), /* SAME AS DCBDSORG BYTE 2 69700000 * MDC021*/ 69750000 * 2 DEBXMCF1 BIT(8), /* SAME AS DCBMACRF BYTE 1 69800000 * MDC022*/ 69850000 * 2 DEBXMCF2 BIT(8), /* SAME AS DCBMACRF BYTE 2 69900000 * MDC023*/ 69950000 * 2 DEBXXARG PTR(31), /* ADDRESS OF BDAM READ 70000000 * EXCLUSIVE LIST MDC024*/ 70050000 * 2 DEBXOPNJ PTR(31), /* POINTER TO DSAB (SEPARATE 70100000 * FROM DEBXDSAB) DYNAMICALLY 71450000 * ALLOCATED BY OPEN TYPE=J. 71453000 * THIS POINTER WILL EXIST FOR 71456000 * NON-AUTHORIZED CALLERS OF 71459000 * OPEN TYPE=J FOR A DIRECT 71462000 * ACCESS DATA SET WHERE THE 71465000 * DATA SET BEING OPENED IS 71468000 * DIFFERENT FROM THE DATA SET 71471000 * DESCRIBED BY THE DDNAME IN 71474000 * DCB AND THE JFCNWRIT BIT IS 71477000 * ON IN THE JFCB. THE POINTER 71480000 * WILL BE USED BY CLOSE TO 71483000 * DYNAMICALLY UNALLOCATE THE 71486000 * DATA SET. (MDC352) @ZA02193*/ 71489000 * 2 DEBXSAMB PTR(31), /* ADDRESS OF SAM BLOCK (SAMB) 71500000 * (MDC351) @Z40FP9A*/ 71510000 * 2 DEBXOPET CHAR(8); /* DATASET OPEN TIME SET BY OPEN 71520000 INITIALIZATION @ZA39299*/ 71530000 *%IF IKEPLS='' %THEN 71550000 * %GOTO DEBL4; 71600000 *IHALPOP; 71650000 *%DEBL4 : ; 71700000