* %GOTO BSLDEB; /* 01000010 MACRO 02000020 TDEBD 04000020 SPACE 06000020 .*A000000-999999 @Y17XAXF 07000010 IEDQDEB DSECT 08000020 DEBAPVT DS 0CL20 . APPENDAGE VECTOR TABLE S22024 09500010 DEBEOEA DS CL4 . ADDRESS OF END-OF-EXTENT 10000020 * APPENDAGE 12000020 DEBSIOA DS CL4 . ADDRESS OF STARTI/O 14000020 * APPENDAGE 16000020 DEBPCIA DS CL4 . ADDRESS OF PCI APPENDAGE 18000020 DEBCEA DS CL4 . ADDRESS OF CHANNEL END 20000020 * APPENDAGE 22000020 DEBXCEA DS CL4 . ADDRESS OF ABNORMAL END 24000020 * APPENDAGE 26000020 DEBWKARA DS CL1 . I/O SUPPORT WORK AREA 28000020 DEBDSCBA DS CL7 . ADDRESS OF DSCB 30000020 DEBDCBMK DS CL4 . DCB MODIFICATION MASK 32000020 DEBLNGTH DS CL4 . LENGTH OF THE DEB IN 34000020 * DOUBLE WORDS 36000020 DEBNMSUB DS 0C . NUMBER OF OPEN SUBROUTINES 38000020 DEBTCBAD DS A . ADDRESS OF THE TCB 40000020 DEBAMLNG DS 0C . LENGTH ACCESS METHOD SECTION 42000020 DEBDEBAD DS A . ADDRESS OF NEXT DEB 44000020 DEBOFLGS DS 0C . DATA SET FLAGS 46000020 DEBIRBAD DS A . ADDRESS OF THE IRB 48000020 DEBOPATB DS 0C . TYPE OF I/O 50000020 DEBSYSPG DS A . ADDRESS OF FIRST IOB IN SYSTEM 52000020 * PURGE CHAIN 54000020 DEBNMEXT DS 0C . NUMBER OF EXTENTS 56000020 DEBUSRPG DS A . ADDRESS OF FIRST IOB IN THE 58000020 * USER PURGE CHAIN 60000020 DEBPRIOR DS 0C . ZERO 62000020 DEBECBAD DS A . ADDRESS OF PARAMETER LIST TO 64000020 * FIND PURGE ECB 66000020 DEBPROTG DS 0C . PROTECTION KEY DEB ID 68000020 DEBDCBAD DS A . ADDRESS OF DCB 70000020 DEBEXSCL DS 0C . EXTENT SCALE 72000020 DEBAPPAD DS A . ADDRESS OF I/O APPENDAGE VECTOR 74000020 * TABLE 76000020 DEBDVMOD DS 0C . DEVICE MODIFIER 78000020 DEBUCBAD DS A . ADDRESS OF UCB 80000020 DEBSUBR DS CL24 . SUBROUTINE NAMES S22024 81000010 SPACE 2 82000020 MEND , */ 84000010 *%BSLDEB : ; 84300010 *DECLARE 84600010 * 1 IEDQDEB BASED(IEDQDPTR) BDY(DWORD), /* DATA EXTENT CB @YM08020*/ 84900010 * 2 DEBPRF CHAR(36) BDY(DWORD), /* DEB PREFIX */ 85000010 * 3 DEBAPVT CHAR(20) BDY(WORD), /* APPENDAGE VECTOR TABLE */ 85200010 * 4 DEBEOEA PTR(31), /* ADDRESS OF END-OF-EXTENT 85500010 * APPENDAGE */ 85800010 * 4 DEBSIOA PTR(31), /* ADDRESS OF START I/O 86100010 * APPENDAGE */ 86400010 * 4 DEBPCIA PTR(31), /* ADDRESS OF PCI APPENDAGE */ 86700010 * 4 DEBCEA PTR(31), /* ADDRESS OF CHANNEL END 87000010 * APPENDAGE */ 87300010 * 4 DEBXCEA PTR(31), /* ADDRESS OF ABNORMAL END 87600010 * APPENDAGE */ 87900010 * 3 DEBWKARA CHAR(1), /* I/O SUPPORT WORK AREA */ 88200010 * 3 DEBDSCBA CHAR(7), /* ADDRESS OF DSCB */ 88240010 * 3 DEBDCBMK CHAR(4), /* DCB MODIFICATION MASK */ 88280010 * 3 DEBLNGTH FIXED(8), /* DEB LEN IN DWORD @YM08020*/ 88320010 * 3 * CHAR(3), /* RESERVED */ 88360010 * 2 DEBNMSUB FIXED(8), /* OPEN SUBROUT CNT @YM08020*/ 88400010 * 2 DEBTCBAD PTR(24), /* ADDRESS OF THE TCB */ 88440010 * 2 DEBAMLNG FIXED(8), /* LEN A. M. SECT' @YM08020*/ 88480010 * 2 DEBDEBAD PTR(24), /* ADDRESS OF NEXT DEB */ 88520010 * 2 DEBOFLGS CHAR(1), /* DATA SET FLAGS */ 88560010 * 2 DEBIRBAD PTR(24), /* ADDRESS OF THE IRB */ 88600010 * 2 DEBOPATB CHAR(1), /* TYPE OF I/O */ 88640010 * 2 DEBSYSPG PTR(24), /* ADDRESS OF FIRST IOB IN 88680010 * SYSTEM PURGE CHAIN */ 88720010 * 2 DEBNMEXT FIXED(8), /* NO. OF EXTENTS @YM08020*/ 88760010 * 2 DEBUSRPG PTR(24), /* ADDRESS OF FIRST IOB IN 88800010 * THE USER PURGE CHAIN */ 88840010 * 2 DEBPRIOR CHAR(1), /* ZERO */ 88880010 * 2 DEBECBAD PTR(24), /* ADDRESS OF PARAMETER LIST 88920010 * TO FIND PURGE ECB */ 88960010 * 2 DEBPROTG CHAR(1), /* PROTECTION KEY DEB ID */ 89000010 * 2 DEBDCBAD PTR(24), /* ADDRESS OF DCB */ 89040010 * 2 DEBEXSCL CHAR(1), /* EXTENT SCALE */ 89080010 * 2 DEBAPPAD PTR(24), /* ADDRESS OF I/O APPENDAGE 89120010 * VECTOR TABLE */ 89160010 * 2 DEBUCBS CHAR(28); /* FILLER FOR 3705 DEB */ 89200010 *DECLARE 89240010 * 1 DEBUCB(*) DEF(DEBUCBS), /* UCB ADDRESSES */ 89280010 * 2 DEBDVMOD CHAR(1), /* DEVICE MODIFIER */ 89320010 * 2 DEBUCBAD PTR(24); /* ADDRESS OF UCB */ 89360010 *DECLARE 89400010 * DEBSUBR(*) CHAR(2) BASED(ADDR(DEBUCBS)+(LENGTH(DEBDVMOD) 89440010 * +LENGTH(DEBUCBAD))*DEBNMEXT); 89480010 * /* SUBROUTINE NAMES */ 89520010