MACRO 00050000 DCBD &DSORG=,&DEVD= 00100000 GBLB &ONESW 00150000 LCLA &A0 FOR DSORG= AND DEVD= ANALYSIS LOOPS 00250000 LCLB &DSORGIS SET BY DSORG=IS - ISAM 00300000 LCLB &DSORGBX SET BY DSORG=BX OR CX - BTAM 00350000 LCLB &DSORGDA SET BY DSORG=DA - BDAM 00400000 LCLB &DSORGQX SET BY DSORG=QX OR CX - QTAM 00450000 LCLB &DSORGXA SET BY DSORG=XA - EXCP WITH APPENDAGES 00700000 LCLB &DSORGQS SET BY DSORG=QS OR PS - QSAM 00750000 LCLB &DSORGBS SET BY DSORG=BS OR PS OR PO - BSAM,BPAM 00800000 LCLB &DSORGXE SET BY DSORG=XE - EXCP WITH EXTENSION 00850000 LCLB &DSORGLR SET BY DSORG=LR - DCBLRECL FIELD ONLY 00900000 LCLB &DSORGGS SET BY DSORG=GS - GAM 00950000 LCLB &DSORGTX SET BY DSORG=TX - TCAM LINE GROUP 01000000 LCLB &DSORGTQ SET BY DSORG=TQ - TCAM MESSAGE QUEUE 01050000 LCLB &DSORGTR SET BY DSORG=TR 3705 LINE GROUP S22024 01060000 LCLB &DEVDDA DIRECT ACCESS 01100000 LCLB &DEVDTA MAGNETIC TAPE 01150000 LCLB &DEVDPT PAPER TAPE 01200000 LCLB &DEVDRD READER OR PUNCH, DEVD=RD OR PC 01250000 LCLB &DEVDPR PRINTER 01300000 LCLB &DEVDBS BINARY SYNCHRONOUS 01350000 LCLB &DEVDWT WORLD TRADE TELEGRAPH 01400000 LCLB &DEVDMR MAGNETIC CARD READER 01450000 LCLB &DEVDOR OPTICAL READER 01500000 LCLC &C0 SET TO EACH VALUE OF DSORG AND DEVD 01550000 .* 01600000 .* THIS MACRO DEFINES THE FIELDS AND BITS WITHIN A DCB, WHICH IS 01660000 .* EXPANDED BY THE DCB MACRO INSTRUCTION. CHANGES TO THIS MACRO 01670000 .* SHOULD ALSO BE MADE TO THE IHADCB MACRO, WHICH IS WRITTEN IN PLS. 01680000 .* 01700000 AIF (NOT &ONESW).SETSW TEST PREVIOUS USE OF THIS MACRO 01750000 IHBERMAC 172 01800000 MEXIT 01850000 .SETSW ANOP 01900000 &ONESW SETB 1 01950000 .* 02550000 .* ANALYZE DSORG OPERAND 02600000 .* 02650000 &A0 SETA N'&DSORG SET NUMBER OF DSORG FLEMENTS 02700000 .A1 AIF (&A0 LE 0).D0 IF ZERO, LOOP FINISHED 02750000 &C0 SETC '&DSORG(&A0)' SET TO A DSORG ELEMENT 02800000 .* 02850000 .* TEST FOR VALID DSORG ELEMENT 02900000 .* 02950000 AIF ('&C0' EQ 'IS' OR '&C0' EQ 'PS' OR '&C0' EQ 'BS' OR *03000000 '&C0' EQ 'QS' OR '&C0' EQ 'DA' OR '&C0' EQ 'CX' OR *03050000 '&C0' EQ 'LR').A2 @ZA02213 03100000 AIF ('&C0' EQ 'XE' OR '&C0' EQ 'XA' OR '&C0' EQ 'PO' OR *03150000 '&C0' EQ 'BX' OR '&C0' EQ 'QX' OR '&C0' EQ 'GS' OR *03200000 '&C0' EQ 'TX' OR '&C0' EQ 'TQ' OR '&C0' EQ '').A2 03250000 AIF ('&C0' EQ 'TR').A2 S22024 03260000 IHBERMAC 156,DSORG,&C0 03300000 AGO .AA 03350000 .* 03400000 .* SET VARIABLES FOR DSORG 03450000 .* 03500000 .A2 ANOP 03550000 &DSORGIS SETB (&DSORGIS OR '&C0' EQ 'IS') 03600000 &DSORGBX SETB (&DSORGBX OR '&C0' EQ 'BX' OR '&C0' EQ 'CX') 03650000 &DSORGDA SETB (&DSORGDA OR '&C0' EQ 'DA') 03700000 &DSORGQX SETB (&DSORGQX OR '&C0' EQ 'QX' OR '&C0' EQ 'CX') 03750000 &DSORGXA SETB (&DSORGXA OR '&C0' EQ 'XA') 03900000 &DSORGQS SETB (&DSORGQS OR '&C0' EQ 'QS' OR '&C0' EQ 'PS') 03950000 &DSORGBS SETB (&DSORGBS OR '&C0' EQ 'BS' OR '&C0' EQ 'PS' OR '&C0' EQ *04000000 'PO') 04050000 &DSORGXE SETB (&DSORGXE OR '&C0' EQ 'XE') 04100000 &DSORGLR SETB (&DSORGLR OR '&C0' EQ 'LR') 04150000 &DSORGGS SETB (&DSORGGS OR '&C0' EQ 'GS') 04200000 &DSORGTX SETB (&DSORGTX OR '&C0' EQ 'TX') 04250000 &DSORGTQ SETB (&DSORGTQ OR '&C0' EQ 'TQ') 04300000 &DSORGTR SETB (&DSORGTR OR '&C0' EQ 'TR') S22024 04310000 .AA ANOP 04350000 &A0 SETA &A0-1 DECREMENT ELEMENT COUNTER 04400000 AGO .A1 TO DO NEW LOOP 04450000 .* 04500000 .* TEST FOR ANY VALID DSORG OPERAND 04550000 .* 04600000 .D0 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQX OR *04650000 &DSORGXA OR &DSORGQS OR &DSORGBS OR &DSORGXE OR *04700000 &DSORGLR OR &DSORGGS).D0A @ZA02213 04750000 AIF (&DSORGTX OR &DSORGTQ OR &DSORGTR).D0A S22024 04800000 IHBERMAC 173 04850000 .D0A AIF (T'&DEVD NE 'O').D1 BRANCH IF DEVD CODED 1318 04950000 AIF (&DSORGGS).B1 05000000 AIF (NOT (&DSORGQS OR &DSORGBS OR &DSORGXE)).B1 05050000 .* 05100000 .* SET DEVD DEFAULTS 05150000 .* 05200000 &DEVDDA SETB 1 05250000 &DEVDTA SETB ('&DSORG' NE '(PO)') 05300000 &DEVDPT SETB ('&DSORG' NE '(PO)') 05350000 &DEVDPR SETB ('&DSORG' NE '(PO)') 05400000 &DEVDRD SETB ('&DSORG' NE '(PO)') 05450000 &DEVDMR SETB ('&DSORG' NE '(PO)') 05500000 &DEVDOR SETB ('&DSORG' NE '(PO)') 05550000 AIF ('&DSORG' EQ '(PO)').D1 05600000 IHBERMAC 174 05650000 AGO .B1 05700000 .D1 ANOP 05750000 .* 05800000 .* ANALYZE DEVD OPERAND 05850000 .* 05900000 &A0 SETA N'&DEVD SET ELEMENT COUNT 05950000 .D2 AIF (&A0 LE 0).B1 IF ZERO, LOOP FINISHED 06050000 &C0 SETC '&DEVD(&A0)' SET TO A DEVD ELEMENT 06100000 .* 06150000 .* TEST FOR VALID DEVD ELEMENT 06200000 .* 06250000 AIF ('&C0' EQ 'DA' OR '&C0' EQ 'TA' OR '&C0' EQ 'PT' OR *06300000 '&C0' EQ 'PR' OR '&C0' EQ 'RD' OR '&C0' EQ 'PC' OR *06350000 '&C0' EQ 'BS' OR '&C0' EQ 'WT').D3 06400000 AIF ('&C0' EQ 'MR' OR '&C0' EQ 'OR').D3 06450000 AIF ('&C0' EQ '').D4 06500000 IHBERMAC 157,DEVD,&C0 06550000 AGO .D4 TO DO NEW LOOP 06600000 .* 06650000 .* SET VARIABLES FOR DEVD 06700000 .* 06750000 .D3 ANOP 06800000 &DSORGXE SETB (&DSORGXE OR T'&DSORG EQ 'O') FORCE EXCP EXTENDED 06850000 &DEVDDA SETB (&DEVDDA OR '&C0' EQ 'DA') DIRECT ACCESS DEVICE 06900000 &DEVDTA SETB (&DEVDTA OR '&C0' EQ 'TA') MAGNETIC TAPE DEVICE 06950000 &DEVDPT SETB (&DEVDPT OR '&C0' EQ 'PT') PAPER TAPE DEVICE 07000000 &DEVDPR SETB (&DEVDPR OR '&C0' EQ 'PR') PRINTER 07050000 &DEVDRD SETB (&DEVDRD OR '&C0' EQ 'RD' OR '&C0' EQ 'PC') READER,PUNCH 07100000 &DEVDBS SETB (&DEVDBS OR '&C0' EQ 'BS') BINARY SYNCHRONOUS COMM. 07150000 &DEVDWT SETB (&DEVDWT OR '&C0' EQ 'WT') WORLD TRADE TELEGRAPH 07200000 &DEVDMR SETB (&DEVDMR OR '&C0' EQ 'MR') MAGNETIC CHAR READER 07250000 &DEVDOR SETB (&DEVDOR OR '&C0' EQ 'OR') OPTICAL READER 07300000 .D4 ANOP 07350000 &A0 SETA &A0-1 DECREMENT ELEMENT COUNTER 07400000 AGO .D2 TO DO NEW LOOP 07450000 .* 07500000 .B1 AIF (NOT &DSORGLR).B1A BR IF NOT LRECL ONLY YA03395 07550000 AIF (&DSORGIS OR &DSORGQS OR &DSORGBS OR &DSORGDA OR X07560000 &DSORGBX OR &DSORGQX).B1A BR COMMNT @ZA02213 07570000 AIF (NOT(&DSORGTX OR &DSORGTQ OR &DSORGTR OR &DSORGXA OR X07580000 &DSORGXE OR &DSORGGS)).BA SKIP COMM @ZA02213 07590000 .B1A SPACE 2 YA03395 07650000 * DCB SYMBOLIC DEFINITION FOR 07700000 AIF (NOT &DSORGIS).B2 07750000 * INDEXED SEQUENTIAL 07800000 .B2 AIF (NOT (&DSORGQS AND &DSORGBS)).B2A 07850000 * PHYSICAL SEQUENTIAL 07900000 AGO .B3 07950000 .B2A AIF (NOT &DSORGQS).B2B 08000000 * QSAM 08050000 .B2B AIF (NOT &DSORGBS).B3 08100000 * BSAM-BPAM 08150000 .B3 AIF (NOT &DSORGDA).B4 08200000 * DIRECT ACCESS 08250000 .B4 AIF (NOT (&DSORGBX AND &DSORGQX)).B4A 08300000 * COMMUNICATIONS LINE GROUP 08350000 AGO .B5 08400000 .B4A AIF (NOT &DSORGBX).B4B 08450000 * BTAM LINE GROUP 08500000 .B4B AIF (NOT &DSORGQX).B5 08550000 * QTAM LINE GROUP 08600000 .B5 AIF (NOT &DSORGTX).B6B 08850000 * TCAM LINE GROUP 08900000 .B6B AIF (NOT &DSORGTQ).B6C S22024 08950000 * TCAM MESSAGE QUEUE 09000000 .B6C AIF (NOT &DSORGTR).B7 S22024 09010000 * 3705 LINE GROUP 09020000 .B7 AIF (NOT (&DSORGXA AND &DSORGXE)).B8 09050000 * EXCP WITH EXTENSION AND APPENDAGES 09100000 AGO .BA 09150000 .B8 AIF (NOT &DSORGXE).B9 09200000 * EXCP WITH EXTENSION 09250000 AGO .BA 09300000 .B9 AIF (NOT &DSORGXA).B0 09350000 * EXCP WITH APPENDAGES 09400000 AGO .BA 09450000 .B0 AIF (NOT &DSORGGS).B00 09500000 * GRAPHICS WITH APPENDAGES 09550000 AGO .BA 09600000 .B00 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQX OR *09650000 &DSORGQS OR &DSORGBS OR &DSORGTX OR &DSORGTQ OR *09700000 &DSORGLR OR &DSORGTR).BA @ZA02213 09750000 * EXCP WITH EXTENSION 09800000 &DSORGXE SETB 1 09850000 .BA SPACE 2 @ZA05613 09850200 IHADCB DSECT , - DCBPTR @ZA05613 09851000 SPACE 2 @ZA05613 09852000 *********************************************************************** 09853000 * OS/VS2 RELEASE 02, 02/14/73 * 09854000 * OS/VS2 RELEASE 03, 10/23/74 * 09855000 * OS/VS2 RELEASE 3.7, 3/15/78 * 09856000 *C80400037 @ZA33630 09886000 * * 09902100 * OS/VS2 RELEASE 3.8, 5/15/80 FMID=FDM1133 * 09909000 * * 09915900 *C(116500),A(116638-116914),D(117000),A(117052-117466) @ZA46311 09922800 *D(117500),A(117604-117880),D(118000),A(118018-118432) @ZA46311 09929700 *D(118500-118510),A(118570-118846) @ZA46311 09936600 *$F01=UZ59799,FDM1133:DCBDEVT DEFINITION FOR D/T3375 AND D/T3380 @F01A 09940000 * * 09943500 *********************************************************************** 09950700 SPACE 1 @ZA05613 09950800 .* @ZA05613 09950900 DCBBIT0 EQU 128 @ZA05613 09951000 DCBBIT1 EQU 64 @ZA05613 09951100 DCBBIT2 EQU 32 @ZA05613 09951200 DCBBIT3 EQU 16 @ZA05613 09951300 DCBBIT4 EQU 8 @ZA05613 09951400 DCBBIT5 EQU 4 @ZA05613 09951500 DCBBIT6 EQU 2 @ZA05613 09951600 DCBBIT7 EQU 1 @ZA05613 09951700 SPACE 1 @ZA05613 09951800 *********************************************************************** 09951900 SPACE 2 09952000 AIF (&DSORGGS).SLIP 10248500 .* ZA00013 10248800 AIF (NOT (&DEVDDA OR &DEVDTA OR &DEVDPT OR &DEVDPR OR *10250000 &DEVDRD OR &DEVDWT OR &DEVDOR OR &DEVDMR)).C4 10300000 *********************************************************************** 10301000 * DEVICE INTERFACES 10350000 *********************************************************************** 10351000 SPACE 1 10400000 AIF (NOT &DEVDDA).C1 10450000 *********************************************************************** 10451000 * DIRECT ACCESS DEVICES 10500000 *********************************************************************** 10501000 SPACE 1 10550000 DCBRELAD DS CL4 - PARTITIONED ORGANIZATION DATA SET - 10600000 * ADDRESS (IN THE FORM TTRN) OF MEMBER 10650000 * CURRENTLY USED. --- 10700000 * SYS1.LOGREC DATA SET - IF CCH OPTION HAS 10750000 * BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000 * OF A 12-BYTE PARAMETER IN THE EXPANSION 10850000 * OF MACRO INSTRUCTION IGFCATAP 10900000 DCBKEYCN DS FL1 - KEYED BLOCK OVERHEAD CONSTANT 10950000 DCBFDAD DS CL8 - FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000 * OF RECORD THAT WAS JUST READ OR WRITTEN 11050000 SPACE 1 11100000 ORG DCBFDAD+7 11150000 DCBDVTBL DS 0A - SAME AS DCBDVTBA BELOW 11200000 DS X - LAST BYTE OF DCBFDAD 11250000 DCBDVTBA DS AL3 - ADDRESS OF ENTRY IN I/O DEVICE 11300000 * CHARACTERISTICS TABLE FOR DEVICE BEING 11350000 * USED 11400000 DS FL1 - DCBKEYLE - KEY LENGTH OF DATA SET 11450000 DS C - DCBDEVT - DEVICE TYPE 11500000 * FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION 11550000 DCBDV311 EQU X'21' - 2311 DISK STORAGE @ZA46311 11650000 DCBDV301 EQU X'22' - 2301 PARALLEL DRUM 11663800 DCBDV303 EQU X'23' - 2303 SERIAL DRUM 11677600 DCBDV302 EQU X'24' - 2302 DISK STORAGE 11691400 DCBDV321 EQU X'25' - 2321 DATA CELL STORAGE @ZA46311 11705200 DCBD1305 EQU X'26' - 2305 DRUM MODEL-1 @ZA46311 11719000 DCBDV305 EQU X'27' - 2305 DRUM MODEL-2 @ZA46311 11732800 DCBDV314 EQU X'28' - 2314/2319 DISK STORAGE FACILITY @ZA46311 11746600 DCBDV330 EQU X'29' - 3330 DISK STORAGE FACILITY @ZA46311 11760400 * 3330 MODEL-1 @ZA46311 11774200 * 3330 MODEL-2 @ZA46311 11788000 * 3333 MODEL-1 @ZA46311 11801800 DCBDV340 EQU X'2A' - 3340/3344 DISK STORAGE FACILITY @ZA46311 11815600 DCBDV350 EQU X'2B' - 3350 DISK STORAGE FACILITY @ZA46311 11829400 * MODELS A2, B2, AND C2 @ZA46311 11843200 DCBDV375 EQU X'2C' - 3375 DISK STORAGE FACILITY @F01A 11850100 DCBDV331 EQU X'2D' - 3330 MODEL-11 OR 3333 MODEL-11 @ZA46311 11857000 * DISK STORAGE FACILITY @ZA46311 11870800 DCBDV380 EQU X'2E' - 3380 DISK STORAGE FACILITY @F01A 11877700 SPACE 1 11884600 DCBTRBAL DS H - TRACK BALANCE. NUMBER OF BYTES REMAINING 11900000 * ON CURRENT TRACK AFTER A WRITE OPERATION 11950000 * (THIS QUANTITY MAY BE NEGATIVE IF THERE 12000000 * ARE NO BYTES REMAINING ON TRACK). 12050000 SPACE 1 12100000 .C1 AIF (NOT &DEVDTA).C2 12150000 *********************************************************************** 12151000 * MAGNETIC TAPE 12200000 *********************************************************************** 12201000 SPACE 1 12250000 ORG IHADCB 12300000 DS CL12 - RESERVED FOR I/O SUPERVISOR 12350000 DCBBLKCT DS F - BLOCK COUNT FOR EACH VOLUME 12400000 DCBTRTCH DS C - TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000 DCBMTE EQU X'23' - E - EVEN PARITY 12500000 DCBMTT EQU X'3B' - T - BCD/EBCDIC TRANSLATION 12550000 DCBMTC EQU X'13' - C - DATA CONVERSION 12600000 DCBMTET EQU X'2B' - ET - EVEN PARITY AND TRANSLATION 12650000 DS C - DCBDEVT - DEVICE TYPE 12700000 DCBDVMT EQU X'81' - 2400 SERIES MAGNETIC TAPE UNIT (7-TRACK 12750000 * OR 9-TRACK) 12800000 DCBDVMT3 EQU X'83' - 3400 SERIES MAGNETIC TAPE UNIT 12850000 DCBDEN DS C - TAPE DENSITY - 2400 SERIES MAGNETIC TAPE 12900000 * UNITS 12950000 * CODE 7-TRACK 9-TRACK 13000000 DCBMTDN0 EQU X'03' - 0 200 BPI - 13050000 DCBMTDN1 EQU X'43' - 1 556 BPI - 13100000 DCBMTDN2 EQU X'83' - 2 800 BPI 800 BPI 13150000 DCBMTDN3 EQU X'C3' - 3 - 1600 BPI 13200000 DCBMTDN4 EQU X'D3' - 4 - 6250 BPI 13210000 DS X - RESERVED 13250000 SPACE 1 13300000 .C2 AIF (NOT &DEVDPT).C3 13350000 *********************************************************************** 13351000 * PAPER TAPE 13400000 *********************************************************************** 13401000 SPACE 1 13450000 ORG IHADCB+8 13500000 DCBLCTBL DS A - ADDRESS OF TRANSLATE TABLE 13550000 DS XL4 - RESERVED 13600000 DCBCODE DS C - PAPER TAPE CODE BEING USED. THE 13650000 * APPROPRIATE TRANSLATE TABLE IS MADE 13700000 * AVAILABLE 13750000 DCBPTCDN EQU X'80' - N - NO CONVERSION 13800000 DCBPTCDI EQU X'40' - I - IBM BCD 13850000 DCBPTCDF EQU X'20' - F - FRIDEN 13900000 DCBPTCDB EQU X'10' - B - BURROUGHS 13950000 DCBPTCDC EQU X'08' - C - NATIONAL CASH REGISTER 14000000 DCBPTCDA EQU X'04' - A - ASCII (8-TRACK) 14050000 DCBPTCDT EQU X'02' - T - TELETYPE 14100000 DS C - DCBDEVT - DEVICE TYPE 14150000 DCBDVPTP EQU X'50' - 2671 PAPER TAPE READER 14200000 DS X - RESERVED 14250000 DCBPTFLG DS BL1 - PAPER TAPE FLAGS 14300000 DCBPTIC EQU DCBBIT3 - INVALID CHARACTER IN LAST RECORD READ 14350000 DCBPTECT EQU DCBBIT4 - END OF RECORD CHARACTER REACHED IN 14400000 * TRANSLATION 14450000 DCBPTECR EQU DCBBIT5 - END OF RECORD CHARACTER DETECTED DURING 14500000 * READ 14550000 DCBPTUCT EQU DCBBIT6 - IF ONE, UPPER CASE TRANSLATE. 14600000 * IF ZERO, LOWER CASE TRANSLATE 14650000 DCBPTERR EQU DCBBIT7 - ERROR DETECTED ON READ 14700000 SPACE 1 14750000 .C3 AIF (NOT &DEVDPR).C3A 14800000 *********************************************************************** 14801000 * PRINTER 14850000 *********************************************************************** 14851000 SPACE 1 14900000 ORG IHADCB+16 14950000 DCBPRTSP DS C - NUMBER INDICATING NORMAL PRINTER SPACING 15000000 DCBPRSP0 EQU X'01' - 0 - NO SPACING 15050000 DCBPRSP1 EQU X'09' - 1 - SPACE ONE LINE 15100000 DCBPRSP2 EQU X'11' - 2 - SPACE TWO LINES 15150000 DCBPRSP3 EQU X'19' - 3 - SPACE THREE LINES 15200000 DS C - DCBDEVT - DEVICE TYPE 15250000 DCBDVPR1 EQU X'48' - 1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000 * FORM SUPPORT ONLY) 15350000 DCBDVPR2 EQU X'4A' - 1443 PRINTER 15400000 DCBDVPR3 EQU X'49' - 3211 PRINTER 15450000 DCBDVPR4 EQU X'4B' - 3203-4 PRINTER @32034AP 15455000 DCBDVPR5 EQU X'4E' 3800 PRINTER @Z40MSRZ 15460000 DCBPRTOV DS C - TEST-FOR-PRINTER-OVERFLOW MASK 15500000 * (PRTOV MASK) 15550000 DCBPRC9 EQU X'20' - 9 - TEST FOR CHANNEL 9 OVERFLOW 15600000 DCBPRC12 EQU X'10' - 12 - TEST FOR CHANNEL 12 OVERFLOW 15650000 * 15660000 DCBPRBYT DS C PRINTER BYTE @Z40MSRZ 15670000 DCBTRCID EQU DCBBIT6+DCBBIT7 2-BIT ID OF 3800 TRANSLATE @Z40MSRZ 15680000 * TABLE ACTIVE/LAST SELECTED @Z40MSRZ 15690000 DS X - RESERVED 15700000 SPACE 1 15750000 .C3A AIF (NOT &DEVDRD).C3B 15800000 *********************************************************************** 15801000 * CARD READER, CARD PUNCH 15850000 *********************************************************************** 15851000 SPACE 1 15900000 ORG IHADCB+16 15950000 DCBMODE DS 0B - MODE OF OPERATION FOR 1442 CARD READ 16000000 * PUNCH (BITS 0-3) 16050000 DCBSTACK DS B - STACKER SELECTION (BITS 4-7) 16100000 DCBMODEC EQU DCBBIT0 - COLUMN BINARY MODE 16150000 DCBMODEE EQU DCBBIT1 - EBCDIC MODE 16200000 DCBMODEO EQU DCBBIT2 - OPTICAL MARK READ MODE 16250000 DCBMODER EQU DCBBIT3 - READ COLUMN ELIMINATE MODE 16300000 DCBSTCK2 EQU DCBBIT6 - STACKER 2 16350000 DCBSTCK1 EQU DCBBIT7 - STACKER 1 16400000 DS C - DCBDEVT - DEVICE TYPE 16450000 DCBDVCR0 EQU X'41' - 2540 CARD READER 16500000 DCBDVCP0 EQU X'42' - 2540 CARD PUNCH 16550000 DCBDVCRP EQU X'43' - 1442 CARD READ PUNCH 16600000 DCBDVCR1 EQU X'44' - 2501 CARD READER 16650000 DCBDVCPR EQU X'45' - 2520 CARD READ PUNCH 16700000 DCBDVCR2 EQU X'46' - 3505 CARD READER 16710000 DCBDVCP1 EQU X'4C' - 3525 CARD PUNCH 16720000 DS X - RESERVED 16750000 DCBFUNC DS B - FUNCTION INDICATOR FOR THE 3525 16800000 DCBFNCBI EQU DCBBIT0 - INTERPRET (PUNCH AND PRINT TWO LINES) 16850000 DCBFNCBR EQU DCBBIT1 - READ 16900000 DCBFNCBP EQU DCBBIT2 - PUNCH 16950000 DCBFNCBW EQU DCBBIT3 - PRINT 17000000 DCBFNCBD EQU DCBBIT4 - DATA PROTECTION 17050000 DCBFNCBX EQU DCBBIT5 - THIS DATA SET IS TO BE PRINTED 17100000 DCBFNCBT EQU DCBBIT6 - TWO-LINE PRINT SUPPORT REQUEST 17150000 SPACE 1 17200000 .C3B AIF (NOT &DEVDWT).C3C 17250000 *********************************************************************** 17251000 * WORLD TRADE TELEGRAPH 17300000 *********************************************************************** 17301000 SPACE 1 17350000 ORG IHADCB+16 17400000 DCBBQFLG DS BL1 - WTTA FLAG BYTE 17450000 DCBBQWRU EQU DCBBIT1 - WRU FEATURE IS TO BE USED 17500000 DCBBQIAM EQU DCBBIT2 - IAM FEATURE IS TO BE USED 17550000 DCBBQWRS EQU DCBBIT3 - WRU FEATURE TO BE USED IN SEND HEADER 17600000 * SUBGROUP 17650000 DCBBQWRE EQU DCBBIT4 - WRU FEATURE TO BE USED IN END SEND 17700000 * SUBGROUP 17750000 DCBWTEOM DS C - EOM CHARACTER 17800000 DCBWTEOT DS C - EOT CHARACTER 17850000 DCBWTPAD DS FL1 - NUMBER OF PAD (LTRS) CHARACTERS REQUIRED 17900000 * FOR MOTOR-ON DELAY 17950000 SPACE 1 18000000 .C3C AIF (NOT (&DEVDOR OR &DEVDMR)).C4 18050000 *********************************************************************** 18051000 * OPTICAL READER AND MAGNETIC CHAR READER 18100000 *********************************************************************** 18101000 SPACE 1 18150000 ORG IHADCB 18200000 DCBWTOID DS 0A - SAME AS DCBWTOIA BELOW 18250000 DS X - RESERVED 18300000 DCBWTOIA DS AL3 - A BINARY IDENTIFICATION NUMBER ASSIGNED 18350000 * BY COMMUNICATIONS TASK TO MESSAGE ISSUED 18400000 * BY WTO MACRO. THIS NUMBER IS USED BY THE 18450000 * DOM MACRO WHEN MESSAGE IS NO LONGER 18500000 * REQUIRED (MCS SUPPORT). --- 18550000 * FOR MAGNETIC CHAR READER - AFTER FIRST 18600000 * READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000 * MAGNETIC INTERRUPT CONTROL BLOCK (MICB) 18700000 * BEING USED BY THE APPENDAGES. 18750000 SPACE 1 18800000 AIF (NOT &DEVDOR).C3D 18850000 *********************************************************************** 18851000 * OPTICAL READER DEVICES 18900000 * 1285, 1287, 1288, 3886 18950000 *********************************************************************** 18951000 SPACE 1 19000000 ORG DCBWTOID+4 19050000 DCBERRCN DS 0A - SAME AS DCBERRCA BELOW 19100000 DS X - RESERVED 19150000 DCBERRCA DS AL3 - ADDRESS OF 32 BYTES OF DECLARED STORAGE 19200000 * SPECIFIED BY THE USER IN HIS PROGRAM. 19250000 * THIS STORAGE WILL BE USED BY THE 19300000 * PROGRAMMING SUPPORT AS EIGHT 4-BYTE 19350000 * COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000 * 1287 AND 1288 ERROR CONDITIONS ARE 19450000 * ACCUMULATED. 19500000 ORG DCBWTOID+4 19501000 DCBLNNUM DS X - 3886 DOCUMENT LINE NUMBER 19502000 DCBLFMAT DS X - 3886 LINE FORMAT NUMBER 19503000 DCBORFLG DS X - 3886 FLAGS 19504000 DCBEOPFG EQU DCBBIT0 - END OF PAGE 19505000 DS X - RESERVED 19506000 DCBDSPLY DS 0A - SAME AS DCBDSPLA BELOW 19550000 DCBFRID DS 0CL4 - 3886 FORMAT RECORD ID 19551000 DS X - RESERVED 19600000 DCBDSPLA DS AL3 - ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR 19650000 * KEYBOARD ENTRY OF A COMPLETE FIELD 19700000 DCBRESCN DS 0A - SAME AS DCBRESCA BELOW 19750000 DCBRDLNE DS 0A - SAME AS DCBRDLNA BELOW 19800000 DCBFRTBA DS 0A - 3886 FORMAT RECORD TABLE 19801000 DS X - RESERVED 19850000 DCBRESCA DS 0AL3 - ADDRESS OF RESCN (BSAM) ROUTINE USED TO 19900000 * FORCE ON-LINE CORRECTION OF UNREADABLE 19950000 * CHARACTERS 20000000 DCBRDLNA DS AL3 - ADDRESS OF RDLNE (QSAM) ROUTINE USED TO 20050000 * FORCE ON-LINE CORRECTION OF UNREADABLE 20100000 * CHARACTERS 20150000 DCBORBYT DS BL1 - OPTICAL READER BYTE USED BY BSAM/QSAM 20200000 DCBORSYN EQU DCBBIT0 - SYNAD IN CONTROL 20250000 DCBOREOF EQU DCBBIT1 - END OF FILE (EOF) 20300000 DCBORBFP EQU DCBBIT2 - BUFFERS PRIMED (QSAM) 20350000 DS C - DCBDEVT - DEVICE TYPE 20400000 DCBDVOR5 EQU X'5A' - 1285 OPTICAL READER 20450000 DCBDVOR7 EQU X'5B' - 1287 OPTICAL READER 20500000 DCBDVOR8 EQU X'5C' - 1288 OPTICAL READER 20550000 DCBDVOR9 EQU X'57' - 3886 OPTICAL READER 20551000 DCBEIB DS BL1 - ERROR INDICATOR BYTE 20600000 DCBORNRM EQU DCBBIT1 - THE 1287 OR 1288 SCANNER WAS UNABLE TO 20650000 * LOCATE THE REFERENCE MARK 20700000 DCBORREJ EQU DCBBIT2 - FOR 1287, A STACKER SELECT COMMAND WAS 20750000 * GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000 * THE DOCUMENT HAS BEEN PUT IN REJECT 20850000 * POCKET. FOR 1288 UNFORMATTED ONLY, 20900000 * END-OF-PAGE HAS OCCURRED. 20950000 DCBORERR EQU DCBBIT3 - A NONRECOVERABLE ERROR HAS OCCURRED. 21000000 DCBORECK EQU DCBBIT4 - AN EQUIPMENT CHECK RESULTED IN AN 21050000 * INCOMPLETE READ 21100000 DCBORWLR EQU DCBBIT5 - A WRONG-LENGTH RECORD CONDITION HAS 21150000 * OCCURRED 21200000 DCBORHPR EQU DCBBIT6 - FOR QSAM - OPERATOR ENTERED ONE OR MORE 21250000 * CHARACTERS FROM THE KEYBOARD. 21300000 * FOR BSAM - A HOPPER EMPTY CONDITION HAS 21350000 * OCCURRED 21400000 DCBORDCK EQU DCBBIT7 - A DATA CHECK HAS OCCURRED 21450000 DS X - RESERVED 21500000 SPACE 1 21550000 .C3D AIF (NOT &DEVDMR).C4 21600000 *********************************************************************** 21601000 * MAGNETIC CHARACTER READER DEVICES 21650000 * 1419 MAGNETIC CHARACTER READER 21700000 * 1275 OPTICAL READER SORTER 21750000 * 3890 MAGNETIC CHARACTER READER 21751000 * 3895 DOCUMENT READER/INSCRIBER 21751500 *********************************************************************** 21752000 SPACE 1 21800000 ORG IHADCB 21850000 DCBSSID DS CL8 - BEFORE DCB IS OPENED - NAME OF USER'S 21900000 * STACKER SELECT ROUTINE. 21950000 SPACE 1 22000000 ORG DCBSSID 22050000 DS 0A - AFTER DCB IS OPENED - DCBWTOID 22100000 DCBQSMEX DS A - ADDRESS OF QSAM EXIT ROUTINE 22110000 .* QSAM EXIT @Y30GS11 22120000 DCBSSAD DS 0A - ADDRESS OF USER'S STACKER SELECT ROUTINE 22150000 DCBIMG DS 0A - 3890 ADDR OF USER'S IMAGE PROC RTN 22151000 DS X - RESERVED 22200000 DCBSSADA DS AL3 - ADDRESS OF USER'S STACKER SELECT ROUTINE 22250000 DCBIMAGE DS 0A - SAME AS DCBIMAGA BELOW 22300000 DCBMRFG DS BL1 - BUFFER INDICATOR 22350000 DCBMRBCT EQU DCBBIT0+DCBBIT1 - TWO-BIT BINARY COUNTER WHICH INDICATES 22400000 * INTO WHICH BUFFER STATUS INFORMATION IS 22450000 * TO BE POSTED 22500000 DCBIMAGA DS AL3 - ADDRESS OF PARAMETER LIST USED TO 22550000 * COMMUNICATE BETWEEN USER'S PROCESSING 22600000 * ROUTINES AND HIS STACKER SELECT ROUTINES 22650000 DCBECBLT DS 0A - SAME AS DCBECBLA BELOW 22700000 DCBHDR DS 0A - 3890 ADDR OF USER'S HEADER DATA AREA 22701000 DCBMRIND DS BL1 - INDICATOR AND COUNTER BYTE 22750000 DCBMRDCT EQU DCBBIT0+DCBBIT1+DCBBIT2 THREE-BIT BINARY COUNTER OF 22800000 * NUMBER OF DOCUMENTS READ AFTER DISENGAGE 22850000 DCBMRSCU EQU DCBBIT3 - DCB WAS ALTERED WHEN SYNAD ROUTINE WAS 22900000 * ENTERED DUE TO SECONDARY CONTROL UNIT 22950000 * (SCU) ERROR 23000000 DCBMRPLO EQU DCBBIT4 - POCKET LIGHT HAS BEEN TURNED ON 23050000 DCBMRPLS EQU DCBBIT5 - POCKET LIGHT 0-6 IS BEING SET ON 23100000 DCBMRERP EQU DCBBIT6 - ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150000 * PRIMARY CONTROL UNIT (PCU) 23200000 DCBMRERS EQU DCBBIT7 - ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250000 * SECONDARY CONTROL UNIT (SCU) 23300000 DCBECBLA DS AL3 - ADDRESS OF ECB LIST PASSED TO WAIT MACRO 23350000 * BY CHECK MACRO WHEN NO 1419/1275 IS 23400000 * AVAILABLE FOR PROCESSING 23450000 DCBMRFLG DS BL1 - FLAG BYTE 23500000 DCBMRSCC EQU DCBBIT0 - FIRST OR SECOND SECONDARY CONTROL UNIT 23550000 * COMMAND CHAIN IS BEING USED 23600000 DCBMRDBG EQU DCBBIT1 - DEBUGGING MODE IN USE 23650000 DCBMRDRU EQU DCBBIT2 - DISENGAGE REQUESTED BY USER 23700000 DCBMRDR EQU DCBBIT3 - DISENGAGE REQUESTED 23750000 DCBMRPCC EQU DCBBIT4+DCBBIT5 - TWO-BIT BINARY COUNTER INDICATING 23800000 * FIRST, SECOND, OR THIRD PRIMARY CONTROL 23850000 * UNIT COMMAND CHAIN IS BEING USED 23900000 DCBMRDWT EQU DCBBIT6 - WTO MESSAGE MUST BE DELETED 23950000 DCBMRUE EQU DCBBIT7 - UNIT EXCEPTION 24000000 DS C - DCBDEVT - DEVICE TYPE 24050000 DCBDVMR EQU X'5D' - 1419 MAGNETIC CHARACTER READER 24100000 DCBDVORS EQU X'5F' - 1275 OPTICAL READER SORTER 24150000 DCBDVMRS EQU X'56' - 3890 MAGNETIC CHARACTER READER SORTER 24151000 DCBDVDRI EQU X'59' - 3895 DOCUMENT READER/INSCRIBER @G30HSJK 24171000 DCBAPPIN DS C - AN INDICATOR USED BY THE APPENDAGES TO 24200000 * PASS INFORMATION ABOUT ONE CHANNEL CHAIN 24250000 * TO AN APPENDAGE ASSOCIATED WITH ANOTHER 24300000 * CHANNEL CHAIN 24350000 DS X - RESERVED 24400000 SPACE 1 24450000 .C4 AIF (NOT &DSORGTR).C4A S22024 24460000 *********************************************************************** 24461000 * 3705 LINE TERMINAL 24470000 *********************************************************************** 24471000 ORG IHADCB+8 24480000 DCBIPLTX DS CL8 - NAME OF MODULE TO BE USED TO IPL 24490000 * THE 3705 24492000 DCBBCKUP DS 0A - FULL WORD LABEL 24494000 DS BL1 - RESERVED 24496000 DCBBCKUA DS AL3 - ADDRESS OF THE DCB FOR THE 24498000 * BACKUP 3705. 24498400 SPACE 1 24499400 .C4A AIF (NOT (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *24500000 &DSORGXE)).C5 24550000 *********************************************************************** 24551000 * ACCESS METHOD COMMON INTERFACE 24600000 *********************************************************************** 24601000 SPACE 1 24650000 ORG IHADCB+16 24700000 DCBRELB DS 0F - SAME AS DCBREL BELOW 24750000 DCBKEYLE DS FL1 - KEY LENGTH OF DATA SET 24800000 DCBDEVT DS 0C - DEVICE TYPE 24850000 DCBDVTRM EQU X'4F' - TERMINAL. (DD CONTAINS TERM=TS) 24900000 DCBREL DS FL3 - NUMBER OF RELATIVE TRACKS OR BLOCKS IN 24950000 * THIS DATA SET (BDAM) 25000000 DCBBUFCB DS 0A - ADDRESS OF BUFFER POOL CONTROL BLOCK 25050000 DCBBUFNO DS FL1 - NUMBER OF BUFFERS REQUIRED FOR THIS DATA 25100000 * SET. MAY RANGE FROM 0 TO 255. IF 25150000 * UNBLOCKED SPANNED RECORDS ARE USED, 25200000 * NUMBER OF SEGMENT WORK AREAS REQUIRED 25250000 * FOR THIS DATA SET. 25300000 DCBBUFCA DS AL3 - ADDRESS OF BUFFER POOL CONTROL BLOCK 25350000 DCBBUFL DS H - LENGTH OF BUFFER. MAY RANGE FROM 0 TO 25400000 * 32,767. 25450000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 25500000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 25550000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 25600000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 25650000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 25700000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 25750000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 25900000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 25950000 * LOCATION DEPENDENT INFORMATION 26000000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 26050000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 26100000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 26150000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 26200000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 26250000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 26260000 DCBIOBAD DS 0A - ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000 * USED OR FOR 1419/1275 26350000 DCBODEB DS 0A - ADDRESS OF OLD DEB 26400000 DCBLNP DS 0FL1 - 3525 PRINTER LINE POSITION COUNTER 26450000 DCBQSLM DS BL1 - QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000 * INDICATOR BYTE FOR UPDAT PROCESSING OF 26550000 * SPANNED RECORDS 26600000 DCB1DVDS EQU DCBBIT0 - ONLY ONE DEVICE IS ALLOCATED TO THIS 26650000 * DATA SET 26700000 DCBUPDCM EQU DCBBIT1 - UPDATE COMPLETE, FREE OLD DEB 26750000 DCBUPDBT EQU DCBBIT2+DCBBIT3 - UPDATE BITS 26800000 DCBUPDT EQU DCBBIT2 - UPDATE TO TAKE PLACE 26850000 DCBNUPD EQU DCBBIT2+DCBBIT3 - NO UPDATE TO TAKE PLACE 26900000 DCBSVDEB EQU DCBBIT3 - OLD DEB ADDRESS MUST BE SAVED 26950000 DCBIOBAA DS 0AL3 - SAME AS DCBIOBAD ABOVE 27000000 DCBODEBA DS AL3 - ADDRESS OF OLD DEB 27050000 ORG IHADCB+28 27100000 DCBSVCXL DS 0A - SAME AS DCBSVCXA BELOW 27150000 DS X - RESERVED 27200000 DCBSVCXA DS AL3 - POINTER TO EXIT LIST OF JES 27250000 * C.I. INTERFACE CONTROL SVC 27300000 SPACE 1 27350000 *********************************************************************** 27351000 * FOUNDATION EXTENSION 27400000 *********************************************************************** 27401000 SPACE 1 27450000 DCBEODAD DS 0A - SAME AS DCBEODA BELOW 27500000 DCBHIARC DS 0BL1 - HIERARCHY BITS 27550000 DCBBFTEK DS 0BL1 - BUFFERING TECHNIQUE BITS 27600000 DCBBFALN DS BL1 - BUFFER ALIGNMENT BITS 27650000 DCBH1 EQU DCBBIT0 - HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO 27700000 DCBBFT EQU DCBBIT1+DCBBIT2+DCBBIT3 BUFFERING TECHNIQUE 27750000 DCBBFTA EQU DCBBIT1+DCBBIT2 - QSAM LOCATE MODE PROCESSING OF SPANNED 27800000 * RECORDS - OPEN IS TO CONSTRUCT A RECORD 27850000 * AREA IF IT AUTOMATICALLY CONSTRUCTS 27900000 * BUFFERS 27950000 DCBBFTR EQU DCBBIT2 - FOR BSAM CREATE BDAM PROCESSING OF 28000000 * UNBLOCKED SPANNED RECORDS - SOFTWARE 28050000 * TRACK OVERFLOW. FOR BSAM INPUT 28100000 * PROCESSING OF UNBLOCKED SPANNED RECORDS 28150000 * WITH KEYS - RECORD OFFSET PROCESSING. 28200000 DCBBFTS EQU DCBBIT1 - SIMPLE BUFFERING - BIT 3 IS ZERO 28250000 DCBBFTKR EQU DCBBIT2 - UNBLOCKED SPANNED RECORDS - SOFTWARE 28300000 * TRACK OVERFLOW (BDAM) 28350000 DCBBFTE EQU DCBBIT3 - EXCHANGE BUFFERING - BIT 1 IS ZERO 28400000 DCBBFTKD EQU DCBBIT4 - DYNAMIC BUFFERING (BTAM) 28450000 DCBH0 EQU DCBBIT5 - HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO 28500000 DCBBFA EQU DCBBIT6+DCBBIT7 - BUFFER ALIGNMENT 28550000 DCBBFAD EQU DCBBIT6 - DOUBLEWORD BOUNDARY 28600000 DCBBFAF1 EQU DCBBIT7 - FULLWORD NOT A DOUBLEWORD BOUNDARY, 28650000 * CODED IN DCB MACRO INSTRUCTION 28700000 DCBBFAF2 EQU DCBBIT6+DCBBIT7 - FULLWORD NOT A DOUBLEWORD BOUNDARY, 28750000 * CODED IN DCB MACRO INSTRUCTION 28800000 DCBEODA DS AL3 - ADDRESS OF A USER-PROVIDED ROUTINE TO 28850000 * HANDLE END-OF-DATA CONDITIONS 28900000 DCBEXLST DS 0A - ADDRESS OF USER-PROVIDED LIST OF EXITS 28950000 DCBRECFM DS BL1 - RECORD FORMAT 29000000 DCBRECLA EQU DCBBIT0+DCBBIT1+DCBBIT2 RECORD LENGTH INDICATOR - ASCII 29050000 DCBRECD EQU DCBBIT2 - ASCII VARIABLE RECORD LENGTH 29100000 DCBRECL EQU DCBBIT0+DCBBIT1 - RECORD LENGTH INDICATOR 29150000 DCBRECF EQU DCBBIT0 - FIXED RECORD LENGTH 29200000 DCBRECV EQU DCBBIT1 - VARIABLE RECORD LENGTH 29250000 DCBRECU EQU DCBBIT0+DCBBIT1 - UNDEFINED RECORD LENGTH 29300000 DCBRECTO EQU DCBBIT2 - TRACK OVERFLOW 29350000 DCBRECBR EQU DCBBIT3 - BLOCKED RECORDS 29400000 DCBRECSB EQU DCBBIT4 - FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450000 * BLOCKS. FOR VARIABLE LENGTH RECORD 29500000 * FORMAT - SPANNED RECORDS 29550000 DCBRECCC EQU DCBBIT5+DCBBIT6 - CONTROL CHARACTER INDICATOR 29600000 DCBRECCA EQU DCBBIT5 - ASA CONTROL CHARACTER 29650000 DCBRECCM EQU DCBBIT6 - MACHINE CONTROL CHARACTER 29700000 DCBRECC EQU X'00' - NO CONTROL CHARACTER 29750000 DCBRECKL EQU DCBBIT7 - KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB 29800000 * MACRO INSTRUCTION 29850000 DCBEXLSA DS AL3 - ADDRESS OF USER-PROVIDED LIST OF EXITS 29900000 SPACE 1 29950000 .C5 AIF (NOT &DSORGBX).C5B 30000000 AIF (&DSORGQX AND (&DSORGIS OR &DSORGDA OR &DSORGQS OR *30050000 &DSORGBS OR &DSORGXE)).C5A 30100000 *********************************************************************** 30101000 * BTAM LINE GROUP INTERFACE 30150000 *********************************************************************** 30151000 SPACE 1 30200000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *30250000 &DSORGXE).C5A 30300000 ORG IHADCB+20 30350000 DCBBUFCB DS 0A - ADDRESS OF BUFFER POOL CONTROL BLOCK 30400000 DCBBUFNO DS FL1 - NUMBER OF BUFFERS OBTAINED BY OPEN 30450000 DCBBUFCA DS AL3 - ADDRESS OF BUFFER POOL CONTROL BLOCK 30500000 DCBBUFL DS H - BUFFER LENGTH 30550000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 30600000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 30650000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 30700000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 30750000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 30800000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 30850000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 31000000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 31050000 * LOCATION DEPENDENT INFORMATION 31100000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 31150000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 31200000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 31250000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 31300000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 31350000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 31360000 DCBIOBAD DS 0A - BASE FOR ADDRESSING IOB'S (BASE = ADDRESS 31400000 * OF FIRST IOB MINUS LENGTH OF AN IOB) 31450000 DS FL1 - DCBDEVTP - INDEX TO DEVICE ENTRY IN THE 31500000 * DEVICE I/O DIRECTORY 31550000 DCBIOBAA DS AL3 - SAME AS DCBIOBAD ABOVE 31600000 DCBHIARC DS 0BL1 - HIERARCHY FLAG BITS 31650000 DCBBFTEK DS BL1 - BUFFERING TECHNIQUE FLAG BITS 31700000 DCBH1 EQU DCBBIT0 - HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO 31750000 DCBBFT EQU DCBBIT1+DCBBIT2+DCBBIT3 BUFFERING TECHNIQUE 31800000 DCBBFTA EQU DCBBIT1+DCBBIT2 - QSAM LOCATE MODE PROCESSING OF SPANNED 31850000 * RECORDS - OPEN IS TO CONSTRUCT A RECORD 31900000 * AREA IF IT AUTOMATICALLY CONSTRUCTS 31950000 * BUFFERS 32000000 DCBBFTR EQU DCBBIT2 - FOR BSAM CREATE BDAM PROCESSING OF 32050000 * UNBLOCKED SPANNED RECORDS - SOFTWARE 32100000 * TRACK OVERFLOW. FOR BSAM INPUT 32150000 * PROCESSING OF UNBLOCKED SPANNED RECORDS 32200000 DCBBFTS EQU DCBBIT1 - SIMPLE BUFFERING - BIT 3 IS ZERO 32250000 DCBBFTKR EQU DCBBIT2 - UNBLOCKED SPANNED RECORDS - SOFTWARE 32300000 * TRACK OVERFLOW (BDAM) 32350000 DCBBFTE EQU DCBBIT3 - EXCHANGE BUFFERING - BIT 1 IS ZERO 32400000 DCBBFTKD EQU DCBBIT4 - DYNAMIC BUFFERING (BTAM) 32450000 DCBH0 EQU DCBBIT5 - HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO 32500000 DCBBFA EQU DCBBIT6+DCBBIT7 - BUFFER ALIGNMENT 32550000 DCBBFAD EQU DCBBIT6 - DOUBLEWORD BOUNDARY 32600000 DCBBFAF1 EQU DCBBIT7 - FULLWORD NOT A DOUBLEWORD BOUNDARY, 32650000 * CODED IN DCB MACRO INSTRUCTION 32700000 DCBBFAF2 EQU DCBBIT6+DCBBIT7 - FULLWORD NOT A DOUBLEWORD BOUNDARY, 32750000 * CODED IN DCB MACRO INSTRUCTION 32800000 DS BL1 - DCBERROP - ERROR RECOVERY PROCEDURE BITS 32850000 DS FL1 - DCBBUFCT - MAX NUMBER OF READ BUFFERS 32900000 DS X - RESERVED 32950000 DCBEXLST DS 0A - ADDRESS OF USER-PROVIDED EXIT LIST 33000000 DS FL1 - DCBEIOBX - SIZE OF IOB 33050000 DCBEXLSA DS AL3 - ADDRESS OF USER-PROVIDED EXIT LIST 33100000 SPACE 1 33150000 .C5A ANOP 33200000 ORG IHADCB+33 33250000 DCBERROP DS BL1 - ERROR RECOVERY PROCEDURE BITS 33300000 DCBERPT EQU DCBBIT3 - ON-LINE TEST FACILITIES TO BE USED 33350000 DCBERPC EQU DCBBIT4 - THRESHOLD AND CUMULATIVE ERROR COUNTS TO 33400000 * BE MAINTAINED 33450000 DCBERPW EQU DCBBIT5 - TEXT-WRITE ERRORS TO BE RETRIED 33500000 DCBERPR EQU DCBBIT6 - TEXT-READ ERRORS TO BE RETRIED 33550000 DCBERPN EQU DCBBIT7 - IF ZERO, BASIC ERP TO BE FOLLOWED --- 33600000 * IF ONE, NO ERP TO BE FOLLOWED 33650000 DCBBUFCT DS FL1 - CONTAINS MAXIMUM NUMBER OF BUFFERS TO BE 33700000 * OBTAINED BY BTAM FOR READ OPERATION 33750000 * (DYNAMIC BUFFERING ONLY) 33800000 SPACE 1 33850000 AIF (&DSORGQX OR &DSORGTX).C5B 33900000 ORG IHADCB+28 33950000 DCBDEVTP DS FL1 - INDEX TO DEVICE ENTRY IN THE DEVICE I/O 34000000 * DIRECTORY 34050000 SPACE 1 34100000 ORG IHADCB+36 34150000 DCBEIOBX DS FL1 - SIZE OF EXTENDED IOB. SIZE OF AN IOB 34200000 * ASSOCIATED WITH THIS DCB 34250000 SPACE 1 34300000 .C5B AIF (NOT &DSORGTX).C5B1 34350000 *********************************************************************** 34351000 * TCAM LINE GROUP INTERFACE 34400000 *********************************************************************** 34401000 SPACE 1 34450000 ORG IHADCB+20 34500000 DCBMHA DS 0A - SAME AS DCBMH BELOW 34550000 DCBBUFIN DS 0BL1 - NUMBER OF INPUT BUFFERS (BITS 0-3) 34600000 DCBBUFOU DS BL1 - NUMBER OF OUTPUT BUFFERS (BITS 4-7) 34650000 DCBBFIN EQU DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3 NUMBER OF BUFFERS 34700000 * ASSIGNED INITIALLY FOR RECEIVING 34750000 * OPERATIONS, FOR EACH LINE IN LINE GROUP 34800000 DCBBFOUT EQU DCBBIT4+DCBBIT5+DCBBIT6+DCBBIT7 NUMBER OF BUFFERS 34850000 * ASSIGNED INITIALLY FOR SENDING 34900000 * OPERATIONS, FOR EACH LINE IN LINE GROUP 34950000 DCBMH DS AL3 - ADDRESS OF MESSAGE HANDLER FOR THIS LINE 35000000 * GROUP 35050000 DS FL1 - DCBINTVL - NUMBER OF SECONDS OF 35100000 * INVITATION DELAY 35150000 DCBPCI DS BL1 - PROGRAM CONTROLLED INTERRUPTION HANDLING 35200000 DCBPCIX1 EQU DCBBIT0 - PCI=(X,) 35210000 DCBPCIX2 EQU DCBBIT1 - PCI=(,X) 35220000 DCBPCIA1 EQU DCBBIT2 - PCI=(A,) 35250000 DCBPCIA2 EQU DCBBIT3 - PCI=(,A) 35300000 DCBPCIN1 EQU DCBBIT4 - PCI=(N,) 35350000 DCBPCIN2 EQU DCBBIT5 - PCI=(,N) 35400000 DCBPCIR1 EQU DCBBIT6 - PCI=(R,) 35450000 DCBPCIR2 EQU DCBBIT7 - PCI=(,R) 35500000 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQX OR *35550000 &DSORGQS OR &DSORGBS OR &DSORGXE).C5B2 35600000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 35650000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 35700000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 35750000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 35800000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 35850000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 35900000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 36050000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 36100000 * LOCATION DEPENDENT INFORMATION 36150000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 36200000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 36250000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 36300000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 36350000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 36400000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 36410000 AGO .C5B3 36450000 .C5B2 DS 0BL2 - DCBDSORG - DATA SET ORGANIZATION 36550000 DS BL1 - DCBDSRG1 - FIRST BYTE OF DCBDSORG 36600000 DS BL1 - DCBDSRG2 - SECOND BYTE OF DCBDSORG 36650000 .C5B3 ANOP 36700000 DCBBUFMA DS FL1 - MAXIMUM NUMBER OF BUFFERS TO BE USED FOR 36750000 * DATA TRANSFER FOR EACH LINE IN THIS GROUP 36800000 SPACE 1 36850000 .C5B1 AIF (NOT (&DSORGQX OR &DSORGTX)).C6 36900000 *********************************************************************** 36901000 * QTAM LINE GROUP INTERFACE 36950000 *********************************************************************** 36951000 SPACE 1 37000000 ORG IHADCB+20 37050000 DCBCLPS DS 0A - ADDRESS OF LINE PROCEDURE SPECIFICATION 37100000 * ROUTINE 37150000 DCBBUFRQ DS FL1 - NUMBER OF BUFFERS REQUESTED FOR A READ 37200000 * OR WRITE OPERATION 37250000 DCBCLPSA DS AL3 - SAME AS DCBCLPS ABOVE 37300000 DCBINTVL DS FL1 - NUMBER OF SECONDS OF INTENTIONAL DELAY 37350000 * BETWEEN PASSES THROUGH A POLLING LIST 37400000 * FOR NONSWITCHED LINES 37450000 DS X - RESERVED 37500000 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQS OR *37550000 &DSORGBS OR &DSORGXE OR &DSORGTX).C5C 37600000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 37650000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 37700000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 37750000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 37800000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 37850000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 37900000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 38050000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 38100000 * LOCATION DEPENDENT INFORMATION 38150000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 38200000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 38250000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 38300000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 38350000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 38400000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 38410000 DCBIOBAD DS 0A - ADDRESS OF FIRST IOB 38450000 DCBDEVTP DS AL1 - DEVICE TYPE POINTER 38500000 DCBIOBAA DS AL3 - ADDRESS OF FIRST IOB 38550000 DCBLCBAD DS 0A - BASE FOR ADDRESSING LCB'S (BASE = ADDRESS 38600000 * OF FIRST LCB MINUS LENGTH OF ONE LCB) 38650000 DCBCPRI DS BL1 - COMMUNICATION PRIORITY BITS 38700000 DCBCPR EQU DCBBIT5 - RECEIVING HAS PRIORITY 38750000 DCBCPE EQU DCBBIT6 - RECEIVING AND SENDING HAVE EQUAL PRIORITY 38800000 DCBCPS EQU DCBBIT7 - SENDING HAS PRIORITY 38850000 DCBLCBA DS AL3 - SAME AS DCBLCBAD ABOVE 38900000 DCBEXLST DS 0A - ADDRESS OF EXIT LIST 38950000 DCBEIOBX DS FL1 - EXTENDED IOB INDEX. SIZE OF LCB. 39000000 DCBEXLSA DS AL3 - ADDRESS OF EXIT LIST 39050000 SPACE 1 39100000 AGO .C6 39150000 .C5C DS 0BL2 - DCBDSORG - DATA SET ORGANIZATION 39250000 DS BL1 - DCBDSRG1 - FIRST BYTE OF DCBDSORG 39300000 DS BL1 - DCBDSRG2 - SECOND BYTE OF DCBDSORG 39350000 AIF (NOT &DSORGTX).C5C1 39400000 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQS OR *39450000 &DSORGBS OR &DSORGXE).C5C1 @ZA02213 39500000 DCBIOBAD DS 0A - ADDRESS OF FIRST IOB 39550000 DCBDEVTP DS AL1 - DEVICE TYPE POINTER 39600000 DCBIOBAA DS AL3 - ADDRESS OF FIRST IOB 39650000 SPACE 1 39700000 AGO .C5C2 39750000 .C5C1 ANOP 39800000 DCBDEVTP DS AL1 - DEVICE TYPE POINTER 39850000 DS AL3 - DCBIOBAA - ADDRESS OF FIRST IOB 39900000 SPACE 1 39950000 .C5C2 AIF (NOT &DSORGTX).C5D 40000000 ORG IHADCB+32 40050000 DCBTRANA DS 0A - ADDRESS OF TRANSLATION TABLE 40100000 DS BL1 - DCBCPRI - COMMUNICATION PRIORITY BITS 40150000 DCBTRANS DS AL3 - ADDRESS OF TRANSLATION TABLE 40200000 SPACE 1 40250000 .C5D ORG IHADCB+32 40350000 DCBLCBAD DS 0A - BASE FOR ADDRESSING LCB'S (BASE = ADDRESS 40400000 * OF FIRST LCB MINUS LENGTH OF ONE LCB) 40450000 DCBCPRI DS BL1 - COMMUNICATION PRIORITY BITS 40500000 DCBCPR EQU DCBBIT5 - RECEIVING HAS PRIORITY 40550000 DCBCPE EQU DCBBIT6 - RECEIVING AND SENDING HAVE EQUAL PRIORITY 40600000 DCBCPS EQU DCBBIT7 - SENDING HAS PRIORITY 40650000 DCBLCBA DS AL3 - SAME AS DCBLCBAD ABOVE 40700000 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQS OR *40750000 &DSORGBS OR &DSORGXE).C5E 40800000 DCBEXLST DS 0A - ADDRESS OF EXIT LIST 40850000 DCBEIOBX DS FL1 - EXTENDED IOB INDEX. SIZE OF LCB 40900000 DCBEXLSA DS AL3 - ADDRESS OF EXIT LIST 40950000 SPACE 1 41000000 AGO .C6 41050000 .C5E ANOP 41100000 DCBEIOBX DS FL1 - EXTENDED IOB INDEX. SIZE OF LCB. 41150000 DS AL3 - DCBEXLSA - ADDRESS OF EXIT LIST 41200000 SPACE 1 41250000 .C6 AIF (NOT (&DSORGTQ)).C7 @ZA02213 41300000 *********************************************************************** 41301000 * TCAM MESSAGE QUEUE INTERFACE 41350000 *********************************************************************** 41351000 SPACE 1 41400000 ORG IHADCB+20 41450000 DCBTRMAD DS 0A - ADDRESS OF USER-PROVIDED AREA IN WHICH 41500000 * THE TERMINAL NAME IS STORED 41550000 AIF (&DSORGQX OR &DSORGTX).C6A 41600000 DCBBUFRQ DS FL1 - NUMBER OF BUFFERS TO BE FILLED FROM THE 41650000 * DIRECT ACCESS QUEUE 41700000 AGO .C6B 41750000 .C6A DS FL1 - DCBBUFRQ - NUMBER OF BUFFERS TO BE FILLED 41850000 * FROM THE DIRECT ACCESS QUEUE 41900000 .C6B ANOP 41950000 DCBTRMA DS AL3 - SAME AS DCBTRMAD ABOVE 42000000 DCBSOWA DS H - SIZE OF USER-PROVIDED WORK AREA 42050000 AIF (&DSORGIS OR &DSORGBX OR &DSORGDA OR &DSORGQX OR *42100000 &DSORGQS OR &DSORGBS OR &DSORGXE OR &DSORGTX).C6C 42150000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 42200000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 42250000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 42300000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 42350000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 42400000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 42450000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 42600000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 42650000 * LOCATION DEPENDENT INFORMATION 42700000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 42750000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 42800000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 42850000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 42900000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 42950000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 42960000 DCBIOBAD DS 0A - BEFORE OPEN - ADDRESS OF AVT --- 43000000 * AFTER OPEN - BASE FOR ADDRESSING IOB'S 43050000 * (BASE = ADDRESS OF FIRST IOB MINUS LENGTH 43100000 * OF ONE IOB) 43150000 DS FL1 - DCBBUFMA - MAXIMUM NUMBER OF BUFFERS TO 43200000 * BE USED FOR DATA TRANSFER FOR EACH LINE 43250000 * IN THIS GROUP 43300000 DCBIOBAA DS AL3 - SAME AS DCBIOBAD ABOVE 43350000 AGO .C6D 43400000 .C6C DS 0BL2 - DCBDSORG - DATA SET ORGANIZATION 43500000 DS BL1 - DCBDSRG1 - FIRST BYTE OF DCBDSORG 43550000 DS BL1 - DCBDSRG2 - SECOND BYTE OF DCBDSORG 43600000 DS A - DCBIOBAD - BASE FOR ADDRESSING IOB'S 43650000 .C6D SPACE 1 43750000 ORG IHADCB+28 43800000 DCBSEGAD DS A - ADDRESS OF CURRENT SEGMENT 43850000 AIF (NOT &DSORGTQ).C6D1 43900000 DCBTHRES DS FL1 - FOR NON-REUSABLE MESSAGE QUEUE RECORDS, 43950000 * PERCENTAGE OF NON-REUSABLE DISK MESSAGE 44000000 * QUEUE RECORDS TO BE USED BEFORE A FLUSH 44050000 * CLOSEDOWN OF THE SYSTEM IS INITIATED. 44100000 * FOR REUSABLE MESSAGE QUEUE RECORDS AND 44150000 * CHECKPOINT RECORDS, THIS FIELD IS 44200000 * RESERVED 44250000 AGO .C6D2 44300000 .C6D1 DS X - RESERVED 44400000 .C6D2 SPACE 1 44500000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *44550000 &DSORGXE).C7 44600000 ORG IHADCB+32 44650000 DCBEODAD DS A - ADDRESS OF USER-PROVIDED ROUTINE 44700000 AIF (&DSORGBX OR &DSORGQX OR &DSORGTX).C6E 44750000 DCBEXLST DS 0A - ADDRESS OF EXIT LIST 44800000 AGO .C6F 44850000 .C6E DS 0A - DCBEXLST - ADDRESS OF EXIT LIST 44950000 .C6F ANOP 45000000 DCBRECFM DS C - RECORD FORMAT 45050000 DCBRECR EQU X'02' - RECORD 45100000 DCBRECG EQU X'04' - MESSAGE 45150000 DCBRECS EQU X'08' - SEGMENT 45200000 AIF (&DSORGBX OR &DSORGQX OR &DSORGTX).C6G 45250000 DCBEXLSA DS AL3 - ADDRESS OF EXIT LIST 45300000 AGO .C7 45350000 .C6G DS AL3 - DCBEXLSA - ADDRESS OF EXIT LIST 45450000 .C7 SPACE 1 45550000 .C8 AIF (NOT &DSORGTR).C8A7 S22024 46970000 ORG IHADCB+20 46980000 DCBDUMPD DS 0A - FULL WORD LABEL 46990000 DCBUNITN DS BL1 - NUMBER OF UNITS FOR READ FOLLOWING 46992000 * ATTENTION. 46994000 DCBDUMPA DS AL3 - ADDRESS OF THE DCB USED FOR 46996000 * DUMPING THE 3705 46998000 DS AL1 - RESERVED 46998400 DCBTRSTA DS BL1 - STATUS BYTE. WHEN SET TO 1, 46998800 * THE INDICATORS HAVE THE SPECIFIED 46999200 * MEANING 46999600 DCBAUTOI EQU DCBBIT0 - IPLAUTO=YES WAS SPECIFIED IN THE 46999700 * DCB 46999800 DCBAUTOD EQU DCBBIT1 - DMPAUTO=YES WAS SPECIFIED IN THE 46999900 * DCB MACRO. 47016600 DCBINITL EQU DCBBIT2 - BRINGUP=YES WAS SPECIFIED IN THE 47026600 * DCB MACRO. 47028600 DCBRSTRT EQU DCBBIT3 - RESTART IS IN PROCESS 47030600 DCBIPLED EQU DCBBIT4 - 3705 HAS BEEN IPL'D. 47032600 DCBBAKUP EQU DCBBIT5 - BACKUP=YES WAS SPECIFIED IN THE 47033000 * DCB MACRO. 47033100 DCBNIDLE EQU DCBBIT6 - IDLE=NO WAS SPECIFIED IN THE OPEN 47033200 * MACRO OR WAS IMPLIED BY DEFAULT 47038800 DCBCHNGL EQU DCBBIT7 - IPL TEXT HAS BEEN CHANGED 47039200 AIF (NOT &DSORGTR OR (&DSORGIS OR &DSORGBX OR *47040800 &DSORGDA OR &DSORGQX OR &DSORGQS OR &DSORGBS OR *47042800 &DSORGXE OR &DSORGTQ OR &DSORGTX)).C8A0 @ZA02213 47043200 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 47043600 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 47044000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 47044100 DCBDSGTR EQU DCBBIT5 - DSORG=TR SPECIFIED 47044200 DCBIOBAD DS A - ADDRESS OF IOB 47044300 AGO .C8A1 S22024 47058200 .C8A0 DS H - DCBDSORG 47070200 DS A - DCBIOBAD 47070600 .C8A1 ANOP S22024 47071000 DCBRNCKD DS 0A - FULL WORD LABEL 47071400 DS BL1 - RESERVED 47071800 DCBRNCKA DS AL3 - ADDRESS OF THE DCB USED TO RETAIN 47071900 * INCIDENT CHECKPOINT RECORDS 47072000 * GENERATED BY THE 3705. 47072100 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *47076700 &DSORGXE OR &DSORGBX OR &DSORGQX OR &DSORGTX OR *47078700 &DSORGTQ).C8A2 @ZA02213 47080700 DCBEXLST DS 0A - FULL WORD LABEL FOR EXLIST 47081100 AGO .C8A3 S22024 47081200 .C8A2 DS 0A - DCBEXLST 47081400 .C8A3 AIF (&DSORGBX OR &DSORGQX OR &DSORGTX).C8A4 S22024 47088000 DCBEIOBX DS BL1 - SIZE, IN BYTES, OF THE IOB. 47090400 AGO .C8A5 S22024 47090500 .C8A4 DS BL1 - DCBEIOBX 47090700 .C8A5 AIF (&DSORGBX OR &DSORGQX OR &DSORGTX OR &DSORGIS OR *47112500 &DSORGDA OR &DSORGQS OR &DSORGBS OR &DSORGXE OR *47114500 &DSORGTQ).C8A6 @ZA02213 47116500 DCBEXLSA DS AL3 - ADDRESS OF THE EXIT LIST. 47118400 SPACE 1 47119400 AGO .C8A7 S22024 47120400 .C8A6 DS AL3 - DCBEXLSA 47126300 SPACE 1 47127300 .C8A7 AIF (&DSORGLR AND NOT (&DSORGIS OR &DSORGBX OR &DSORGDA OR *47132300 &DSORGQX OR &DSORGXA OR &DSORGQS OR &DSORGBS OR *47134300 &DSORGXE OR &DSORGTR)).CF @ZA02213 47138200 *********************************************************************** 47139200 * FOUNDATION BEFORE OPEN 47150000 *********************************************************************** 47151000 SPACE 1 47200000 ORG IHADCB+40 47250000 DCBDDNAM DS CL8 - NAME ON THE DD STATEMENT WHICH DEFINES 47300000 * THE DATA SET ASSOCIATED WITH THIS DCB 47350000 DCBOFLGS DS BL1 - FLAGS USED BY OPEN ROUTINE 47400000 DCBOFLWR EQU DCBBIT0 - IF ZERO, LAST I/O OPERATION WAS READ OR 47450000 * POINT. IF ONE, LAST I/O OPERATION WAS 47500000 * WRITE. 47550000 DCBOFIOD EQU DCBBIT0 - DATA SET IS BEING OPENED FOR INPUT OR 47600000 * OUTPUT (BDAM) 47650000 DCBOFLRB EQU DCBBIT1 - LAST I/O OPERATION WAS IN READ BACKWARD 47700000 * MODE 47750000 DCBOFEOV EQU DCBBIT2 - SET TO 1 BY EOV WHEN IT CALLS CLOSE 47800000 * ROUTINE FOR CONCATENATION OF DATA SETS 47850000 * WITH UNLIKE ATTRIBUTES 47900000 DCBOFOPN EQU DCBBIT3 - AN OPEN HAS BEEN SUCCESSFULLY COMPLETED 47950000 DCBOFPPC EQU DCBBIT4 - SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000000 * CONCATENATION OF UNLIKE ATTRIBUTES 48050000 DCBOFTM EQU DCBBIT5 - TAPE MARK HAS BEEN READ 48100000 DCBOFUEX EQU DCBBIT6 - SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN 48150000 * THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000 * ON RETURN FROM USER EXIT TO THE I/O 48250000 * SUPPORT FUNCTION WHICH TOOK THE EXIT. 48300000 DCBOFIOF EQU DCBBIT7 - SET TO 1 BY AN I/O SUPPORT FUNCTION IF 48350000 * DCB IS TO BE PROCESSED BY THAT FUNCTION 48400000 DCBIFLG DS BL1 - FLAGS USED BY IOS IN COMMUNICATING ERROR 48450000 * CONDITIONS AND IN DETERMINING CORRECTIVE 48500000 * PROCEDURES 48550000 DCBIBEC EQU DCBBIT0+DCBBIT1 - ERROR CORRECTION INDICATOR 48600000 DCBIFNEP EQU X'00' - NOT IN ERROR PROCEDURE 48650000 DCBEX EQU DCBBIT1 - ERROR CORRECTION OR IOS PAGE FIX IN 48700000 * PROCESS 48750000 DCBIFPEC EQU DCBBIT0+DCBBIT1 - PERMANENT ERROR CORRECTION 48800000 DCBIBPCT EQU DCBBIT2+DCBBIT3 - PRINTER CARRIAGE TAPE PUNCH INDICATOR 48850000 DCBIFC9 EQU DCBBIT2 - CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH 48900000 * SENSED 48950000 DCBIFC12 EQU DCBBIT3 - CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH 49000000 * SENSED 49050000 DCBIBIOE EQU DCBBIT4+DCBBIT5 - IOS ERROR ROUTINE USE INDICATOR 49100000 DCBIFER EQU X'00' - ALWAYS USE I/O SUPERVISOR ERROR ROUTINE 49150000 DCBIFNE1 EQU DCBBIT5 - NEVER USE I/O SUPERVISOR ERROR ROUTINE 49200000 DCBIFTIM EQU DCBBIT5 - TEST IOS MASK (IMSK) FOR ERROR PROCEDURE 49250000 * (BTAM) 49300000 DCBIFNE2 EQU DCBBIT4 - NEVER USE I/O SUPERVISOR ERROR ROUTINE 49350000 DCBIFNE3 EQU DCBBIT4+DCBBIT5 - NEVER USE I/O SUPERVISOR ERROR ROUTINE 49400000 DCBMACR DS 0BL2 - MACRO INSTRUCTION REFERENCE 49450000 DCBMACR1 DS BL1 - FIRST BYTE OF DCBMACR 49500000 DCBMRECP EQU DCBBIT0 - EXECUTE CHANNEL PROGRAM (EXCP) --- 49550000 * ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM, 49600000 * QISAM, BDAM) --- RESERVED (QTAM, BTAM) 49650000 DCBMRFE EQU DCBBIT1 - FOUNDATION EXTENSION IS PRESENT (EXCP) 49700000 DCBMRGET EQU DCBBIT1 - GET (QSAM, QISAM, TCAM) 49750000 DCBMRPTQ EQU DCBBIT1 - PUT FOR MESSAGE GROUP (QTAM) --- 49800000 * ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000 * RESERVED (BTAM) 49900000 DCBMRAPG EQU DCBBIT2 - APPENDAGES ARE REQUIRED (EXCP) 49950000 DCBMRRD EQU DCBBIT2 - READ (BSAM, BPAM, BISAM, BDAM, BTAM) 50000000 DCBMRWRQ EQU DCBBIT2 - WRITE FOR LINE GROUP (QTAM) --- 50050000 * ALWAYS ZERO (QSAM, QISAM) 50100000 DCBMRCI EQU DCBBIT3 - COMMON INTERFACE (EXCP) 50150000 DCBMRMVG EQU DCBBIT3 - MOVE MODE OF GET (QSAM, QISAM) 50200000 DCBMRRDK EQU DCBBIT3 - KEY SEGMENT WITH READ (BDAM) --- 50250000 * ALWAYS ZERO (BISAM) --- 50300000 * RESERVED (BSAM, BPAM, QTAM, BTAM) 50350000 DCBMRLCG EQU DCBBIT4 - LOCATE MODE OF GET (QSAM, QISAM) 50400000 DCBMRRDI EQU DCBBIT4 - ID ARGUMENT WITH READ (BDAM) --- 50450000 * ALWAYS ZERO (BISAM) --- 50500000 * RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM) 50550000 DCBMRABC EQU DCBBIT5 - USER'S PROGRAM MAINTAINS ACCURATE BLOCK 50600000 * COUNT (EXCP) 50650000 DCBMRPT1 EQU DCBBIT5 - POINT (WHICH IMPLIES NOTE) (BSAM, BPAM) 50700000 DCBMRSBG EQU DCBBIT5 - SUBSTITUTE MODE OF GET (QSAM) 50750000 DCBMRDBF EQU DCBBIT5 - DYNAMIC BUFFERING (BISAM, BDAM) --- 50800000 * ALWAYS ZERO (QISAM) --- 50850000 * RESERVED (QTAM, BTAM) 50900000 DCBPGFXA EQU DCBBIT6 - PAGE FIX APPENDAGE IS SPECIFIED (EXCP) 50950000 DCBMRCRL EQU DCBBIT6 - CNTRL (BSAM, QSAM) 51000000 DCBMRCHK EQU DCBBIT6 - CHECK (BISAM) 51050000 DCBMRRDX EQU DCBBIT6 - READ EXCLUSIVE (BDAM) --- 51100000 * RESERVED (BPAM, QISAM, QTAM, BTAM) 51150000 DCBMRDMG EQU DCBBIT7 - DATA MODE OF GET (QSAM) 51200000 DCBMRCK EQU DCBBIT7 - CHECK (BDAM) --- RESERVED (EXCP, BSAM, 51250000 * BPAM, BISAM, QISAM, QTAM, BTAM) 51300000 DCBMACR2 DS BL1 - SECOND BYTE OF DCBMACR 51350000 DCBMRSTL EQU DCBBIT0 - SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400000 * BPAM, BISAM, BDAM) --- 51450000 * RESERVED (EXCP, QTAM, BTAM) 51500000 DCBMRPUT EQU DCBBIT1 - PUT (QSAM, TCAM) - PUT OR PUTX (QISAM) 51550000 DCBMRGTQ EQU DCBBIT1 - GET FOR MESSAGE GROUP (QTAM) --- 51600000 * ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000 * RESERVED (EXCP, BTAM) 51700000 DCBMRWRT EQU DCBBIT2 - WRITE (BSAM, BPAM, BISAM, BDAM, BTAM) 51750000 DCBMRRDQ EQU DCBBIT2 - READ FOR LINE GROUP (QTAM) --- 51800000 * ALWAYS ZERO (QSAM, QISAM) --- 51850000 * RESERVED (EXCP) 51900000 DCBMRMVP EQU DCBBIT3 - MOVE MODE OF PUT (QSAM, QISAM) 51950000 DCBMRWRK EQU DCBBIT3 - KEY SEGMENT WITH WRITE (BDAM) --- 52000000 * ALWAYS ZERO (BISAM) --- 52050000 * RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM) 52100000 DCBMR5WD EQU DCBBIT4 - FIVE-WORD DEVICE INTERFACE (EXCP) 52150000 DCBMRLDM EQU DCBBIT4 - LOAD MODE BSAM (CREATE BDAM DATA SET) 52200000 * (BSAM) 52250000 DCBMRLCP EQU DCBBIT4 - LOCATE MODE OF PUT (QSAM, QISAM) 52300000 DCBMRIDW EQU DCBBIT4 - ID ARGUMENT WITH WRITE (BDAM) --- 52350000 * ALWAYS ZERO (BISAM) --- 52400000 * RESERVED (BPAM, QTAM, BTAM) 52450000 DCBMR4WD EQU DCBBIT5 - FOUR-WORD DEVICE INTERFACE (EXCP) 52500000 DCBMRPT2 EQU DCBBIT5 - POINT (WHICH IMPLIES NOTE) (BSAM, BPAM) 52550000 DCBMRTMD EQU DCBBIT5 - SUBSTITUTE MODE (QSAM) 52600000 DCBMRUIP EQU DCBBIT5 - UPDATE IN PLACE (PUTX) (QISAM) --- 52650000 * ALWAYS ZERO (BISAM) --- 52700000 * RESERVED (BDAM, QTAM, BTAM) 52750000 DCBMR3WD EQU DCBBIT6 - THREE-WORD DEVICE INTERFACE (EXCP) 52800000 DCBMRCTL EQU DCBBIT6 - CNTRL (BSAM, QSAM) 52850000 DCBMRSTK EQU DCBBIT6 - SETL BY KEY (QISAM) 52900000 DCBMRAWR EQU DCBBIT6 - ADD TYPE OF WRITE (BDAM) --- 52950000 * ALWAYS ZERO (BISAM) --- 53000000 * RESERVED (BPAM, QTAM, BTAM) 53050000 DCBMR1WD EQU DCBBIT7 - ONE-WORD DEVICE INTERFACE (EXCP) 53100000 DCBMRSWA EQU DCBBIT7 - USER'S PROGRAM HAS PROVIDED A SEGMENT 53150000 * WORK AREA POOL (BSAM CREATE BDAM, BDAM) 53200000 DCBMRDMD EQU DCBBIT7 - DATA MODE (QSAM) 53250000 DCBMRSTI EQU DCBBIT7 - SETL BY ID (QISAM) --- 53300000 * ALWAYS ZERO (BISAM) --- 53350000 * RESERVED (BPAM, QTAM, BTAM) 53400000 SPACE 1 53450000 *********************************************************************** 53451000 * FOUNDATION AFTER OPEN 53500000 *********************************************************************** 53501000 SPACE 1 53550000 ORG IHADCB+40 53600000 DCBTIOT DS H - OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000 * IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000 * WITH THIS DCB 53750000 DCBMACRF DS 0BL2 - SAME AS DCBMACR BEFORE OPEN 53800000 DCBMACF1 DS BL1 - FIRST BYTE OF DCBMACRF 53850000 DCBMACF2 DS BL1 - SECOND BYTE OF DCBMACRF 53900000 DCBDEBAD DS 0A - ADDRESS OF ASSOCIATED DEB 53950000 DCBIFLGS DS BL1 - SAME AS DCBIFLG BEFORE OPEN 54000000 DCBIFEC EQU DCBBIT0+DCBBIT1 - ERROR CORRECTION INDICATOR 54050000 DCBIFPCT EQU DCBBIT2+DCBBIT3 - PRINTER CARRIAGE TAPE PUNCH INDICATOR 54100000 DCBIFIOE EQU DCBBIT4+DCBBIT5 - IOS ERROR ROUTINE USE INDICATOR 54150000 DCBIFLDT EQU DCBBIT6 - 3800 PRINTER LOST DATA INDICATOR @G38ESMH 54175000 DCBDEBA DS AL3 - ADDRESS OF ASSOCIATED DEB 54200000 SPACE 1 54250000 AIF (NOT (&DSORGBX OR &DSORGDA OR &DSORGQX OR &DSORGBS)).C8A 54300000 ORG IHADCB+48 54350000 DCBREAD DS 0A - ADDRESS OF READ MODULE 54400000 DCBWRITE DS 0A - ADDRESS OF WRITE MODULE @ZA11086 54450000 DCBOFLG DS BL1 SAME AS DCBOFLGS BEFORE OPEN @ZA11086 54460000 DCBREADA DS 0AL3 ADDRESS OF READ MODULE @ZA11086 54470000 DCBWRITA DS AL3 ADDRESS OF WRITE MODULE @ZA11086 54480000 SPACE 1 54500000 .C8A AIF (NOT (&DSORGIS OR &DSORGQX OR &DSORGQS OR *54550000 &DSORGTR)).C8B S22024 54560000 ORG IHADCB+48 54600000 DCBGET DS 0A - ADDRESS OF GET MODULE 54650000 DCBPUT DS 0A - ADDRESS OF PUT MODULE @ZA11086 54700000 DCBOFLG1 DS BL1 SAME AS DCBOFLGS BEFORE OPEN @ZA14562 54710000 DCBGETA DS 0AL3 ADDRESS OF GET MODULE @ZA11086 54720000 DCBPUTA DS AL3 ADDRESS OF PUT MODULE @ZA11086 54730000 SPACE 1 54750000 .C8B AIF (NOT (&DSORGTX OR &DSORGTR)).C8B2 S22024 54850000 *********************************************************************** 54851000 * TCAM LINE GROUP EXTENSION 54900000 * 3705 EXTENSION 54910000 *********************************************************************** 54911000 SPACE 1 54950000 ORG IHADCB+48 55000000 DCBSCTAB DS 0A - ADDRESS OF SPECIAL CHARACTERS TABLE (SCT) 55050000 DS BL1 - DCBOFLGS - FLAGS USED BY OPEN ROUTINE 55100000 DCBSCTAD DS AL3 - ADDRESS OF SPECIAL CHARACTERS TABLE (SCT) 55150000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *55160000 &DSORGTQ OR &DSORGXA).C8B1 ZA00023 55170000 DCBOPTCD DS 0BL1 - OPTION CODE 55180000 .C8B1 ANOP S22024 55190000 DCBILCT DS FL1 - COUNT OF INVITATION LISTS 55200000 DCBUNTCT DS FL1 - BEFORE OPEN - NUMERICAL VALUE OF SCT. 55250000 * AFTER OPEN - COUNT OF UNITS FOR 1 BUFFER. 55300000 DCBBUFSI DS H - SIZE OF ALL BUFFERS USED FOR THIS LINE 55350000 * GROUP 55400000 AIF (NOT &DSORGTX).C8B2 S22024 55410000 DCBRESER DS 0CL4 - NUMBER OF RESERVED BYTES IN BUFFERS 55450000 DCBRESB1 DS FL1 - NUMBER OF BYTES RESERVED IN THE BUFFER 55500000 * RECEIVING FIRST INCOMING SEGMENT OF A 55550000 * MESSAGE 55600000 DCBRESB2 DS FL1 - NUMBER OF BYTES RESERVED IN ALL BUFFERS 55650000 * EXCEPT THE ONE CONTAINING FIRST SEGMENT 55700000 * OF A MESSAGE 55750000 DS XL2 - RESERVED 55800000 SPACE 1 55850000 * THE FOLLOWING 4 BYTES MAY BE REPEATED 'N' TIMES 55900000 DCBINVLI DS 0A - ADDRESS OF INVITATION LIST 55950000 DCBINVCI DS BL1 - TYPE OF COMMUNICATION INTERFACE FOR 2701 56000000 * DATA ADAPTER UNIT 56050000 DCBINVB1 EQU DCBBIT2 - IF ZERO, UNIT (A,) 56100000 * IF ONE, UNIT (B,) 56150000 DCBINVB2 EQU DCBBIT4 - IF ZERO, UNIT (,A) 56200000 * IF ONE, UNIT (,B) 56250000 DCBINVLA DS AL3 - ADDRESS OF INVITATION LIST 56300000 .C8B2 ANOP 56301000 SPACE 1 56350000 AIF (NOT (&DSORGXA)).C8F ZA00023 56450000 *********************************************************************** 56451000 * EXCP WITH APPENDAGES 56500000 *********************************************************************** 56501000 SPACE 1 56550000 ORG IHADCB+52 56600000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *56650000 &DSORGTQ).C8C S22024 56660000 DCBOPTCD DS BL1 - OPTION CODES 56700000 DCBOPTJ EQU DCBBIT7 3800 PRINTER,OPTCD=J @Z40MSRZ 56710000 AGO .C8D 56750000 .C8C DS BL1 - DCBOPTCD - OPTION CODES 56850000 .C8D AIF (&DSORGQS OR &DSORGBS).C8E 56950000 DCBOPTZ EQU DCBBIT5 - MAGNETIC TAPE DEVICES - USE REDUCED ERROR 57000000 * RECOVERY PROCEDURE (EXCP, BSAM, BPAM, 57050000 * QSAM) 57100000 DCBSRCHD EQU DCBBIT5 - USE SEARCH DIRECT, INSTEAD OF SEARCH 57150000 * PREVIOUS, ON RECORD POSITION SENSING 57200000 * DEVICE (EXCP, BSAM, BPAM, QSAM) 57250000 .C8E DS XL7 - RESERVED 57350000 SPACE 1 57400000 *********************************************************************** 57401000 * EXCP APPENDAGE LIST 57500000 *********************************************************************** 57501000 SPACE 1 57550000 ORG IHADCB+60 57600000 DCBEOEA DS CL2 - END OF EXTENT APPENDAGE ID 57650000 DCBPCIA DS CL2 - PROGRAM CONTROLLED INTERRUPTION 57700000 * APPENDAGE ID 57750000 DCBSIOA DS CL2 - START I/O APPENDAGE ID 57800000 DCBCENDA DS CL2 - CHANNEL END APPENDAGE ID 57850000 DCBXENDA DS CL2 - ABNORMAL END APPENDAGE ID 57900000 DS XL2 - RESERVED 57950000 .C8F ANOP ZA00023 57960000 AIF (NOT &DSORGXE).C9 ZA00023 57970000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS OR *57980000 &DSORGTQ OR &DSORGXA OR &DSORGTX OR &DSORGTR).C9 57990000 .* ZA00023 57992000 SPACE 1 57994000 ORG IHADCB+52 57996000 DCBOPTCD DS 0BL1 - OPTION CODE 57998000 .C9 ANOP 57999000 SPACE 1 58000000 AIF (NOT &DSORGIS).CA 58050000 *********************************************************************** 58051000 * BISAM-QISAM INTERFACE 58100000 *********************************************************************** 58101000 SPACE 1 58150000 ORG IHADCB+52 58200000 DCBOPTCD DS BL1 - OPTION CODES 58250000 AIF (&DSORGQS OR &DSORGBS).C9A 58300000 DCBOPTW EQU DCBBIT0 - WRITE VALIDITY CHECK (DASD) 58350000 * (BSAM, BPAM, QSAM, ISAM, BDAM) 58400000 AGO .C9B 58450000 .C9A ANOP 58500000 * BIT0 IS DCBOPTW - SAME AS BSAM 58550000 .C9B ANOP 58600000 DCBOPTUF EQU DCBBIT1 - FULL-TRACK INDEX WRITE 58650000 DCBOPTM EQU DCBBIT2 - MASTER INDEXES 58700000 DCBOPTI EQU DCBBIT3 - INDEPENDENT OVERFLOW AREA 58750000 DCBOPTY EQU DCBBIT4 - CYLINDER OVERFLOW AREA 58800000 DCBOPTL EQU DCBBIT6 - DELETE OPTION 58850000 DCBOPTR EQU DCBBIT7 - REORGANIZATION CRITERIA 58900000 DCBMAC DS BL1 - EXTENSION OF DCBMACRF FIELD FOR ISAM 58950000 DCBMACUR EQU DCBBIT4 - UPDATE FOR READ 59000000 DCBMACUW EQU DCBBIT5 - UPDATE TYPE OF WRITE 59050000 DCBMACAW EQU DCBBIT6 - ADD TYPE OF WRITE 59100000 DCBMACRE EQU DCBBIT7 - READ EXCLUSIVE 59150000 DCBNTM DS FL1 - NUMBER OF TRACKS THAT DETERMINE THE 59200000 * DEVELOPMENT OF A MASTER INDEX 59250000 * MAXIMUM PERMISSABLE VALUE - 99 59300000 DCBCYLOF DS FL1 - NUMBER OF TRACKS TO BE RESERVED ON EACH 59350000 * PRIME DATA CYLINDER FOR RECORDS THAT 59400000 * OVERFLOW FROM OTHER TRACKS ON THAT 59450000 * CYLINDER 59500000 DCBSYNAD DS A - ADDRESS OF USER'S SYNAD ROUTINE 59550000 DCBRKP DS H - RELATIVE POSITION OF FIRST BYTE OF KEY 59600000 * WITHIN EACH LOGICAL RECORD 59650000 DCBBLKSI DS H - BLOCK SIZE 59700000 DCBLPDT DS 0BL8 - FOR RESUME LOAD,THE LAST PRIME DATA 59710000 * TRACK ON THE LAST PRIME DATA CYLINDER 59720000 * IN THE FORM MBBCCHHR. 59730000 DCBMSWA DS A - ADDRESS OF MAIN STORAGE WORK AREA FOR USE 59750000 * BY CONTROL PROGRAM WHEN NEW RECORDS ARE 59800000 * BEING ADDED TO AN EXISTING DATA SET 59850000 DCBSMSI DS H - NUMBER OF BYTES IN AREA RESERVED TO HOLD 59900000 * HIGHEST LEVEL INDEX 59950000 DCBSMSW DS H - NUMBER OF BYTES IN WORK AREA USED BY 60000000 * CONTROL PROGRAM WHEN NEW RECORDS ARE 60050000 * BEING ADDED TO DATA SET 60100000 DCBMSHI DS 0A - ADDRESS OF MAIN STORAGE AREA TO HOLD 60150000 * HIGHEST LEVEL INDEX 60200000 DCBNCP DS FL1 - NUMBER OF COPIES OF READ-WRITE (TYPE K) 60250000 * CHANNEL PROGRAMS THAT ARE TO BE 60300000 * ESTABLISHED FOR THIS DCB. (99 MAXIMUM) 60350000 DCBMSHIA DS AL3 - SAME AS DCBMSHI ABOVE 60400000 DCBSETL DS A - ADDRESS OF SETL MODULE FOR QISAM. 60450000 * ADDRESS OF CHECK MODULE FOR BISAM 60500000 DCBEXCD1 DS BL1 - FIRST BYTE IN WHICH EXCEPTIONAL 60550000 * CONDITIONS DETECTED IN PROCESSING DATA 60600000 * RECORDS ARE REPORTED TO THE USER 60650000 DCBEXNKY EQU DCBBIT0 - LOWER KEY LIMIT NOT FOUND 60700000 DCBEXIDA EQU DCBBIT1 - INVALID DEVICE ADDRESS FOR LOWER LIMIT 60750000 DCBEXNSP EQU DCBBIT2 - SPACE NOT FOUND 60800000 DCBEXINV EQU DCBBIT3 - INVALID REQUEST 60850000 DCBEXIER EQU DCBBIT4 - UNCORRECTABLE INPUT ERROR 60900000 DCBEXOER EQU DCBBIT5 - UNCORRECTABLE OUTPUT ERROR 60950000 DCBEXBLI EQU DCBBIT6 - BLOCK COULD NOT BE REACHED (INPUT) 61000000 DCBEXBLU EQU DCBBIT7 - BLOCK COULD NOT BE REACHED (UPDATE) 61050000 DCBEXCD2 DS BL1 - SECOND BYTE IN WHICH EXCEPTIONAL 61100000 * CONDITIONS DETECTED IN PROCESSING DATA 61150000 * RECORDS ARE REPORTED TO THE USER 61200000 DCBEXSEQ EQU DCBBIT0 - SEQUENCE CHECK 61250000 DCBEXDUP EQU DCBBIT1 - DUPLICATE RECORD 61300000 DCBEXCLD EQU DCBBIT2 - DCB CLOSED WHEN ERROR WAS DETECTED 61350000 DCBEXOFL EQU DCBBIT3 - OVERFLOW RECORD 61400000 DCBEXLTH EQU DCBBIT4 - FOR PUT - LENGTH FIELD OF RECORD LARGER 61450000 * THAN LENGTH INDICATED IN DCBLRECL 61500000 DCBEXRDE EQU DCBBIT4 - READ EXCLUSIVE 61550000 DCBLRECL DS H - FOR FIXED-LENGTH RECORD FORMATS, LOGICAL 61600000 * RECORD LENGTH. FOR VARIABLE-LENGTH 61650000 * RECORD FORMATS, MAXIMUM LOGICAL RECORD 61700000 * LENGTH OR AN ACTUAL LOGICAL RECORD LENGTH 61750000 * CHANGED DYNAMICALLY BY USER WHEN CREATING 61800000 * THE DATA SET 61850000 DCBESETL DS A - ADDRESS OF ESETL ROUTINE IN GET MODULE 61900000 DCBLRAN DS A - ADDRESS OF READ-WRITE K MODULE OR 61950000 * EXCLUSIVE MODULE 62000000 DCBLWKN DS A - ADDRESS OF WRITE KN MODULE 62050000 DCBRELSE DS A - WORK AREA FOR TEMPORARY STORAGE OF 62100000 * REGISTER CONTENTS 62150000 DCBPUTX DS A - WORK AREA FOR TEMPORARY STORAGE OF 62200000 * REGISTER CONTENTS 62250000 DCBRELEX DS A - ADDRESS OF READ EXCLUSIVE MODULE 62300000 DCBFREED DS A - ADDRESS OF DYNAMIC BUFFERING MODULE 62350000 DCBHIRTI DS FL1 - NUMBER OF INDEX ENTRIES THAT FIT ON A 62400000 * PRIME DATA TRACK 62450000 DCBFTMI2 DS CL7 - DIRECT ACCESS DEVICE ADDRESS OF FIRST 62500000 * TRACK OF SECOND LEVEL MASTER INDEX (IN 62550000 * THE FORM MBBCCHH) 62600000 DCBLEMI2 DS CL5 - DIRECT ACCESS DEVICE ADDRESS OF LAST 62650000 * ACTIVE ENTRY IN SECOND LEVEL MASTER INDEX 62700000 * (IN THE FORM CCHHR) 62750000 DCBFTMI3 DS CL7 - DIRECT ACCESS DEVICE ADDRESS OF FIRST 62800000 * TRACK OF THIRD LEVEL MASTER INDEX (IN 62850000 * THE FORM MBBCCHH) 62900000 DCBLEMI3 DS CL5 - DIRECT ACCESS DEVICE ADDRESS OF LAST 62950000 * ACTIVE ENTRY IN THIRD LEVEL MASTER INDEX 63000000 * (IN THE FORM CCHHR) 63050000 DCBNLEV DS FL1 - NUMBER OF LEVELS OF INDEX 63100000 DCBFIRSH DS CL3 - HHR OF FIRST DATA RECORD ON EACH 63150000 * CYLINDER. FOR VARIABLE LENGTH RECORD 63200000 * PROCESSING, R PORTION OF THIS FIELD IS 63250000 * ALWAYS X'01'. 63300000 DCBHMASK DS CL1 - BYTE INDICATING 2301 OR NOT 63350000 DCBHMDRM EQU X'07' - DEVICE IS 2301 DRUM 63400000 DCBHMNDM EQU X'FF' - DEVICE IS OTHER THAN 2301 DRUM 63450000 DCBLDT DS CL2 - HH IS THE LAST PRIME DATA TRACK ON EACH 63500000 * CYLINDER 63550000 DCBHIRCM DS CL1 - HIGHEST POSSIBLE R FOR TRACKS OF THE 63600000 * CYLINDER AND MASTER INDICES 63650000 DCBHIRPD DS CL1 - HIGHEST R ON ANY PRIME TRACK IN DATA SET. 63700000 * FOR VARIABLE-LENGTH RECORDS, THIS 63750000 * REPRESENTS THE GREATEST NUMBER OF 63800000 * PHYSICAL RECORDS ON ANY PRIME TRACK IN 63850000 * THE DATA SET 63900000 DCBHIROV DS CL1 - FOR FIXED-LENGTH RECORD FORMAT, HIGHEST 63950000 * POSSIBLE R FOR OVERFLOW DATA TRACKS. FOR 64000000 * VARIABLE-LENGTH RECORD FORMAT, UNUSED. 64050000 DCBHIRSH DS CL1 - FOR FIXED-LENGTH RECORD FORMAT, R OF LAST 64100000 * DATA RECORD ON A SHARED TRACK, IF 64150000 * APPLICABLE. FOR VARIABLE-LENGTH RECORD 64200000 * FORMAT, UNUSED. 64250000 DCBTDC DS H - USER-SUPPLIED NUMBER OF RECORDS TAGGED 64300000 * FOR DELETION. 64350000 DCBNCRHI DS H - NUMBER OF STORAGE LOCATIONS NEEDED TO 64400000 * HOLD THE HIGHEST LEVEL INDEX 64450000 DCBRORG3 DS F - FOR EACH USE OF DATA SET, NUMBER OF READ 64500000 * OR WRITE ACCESSES TO AN OVERFLOW RECORD 64550000 * WHICH IS NOT FIRST IN A CHAIN OF SUCH 64600000 * RECORDS 64650000 DCBNREC DS F - NUMBER OF LOGICAL RECORDS IN PRIME DATA 64700000 * AREA 64750000 DCBST DS BL1 - STATUS INDICATORS 64800000 DCBSTSSM EQU DCBBIT0 - SINGLE SCHEDULE MODE 64850000 DCBSTKSQ EQU DCBBIT1 - KEY SEQUENCE CHECKING IS TO BE PERFORMED 64900000 DCBSTLOD EQU DCBBIT2 - LOADING HAS COMPLETED. SET TO 1 BY CLOSE 64950000 * ROUTINE AND TO 0 BY FIRST EXECUTION OF 65000000 * PUT ROUTINE. 65050000 DCBSTNCY EQU DCBBIT3 - EXTENSION OF DATA SET WILL BEGIN ON NEW 65100000 * CYLINDER 65150000 DCBSTNMC EQU DCBBIT5 - FIRST MACRO INSTRUCTION NOT YET RECEIVED 65200000 DCBSTLBF EQU DCBBIT6 - LAST BLOCK FULL 65250000 DCBSTLTF EQU DCBBIT7 - LAST TRACK FULL 65300000 DCBFTCI DS CL7 - DIRECT ACCESS DEVICE ADDRESS OF FIRST 65350000 * TRACK OF CYLINDER INDEX (IN THE FORM 65400000 * MBBCCHH). 65450000 DCBHIIOV DS CL1 - FOR FIXED LENGTH RECORD FORMAT, HIGHEST 65500000 * POSSIBLE R FOR INDEPENDENT OVERFLOW DATA 65550000 * TRACKS. FOR VARIABLE LENGTH RECORD 65600000 * FORMAT, UNUSED 65650000 DCBFTMI1 DS CL7 - DIRECT ACCESS DEVICE ADDRESS OF FIRST 65700000 * TRACK OF FIRST LEVEL MASTER INDEX (IN 65750000 * THE FORM MBBCCHH). 65800000 DCBNTHI DS FL1 - NUMBER OF TRACKS OF HIGH-LEVEL INDEX 65850000 DCBFTHI DS CL7 - DIRECT ACCESS DEVICE ADDRESS OF FIRST 65900000 * TRACK OF HIGHEST LEVEL INDEX (IN THE 65950000 * FORM MBBCCHH). 66000000 DCBLPDA DS CL8 - DIRECT ACCESS DEVICE ADDRESS OF LAST 66050000 * PRIME DATA RECORD IN PRIME DATA AREA 66100000 * (IN THE FORM MBBCCHHR). 66150000 DCBLETI DS CL5 - DIRECT ACCESS DEVICE ADDRESS OF LAST 66200000 * ACTIVE NORMAL ENTRY OF TRACK INDEX ON 66250000 * LAST ACTIVE CYLINDER (IN THE FORM CCHHR). 66300000 DCBOVDEV DS CL1 - DEVICE TYPE FOR INDEPENDENT OVERFLOW 66350000 * THESE SAME MASKS APPLY TO DCBDEVT FOR ISAM DIRECT ACCESS 66400000 DCBDVI01 EQU X'02' - 2301 PARALLEL DRUM 66500000 DCBDVI03 EQU X'03' - 2303 SERIAL DRUM 66550000 DCBDVI02 EQU X'04' - 2302 DISK STORAGE 66600000 DCBDVI05 EQU X'05' - 2305 DRUM 66650000 DCBDVI14 EQU X'08' - 2314 DISK STORAGE FACILITY 66700000 DCBDVI30 EQU X'09' - 3330 DISK STORAGE FACILITY 66701000 DCBNBOV DS H - FOR FIXED LENGTH RECORD FORMAT, RESERVED. 66750000 * FOR VARIABLE LENGTH RECORD FORMAT, IF THE 66800000 * INDEPENDENT OVERFLOW OPTION IS SELECTED, 66850000 * CONTAINS, IN BINARY, NUMBER OF BYTES LEFT 66900000 * ON CURRENT TRACK OF INDEPENDENT OVERFLOW 66950000 * AREA 67000000 DCBLECI DS CL5 - DIRECT ACCESS DEVICE ADDRESS OF LAST 67050000 * ACTIVE ENTRY IN CYLINDER INDEX (IN THE 67100000 * FORM CCHHR). 67150000 DS X - RESERVED 67200000 DCBRORG2 DS H - NUMBER OF TRACKS (PARTIALLY OR WHOLLY) 67250000 * REMAINING IN INDEPENDENT OVERFLOW AREA 67300000 DCBLEMI1 DS CL5 - DIRECT ACCESS DEVICE ADDRESS OF LAST 67350000 * ACTIVE ENTRY IN FIRST LEVEL MASTER INDEX 67400000 * (IN THE FORM CCHHR). 67450000 DS X - RESERVED 67500000 DCBNOREC DS H - NUMBER OF LOGICAL RECORDS IN AN OVERFLOW 67550000 * AREA 67600000 DCBLIOV DS CL8 - DIRECT ACCESS DEVICE ADDRESS OF LAST 67650000 * AREA (IN THE FORM MBBCCHHR). 67700000 DCBRORG1 DS H - NUMBER OF CYLINDER OVERFLOW AREAS THAT 67750000 * ARE FULL 67800000 DS XL2 - RESERVED 67850000 DCBWKPT1 DS A - POINTER TO WORK AREA OR TO CONSTRUCTED 67900000 * CHANNEL PROGRAM FOR WHICH SPACE IS 67950000 * OBTAINED BY GETMAIN MACRO INSTRUCTIONS 68000000 * ISSUED BY OPEN EXECUTORS 68050000 DCBWKPT2 DS A - ADDITIONAL POINTER AS IN DCBWKPT1 68100000 DCBWKPT3 DS A - ADDITIONAL POINTER AS IN DCBWKPT1 68150000 DCBWKPT4 DS A - ADDITIONAL POINTER AS IN DCBWKPT1 68200000 DCBWKPT5 DS A - ADDITIONAL POINTER AS IN DCBWKPT1 68250000 DCBWKPT6 DS A - ADDITIONAL POINTER AS IN DCBWKPT1 68300000 SPACE 1 68350000 .CA AIF (NOT &DSORGDA).CB 68400000 *********************************************************************** 68401000 * BDAM INTERFACE 68450000 *********************************************************************** 68451000 SPACE 1 68500000 ORG IHADCB+52 68550000 DCBCHECK DS 0A - ADDRESS OF CHECK MODULE 68600000 AIF (&DSORGIS).CA1 68650000 DCBOPTCD DS BL1 - OPTION CODES 68700000 AGO .CA2 68750000 .CA1 DS BL1 - DCBOPTCD - OPTION CODES 68850000 .CA2 AIF (&DSORGIS OR &DSORGQS OR &DSORGBS).CA3 68950000 DCBOPTW EQU DCBBIT0 - WRITE VALIDITY CHECK (DASD) 69000000 * (BSAM, BPAM, QSAM, ISAM, BDAM) 69050000 AGO .CA4 69100000 .CA3 ANOP 69150000 * BIT0 IS DCBOPTW - SAME AS BSAM AND ISAM 69200000 .CA4 ANOP 69250000 DCBOPTTO EQU DCBBIT1 - TRACK OVERFLOW 69300000 DCBOPTE EQU DCBBIT2 - EXTENDED SEARCH 69350000 DCBOPTF EQU DCBBIT3 - FEEDBACK 69400000 DCBOPTA EQU DCBBIT4 - ACTUAL ADDRESSING 69450000 DCBOPTDB EQU DCBBIT5 - DYNAMIC BUFFERING 69500000 DCBOPTRE EQU DCBBIT6 - READ EXCLUSIVE 69550000 DCBOPTRB EQU DCBBIT7 - RELATIVE BLOCK ADDRESSING 69600000 DCBCHCKA DS AL3 - ADDRESS OF CHECK MODULE 69650000 AIF (&DSORGIS).CAA 69700000 DCBSYNAD DS A - ADDRESS OF SYNAD ROUTINE 69750000 DS XL2 - RESERVED 69800000 DCBBLKSI DS H - MAXIMUM BLOCK SIZE 69850000 AGO .CAB 69900000 .CAA DS A - DCBSYNAD - ADDRESS OF SYNAD ROUTINE 70000000 DS XL2 - RESERVED 70050000 DS H - DCBBLKSI - MAXIMUM BLOCK SIZE 70100000 .CAB ANOP 70150000 DCBIOBSQ DS A - ADDRESS OF FIRST IOB ON UNSCHEDULED QUEUE 70200000 * FOR EITHER A WRITE-ADD REQUEST WHEN 70250000 * ANOTHER WRITE-ADD IS IN PROGRESS OR A 70300000 * READ-EXCLUSIVE REQUEST WHEN THE 70350000 * READ-EXCLUSIVE LIST IS FULL 70400000 DCBSQND DS A - ADDRESS OF LAST IOB ON UNSCHEDULED QUEUE 70450000 DCBIOBUQ DS A - ADDRESS OF FIRST IOB ON UNPOSTED QUEUE 70500000 DCBUQND DS A - ADDRESS OF LAST JOB ON UNPOSTED QUEUE 70550000 * THAT IS MAINTAINED BY THE READ EXCLUSIVE 70600000 * MODULE 70650000 DS X - RESERVED 70700000 DCBLIMCT DS FL3 - NUMBER OF TRACKS OR NUMBER OF RELATIVE 70750000 * BLOCKS TO BE SEARCHED (EXTENDED SEARCH 70800000 * OPTION) 70850000 DCBXARG DS 0A - ADDRESS OF READ EXCLUSIVE LIST 70900000 DCBXCNT DS FL1 - NUMBER OF ENTRIES IN READ EXCLUSIVE LIST 70950000 DCBXARGA DS AL3 - ADDRESS OF READ EXCLUSIVE LIST 71000000 DCBDRDX DS 0A - ADDRESS OF READ EXCLUSIVE MODULE 71050000 DCBMVXNO DS FL1 - TOTAL NUMBER OF EXTENTS IN MULTIVOLUME 71100000 * DATA SET 71150000 DCBDRDXA DS AL3 - ADDRESS OF READ EXCLUSIVE MODULE 71200000 DCBDFOR DS A - ADDRESS OF A FORMAT MODULE 71250000 DCBDFBK DS A - ADDRESS OF A FEEDBACK MODULE 71300000 DCBDYNB DS A - FOR DYNAMIC BUFFERING, ADDRESS OF DYNAMIC 71350000 * BUFFER MODULE. FOR UNBLOCKED SPANNED 71400000 * RECORDS WITH BFTEK=R SPECIFIED AND NO 71450000 * DYNAMIC BUFFERING, ADDRESS OF SEGMENT 71500000 * WORK AREA CONTROL BLOCK 71550000 SPACE 1 71600000 .CB AIF (NOT &DSORGQX).CC 71650000 *********************************************************************** 71651000 * QTAM INTERFACE 71700000 *********************************************************************** 71701000 SPACE 1 71750000 ORG IHADCB+52 71800000 DCBKSTAT DS 0CL4 - FOUR THRESHOLD VALUES FOR ERROR COUNTS 71850000 DCBKSTA1 DS FL1 - THRESHOLD VALUE FOR NUMBER OF 71900000 * TRANSMISSIONS 71950000 DCBKSTA2 DS FL1 - THRESHOLD VALUE FOR NUMBER OF DATA CHECKS 72000000 DCBKSTA3 DS FL1 - THRESHOLD VALUE FOR NUMBER OF 72050000 * INTERVENTIONS REQUIRED 72100000 DCBKSTA4 DS FL1 - THRESHOLD VALUE FOR NUMBER OF TIMEOUTS 72150000 SPACE 1 72200000 *********************************************************************** 72201000 * QTAM POLLING LIST ORIGIN 72250000 *********************************************************************** 72251000 SPACE 1 72300000 DCBCPOLL DS 0A - A 4-BYTE FIELD FOR EACH POLLING LIST 72350000 DCBPLBYT DS BL1 - ADAPTER TYPE 72400000 DCBCPWTT EQU DCBBIT4 - WTTA 72450000 DCBCPOLA DS AL3 - ADDRESS OF THE POLLING LIST 72500000 SPACE 1 72550000 .CC AIF (NOT &DSORGTQ).CD @ZA02213 72600000 *********************************************************************** 72601000 * TCAM MESSAGE QUEUE INTERFACE 72650000 *********************************************************************** 72651000 SPACE 1 72700000 ORG IHADCB+52 72750000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS).CC1A 72800000 DCBOPTCD DS BL1 - OPTION CODES 72850000 AGO .CC1B 72900000 .CC1A DS BL1 - DCBOPTCD - OPTION CODES 73000000 .CC1B ANOP 73050000 DCBOPTWP EQU DCBBIT0 - SOURCE OR DESTINATION NAME PRECEDES 73100000 * MESSAGE (AFTER CONTROL BYTE) 73150000 * (TCAM PROCESS QUEUE) 73200000 DCBOPTUM EQU DCBBIT1 - WORK UNIT IS A MESSAGE. DEFAULT WORK 73250000 * UNIT IS A RECORD. (TCAM PROCESS QUEUE) 73300000 DCBOPTCB EQU DCBBIT2 - CONTROL BYTE PRECEDES WORK UNIT 73350000 * (TCAM PROCESS QUEUE) 73400000 DCBOPTCP EQU DCBBIT2 - CHECKPOINT DATA SET 73450000 DCBOPTIM EQU DCBBIT6 - NON-REUSABLE MESSAGE QUEUE DATA SET 73500000 DCBOPTRM EQU DCBBIT7 - REUSABLE MESSAGE QUEUE DATA SET 73550000 AIF (&DSORGIS OR &DSORGDA OR &DSORGQS OR &DSORGBS).CC1D 73560000 * 73562000 DS XL9 - RESERVED 73570000 DCBBLKSI DS H - BLOCK SIZE 73580000 AGO .CC1E ICBI DCB-9 73590000 .CC1D DS XL11 - RESERVED 73600000 .CC1E SPACE 1 73650000 .CD AIF (NOT &DSORGBX).CDF 74650000 *********************************************************************** 74651000 * BTAM INTERFACE 74700000 *********************************************************************** 74701000 SPACE 1 74750000 ORG IHADCB+52 74800000 DCBLERB DS 0A - ADDRESS OF LINE ERROR BLOCK 74850000 DCBRDYI DS 0X - READYQ INDICATORS 74855000 DCBRDYIQ EQU DCBBIT6 - ADDRESS IS READYQ AND NOT LERB 74860000 DCBRDYIZ EQU DCBBIT7 - READYQ SPECIFIED, BUT ADDRESS WAS 0, 74865000 * SO USING BTAM READYQ ROUTINE 74870000 DCBRDYQ DS A - ADDRESS OF USER/BTAM ROUTINE TO PROCESS 74875000 * LOCAL 3270 DEVICE READY INTERRUPTS 74880000 SPACE 1 74900000 AIF (NOT &DEVDBS).CDF 74950000 *********************************************************************** 74951000 * BSC INTERFACE 75000000 *********************************************************************** 75001000 SPACE 1 75050000 ORG IHADCB+56 75100000 DCBXMODE DS BL1 - MODE OF TRANSMISSION FOR BINARY 75150000 * SYNCHRONOUS COMMUNICATION (BSC) 75200000 DCBXMIBC EQU DCBBIT1 - INTERMEDIATE BLOCK CHECKING IS TO BE 75250000 * PERFORMED 75300000 DCBXMDA1 EQU DCBBIT2 - TRANSMISSION IS THROUGH A 2701 DATA 75350000 * ADAPTER UNIT DUAL COMMUNICATION 75400000 * INTERFACE B 75450000 DCBXMDA2 EQU DCBBIT4 - TRANSMISSION IS IN CODE B FOR A 2701 75500000 * DATA ADAPTER UNIT DUAL CODE FEATURE 75550000 DCBXCODE DS BL1 - BSC CONTROL STATION FLAG AND 75600000 * TRANSMISSION CODE 75650000 DCBXCCSF EQU DCBBIT0 - BSC CONTROL STATION FLAG --- 75700000 * IF ZERO, THIS IS THE CONTROL STATION. 75750000 * IF ONE, THIS IS THE REMOTE STATION. 75800000 DCBXCPTP EQU DCBBIT1 - IF PTOP IS SPECIFIED IN SYSGEN PROCEDURE 75850000 * - SCHEDULE AN ASYNCHRONOUS EXIT TO 75900000 * INTERFACE RESOLUTION ROUTINE 75950000 DCBXCTR1 EQU DCBBIT2 - 6-BIT TRANSCODE IS BEING USED (BIT 4 IS 76000000 * ALSO ON) 76050000 DCBXCAS1 EQU DCBBIT3 - USASCII TRANSMISSION CODE IS BEING USED 76100000 * (BIT 5 IS ALSO ON) 76150000 DCBXCEBC EQU DCBBIT4+DCBBIT5 - IF BOTH BITS ARE ZERO, EBCDIC 76200000 * TRANSMISSION CODE IS BEING USED. 76250000 DCBXCTR2 EQU DCBBIT4 - 6-BIT TRANSCODE IS BEING USED (BIT 2 IS 76300000 * ALSO ON) 76350000 DCBXCAS2 EQU DCBBIT5 - USASCII TRANSMISSION CODE IS BEING USED 76400000 * (BIT 3 IS ALSO ON) 76450000 DCBBSRSV DS CL1 - DLE CONTROL CHARACTER 76500000 DCBBSWBT DS X - RESERVED 76550000 DCBIRRAD DS 0A - BEFORE OPEN - IF PTOP IS SPECIFIED IN THE 76600000 * SYSGEN PROCEDURE, ADDRESS OF INTERFACE 76650000 * RESOLUTION ROUTINE. 76700000 * AFTER OPEN, THE FOLLOWING 4 CHARACTERS 76750000 * OCCUPY THIS SPACE. 76800000 DCBBSTSX DS CL1 - DLE CONTROL CHARACTER 76850000 DCBBSSTX DS CL1 - STX CONTROL CHARACTER 76900000 DCBBSTEX DS CL1 - DLE CONTROL CHARACTER 76950000 DCBBSETX DS CL1 - ETX CONTROL CHARACTER 77000000 DCBBSAK0 DS CL2 - ACK-0 CONTROL CHARACTER 77050000 DCBBSAK1 DS CL2 - ACK-1 CONTROL CHARACTER 77100000 DCBBSENQ DS CL1 - ENQ CONTROL CHARACTER 77150000 DCBBSNAK DS CL1 - NAK CONTROL CHARACTER 77200000 DCBBSETB DS CL1 - ETB CONTROL CHARACTER 77250000 DCBBSDLE DS CL1 - DLE CONTROL CHARACTER 77300000 DCBBSEOT DS CL1 - EOT CONTROL CHARACTER 77350000 DCBBSSYN DS CL3 - SYN, SYN, SYN CONTROL CHARACTERS 77400000 DCBBSONL DS CL2 - SOH % CONTROL CHARACTERS 77450000 DCBBSSAK DS CL2 - WACK CONTROL CHARACTERS 77500000 DCBBSRVI DS CL2 - DLE @ CONTROL CHARACTERS 77550000 DS XL18 - RESERVED 77600000 SPACE 1 77650000 .CDF AIF (NOT (&DSORGQS OR &DSORGBS)).CF YA03395 77700000 *********************************************************************** 77701000 * QSAM-BSAM-BPAM COMMON INTERFACE 77750000 *********************************************************************** 77751000 SPACE 1 77800000 ORG IHADCB+52 77850000 AIF (&DSORGDA).CDA1 77900000 DCBGERR DS 0A - ADDRESS OF SYNCHRONIZING ROUTINE FOR GET 77950000 DCBPERR DS 0A - ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT 78000000 DCBCHECK DS 0A - ADDRESS OF CHECK MODULE 78050000 AIF (&DSORGIS).CDA 78100000 DCBOPTCD DS BL1 - OPTION CODES 78150000 AGO .CD2 78200000 .CDA1 DS 0A - DCBGERR, DCBPERR OR DCBCHECK 78300000 .CDA DS BL1 - DCBOPTCD - OPTION CODES 78400000 .CD2 ANOP 78450000 DCBOPTW EQU DCBBIT0 - WRITE VALIDITY CHECK (DASD) 78500000 * (BSAM, BPAM, QSAM, ISAM, BDAM) 78550000 DCBOPTU EQU DCBBIT1 - ALLOW DATA CHECK CAUSED BY INVALID 78600000 * CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000 * (BSAM, BPAM, QSAM) 78700000 * MSS WINDOW PROCESSING REQUESTED @ZA37313 78710000 * (BSAM, QSAM) @ZA37313 78720000 DCBOPTC EQU DCBBIT2 - CHAINED SCHEDULING USING PCI 78750000 * (BSAM, BPAM, QSAM) 78800000 DCBOPTH EQU DCBBIT3 - 1287/1288 OPTICAL READER - HOPPER EMPTY 78850000 * EXIT (BSAM, BPAM) 78900000 * PDS STAGING ON MSS REQUEST(BPAM) @ZA36508 78920000 DCBOPTO EQU DCBBIT3 - 1285/1287 OPTICAL READER - ON-LINE 78950000 * CORRECTION (QSAM) 79000000 DCBBCKPT EQU DCBBIT3 - CHANNEL-END APPENDAGE IS TO BYPASS DOS 79050000 * EMBEDDED CHECKPOINT RECORDS ON TAPE 79100000 * (BSAM, QSAM) 79150000 DCBOPTQ EQU DCBBIT4 - TRANSLATION TO OR FROM ASCII 79200000 * (BSAM, BPAM, QSAM) 79250000 DCBOPTZ EQU DCBBIT5 - MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300000 * RECOVERY PROCEDURE (EXCP, BSAM, BPAM, 79350000 * QSAM) 79400000 DCBSRCHD EQU DCBBIT5 - USE SEARCH DIRECT, INSTEAD OF SEARCH 79450000 * PREVIOUS, ON RECORD POSITION SENSING 79500000 * DEVICE (EXCP, BSAM, BPAM, QSAM) 79550000 DCBOPTT EQU DCBBIT6 - USER TOTALING (BSAM, QSAM) 79600000 * 79610000 * 79620000 DCBOPTJ EQU DCBBIT7 3800 PRINTER, OPTCD=J; (DYNAMIC @Z40MSRZ 79630000 * SELECT OF TRANSLATE TABLES) @Z40MSRZ 79640000 AIF (&DSORGDA).CD1 79650000 DCBGERRA DS 0AL3 - ADDRESS OF SYNCHRONIZING ROUTINE FOR GET 79700000 DCBPERRA DS 0AL3 - ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT 79750000 DCBCHCKA DS AL3 - ADDRESS OF CHECK MODULE 79800000 AGO .CD3 79850000 .CD1 DS AL3 - DCBGERRA, DCBPERRA OR DCBCHCKA 79950000 .CD3 AIF (&DSORGIS OR &DSORGDA).CDB @ZA02213 80000000 DCBSYNAD DS 0A - ADDRESS OF USER-PROVIDED SYNAD ROUTINE 80050000 DCBIOBL DS FL1 - IOB LENGTH IN DOUBLE WORDS 80100000 DCBSYNA DS AL3 - ADDRESS OF USER-PROVIDED SYNAD ROUTINE 80150000 AGO .CD4 80200000 .CDB DS 0A - DCBSYNAD - ADDRESS OF SYNAD ROUTINE 80300000 DCBIOBL DS FL1 - IOB LENGTH IN DOUBLE WORDS 80350000 DCBSYNA DS AL3 - DCBSYNA - ADDRESS OF SYNAD RTN @ZA33630 80400000 .CD4 ANOP 80450000 DCBFLAG1 DS 0BL1 - TCAM APPLICATION PROGRAM FLAGS 80460000 * (BSAM, BPAM, QSAM) 80470000 DCBCIND1 DS BL1 - CONDITION INDICATORS 80500000 DCBCNTOV EQU DCBBIT0 - DIRECT ACCESS - TRACK OVERFLOW IN USE 80550000 * (BSAM, BPAM, QSAM) 80600000 * 2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000 * NO DATA WAS WRITTEN (QSAM) 80700000 DCBSTQCK EQU DCBBIT0 - STOP EQUAL QUICK WAS SPECIFIED FOR 80710000 * APPLICATION PROG. DCBS (TCAM) 80720000 DCBSTFLS EQU DCBBIT1 - STOP EQUAL FLUSH WAS SPECIFIED FOR 80730000 * APPLICATION PROG. DCBS (TCAM) 80740000 DCBCNSRD EQU DCBBIT1 - SEARCH DIRECT (BSAM, BPAM, QSAM) 80750000 DCBCNEVB EQU DCBBIT2 - END OF VOLUME - USED BY EOB ROUTINES 80800000 * (BSAM, BPAM, QSAM) 80850000 DCBCNEVA EQU DCBBIT3 - END OF VOLUME - USED BY CHANNEL-END 80900000 * APPENDAGE ROUTINES (BSAM, BPAM, QSAM) 80950000 DCBCNBRM EQU DCBBIT5 - BLOCKED RECORD BIT MODIFIED (BSAM,BPAM, 81000000 * QSAM) 81050000 DCBCNEXB EQU DCBBIT7 - EXCHANGE BUFFERING SUPPORTED (QSAM) 81100000 DCBCIND2 DS BL1 - CONDITION INDICATORS 81150000 DCBCNSTO EQU DCBBIT0 - PARTITIONED DATA SET - STOW HAS BEEN 81200000 * PERFORMED (BSAM, BPAM, QSAM) 81250000 * SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000 DCBCNWR0 EQU DCBBIT1 - DIRECT ORGANIZATION DATA SET - LAST I/O 81350000 * WAS A WRITE RECORD ZERO 81400000 * (BSAM, BPAM, QSAM) 81450000 * SEQUENTIAL DATA SET - UPDATE EOF IS 81500000 * INDICATED (BSAM, BPAM) 81550000 DCBCNCLO EQU DCBBIT2 - CLOSE IN PROCESS (QSAM) 81600000 DCBCNIOE EQU DCBBIT3 - PERMANENT I/O ERROR (BSAM, BPAM, QSAM) 81650000 DCBCNBFP EQU DCBBIT4 - OPEN ACQUIRED BUFFER POOL 81700000 * (BSAM, BPAM, QSAM) 81750000 DCBCNCHS EQU DCBBIT5 - CHAINED SCHEDULING BEING SUPPORTED 81800000 * (BSAM, BPAM, QSAM) 81850000 DCBCNFEO EQU DCBBIT6 - FEOV BIT (BSAM, BPAM, QSAM) 81900000 DCBCNQSM EQU DCBBIT7 - ALWAYS ZERO (BSAM, BPAM) 81950000 * THIS IS A QSAM DCB (QSAM) 82000000 AIF (&DSORGIS OR &DSORGDA).CDC 82050000 DCBBLKSI DS H - MAXIMUM BLOCK SIZE 82100000 AGO .CD7 82150000 .CDC DS H - DCBBLKSI - MAXIMUM BLOCK SIZE 82250000 .CD7 ANOP 82300000 DCBWCPO DS AL1 - OFFSET OF WRITE CHANNEL PROGRAM FROM THE 82350000 * START OF IOB 82400000 DCBWCPL DS FL1 - LENGTH OF WRITE CHANNEL PROGRAM 82450000 DCBOFFSR DS AL1 - OFFSET OF READ CCW FROM BSAM/BPAM PREFIX 82500000 * OF IOB 82550000 DCBOFFSW DS AL1 - OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000 * OF IOB 82650000 DCBIOBA DS A - FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000 * BSAM/BPAM PREFIX OF IOB. FOR CHAINED 82750000 * SCHEDULING, ADDRESS OF ICB. FOR 82800000 * 1419/1275, ADDRESS OF MAGNETIC INTERRUPT 82850000 * CONTROL BLOCK (MICB) CURRENTLY BEING 82900000 * PROCESSED BY READ ROUTINE. FOR TSO 82950000 * TERMINAL DATA SET OPENED FOR INPUT AND 83000000 * FORMAT U, SIMULATED LOW-ORDER FOUR BYTES 83050000 * OF IOBCSW 83100000 SPACE 1 83150000 ORG IHADCB+68 83160000 DCBCICB DS 0A - SAME AS DCBCICBA BELOW 83200000 DS X - DCBNCP (BSAM,BPAM) 83250000 DCBCICBA DS AL3 - POINTER TO JES C.I. 83300000 * CONTROL BLOCK (CICB) 83350000 SPACE 1 83400000 ORG IHADCB+80 83450000 DCBDIRCT DS 0H - NUMBER OF BYTES USED IN LAST DIRECTORY 83500000 * BLOCK (RANGE 0-254) (BSAM, BPAM) 83550000 DCBQSWS DS 0BL1 - FLAG BYTE 83600000 DCBPOPEN EQU DCBBIT5 - QSAM PARALLEL INPUT PROCESSING 83601000 DCBUSASI DS B - FLAG BYTE FOR ASCII TAPES 83650000 DCBBLBP EQU DCBBIT1 - BLOCK PREFIX IS FOUR BYTE FIELD 83700000 * CONTAINING BLOCK LENGTH IN UNPACKED 83750000 * DECIMAL (SPECIFIED BY BUFFER=L). 83800000 DCBQADFS EQU DCBBIT2+DCBBIT3+DCBBIT4 USED TO PERFORM SEQUENCE 83850000 * CHECKING WITH MULTIPLE FUNCTION SUPPORT 83900000 * FOR 3525 (BSAM, QSAM) 83950000 DCBQADF1 EQU DCBBIT2 - FIRST BIT OF DCBQADFS 84000000 DCBQADF2 EQU DCBBIT3 - SECOND BIT OF DCBQADFS 84050000 DCBQADF3 EQU DCBBIT4 - THIRD BIT OF DCBQADFS 84100000 DCB3525A EQU DCBBIT6 - DCB IS 3525 - ASSOCIATED DATA 84110000 * SETS EXIST 84120000 DCBQSTRU EQU DCBBIT7 - TRUNC ENTRY POINT ENTERED (QSAM) 84150000 DCBBUFOF DS 0FL1 - BLOCK PREFIX LENGTH (0-99), SPECIFIED BY 84200000 * BUFOFF=N OR BUFOFF=L 84250000 DCBDIRCQ DS FL1 - NUMBER OF BYTES USED IN LAST DIRECTORY 84300000 * BLOCK (RANGE 0-254) (QSAM) 84350000 SPACE 1 84400000 AIF (NOT &DSORGBS).CE 84450000 *********************************************************************** 84451000 * BSAM-BPAM INTERFACE 84500000 *********************************************************************** 84501000 SPACE 1 84550000 ORG IHADCB+72 84600000 DCBEOBR DS 0A - ADDRESS OF END-OF-BLOCK MODULE FOR READ 84650000 AIF (&DSORGIS).CDD 84700000 DCBNCP DS FL1 - NUMBER OF CHANNEL PROGRAMS. 84750000 AGO .CD8 84800000 .CDD DS FL1 - DCBNCP - NUMBER OF CHANNEL PROGRAMS. 84900000 .CD8 ANOP 84950000 * NUMBER OF READ OR WRITE REQUESTS WHICH 85000000 * MAY BE ISSUED PRIOR TO A CHECK, NUMBER 85050000 * OF IOB'S GENERATED. (99 MAXIMUM) 85100000 DCBEOBRA DS AL3 - ADDRESS OF END-OF-BLOCK MODULE FOR READ 85150000 DCBEOBW DS A - ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000 * FOR BSAM CREATE BDAM PROCESSING OF 85250000 * UNBLOCKED SPANNED RECORDS WITH BKTEK=R 85300000 * SPECIFIED, ADDRESS OF SEGMENT WORK AREA 85350000 * CONTROL BLOCK 85400000 DS H - DCBDIRCT - NUMBER OF BYTES USED IN LAST 85450000 * DIRECTORY BLOCK (RANGE 0-254) 85500000 AIF (&DSORGIS).CDE 85550000 DCBLRECL DS H - LOGICAL RECORD LENGTH 85600000 AGO .CD9 85650000 .CDE DS H - DCBLRECL - LOGICAL RECORD LENGTH 85750000 .CD9 ANOP 85800000 DCBCNTRL DS 0A - ADDRESS OF CNTRL MODULE 85850000 DCBNOTE DS 0A - ADDRESS OF NOTE/POINT MODULE 85900000 DCBPOINT DS A - ADDRESS OF NOTE/POINT MODULE 85950000 SPACE 1 86000000 .CE AIF (NOT &DSORGQS).FIN 86050000 *********************************************************************** 86051000 * QSAM INTERFACE 86100000 *********************************************************************** 86101000 SPACE 1 86150000 AIF (NOT &DSORGDA).CE1 86200000 ORG IHADCB+52 86250000 DCBGERR DS 0A - ADDRESS OF SYNCHRONIZING ROUTINE FOR GET 86300000 DCBPERR DS 0A - ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT 86350000 DS BL1 - DCBOPTCD - OPTION CODES 86400000 DCBGERRA DS 0AL3 - ADDRESS OF SYNCHRONIZING ROUTINE FOR GET 86450000 DCBPERRA DS AL3 - ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT 86500000 SPACE 1 86550000 .CE1 ORG IHADCB+72 86650000 DCBLCCW DS 0A - FOR EXCHANGE BUFFERING, ADDRESS OF LAST 86700000 * CCW IN LIST 86750000 DCBEOBAD DS A - FOR SIMPLE BUFFERING, ADDRESS OF LAST 86800000 * BYTE OF CURRENT BUFFER 86850000 DCBCCCW DS 0A - FOR EXCHANGE BUFFERING, ADDRESS OF 86900000 * CURRENT OR NEXT CCW 86950000 DCBRECAD DS 0A - ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000 DCBRECBT DS BL1 - FLAG BYTE 87050000 DCBRCREL EQU DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3 RELSE MACRO HAS BEEN 87100000 * ISSUED (QSAM WITH SIMPLE BUFFERING) 87150000 DCBRCTRU EQU DCBBIT0 - TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE 87200000 * MODE) 87250000 DCBRCFGT EQU DCBBIT1 - FIRST GET AFTER OPEN (QSAM LOCATE MODE) 87300000 DCBRECA DS AL3 - ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000 DS B - DCBQSWS - FLAG BYTE 87400000 DS FL1 - DCBDIRCQ - NUMBER OF BYTES USED IN LAST 87450000 * DIRECTORY BLOCK (RANGE 0-254) 87500000 AIF (&DSORGIS OR &DSORGBS).CEE 87550000 DCBLRECL DS H - LOGICAL RECORD LENGTH 87600000 AGO .CEEA 87650000 .CEE DS H - DCBLRECL - LOGICAL RECORD LENGTH 87750000 .CEEA AIF (&DSORGBS).CEF 87800000 DCBCNTRL DS 0A - ADDRESS OF CNTRL MODULE 87850000 AGO .CEF1 87900000 .CEF DS 0A - DCBCNTRL - ADDRESS OF CNTRL MODULE 88000000 .CEF1 ANOP 88050000 DCBEROPT DS BL1 - ERROR OPTION 88100000 DCBERACC EQU DCBBIT0 - ACCEPT PERMANENT ERROR 88150000 DCBERSKP EQU DCBBIT1 - SKIP PERMANENT ERROR 88200000 DCBERABE EQU DCBBIT2 - ABNORMAL END OF TASK 88250000 AIF (&DSORGBS).CEF2 88300000 DCBCNTRA DS AL3 - ADDRESS OF CNTRL MODULE 88350000 AGO .CEF3 88400000 .CEF2 DS AL3 - DCBCNTRA - ADDRESS OF CNTRL MODULE 88500000 .CEF3 DS XL2 - RESERVED 88600000 DCBPRECL DS H - FORMAT F RECORDS: BLOCK LENGTH 88601000 * FORMAT U RECORDS: MAXIMUM BLOCK LENGTH 88602000 * FORMAT V RECORDS: 88603000 * UNSPANNED RECORDS: MAXIMUM BLOCK LENGTH 88604000 * SPANNED RECORDS: 88605000 * PUT, NOT DATA MODE: 88606000 * MAXIMUM BOLCK LENGTH 88607000 * PUT, DATA MODE: 88608000 * DATA LENGTH 88609000 * GET: 88610000 * SEGMENT CONTROL CODE OF PREVIOUS 88611000 * SEGMENT 88612000 DCBEOB DS A - ADDRESS OF END OF BLOCK MODULE 88750000 SPACE 1 88800000 MEXIT YA03395 88810000 .CF AIF (NOT &DSORGLR OR &DSORGIS).FIN YA03395 88850000 ORG IHADCB+82 88900000 DCBLRECL DS H - LOGICAL RECORD LENGTH 88950000 SPACE 1 89000000 MEXIT YA03395 89050000 .SLIP ANOP 89100000 *********************************************************************** 89101000 * GRAPHIC DEVICE INTERFACE 89150000 *********************************************************************** 89151000 SPACE 1 89200000 DS XL12 - RESERVED 89300000 DCBBRSA DS AL2 - BUFFER RESTART ADDRESS. BLANK BEFORE 89350000 * EXECUTION OF SECOND I/O OPERATION 89400000 DCBGTYPE DS CL1 - TYPE OF BUFFER MANAGEMENT AND ATTENTION 89450000 * HANDLING 89500000 DCBGTEXP EQU X'00' - EXPRESS 89550000 DCBGTBAS EQU X'01' - BASIC 89600000 DS X - RESERVED 89650000 DCBBFRST DS AL2 - BLANK BEFORE EXECUTION OF OPEN ROUTINE. 89700000 * STARTING ADDRESS FOR BUFFER AFTER 89750000 * EXECUTION OF OPEN ROUTINE 89800000 DCBBFRSZ DS H - BLANK BEFORE EXECUTION OF OPEN ROUTINE. 89850000 * SIZE OF BUFFER AFTER EXECUTION OF OPEN 89900000 * ROUTINE. 89950000 SPACE 1 90000000 *********************************************************************** 90001000 * COMMON INTERFACE 90050000 *********************************************************************** 90051000 SPACE 1 90100000 DS XL6 - RESERVED 90150000 DCBDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 90200000 DCBDSRG1 DS BL1 - FIRST BYTE OF DCBDSORG 90250000 DCBDSGIS EQU DCBBIT0 - IS - INDEXED SEQUENTIAL ORGANIZATION 90300000 DCBDSGPS EQU DCBBIT1 - PS - PHYSICAL SEQUENTIAL ORGANIZATION 90350000 DCBDSGDA EQU DCBBIT2 - DA - DIRECT ORGANIZATION 90400000 DCBDSGCX EQU DCBBIT3 - CX - BTAM OR QTAM LINE GROUP 90450000 DCBDSGPO EQU DCBBIT6 - PO - PARTITIONED ORGANIZATION 90600000 DCBDSGU EQU DCBBIT7 - U - UNMOVABLE, THE DATA CONTAINS 90650000 * LOCATION DEPENDENT INFORMATION 90700000 DCBDSRG2 DS BL1 - SECOND BYTE OF DCBDSORG 90750000 DCBDSGGS EQU DCBBIT0 - GS - GRAPHICS ORGANIZATION 90800000 DCBDSGTX EQU DCBBIT1 - TX - TCAM LINE GROUP 90850000 DCBDSGTQ EQU DCBBIT2 - TQ - TCAM MESSAGE QUEUE 90900000 DCBACBM EQU DCBBIT4 - ACCESS METHOD CONTROL BLOCK 90950000 DCBDSGTR EQU DCBBIT5 - TR - TCAM 3705 90960000 DCBIOBAD DS A - BLANK BEFORE EXECUTION OF OPEN ROUTINE. 91000000 * ADDRESS OF STANDARD FIELDS OF FIRST IOB 91050000 * AFTER EXECUTION OF OPEN ROUTINE 91100000 SPACE 1 91150000 *********************************************************************** 91151000 * FOUNDATION EXTENSION 91200000 *********************************************************************** 91201000 SPACE 1 91250000 DCBPOLST DS 0A - ADDRESS OF AREA WHERE A DCB LIST IS TO BE 91300000 * CONSTRUCTED FOR POLLING PURPOSES 91350000 DCBGNCP DS FL1 - NUMBER OF I/O INSTRUCTIONS TO BE ISSUED 91400000 * BEFORE A WAIT MACRO INSTRUCTION 91450000 DCBPOLSA DS AL3 - SAME AS DCBPOLST ABOVE 91500000 DCBEXLST DS 0A - ADDRESS OF USER'S EXIT LIST 91550000 DS X - RESERVED 91600000 DCBEXLSA DS AL3 - ADDRESS OF USER'S EXIT LIST 91650000 SPACE 1 91700000 *********************************************************************** 91701000 * FOUNDATION BEFORE OPEN 91750000 *********************************************************************** 91751000 SPACE 1 91800000 DCBDDNAM DS CL8 - 8-BYTE NAME FROM DD STATEMENT THAT 91850000 * DEFINES DATA SET ASSOCIATED WITH THIS DCB 91900000 DCBOFLG DS BL1 - FLAGS USED BY OPEN ROUTINE 91950000 DCBOFGRW EQU DCBBIT0 - IF ZERO, LAST I/O OPERATION WAS GREAD. 92000000 * IF ONE, LAST I/O OPERATION WAS GWRITE. 92050000 DCBOFEOV EQU DCBBIT2 - SET TO 1 BY EOV WHEN IT CALLS CLOSE 92100000 * ROUTINE FOR CONCATENATION OF DATA SETS 92150000 * WITH UNLIKE ATTRIBUTES 92200000 DCBOFOPN EQU DCBBIT3 - AN OPEN HAS BEEN SUCCESSFULLY COMPLETED 92250000 DCBOFPPC EQU DCBBIT4 - SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 92300000 * CONCATENATION OF UNLIKE ATTRIBUTES 92350000 DCBOFTM EQU DCBBIT5 - TAPE MARK HAS BEEN READ 92400000 DCBOFUEX EQU DCBBIT6 - SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN 92450000 * THAT FUNCTION TAKES A USER EXIT. SET TO 1 92500000 * ON RETURN FROM USER EXIT TO THE I/O 92550000 * SUPPORT FUNCTION WHICH TOOK THE EXIT. 92600000 DCBOFIOF EQU DCBBIT7 - SET TO 1 BY AN I/O SUPPORT FUNCTION IF 92650000 * DCB IS TO BE PROCESSED BY THAT FUNCTION 92700000 DCBIFLG DS BL1 - SET TO ZERO BY GRAPHIC ROUTINES BUT USED 92750000 * BY IOS IN COMMUNICATING ERROR CONDITIONS 92800000 * AND IN DETERMINING CORRECTIVE PROCEDURES 92850000 DCBMACR DS 0BL2 - MACRO INSTRUCTION REFERENCE 92900000 DCBMACR1 DS BL1 - FIRST BYTE OF DCBMACR 92950000 DCBMRRD EQU DCBBIT2 - READ 93000000 DCBMRCRL EQU DCBBIT6 - CNTRL 93050000 DCBMACR2 DS BL1 - SECOND BYTE OF DCBMACR 93100000 DCBMRWRT EQU DCBBIT2 - WRITE 93150000 DCBMRCTL EQU DCBBIT6 - CNTRL 93200000 SPACE 1 93250000 *********************************************************************** 93251000 * FOUNDATION AFTER OPEN 93300000 *********************************************************************** 93301000 SPACE 1 93350000 ORG IHADCB+40 93400000 DCBTIOT DS AL2 - OFFSET FROM TIOT ORIGIN TO DD ENTRY 93450000 * ASSOCIATED WITH THIS DCB 93500000 DCBMACRF DS 0BL2 - SAME AS DCBMACR BEFORE OPEN 93550000 DCBMACF1 DS BL1 - FIRST BYTE OF DCBMACRF 93600000 DCBMACF2 DS BL1 - SECOND BYTE OF DCBMACRF 93650000 DCBDEBAD DS 0A - ADDRESS OF ASSOCIATED DEB 93700000 DCBIFLGS DS BL1 - SAME AS DCBIFLG BEFORE OPEN 93750000 DCBDEBA DS AL3 - ADDRESS OF ASSOCIATED DEB 93800000 DCBGIOCR DS 0A - ADDRESS OF GRAPHICS I/O CONTROL ROUTINE 93850000 DCBOFLGS DS BL1 - SAME AS DCBOFLG BEFORE OPEN 93900000 DCBGIOCA DS AL3 - ADDRESS OF GRAPHICS I/O CONTROL ROUTINE 93950000 SPACE 1 94000000 .FIN MEND 94100000 END 94150000