* %GOTO DCBBSL; /* 00020000 MACRO 00040000 IHADCB &DSORG=,&DEVD= 00060000 DCBD DSORG=&DSORG,DEVD=&DEVD 00080000 MEND , */ 00100000 *%DCBBSL : ; 00120000 *%/* CHANGES TO THIS MACRO SHOULD ALSO BE MADE TO THE DCBD MACRO. */; 00130000 * 00140000 */* **************************************************************** */ 00160000 */* BEFORE THE INCLUDE FOR THIS MACRO, THE MACRO VARIABLES */ 00180000 */* LISTED BELOW MUST BE SET TO 0 (OPTION NOT WANTED) OR */ 00200000 */* 1 (OPTION WANTED). THERE SHOULD BE AT LEAST ONE DSORG */ 00220000 */* VARIABLE AND ONE DEVD VARIABLE SET TO 1 UNLESS DSORGGS */ 00240000 */* OR DSORGLR IS SET. IF DSORGGS IS SET TO 1, IT */ 00260000 */* MUST BE THE ONLY VARIABLE SET TO 1. IF NO DSORG VARIABLE */ 00280000 */* IS SET TO 1, EXCP WITH EXTENSION IS ASSUMED. */ 00300000 */* */ 00320000 */* MACRO IHADCBDF CONTAINS MACRO-TIME PLS STATEMENTS TO */ 00340000 */* DECLARE AND SET TO 0 ALL THE MACRO VARIABLES FOR IHADCB. */ 00360000 */* YOU SHOULD INCLUDE IHADCBDF, THEN PUT STATEMENTS TO SET */ 00380000 */* THE PROPER MACRO VARIABLES TO 1, AND THEN INCLUDE IHADCB. */ 00400000 */* */ 00420000 */* THE MACRO VARIABLES ARE THE FOLLOWING - */ 00440000 */* */ 00460000 */* DSORGIS - ISAM */ 00480000 */* DSORGDA - BDAM */ 00500000 */* DSORGBX - BTAM LINE GROUP */ 00520000 */* DSORGCX - BTAM AND QTAM LINE GROUPS */ 00540000 */* DSORGQX - QTAM LINE GROUP */ 00560000 */* DSORGQS - QSAM */ 00620000 */* DSORGPS - QSAM AND BSAM-BPAM */ 00640000 */* DSORGBS - BSAM-BPAM */ 00660000 */* DSORGPO - BSAM-BPAM */ 00680000 */* DSORGXA - EXCP WITH APPENDAGES */ 00700000 */* DSORGXE - EXCP WITH EXTENSION */ 00720000 */* DSORGLR - DCBLRECL FIELD ONLY */ 00740000 */* DSORGGS - GRAPHICS WITH APPENDAGES */ 00760000 */* DSORGTX - TCAM LINE GROUP */ 00780000 */* DSORGTQ - TCAM MESSAGE QUEUE */ 00800000 */* DSORGTR - TCAM 3705 S22024*/ 00810000 */* DEVDDA - DIRECT ACCESS */ 00820000 */* DEVDTA - MAGNETIC TAPE */ 00840000 */* DEVDPT - PAPER TAPE */ 00860000 */* DEVDPR - PRINTER */ 00880000 */* DEVDRD - CARD READER */ 00900000 */* DEVDPC - CARD PUNCH */ 00920000 */* DEVDBS - BINARY SYNCHRONOUS COMMUNICATION */ 00940000 */* DEVDWT - WORLD TRADE TELEGRAPH */ 00960000 */* DEVDMR - MAGNETIC CARD READER */ 00980000 */* DEVDOR - OPTICAL READER */ 01000000 */* */ 01020000 */* **************************************************************** */ 01022000 */* */ 01025900 */* OS/VS2 RELEASE 02, 12/13/73 */ 01030000 */* OS/VS2 RELEASE 04, 02/13/75 */ 01031000 */* */ 01041000 */* OS/VS2 RELEASE 04, 06/05/75 */ 01060000 */* */ 01066000 */* */ 01069900 */* OS/VS2 RELEASE 03.864, 07/28/78 (3203-4 SUPPORT) @32034AP*/ 01072000 */* @32034AP*/ 01073000 */*A074905,074910 @32034AP*/ 01074000 */*C074900 @32034AP*/ 01075000 */* */ 01077400 */* OS/VS2 RELEASE 03.8, 08/20/79 (FEATURE FDM-1133) @G38ESMH*/ 01078600 */* OS/VS2 RELEASE 03.8, CHANGES, FMID=FDM1133, 5/15/80 @ZA46311*/ 01079000 */* */ 01079400 */*C(049400),A(049426-049582),D(049600),A(049608-049790) @ZA46311*/ 01079500 */*D(049800),A(049816-049972) @ZA46311*/ 01079600 */*$F01=OZ59799,FDM1133:DCBDEVT DEFINITION FOR D/T3375 AND @F01A*/ 01079700 */* D/T3380 @F01A*/ 01079800 */* */ 01079900 */* **************************************************************** */ 01080000 * 01100000 *%IF DSORGCX=1 %THEN /* IF DSORGCX IS SET TO 1, */ 01120000 * %DSORGBX=1; /* SET DSORGBX AND */ 01140000 *%IF DSORGCX=1 %THEN /* DSORGQX TO 1 */ 01160000 * %DSORGQX=1; 01180000 *%IF DSORGPS=1 %THEN /* IF DSORGPS IS SET TO 1, */ 01200000 * %DSORGBS=1; /* SET DSORGBS AND */ 01220000 *%IF DSORGPS=1 %THEN /* DSORGQS TO 1 */ 01240000 * %DSORGQS=1; 01260000 *%IF DSORGPO=1 %THEN 01280000 * %DSORGBS=1; 01300000 *%IF DEVDPC=1 %THEN 01320000 * %DEVDRD=1; 01340000 * 01360000 *%IF DSORGLR=0 %THEN /* IF NOT DCBLRECL ONLY, */ 01380000 * %GOTO B1A; /* SKIP OVER COMMENTS */ 01380200 *%IF DSORGIS=1 %THEN /* IF ALSO ANY OTHER DSORG */ 01381000 * %GOTO B1A; /* BR TO COMMENTS YA03395*/ 01382000 *%IF DSORGQS=1 %THEN /* YA03395*/ 01383000 * %GOTO B1A; /* YA03395*/ 01384000 *%IF DSORGBS=1 %THEN /* YA03395*/ 01385000 * %GOTO B1A; /* YA03395*/ 01386000 *%IF DSORGDA=1 %THEN /* YA03395*/ 01387000 * %GOTO B1A; /* YA03395*/ 01388000 *%IF DSORGBX=1 %THEN /* YA03395*/ 01389000 * %GOTO B1A; /* YA03395*/ 01390000 *%IF DSORGQX=1 %THEN /* YA03395*/ 01391000 * %GOTO B1A; /* YA03395*/ 01392000 *%IF DSORGTX=1 %THEN /* YA03395*/ 01397000 * %GOTO B1A; /* YA03395*/ 01398000 *%IF DSORGTQ=1 %THEN /* YA03395*/ 01399000 * %GOTO B1A; /* YA03395*/ 01400000 *%IF DSORGTR=1 %THEN /* YA03395*/ 01401000 * %GOTO B1A; /* YA03395*/ 01402000 *%IF DSORGXA=1 %THEN /* YA03395*/ 01403000 * %GOTO B1A; /* YA03395*/ 01404000 *%IF DSORGXE=1 %THEN /* YA03395*/ 01405000 * %GOTO B1A; /* YA03395*/ 01406000 *%IF DSORGGS=0 %THEN /* YA03395*/ 01407000 * %GOTO BA; /* YA03395*/ 01408000 *%B1A : ; /* YA03395*/ 01409000 */* DCB SYMBOLIC DEFINITION FOR */ 01420000 *%IF DSORGIS=0 %THEN 01440000 * %GOTO B2; 01460000 */* INDEXED SEQUENTIAL */ 01480000 *%B2 : ; 01500000 *%IF DSORGQS=0 %THEN /* IF BOTH */ 01520000 * %GOTO B2B; /* QSAM AND BSAM-BPAM, */ 01540000 *%IF DSORGBS=0 %THEN /* DO NOT */ 01560000 * %GOTO B2A; /* BRANCH */ 01580000 */* PHYSICAL SEQUENTIAL */ 01600000 *%GOTO B3 ; 01620000 *%B2A : ; 01640000 *%IF DSORGQS=0 %THEN 01660000 * %GOTO B2B; 01680000 */* QSAM */ 01700000 *%B2B : ; 01720000 *%IF DSORGBS=0 %THEN 01740000 * %GOTO B3; 01760000 */* BSAM-BPAM */ 01780000 *%B3 : ; 01800000 *%IF DSORGDA=0 %THEN 01820000 * %GOTO B4; 01840000 */* DIRECT ACCESS */ 01860000 *%B4 : ; 01880000 *%IF DSORGBX=0 %THEN /* IF BOTH */ 01900000 * %GOTO B4B; /* BTAM AND QTAM, */ 01920000 *%IF DSORGQX=0 %THEN /* DO NOT */ 01940000 * %GOTO B4A; /* BRANCH */ 01960000 */* COMMUNICATIONS LINE GROUP */ 01980000 *%GOTO B5 ; 02000000 *%B4A : ; 02020000 *%IF DSORGBX=0 %THEN 02040000 * %GOTO B4B; 02060000 */* BTAM LINE GROUP */ 02080000 *%B4B : ; 02100000 *%IF DSORGQX=0 %THEN 02120000 * %GOTO B5; 02140000 */* QTAM LINE GROUP */ 02160000 *%B5 : ; 02180000 *%IF DSORGTX=0 %THEN 02360000 * %GOTO B6B; 02380000 */* TCAM LINE GROUP */ 02400000 *%B6B : ; 02420000 *%IF DSORGTQ=0 %THEN 02440000 * %GOTO B7; 02460000 */* TCAM MESSAGE QUEUE */ 02480000 *%B7 : ; 02500000 *%IF DSORGTR=0 %THEN 02510000 * %GOTO B7A; /* S22024*/ 02512000 */* 3705 LINE GROUP */ 02514000 *%B7A : ; /* S22024*/ 02516000 *%IF DSORGXA=0 %THEN /* IF EXCP WITH BOTH */ 02520000 * %GOTO B8; /* EXTENSION AND */ 02540000 *%IF DSORGXE=0 %THEN /* APPENDAGES, */ 02560000 * %GOTO B9; /* DO NOT BRANCH */ 02580000 */* EXCP WITH EXTENSION AND APPENDAGES */ 02600000 *%GOTO BA ; 02620000 *%B8 : ; 02640000 *%IF DSORGXE=0 %THEN 02660000 * %GOTO B9; 02680000 */* EXCP WITH EXTENSION */ 02700000 *%GOTO BA ; 02720000 *%B9 : ; 02740000 *%IF DSORGXA=0 %THEN 02760000 * %GOTO B0; 02780000 */* EXCP WITH APPENDAGES */ 02800000 *%GOTO BA ; 02820000 *%B0 : ; 02840000 *%IF DSORGGS=0 %THEN 02860000 * %GOTO B00; 02880000 */* GRAPHICS WITH APPENDAGES */ 02900000 *%GOTO BA ; 02920000 *%B00 : ; 02940000 *%IF DSORGIS=1 %THEN /* IF ANY DSORG VARIABLE */ 02960000 * %GOTO BA; /* IS SET TO ONE, */ 02980000 *%IF DSORGBX=1 %THEN /* BRANCH TO BA */ 03000000 * %GOTO BA; 03020000 *%IF DSORGDA=1 %THEN 03040000 * %GOTO BA; 03060000 *%IF DSORGQX=1 %THEN 03080000 * %GOTO BA; 03100000 *%IF DSORGQS=1 %THEN 03200000 * %GOTO BA; 03220000 *%IF DSORGBS=1 %THEN 03240000 * %GOTO BA; 03260000 *%IF DSORGTX=1 %THEN 03280000 * %GOTO BA; 03300000 *%IF DSORGTQ=1 %THEN 03320000 * %GOTO BA; 03340000 *%IF DSORGLR=1 %THEN 03360000 * %GOTO BA; 03380000 *%IF DSORGTR=1 %THEN 03390000 * %GOTO BA; /* S22024*/ 03392000 */* EXCP WITH EXTENSION */ 03400000 *%DSORGXE=1; 03420000 *%BA : ; 03440000 * 03460000 *%IF DSORGGS=1 %THEN 03480000 * %GOTO SLIP; 03500000 * 03520000 *DECLARE 03540000 * 1 IHADCB BASED(DCBPTR), 03560000 * 2 * CHAR(52); /* DESCRIBED IN FOLLOWING 03580000 * STRUCTURES */ 03600000 * 03620000 *%IF DEVDDA=1 %THEN /* IF NO DEVD VARIABLE IS */ 03640000 * %GOTO C1A; /* SET TO ONE, */ 03660000 *%IF DEVDTA=1 %THEN /* BRANCH TO C4 */ 03680000 * %GOTO C1A; 03700000 *%IF DEVDPT=1 %THEN 03720000 * %GOTO C1A; 03740000 *%IF DEVDPR=1 %THEN 03760000 * %GOTO C1A; 03780000 *%IF DEVDRD=1 %THEN 03800000 * %GOTO C1A; 03820000 *%IF DEVDWT=1 %THEN 03840000 * %GOTO C1A; 03860000 *%IF DEVDOR=1 %THEN 03880000 * %GOTO C1A; 03900000 *%IF DEVDMR=0 %THEN 03920000 * %GOTO C4; 03940000 *%C1A: ; 03960000 */* DEVICE INTERFACES */ 03980000 * 04000000 *%IF DEVDDA=0 %THEN 04020000 * %GOTO C1; 04040000 */* DIRECT ACCESS DEVICES */ 04060000 * 04080000 *DECLARE 1 IHADCS00 04100000 * BASED(ADDR(IHADCB)), 04120000 * 2 DCBRELAD CHAR(4), /* PARTITIONED ORGANIZATION 04140000 * DATA SET - ADDRESS (IN 04160000 * THE FORM TTRN) OF MEMBER 04180000 * CURRENTLY USED. --- 04200000 * SYS1.LOGREC DATA SET - 04220000 * IF CCH OPTION HAS BEEN 04240000 * SPECIFIED IN SYSGEN 04260000 * PROCESS, ADDRESS OF A 04280000 * 12-BYTE PARAMETER IN THE 04300000 * EXPANSION OF MACRO 04320000 * INSTRUCTION IGFCATAP */ 04340000 * 2 DCBKEYCN PTR(8), /* KEYED BLOCK OVERHEAD 04360000 * CONSTANT */ 04380000 * 2 DCBFDAD CHAR(8); /* FULL DISK ADDRESS IN THE 04400000 * FORM OF MBBCCHHR OF 04420000 * RECORD THAT WAS JUST 04440000 * READ OR WRITTEN */ 04460000 * 04480000 *DECLARE 1 IHADCS01 04500000 * BASED(ADDR(DCBFDAD)+7), 04520000 * 2 DCBDVTBL PTR(31), /* SAME AS DCBDVTBA BELOW */ 04540000 * 3 * CHAR(1), /* LAST BYTE OF DCBFDAD */ 04560000 * 3 DCBDVTBA PTR(24), /* ADDRESS OF ENTRY IN I/O 04580000 * DEVICE CHARACTERISTICS 04600000 * TABLE FOR DEVICE BEING 04620000 * USED */ 04640000 * 2 * PTR(8), /* DCBKEYLE - KEY LENGTH OF 04660000 * DATA SET */ 04680000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 04700000 *%;/* FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION */ 04720000 *%DCL DCBDV311 CHAR; 04740000 *%DCBDV311='''21''X'; /* 2311 DISK DRIVE */ 04760000 *%DCL DCBDV301 CHAR; 04780000 *%DCBDV301='''22''X'; /* 2301 PARALLEL DRUM */ 04800000 *%DCL DCBDV303 CHAR; 04820000 *%DCBDV303='''23''X'; /* 2303 SERIAL DRUM */ 04840000 *%DCL DCBDV302 CHAR; 04860000 *%DCBDV302='''24''X'; /* 2302 DISK STORAGE */ 04880000 *%DCL DCBDV321 CHAR; 04900000 *%DCBDV321='''25''X'; /* 2321 DATA CELL DRIVE */ 04920000 *%DCL DCBD1305 CHAR; /* @ZA46311*/ 04940000 *%DCBD1305='''26''X'; /* 2305 DRUM MOD-1 @ZA46311*/ 04942700 *%DCL DCBDV305 CHAR; /* @ZA46311*/ 04945400 *%DCBDV305='''27''X'; /* 2305 DRUM MOD-2 @ZA46311*/ 04948100 *%DCL DCBDV314 CHAR; 04950800 *%DCBDV314='''28''X'; /* 2314/2319 DISK STORAGE 04953500 * FACILITY @ZA46311*/ 04954800 *%DCL DCBDV330 CHAR; /* @ZA46311*/ 04956200 *%DCBDV330='''29''X'; /* 3330 DISK STORAGE FACILITY 04958900 * 3330 MODEL-1 @ZA46311 04961600 * 3330 MODEL-2 @ZA46311 04964300 * 3333 MODEL-1 @ZA46311*/ 04967000 *%DCL DCBDV340 CHAR; /* @ZA46311*/ 04969700 *%DCBDV340='''2A''X'; /* 3340/3344 DISK STORAGE 04972400 * FACILITY @ZA46311*/ 04975100 *%DCL DCBDV350 CHAR; /* @ZA46311*/ 04977800 *%DCBDV350='''2B''X'; /* 3350 DISK STORAGE 04980500 * FACILITY @ZA46311 04983200 * MODELS A2,B2,C2 @ZA46311*/ 04985900 *%DCL DCBDV375 CHAR; /* @F01A*/ 04986500 *%DCBDV375='''2C''X'; /* 3375 DISK STORAGE 04987100 * FACILITY @F01A*/ 04987700 *%DCL DCBDV331 CHAR; /* @ZA46311*/ 04988600 *%DCBDV331='''2D''X'; /* 3330 MODEL-11 OR 04991300 * 3333 MODEL-11 DISK STORAGE 04994000 * FACILITY @ZA46311*/ 04996700 *%DCL DCBDV380 CHAR; /* @F01A*/ 04997500 *%DCBDV380='''2E''X'; /* 3380 DISK STORAGE 04998300 * FACILITY @F01A*/ 04999100 * 2 DCBTRBAL FIXED(15); /* TRACK BALANCE. NUMBER OF 05000000 * BYTES REMAINING ON 05020000 * CURRENT TRACK AFTER A 05040000 * WRITE OPERATION (THIS 05060000 * QUANTITY MAY BE NEGATIVE 05080000 * IF THERE ARE NO BYTES 05100000 * REMAINING ON TRACK). */ 05120000 * 05140000 *%C1 : ; 05160000 *%IF DEVDTA=0 %THEN 05180000 * %GOTO C2; 05200000 */* MAGNETIC TAPE */ 05220000 * 05240000 *DECLARE 1 IHADCS02 05260000 * BASED(ADDR(IHADCB)), 05280000 * 2 * CHAR(12), /* RESERVED FOR I/O 05300000 * SUPERVISOR */ 05320000 * 2 DCBBLKCT FIXED(31), /* BLOCK COUNT FOR EACH 05340000 * VOLUME */ 05360000 * 2 DCBTRTCH CHAR(1), /* TAPE RECORDING TECHNIQUE 05380000 * FOR 7-TRACK TAPE */ 05400000 *%DCL DCBMTE CHAR; 05420000 *%DCBMTE ='''23''X'; /* E - EVEN PARITY */ 05440000 *%DCL DCBMTT CHAR; 05460000 *%DCBMTT ='''3B''X'; /* T - BCD/EBCDIC 05480000 * TRANSLATION */ 05500000 *%DCL DCBMTC CHAR; 05520000 *%DCBMTC ='''13''X'; /* C - DATA CONVERSION */ 05540000 *%DCL DCBMTET CHAR; 05560000 *%DCBMTET ='''2B''X'; /* ET - EVEN PARITY AND 05580000 * TRANSLATION */ 05600000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 05620000 *%DCL DCBDVMT CHAR; 05640000 *%DCBDVMT ='''81''X'; /* 2400 SERIES MAGNETIC 05660000 * TAPE UNIT (7-TRACK OR 05680000 * 9-TRACK) */ 05700000 *%DCL DCBDVMT3 CHAR; 05720000 *%DCBDVMT3='''83''X'; /* 3400 SERIES MAGNETIC 05740000 * TAPE UNIT ICB277*/ 05760000 * 2 DCBDEN CHAR(1), /* TAPE DENSITY - 2400 05780000 * SERIES MAGNETIC TAPE 05800000 * UNITS */ 05820000 *%;/* CODE 7-TRACK 9-TRACK */ 05840000 *%DCL DCBMTDN0 CHAR; 05860000 *%DCBMTDN0='''03''X'; /* 0 200 BPI - */ 05880000 *%DCL DCBMTDN1 CHAR; 05900000 *%DCBMTDN1='''43''X'; /* 1 556 BPI - */ 05920000 *%DCL DCBMTDN2 CHAR; 05940000 *%DCBMTDN2='''83''X'; /* 2 800 BPI 800 BPI */ 05960000 *%DCL DCBMTDN3 CHAR; 05980000 *%DCBMTDN3='''C3''X'; /* 3 - 1600 BPI */ 06000000 *%DCL DCBMTDN4 CHAR; /* 99223 */ 06010000 *%DCBMTDN4='''D3''X'; /* 4 - 6250 BPI */ 06012000 * 2 * CHAR(1); /* RESERVED */ 06020000 * 06040000 *%C2 : ; 06060000 *%IF DEVDPT=0 %THEN 06080000 * %GOTO C3; 06100000 */* PAPER TAPE */ 06120000 * 06140000 *DECLARE 1 IHADCS03 06160000 * BASED(ADDR(IHADCB)+8), 06180000 * 2 DCBLCTBL PTR(31), /* ADDRESS OF TRANSLATE 06200000 * TABLE */ 06220000 * 2 * CHAR(4), /* RESERVED */ 06240000 * 2 DCBCODE CHAR(1), /* PAPER TAPE CODE BEING 06260000 * USED. THE APPROPRIATE 06280000 * TRANSLATE TABLE IS MADE 06300000 * AVAILABLE */ 06320000 *%DCL DCBPTCDN CHAR; 06340000 *%DCBPTCDN='''80''X'; /* N - NO CONVERSION */ 06360000 *%DCL DCBPTCDI CHAR; 06380000 *%DCBPTCDI='''40''X'; /* I - IBM BCD */ 06400000 *%DCL DCBPTCDF CHAR; 06420000 *%DCBPTCDF='''20''X'; /* F - FRIDEN */ 06440000 *%DCL DCBPTCDB CHAR; 06460000 *%DCBPTCDB='''10''X'; /* B - BURROUGHS */ 06480000 *%DCL DCBPTCDC CHAR; 06500000 *%DCBPTCDC='''08''X'; /* C - NATIONAL CASH 06520000 * REGISTER */ 06540000 *%DCL DCBPTCDA CHAR; 06560000 *%DCBPTCDA='''04''X'; /* A - ASCII (8-TRACK) */ 06580000 *%DCL DCBPTCDT CHAR; 06600000 *%DCBPTCDT='''02''X'; /* T - TELETYPE */ 06620000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 06640000 *%DCL DCBDVPTP CHAR; 06660000 *%DCBDVPTP='''50''X'; /* 2671 PAPER TAPE READER */ 06680000 * 2 * CHAR(1), /* RESERVED */ 06700000 * 2 DCBPTFLG CHAR(1), /* PAPER TAPE FLAGS */ 06720000 * 3 * BIT(3), /* RESERVED */ 06740000 * 3 DCBPTIC BIT(1), /* INVALID CHARACTER IN 06760000 * LAST RECORD READ */ 06780000 * 3 DCBPTECT BIT(1), /* END OF RECORD CHARACTER 06800000 * REACHED IN TRANSLATION */ 06820000 * 3 DCBPTECR BIT(1), /* END OF RECORD CHARACTER 06840000 * DETECTED DURING READ */ 06860000 * 3 DCBPTUCT BIT(1), /* IF ONE, UPPER CASE 06880000 * TRANSLATE. IF ZERO, 06900000 * LOWER CASE TRANSLATE */ 06920000 * 3 DCBPTERR BIT(1); /* ERROR DETECTED ON READ */ 06940000 * 06960000 *%C3 : ; 06980000 *%IF DEVDPR=0 %THEN 07000000 * %GOTO C3A; 07020000 */* PRINTER */ 07040000 * 07060000 *DECLARE 1 IHADCS04 07080000 * BASED(ADDR(IHADCB)+16), 07100000 * 2 DCBPRTSP CHAR(1), /* NUMBER INDICATING NORMAL 07120000 * PRINTER SPACING */ 07140000 *%DCL DCBPRSP0 CHAR; 07160000 *%DCBPRSP0='''01''X'; /* 0 - NO SPACING */ 07180000 *%DCL DCBPRSP1 CHAR; 07200000 *%DCBPRSP1='''09''X'; /* 1 - SPACE ONE LINE */ 07220000 *%DCL DCBPRSP2 CHAR; 07240000 *%DCBPRSP2='''11''X'; /* 2 - SPACE TWO LINES */ 07260000 *%DCL DCBPRSP3 CHAR; 07280000 *%DCBPRSP3='''19''X'; /* 3 - SPACE THREE LINES */ 07300000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 07320000 *%DCL DCBDVPR1 CHAR; 07340000 *%DCBDVPR1='''48''X'; /* 1403 PRINTER AND 1404 07360000 * PRINTER (CONTINUOUS FORM 07380000 * SUPPORT ONLY) */ 07400000 *%DCL DCBDVPR2 CHAR; 07420000 *%DCBDVPR2='''4A''X'; /* 1443 PRINTER */ 07440000 *%DCL DCBDVPR3 CHAR; 07460000 *%DCBDVPR3='''49''X'; /* 3211 PRINTER */ 07480000 *%DCL DCBDVPR4 CHAR; /* 3203-4 @32034AP*/ 07490000 *%DCBDVPR4='''4B''X'; /* PRINTER @32034AP*/ 07490300 *%DCL DCBDVPR5 CHAR; /* 3800 PRINTER @Z40MSRZ*/ 07491000 *%DCBDVPR5='''4E''X'; /*@Z40MSRZ*/ 07492000 * 2 DCBPRTOV CHAR(1), /* TEST-FOR-PRINTER-OVERFLOW 07500000 * MASK (PRTOV MASK) */ 07520000 *%DCL DCBPRC9 CHAR; 07540000 *%DCBPRC9 ='''20''X'; /* 9 - TEST FOR CHANNEL 9 07560000 * OVERFLOW */ 07580000 *%DCL DCBPRC12 CHAR; 07600000 *%DCBPRC12='''10''X'; /* 12 - TEST FOR CHANNEL 12 07620000 * OVERFLOW */ 07640000 * 2 DCBPRBYT CHAR(1), /*PRINTER BYTE @Z40MSRZ*/ 07650000 * 3 * BIT(6), /*RESERVED @Z40MSRZ*/ 07652000 * 3 DCBTRCID BIT(2); /*3800- ID OF LAST @Z40MSRZ*/ 07654000 * /*ACTIVE TRANS TBL. @Z40MSRZ*/ 07656000 * 07680000 *%C3A : ; 07700000 *%IF DEVDRD=0 %THEN 07720000 * %GOTO C3B; 07740000 */* CARD READER, CARD PUNCH */ 07760000 * 07780000 *DECLARE 1 IHADCS05 07800000 * BASED(ADDR(IHADCB)+16), 07820000 * 2 DCBMODE CHAR(1), /* MODE OF OPERATION FOR 07840000 * 1442 CARD READ PUNCH 07860000 * (BITS 0-3) */ 07880000 * 3 DCBSTACK CHAR(1), /* STACKER SELECTION (BITS 07900000 * 4-7) */ 07920000 * 4 DCBMODEC BIT(1), /* COLUMN BINARY MODE */ 07940000 * 4 DCBMODEE BIT(1), /* EBCDIC MODE */ 07960000 * 4 DCBMODEO BIT(1), /* OPTICAL MARK READ MODE */ 07980000 * 4 DCBMODER BIT(1), /* READ COLUMN ELIMINATE 08000000 * MODE */ 08020000 * 4 * BIT(2), /* RESERVED */ 08040000 * 4 DCBSTCK2 BIT(1), /* STACKER 2 */ 08060000 * 4 DCBSTCK1 BIT(1), /* STACKER 1 */ 08080000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 08100000 *%DCL DCBDVCR0 CHAR; 08120000 *%DCBDVCR0='''41''X'; /* 2540 CARD READER */ 08140000 *%DCL DCBDVCP0 CHAR; 08160000 *%DCBDVCP0='''42''X'; /* 2540 CARD PUNCH */ 08180000 *%DCL DCBDVCRP CHAR; 08200000 *%DCBDVCRP='''43''X'; /* 1442 CARD READ PUNCH */ 08220000 *%DCL DCBDVCR1 CHAR; 08240000 *%DCBDVCR1='''44''X'; /* 2501 CARD READER */ 08260000 *%DCL DCBDVCPR CHAR; 08280000 *%DCBDVCPR='''45''X'; /* 2520 CARD READ PUNCH */ 08300000 *%DCL DCBDVCR2 CHAR; 08310000 *%DCBDVCR2='''46''X'; /* 3505 CARD READER XM0629*/ 08312000 *%DCL DCBDVCP1 CHAR; 08314000 *%DCBDVCP1='''4C''X'; /* 3525 CARD PUNCH XM0629*/ 08316000 * 2 * CHAR(1), /* RESERVED */ 08320000 * 2 DCBFUNC CHAR(1), /* FUNCTION INDICATOR FOR 08340000 * THE 3525 */ 08360000 * 3 DCBFNCBI BIT(1), /* INTERPRET (PUNCH AND 08380000 * PRINT TWO LINES) */ 08400000 * 3 DCBFNCBR BIT(1), /* READ */ 08420000 * 3 DCBFNCBP BIT(1), /* PUNCH */ 08440000 * 3 DCBFNCBW BIT(1), /* PRINT */ 08460000 * 3 DCBFNCBD BIT(1), /* DATA PROTECTION */ 08480000 * 3 DCBFNCBX BIT(1), /* THIS DATA SET IS TO BE 08500000 * PRINTED */ 08520000 * 3 DCBFNCBT BIT(1), /* TWO-LINE PRINT SUPPORT 08540000 * REQUEST */ 08560000 * 3 * BIT(1); /* RESERVED */ 08580000 * 08600000 *%C3B : ; 08620000 *%IF DEVDWT=0 %THEN 08640000 * %GOTO C3C; 08660000 */* WORLD TRADE TELEGRAPH */ 08680000 * 08700000 *DECLARE 1 IHADCS06 08720000 * BASED(ADDR(IHADCB)+16), 08740000 * 2 DCBBQFLG CHAR(1), /* WTTA FLAG BYTE */ 08760000 * 3 * BIT(1), /* RESERVED */ 08780000 * 3 DCBBQWRU BIT(1), /* WRU FEATURE IS TO BE 08800000 * USED */ 08820000 * 3 DCBBQIAM BIT(1), /* IAM FEATURE IS TO BE 08840000 * USED */ 08860000 * 3 DCBBQWRS BIT(1), /* WRU FEATURE TO BE USED 08880000 * IN SEND HEADER SUBGROUP */ 08900000 * 3 DCBBQWRE BIT(1), /* WRU FEATURE TO BE USED 08920000 * IN END SEND SUBGROUP */ 08940000 * 3 * BIT(3), /* RESERVED */ 08960000 * 2 DCBWTEOM CHAR(1), /* EOM CHARACTER */ 08980000 * 2 DCBWTEOT CHAR(1), /* EOT CHARACTER */ 09000000 * 2 DCBWTPAD PTR(8); /* NUMBER OF PAD (LTRS) 09020000 * CHARACTERS REQUIRED FOR 09040000 * MOTOR-ON DELAY */ 09060000 * 09080000 *%C3C : ; 09100000 *%IF DEVDOR=1 %THEN /* IF EITHER DEVDOR OR */ 09120000 * %GOTO C3C1; /* DEVDMR IS SET TO ONE, */ 09140000 *%IF DEVDMR=0 %THEN /* BRANCH TO */ 09160000 * %GOTO C4; /* C3C1 */ 09180000 *%C3C1: ; 09200000 */* OPTICAL READER AND MAGNETIC CHAR READER */ 09220000 * 09240000 *DECLARE 1 IHADCS07 09260000 * BASED(ADDR(IHADCB)), 09280000 * 2 DCBWTOID PTR(31), /* SAME AS DCBWTOIA BELOW */ 09300000 * 3 * CHAR(1), /* RESERVED */ 09320000 * 3 DCBWTOIA PTR(24); /* A BINARY IDENTIFICATION 09340000 * NUMBER ASSIGNED BY 09360000 * COMMUNICATIONS TASK TO 09380000 * MESSAGE ISSUED BY WTO 09400000 * MACRO. THIS NUMBER IS 09420000 * USED BY THE DOM MACRO 09440000 * WHEN MESSAGE IS NO 09460000 * LONGER REQUIRED (MCS 09480000 * SUPPORT). --- FOR 09500000 * MAGNETIC CHAR READER - 09520000 * AFTER FIRST READ HAS 09540000 * BEEN ISSUED, CONTAINS 09560000 * ADDRESS OF MAGNETIC 09580000 * INTERRUPT CONTROL BLOCK 09600000 * (MICB) BEING USED BY 09620000 * THE APPENDAGES. */ 09640000 * 09660000 *%IF DEVDOR=0 %THEN 09680000 * %GOTO C3D; 09700000 */* OPTICAL READER DEVICES */ 09720000 */* 1285, 1287, 1288, 3886 */ 09740000 * 09760000 *DECLARE 1 IHADCS08 09780000 * BASED(ADDR(DCBWTOID)+4), 09800000 * 2 DCBERRCN PTR(31), /* SAME AS DCBERRCA BELOW */ 09820000 * 3 DCBLNNUM PTR(8), /* 3886 DOCUMENT LINE NUMBER*/ 09840000 * 3 DCBERRCA PTR(24), /* ADDRESS OF 32 BYTES OF 09860000 * DECLARED STORAGE 09880000 * SPECIFIED BY THE USER IN 09900000 * HIS PROGRAM. THIS 09920000 * STORAGE WILL BE USED BY 09940000 * THE PROGRAMMING SUPPORT 09960000 * AS EIGHT 4-BYTE COUNTERS 09980000 * IN WHICH TOTALS OF 10000000 * CERTAIN 1285, 1287 AND 10020000 * 1288 ERROR CONDITIONS 10040000 * ARE ACCUMULATED. */ 10060000 * 4 DCBLFMAT PTR(8), /* 3886 LINE FORMAT NUMBER */ 10064000 * 4 DCBORFLG CHAR(1), /* 3886 FLAGS */ 10068000 * 5 DCBEOPFG BIT(1), /* END OF PAGE */ 10072000 * 5 * BIT(7), /* RESERVED */ 10076000 * 4 * PTR(8), /* RESERVED */ 10076800 * 2 DCBDSPLY PTR(31), /* SAME AS DCBDSPLA BELOW */ 10080000 * 3 DCBFRID CHAR(4), /* 3886 FORMAT RECORD ID */ 10084000 * 4 * CHAR(1), /* RESERVED */ 10104000 * 4 DCBDSPLA PTR(24), /* ADDRESS OF DSPLY (BSAM) 10124000 * ROUTINE USED FOR 10140000 * KEYBOARD ENTRY OF A 10160000 * COMPLETE FIELD */ 10180000 * 2 DCBRESCN PTR(31), /* SAME AS DCBRESCA BELOW */ 10200000 * 3 DCBRDLNE PTR(31), /* SAME AS DCBRDLNA BELOW */ 10220000 * 4 DCBFRTBA PTR(31), /* 3886 FORMAT RECORD TABLE */ 10224000 * 5 * CHAR(1), /* RESERVED */ 10244000 * 5 DCBRESCA PTR(24), /* ADDRESS OF RESCN (BSAM) 10264000 * ROUTINE USED TO FORCE 10280000 * ON-LINE CORRECTION OF 10300000 * UNREADABLE CHARACTERS */ 10320000 * 5 DCBRDLNA PTR(24), /* ADDRESS OF RDLNE (QSAM) 10340000 * ROUTINE USED TO FORCE 10360000 * ON-LINE CORRECTION OF 10380000 * UNREADABLE CHARACTERS */ 10400000 * 2 DCBORBYT CHAR(1), /* OPTICAL READER BYTE USED 10420000 * BY BSAM/QSAM */ 10440000 * 3 DCBORSYN BIT(1), /* SYNAD IN CONTROL */ 10460000 * 3 DCBOREOF BIT(1), /* END OF FILE (EOF) */ 10480000 * 3 DCBORBFP BIT(1), /* BUFFERS PRIMED (QSAM) */ 10500000 * 3 * BIT(5), /* RESERVED */ 10520000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 10540000 *%DCL DCBDVOR5 CHAR; 10560000 *%DCBDVOR5='''5A''X'; /* 1285 OPTICAL READER */ 10580000 *%DCL DCBDVOR7 CHAR; 10600000 *%DCBDVOR7='''5B''X'; /* 1287 OPTICAL READER */ 10620000 *%DCL DCBDVOR8 CHAR; 10640000 *%DCBDVOR8='''5C''X'; /* 1288 OPTICAL READER */ 10660000 *%DCL DCBDVOR9 CHAR; 10664000 *%DCBDVOR9='''57''X'; /* 3886 OPTICAL READER */ 10668000 * 2 DCBEIB CHAR(1), /* ERROR INDICATOR BYTE */ 10680000 * 3 * BIT(1), /* RESERVED */ 10700000 * 3 DCBORNRM BIT(1), /* THE 1287 OR 1288 SCANNER 10720000 * WAS UNABLE TO LOCATE 10740000 * THE REFERENCE MARK */ 10760000 * 3 DCBORREJ BIT(1), /* FOR 1287, A STACKER 10780000 * SELECT COMMAND WAS 10800000 * GIVEN AFTER ALLOTTED 10820000 * TIME HAD ELAPSED AND THE 10840000 * DOCUMENT HAS BEEN PUT IN 10860000 * REJECT POCKET. FOR 1288 10880000 * UNFORMATTED ONLY, 10900000 * END-OF-PAGE HAS OCCURRED.*/ 10920000 * 3 DCBORERR BIT(1), /* A NONRECOVERABLE ERROR 10940000 * HAS OCCURRED. */ 10960000 * 3 DCBORECK BIT(1), /* AN EQUIPMENT CHECK 10980000 * RESULTED IN AN 11000000 * INCOMPLETE READ */ 11020000 * 3 DCBORWLR BIT(1), /* A WRONG-LENGTH RECORD 11040000 * CONDITION HAS OCCURRED */ 11060000 * 3 DCBORHPR BIT(1), /* FOR QSAM - OPERATOR 11080000 * ENTERED ONE OR MORE 11100000 * CHARACTERS FROM THE 11120000 * KEYBOARD. FOR BSAM - A 11140000 * HOPPER EMPTY CONDITION 11160000 * HAS OCCURRED */ 11180000 * 3 DCBORDCK BIT(1), /* A DATA CHECK HAS 11200000 * OCCURRED */ 11220000 * 2 * CHAR(1); /* RESERVED */ 11240000 * 11260000 *%C3D : ; 11280000 *%IF DEVDMR=0 %THEN 11300000 * %GOTO C4; 11320000 */* MAGNETIC CHARACTER READER DEVICES */ 11340000 */* 1419 MAGNETIC CHARACTER READER */ 11360000 */* 1275 OPTICAL READER SORTER */ 11380000 */* 3890 MAGNETIC CHARACTER READER */ 11384000 */* 3895 DOCUMENT READER/INSCRIBER @G30HSJK */ 11392000 * 11400000 *DECLARE 1 IHADCS09 11420000 * BASED(ADDR(IHADCB)), 11440000 * 2 DCBSSID CHAR(8); /* BEFORE DCB IS OPENED - 11460000 * NAME OF USER'S STACKER 11480000 * SELECT ROUTINE. */ 11500000 * 11520000 *DECLARE 1 IHADCS10 11540000 * BASED(ADDR(DCBSSID)), 11560000 * 2 * PTR(31), /* AFTER DCB IS OPENED - 11580000 * DCBWTOID */ 11600000 * 3 DCBQSMEX PTR(31), /* ADDRESS OF QSAM 11610000 * EXIT ROUTINE @Y30GS11*/ 11612000 * 2 DCBSSAD PTR(31), /* ADDRESS OF USER'S 11620000 * STACKER SELECT ROUTINE */ 11640000 * 3 DCBIMG PTR(31), /* 3890 ADDR OF USER'S 11644000 * IMAGE PROC RTN */ 11648000 * 4 * CHAR(1), /* RESERVED */ 11668000 * 4 DCBSSADA PTR(24), /* ADDRESS OF USER'S 11688000 * STACKER SELECT ROUTINE */ 11700000 * 2 DCBIMAGE PTR(31), /* SAME AS DCBIMAGA BELOW */ 11720000 * 3 DCBMRFG CHAR(1), /* BUFFER INDICATOR */ 11740000 * 4 DCBMRBCT BIT(2), /* TWO-BIT BINARY COUNTER 11760000 * WHICH INDICATES INTO 11780000 * WHICH BUFFER STATUS 11800000 * INFORMATION IS TO BE 11820000 * POSTED */ 11840000 * 4 * BIT(6), /* RESERVED */ 11860000 * 3 DCBIMAGA PTR(24), /* ADDRESS OF PARAMETER 11880000 * LIST USED TO 11900000 * COMMUNICATE BETWEEN 11920000 * USER'S PROCESSING 11940000 * ROUTINES AND HIS STACKER 11960000 * SELECT ROUTINES */ 11980000 * 2 DCBECBLT PTR(31), /* SAME AS DCBECBLA BELOW */ 12000000 * 3 DCBHDR PTR(31), /* 3890 ADDR OF USER'S 12004000 * HEADER DATA AREA */ 12008000 * 4 DCBMRIND CHAR(1), /* INDICATOR AND COUNTER 12028000 * BYTE */ 12040000 * 5 DCBMRDCT BIT(3), /* THREE-BIT BINARY COUNTER 12060000 * OF NUMBER OF DOCUMENTS 12080000 * READ AFTER DISENGAGE */ 12100000 * 5 DCBMRSCU BIT(1), /* DCB WAS ALTERED WHEN 12120000 * SYNAD ROUTINE WAS 12140000 * ENTERED DUE TO SECONDARY 12160000 * CONTROL UNIT (SCU) 12180000 * ERROR */ 12200000 * 5 DCBMRPLO BIT(1), /* POCKET LIGHT HAS BEEN 12220000 * TURNED ON */ 12240000 * 5 DCBMRPLS BIT(1), /* POCKET LIGHT 0-6 IS 12260000 * BEING SET ON */ 12280000 * 5 DCBMRERP BIT(1), /* ERROR RECOVERY PROCEDURE 12300000 * IS EXECUTING FOR PRIMARY 12320000 * CONTROL UNIT (PCU) */ 12340000 * 5 DCBMRERS BIT(1), /* ERROR RECOVERY PROCEDURE 12360000 * IS EXECUTING FOR 12380000 * SECONDARY CONTROL UNIT 12400000 * (SCU) */ 12420000 * 3 DCBECBLA PTR(24), /* ADDRESS OF ECB LIST 12440000 * PASSED TO WAIT MACRO BY 12460000 * CHECK MACRO WHEN NO 12480000 * 1419/1275 IS AVAILABLE 12500000 * FOR PROCESSING */ 12520000 * 2 DCBMRFLG CHAR(1), /* FLAG BYTE */ 12540000 * 3 DCBMRSCC BIT(1), /* FIRST OR SECOND 12560000 * SECONDARY CONTROL UNIT 12580000 * COMMAND CHAIN IS BEING 12600000 * USED */ 12620000 * 3 DCBMRDBG BIT(1), /* DEBUGGING MODE IN USE */ 12640000 * 3 DCBMRDRU BIT(1), /* DISENGAGE REQUESTED BY 12660000 * USER */ 12680000 * 3 DCBMRDR BIT(1), /* DISENGAGE REQUESTED */ 12700000 * 3 DCBMRPCC BIT(2), /* TWO-BIT BINARY COUNTER 12720000 * INDICATING FIRST, 12740000 * SECOND OR THIRD PRIMARY 12760000 * CONTROL UNIT COMMAND 12780000 * CHAIN IS BEING USED */ 12800000 * 3 DCBMRDWT BIT(1), /* WTO MESSAGE MUST BE 12820000 * DELETED */ 12840000 * 3 DCBMRUE BIT(1), /* UNIT EXCEPTION */ 12860000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 12880000 *%DCL DCBDVMR CHAR; 12900000 *%DCBDVMR ='''5D''X'; /* 1419 MAGNETIC CHARACTER 12920000 * READER */ 12940000 *%DCL DCBDVORS CHAR; 12960000 *%DCBDVORS='''5F''X'; /* 1275 OPTICAL READER 12980000 * SORTER */ 13000000 *%DCL DCBDVMRS CHAR; 13004000 *%DCBDVMRS='''56''X'; /* 3890 MAGNETIC CHARACTER 13008000 * READER SORTER */ 13012000 *%DCL DCBDVDRI CHAR; 13014000 *%DCBDVDRI='''59''X'; /* 3895 DOCUMENT READER/ 13016000 * INSCRIBER @G30HSJK */ 13018000 * 2 DCBAPPIN CHAR(1), /* AN INDICATOR USED BY THE 13020000 * APPENDAGES TO PASS 13040000 * INFORMATION ABOUT ONE 13060000 * CHANNEL CHAIN TO AN 13080000 * APPENDAGE ASSOCIATED 13100000 * WITH ANOTHER CHANNEL 13120000 * CHAIN */ 13140000 * 2 * CHAR(1); /* RESERVED */ 13160000 * 13180000 *%C4 : ; 13200000 *%IF DSORGTR=0 %THEN /* IF NOT TR BYPASS 3705 */ 13210000 * %GOTO C41; /* CODE. S22024*/ 13212000 * 13214000 */* 3705 LINE TERMINAL */ 13216000 * 13218000 *DECLARE 1 IHADCS1A 13218400 * BASED(ADDR(IHADCB)+8), /* S22024*/ 13218800 * 2 DCBIPLTX CHAR(8), /* NAME OF MODULE TO BE USED 13219200 * TO IPL THE 3705 S22024*/ 13219600 * 2 DCBBCKUP PTR(31), /* FULL WORD ADDRESS-SAME 13219700 * AS DCBBCKUA S22024*/ 13219800 * 3 * BIT(8), /* RESERVED S22024*/ 13219900 * 3 DCBBCKUA PTR(24); /* ADDRESS OF THE DCB FOR 13226600 * THE BACKUP 3705 S22024*/ 13228600 *%C41 : ; 13230600 *%IF DSORGIS=1 %THEN /* IF DSORGIS AND DSORGDA */ 13233300 * %GOTO C4A; /* AND DSORGQS AND DSORGBS */ 13240000 *%IF DSORGDA=1 %THEN /* AND DSORGXE */ 13260000 * %GOTO C4A; /* ARE ALL SET TO ZERO, */ 13280000 *%IF DSORGQS=1 %THEN /* BRANCH TO C5 */ 13300000 * %GOTO C4A; 13320000 *%IF DSORGBS=1 %THEN 13340000 * %GOTO C4A; 13360000 *%IF DSORGXE=0 %THEN 13380000 * %GOTO C5; 13400000 *%C4A: ; 13420000 */* ACCESS METHOD COMMON INTERFACE */ 13440000 * 13460000 *DECLARE 1 IHADCS11 13480000 * BASED(ADDR(IHADCB)+16), 13500000 * 2 DCBRELB FIXED(31), /* SAME AS DCBREL BELOW */ 13520000 * 3 DCBKEYLE PTR(8), /* KEY LENGTH OF DATA SET */ 13540000 * 3 DCBREL PTR(24), /* NUMBER OF RELATIVE 13560000 * TRACKS OR BLOCKS IN THIS 13580000 * DATA SET (BDAM) */ 13600000 * 4 DCBDEVT CHAR(1), /* DEVICE TYPE */ 13620000 *%DCL DCBDVTRM CHAR; 13640000 *%DCBDVTRM='''4F''X'; /* TERMINAL. (DD CONTAINS 13660000 * TERM=TS) */ 13680000 * 2 DCBBUFCB PTR(31), /* ADDRESS OF BUFFER POOL 13700000 * CONTROL BLOCK */ 13720000 * 3 DCBBUFNO PTR(8), /* NUMBER OF BUFFERS 13740000 * REQUIRED FOR THIS DATA 13760000 * SET. MAY RANGE FROM 0 TO 13780000 * 255. IF UNBLOCKED 13800000 * SPANNED RECORDS ARE 13820000 * USED, NUMBER OF SEGMENT 13840000 * WORK AREAS REQUIRED FOR 13860000 * THIS DATA SET. */ 13880000 * 3 DCBBUFCA PTR(24), /* ADDRESS OF BUFFER POOL 13900000 * CONTROL BLOCK */ 13920000 * 2 DCBBUFL FIXED(15), /* LENGTH OF BUFFER. MAY 13940000 * RANGE FROM 0 TO 32,767. */ 13960000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 13980000 * BEING USED */ 14000000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 14020000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 14040000 * ORGANIZATION */ 14060000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 14080000 * ORGANIZATION */ 14100000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 14120000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 14140000 * GROUP */ 14160000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 14161000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 14162000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 14260000 * ORGANIZATION */ 14280000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 14300000 * CONTAINS LOCATION 14320000 * DEPENDENT INFORMATION */ 14340000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 14360000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 14380000 * ORGANIZATION */ 14400000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 14420000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 14440000 * 4 * BIT(1), /* RESERVED */ 14460000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 14480000 * BLOCK ICBI DCB-1*/ 14500000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 14510000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 14520000 * 2 DCBIOBAD PTR(31), /* ADDRESS OF IOB WHEN 14620000 * CHAINED SCHEDULING IS 14640000 * USED OR FOR 1419/1275 */ 14660000 * 3 DCBODEB PTR(31), /* ADDRESS OF OLD DEB */ 14680000 * 4 DCBLNP PTR(8), /* 3525 PRINTER LINE 14690000 * POSITION COUNTER */ 14710000 * 5 DCBQSLM CHAR(1), /* QSAM LOCATE MODE LOGICAL 14730000 * RECORD INTERFACE 14760000 * INDICATOR BYTE FOR UPDAT 14780000 * PROCESSING OF SPANNED 14800000 * RECORDS */ 14820000 * 6 DCB1DVDS BIT(1), /* ONLY ONE DEVICE IS 14840000 * ALLOCATED TO THIS DATA 14860000 * SET */ 14880000 * 6 DCBUPDCM BIT(1), /* UPDATE COMPLETE, FREE 14900000 * OLD DEB */ 14920000 * 6 DCBUPDBT BIT(2), /* UPDATE BITS */ 14940000 *%DCL DCBUPDT CHAR; 14960000 *%DCBUPDT ='''10''B'; /* UPDATE TO TAKE PLACE */ 14980000 *%DCL DCBNUPD CHAR; 15000000 *%DCBNUPD ='''11''B'; /* NO UPDATE TO TAKE PLACE */ 15020000 *%DCL DCBSVDEB CHAR; 15040000 *%DCBSVDEB='''01''B'; /* OLD DEB ADDRESS MUST BE 15060000 * SAVED */ 15080000 * 6 * BIT(4), /* RESERVED */ 15100000 * 4 DCBIOBAA PTR(24), /* SAME AS DCBIOBAD ABOVE */ 15120000 * 5 DCBODEBA PTR(24); /* ADDRESS OF OLD DEB */ 15140000 * 15160000 *DECLARE 1 IHADCS50 15170000 * BASED(ADDR(DCBIOBAD)), /* ICBI DCB-4*/ 15172000 * 2 DCBSVCXL PTR(31), /* SAME AS DCBSVCXA BELOW 15174000 * ICBI DCB-4*/ 15176000 * 3 * PTR(8), /* RESERVED ICBI DCB-4*/ 15178000 * 3 DCBSVCXA PTR(24), /* POINTER TO EXIT LIST OF 15178400 * JES C.I. INTERFACE 15178800 * CONTROL SVC ICBI DCB-4*/ 15179200 */* FOUNDATION EXTENSION */ 15180000 * 15200000 * 2 DCBEODAD PTR(31), /* SAME AS DCBEODA BELOW */ 15220000 * 3 DCBBFALN CHAR(1), /* BUFFER ALIGNMENT BITS */ 15240000 * 4 DCBHIARC CHAR(1), /* HIERARCHY BITS */ 15260000 * 5 DCBBFTEK CHAR(1), /* BUFFERING TECHNIQUE BITS */ 15280000 * 6 DCBH1 BIT(1), /* HIERARCHY 1 MAIN STORAGE 15300000 * - BIT 5 IS ZERO */ 15320000 * 6 DCBBFT BIT(3), /* BUFFERING TECHNIQUE */ 15340000 *%DCL DCBBFTA CHAR; 15360000 *%DCBBFTA ='''110''B'; /* QSAM LOCATE MODE 15380000 * PROCESSING OF SPANNED 15400000 * RECORDS - OPEN IS TO 15420000 * CONSTRUCT A RECORD AREA 15440000 * IF IT AUTOMATICALLY 15460000 * CONSTRUCTS BUFFERS */ 15480000 *%DCL DCBBFTR CHAR; 15500000 *%DCBBFTR ='''010''B'; /* FOR BSAM CREATE BDAM 15520000 * PROCESSING OF UNBLOCKED 15540000 * SPANNED RECORDS - 15560000 * SOFTWARE TRACK OVERFLOW. 15580000 * FOR BSAM INPUT 15600000 * PROCESSING OF UNBLOCKED 15620000 * SPANNED RECORDS WITH 15640000 * KEYS - RECORD OFFSET 15660000 * PROCESSING. */ 15680000 * 7 DCBBFTS BIT(1), /* SIMPLE BUFFERING - BIT 3 15700000 * IS ZERO */ 15720000 * 7 DCBBFTKR BIT(1), /* UNBLOCKED SPANNED 15740000 * RECORDS - SOFTWARE 15760000 * TRACK OVERFLOW (BDAM) */ 15780000 * 7 DCBBFTE BIT(1), /* EXCHANGE BUFFERING - BIT 15800000 * 1 IS ZERO */ 15820000 * 6 DCBBFTKD BIT(1), /* DYNAMIC BUFFERING (BTAM) */ 15840000 * 6 DCBH0 BIT(1), /* HIERARCHY 0 MAIN STORAGE 15860000 * - BIT 0 IS ZERO */ 15880000 * 6 DCBBFA BIT(2), /* BUFFER ALIGNMENT */ 15900000 *%DCL DCBBFAD CHAR; 15920000 *%DCBBFAD ='''10''B'; /* DOUBLEWORD BOUNDARY */ 15940000 *%DCL DCBBFAF1 CHAR; 15960000 *%DCBBFAF1='''01''B'; /* FULLWORD NOT A 15980000 * DOUBLEWORD BOUNDARY, 16000000 * CODED IN DCB MACRO 16020000 * INSTRUCTION */ 16040000 *%DCL DCBBFAF2 CHAR; 16060000 *%DCBBFAF2='''11''B'; /* FULLWORD NOT A 16080000 * DOUBLEWORD BOUNDARY, 16100000 * CODED IN DD STATEMENT */ 16120000 * 3 DCBEODA PTR(24), /* ADDRESS OF A 16140000 * USER-PROVIDED ROUTINE TO 16160000 * HANDLE END-OF-DATA 16180000 * CONDITIONS */ 16200000 * 2 DCBEXLST PTR(31), /* ADDRESS OF USER-PROVIDED 16220000 * LIST OF EXITS */ 16240000 * 3 DCBRECFM CHAR(1), /* RECORD FORMAT */ 16260000 * 4 DCBRECLA BIT(3), /* RECORD LENGTH INDICATOR 16280000 * - ASCII */ 16300000 *%DCL DCBRECD CHAR; 16320000 *%DCBRECD ='''001''B'; /* ASCII VARIABLE RECORD 16340000 * LENGTH */ 16360000 * 5 DCBRECL BIT(2), /* RECORD LENGTH INDICATOR */ 16380000 *%DCL DCBRECF CHAR; 16400000 *%DCBRECF ='''10''B'; /* FIXED RECORD LENGTH */ 16420000 *%DCL DCBRECV CHAR; 16440000 *%DCBRECV ='''01''B'; /* VARIABLE RECORD LENGTH */ 16460000 *%DCL DCBRECU CHAR; 16480000 *%DCBRECU ='''11''B'; /* UNDEFINED RECORD LENGTH */ 16500000 * 5 DCBRECTO BIT(1), /* TRACK OVERFLOW */ 16520000 * 4 DCBRECBR BIT(1), /* BLOCKED RECORDS */ 16540000 * 4 DCBRECSB BIT(1), /* FOR FIXED LENGTH RECORD 16560000 * FORMAT - STANDARD 16580000 * BLOCKS. FOR VARIABLE 16600000 * LENGTH RECORD FORMAT - 16620000 * SPANNED RECORDS */ 16640000 * 4 DCBRECCC BIT(2), /* CONTROL CHARACTER 16660000 * INDICATOR */ 16680000 *%DCL DCBRECCA CHAR; 16700000 *%DCBRECCA='''10''B'; /* ASA CONTROL CHARACTER */ 16720000 *%DCL DCBRECCM CHAR; 16740000 *%DCBRECCM='''01''B'; /* MACHINE CONTROL 16760000 * CHARACTER */ 16780000 *%DCL DCBRECC CHAR; 16800000 *%DCBRECC ='''00''B'; /* NO CONTROL CHARACTER */ 16820000 * 4 DCBRECKL BIT(1), /* KEY LENGTH (KEYLEN) WAS 16840000 * SPECIFIED IN DCB MACRO 16860000 * INSTRUCTION */ 16880000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF USER-PROVIDED 16900000 * LIST OF EXITS */ 16920000 * 16940000 *%C5 : ; 16960000 *%IF DSORGBX=0 %THEN 16980000 * %GOTO C5B; 17000000 *%IF DSORGQX=0 %THEN /* IF DSORGQX IS SET TO ONE */ 17020000 * %GOTO C5A1; /* AND DSORGIS OR DSORGDA */ 17040000 *%IF DSORGIS=1 %THEN /* OR DSORGQS OR DSORGBS */ 17060000 * %GOTO C5A; /* OR DSORGXE */ 17080000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 17100000 * %GOTO C5A; /* BRANCH TO C5A */ 17120000 *%IF DSORGQS=1 %THEN 17140000 * %GOTO C5A; 17160000 *%IF DSORGBS=1 %THEN 17180000 * %GOTO C5A; 17200000 *%IF DSORGXE=1 %THEN 17220000 * %GOTO C5A; 17240000 *%C5A1: ; 17260000 */* BTAM LINE GROUP INTERFACE */ 17280000 * 17300000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 17320000 * %GOTO C5A; /* OR DSORGQS OR DSORGBS */ 17340000 *%IF DSORGDA=1 %THEN /* OR DSORGXE */ 17360000 * %GOTO C5A; /* IS SET TO ONE, */ 17380000 *%IF DSORGQS=1 %THEN /* BRANCH TO C5A */ 17400000 * %GOTO C5A; 17420000 *%IF DSORGBS=1 %THEN 17440000 * %GOTO C5A; 17460000 *%IF DSORGXE=1 %THEN 17480000 * %GOTO C5A; 17500000 *DECLARE 1 IHADCS12 17520000 * BASED(ADDR(IHADCB)+20), 17540000 * 2 DCBBUFCB PTR(31), /* ADDRESS OF BUFFER POOL 17560000 * CONTROL BLOCK */ 17580000 * 3 DCBBUFNO PTR(8), /* NUMBER OF BUFFERS 17600000 * OBTAINED BY OPEN */ 17620000 * 3 DCBBUFCA PTR(24), /* ADDRESS OF BUFFER POOL 17640000 * CONTROL BLOCK */ 17660000 * 2 DCBBUFL FIXED(15), /* BUFFER LENGTH */ 17680000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 17700000 * BEING USED */ 17720000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 17740000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 17760000 * ORGANIZATION */ 17780000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 17800000 * ORGANIZATION */ 17820000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 17840000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 17860000 * GROUP */ 17880000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 17881000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 17882000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 17980000 * ORGANIZATION */ 18000000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 18020000 * CONTAINS LOCATION 18040000 * DEPENDENT INFORMATION */ 18060000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 18080000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 18100000 * ORGANIZATION */ 18120000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 18140000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 18160000 * 4 * BIT(1), /* RESERVED */ 18180000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 18200000 * BLOCK ICBI DCB-1*/ 18220000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 18230000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 18240000 * 2 DCBIOBAD PTR(31), /* BASE FOR ADDRESSING 18340000 * IOB'S (BASE = ADDRESS OF 18360000 * FIRST IOB MINUS LENGTH 18380000 * OF AN IOB) */ 18400000 * 3 * PTR(8), /* DCBDEVTP - INDEX TO 18420000 * DEVICE ENTRY IN THE 18440000 * DEVICE I/O DIRECTORY */ 18460000 * 3 DCBIOBAA PTR(24), /* SAME AS DCBIOBAD ABOVE */ 18480000 * 2 DCBBFTEK CHAR(1), /* BUFFERING TECHNIQUE FLAG 18500000 * BITS */ 18520000 * 3 DCBHIARC CHAR(1), /* HIERARCHY FLAG BITS */ 18540000 * 4 DCBH1 BIT(1), /* HIERARCHY 1 MAIN STORAGE 18560000 * - BIT 5 IS ZERO */ 18580000 * 4 DCBBFT BIT(3), /* BUFFERING TECHNIQUE */ 18600000 *%DCL DCBBFTA CHAR; 18620000 *%DCBBFTA ='''110''B'; /* QSAM LOCATE MODE 18640000 * PROCESSING OF SPANNED 18660000 * RECORDS - OPEN IS TO 18680000 * CONSTRUCT A RECORD AREA 18700000 * IF IT AUTOMATICALLY 18720000 * CONSTRUCTS BUFFERS */ 18740000 *%DCL DCBBFTR CHAR; 18760000 *%DCBBFTR ='''010''B'; /* FOR BSAM CREATE BDAM 18780000 * PROCESSING OF UNBLOCKED 18800000 * SPANNED RECORDS - 18820000 * SOFTWARE TRACK OVERFLOW. 18840000 * FOR BSAM INPUT 18860000 * PROCESSING OF UNBLOCKED 18880000 * SPANNED RECORDS WITH 18900000 * KEYS - RECORD OFFSET 18920000 * PROCESSING. */ 18940000 * 5 DCBBFTS BIT(1), /* SIMPLE BUFFERING - BIT 3 18960000 * IS ZERO */ 18980000 * 5 DCBBFTKR BIT(1), /* UNBLOCKED SPANNED 19000000 * RECORDS - SOFTWARE 19020000 * TRACK OVERFLOW (BDAM) */ 19040000 * 5 DCBBFTE BIT(1), /* EXCHANGE BUFFERING - BIT 19060000 * 1 IS ZERO */ 19080000 * 4 DCBBFTKD BIT(1), /* DYNAMIC BUFFERING (BTAM) */ 19100000 * 4 DCBH0 BIT(1), /* HIERARCHY 0 MAIN STORAGE 19120000 * - BIT 0 IS ZERO */ 19140000 * 4 DCBBFA BIT(2), /* BUFFER ALIGNMENT */ 19160000 *%DCL DCBBFAD CHAR; 19180000 *%DCBBFAD ='''10''B'; /* DOUBLEWORD BOUNDARY */ 19200000 *%DCL DCBBFAF1 CHAR; 19220000 *%DCBBFAF1='''01''B'; /* FULLWORD NOT A 19240000 * DOUBLEWORD BOUNDARY, 19260000 * CODED IN DCB MACRO 19280000 * INSTRUCTION */ 19300000 *%DCL DCBBFAF2 CHAR; 19320000 *%DCBBFAF2='''11''B'; /* FULLWORD NOT A 19340000 * DOUBLEWORD BOUNDARY, 19360000 * CODED IN DD STATEMENT */ 19380000 * 2 * CHAR(1), /* DCBERROP - ERROR 19400000 * RECOVERY PROCEDURE BITS */ 19420000 * 2 * PTR(8), /* DCBBUFCT - MAX NUMBER OF 19440000 * READ BUFFERS */ 19460000 * 2 * CHAR(1), /* RESERVED */ 19480000 * 2 DCBEXLST PTR(31), /* ADDRESS OF USER-PROVIDED 19500000 * EXIT LIST */ 19520000 * 3 * PTR(8), /* DCBEIOBX - SIZE OF IOB */ 19540000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF USER-PROVIDED 19560000 * EXIT LIST */ 19580000 * 19600000 *%C5A : ; 19620000 *DECLARE 1 IHADCS13 19640000 * BASED(ADDR(IHADCB)+33), 19660000 * 2 DCBERROP CHAR(1), /* ERROR RECOVERY PROCEDURE 19680000 * BITS */ 19700000 * 3 * BIT(3), /* RESERVED */ 19720000 * 3 DCBERPT BIT(1), /* ON-LINE TEST FACILITIES 19740000 * TO BE USED */ 19760000 * 3 DCBERPC BIT(1), /* THRESHOLD AND CUMULATIVE 19780000 * ERROR COUNTS TO BE 19800000 * MAINTAINED */ 19820000 * 3 DCBERPW BIT(1), /* TEXT-WRITE ERRORS TO BE 19840000 * RETRIED */ 19860000 * 3 DCBERPR BIT(1), /* TEXT-READ ERRORS TO BE 19880000 * RETRIED */ 19900000 * 3 DCBERPN BIT(1), /* IF ZERO, BASIC ERP TO BE 19920000 * FOLLOWED --- IF ONE, NO 19940000 * ERP TO BE FOLLOWED */ 19960000 * 2 DCBBUFCT PTR(8); /* CONTAINS MAXIMUM NUMBER 19980000 * OF BUFFERS TO BE 20000000 * OBTAINED BY BTAM FOR 20020000 * READ OPERATION (DYNAMIC 20040000 * BUFFERING ONLY) */ 20060000 * 20080000 *%IF DSORGQX=1 %THEN /* IF DSORGQX OR DSORGTX */ 20100000 * %GOTO C5B; /* IS SET TO ONE, */ 20120000 *%IF DSORGTX=1 %THEN /* BRANCH TO C5B */ 20140000 * %GOTO C5B; 20160000 *DECLARE 1 IHADCS14 20180000 * BASED(ADDR(IHADCB)+28), 20200000 * 2 DCBDEVTP PTR(8); /* INDEX TO DEVICE ENTRY IN 20220000 * THE DEVICE I/O 20240000 * DIRECTORY */ 20260000 * 20280000 *DECLARE 1 IHADCS15 20300000 * BASED(ADDR(IHADCB)+36), 20320000 * 2 DCBEIOBX PTR(8); /* SIZE OF EXTENDED IOB. 20340000 * SIZE OF AN IOB 20360000 * ASSOCIATED WITH THIS DCB */ 20380000 * 20400000 *%C5B : ; 20420000 *%IF DSORGTX=0 %THEN 20440000 * %GOTO C5B1; 20460000 */* TCAM LINE GROUP INTERFACE */ 20480000 * 20500000 *DECLARE 1 IHADCS16 20520000 * BASED(ADDR(IHADCB)+20), 20540000 * 2 DCBMHA PTR(31), /* SAME AS DCBMH BELOW */ 20560000 * 3 DCBBUFOU CHAR(1), /* NUMBER OF OUTPUT BUFFERS 20580000 * (BITS 4-7) */ 20600000 * 4 DCBBUFIN CHAR(1), /* NUMBER OF INPUT BUFFERS 20620000 * (BITS 0-3) */ 20640000 * 5 DCBBFIN BIT(4), /* NUMBER OF BUFFERS 20660000 * ASSIGNED INITIALLY FOR 20680000 * RECEIVING OPERATIONS, 20700000 * FOR EACH LINE IN LINE 20720000 * GROUP */ 20740000 * 5 DCBBFOUT BIT(4), /* NUMBER OF BUFFERS 20760000 * ASSIGNED INITIALLY FOR 20780000 * SENDING OPERATIONS, FOR 20800000 * EACH LINE IN LINE GROUP */ 20820000 * 3 DCBMH PTR(24), /* ADDRESS OF MESSAGE 20840000 * HANDLER FOR THIS LINE 20860000 * GROUP */ 20880000 * 2 * PTR(8), /* DCBINTVL - NUMBER OF 20900000 * SECONDS OF INVITATION 20920000 * DELAY */ 20940000 * 2 DCBPCI CHAR(1), /* PROGRAM CONTROLLED 20960000 * INTERRUPTION HANDLING */ 20980000 * 3 DCBPCIX1 BIT(1), /* PCI=(X,) ICBI DCB-8*/ 20990000 * 3 DCBPCIX2 BIT(1), /* PCI=(,X) ICBI DCB-8*/ 21000000 * 3 DCBPCIA1 BIT(1), /* PCI=(A,) */ 21020000 * 3 DCBPCIA2 BIT(1), /* PCI=(,A) */ 21040000 * 3 DCBPCIN1 BIT(1), /* PCI=(N,) */ 21060000 * 3 DCBPCIN2 BIT(1), /* PCI=(,N) */ 21080000 * 3 DCBPCIR1 BIT(1), /* PCI=(R,) */ 21100000 * 3 DCBPCIR2 BIT(1), /* PCI=(,R) */ 21120000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGBX */ 21140000 * %GOTO C5B2; /* OR DSORGDA OR DSORGQX */ 21160000 *%IF DSORGBX=1 %THEN /* OR DSORGQS */ 21180000 * %GOTO C5B2; /* OR DSORGBS OR DSORGXE */ 21200000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 21220000 * %GOTO C5B2; /* BRANCH TO C5B2 */ 21240000 *%IF DSORGQX=1 %THEN 21260000 * %GOTO C5B2; 21280000 *%IF DSORGQS=1 %THEN 21340000 * %GOTO C5B2; 21360000 *%IF DSORGBS=1 %THEN 21380000 * %GOTO C5B2; 21400000 *%IF DSORGXE=1 %THEN 21420000 * %GOTO C5B2; 21440000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 21460000 * BEING USED */ 21480000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 21500000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 21520000 * ORGANIZATION */ 21540000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 21560000 * ORGANIZATION */ 21580000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 21600000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 21620000 * GROUP */ 21640000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 21641000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 21642000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 21740000 * ORGANIZATION */ 21760000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 21780000 * CONTAINS LOCATION 21800000 * DEPENDENT INFORMATION */ 21820000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 21840000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 21860000 * ORGANIZATION */ 21880000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 21900000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 21920000 * 4 * BIT(1), /* RESERVED */ 21940000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 21960000 * BLOCK ICBI DCB-1*/ 21980000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 21990000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 22000000 *%GOTO C5B3 ; 22100000 *%C5B2 : ; 22120000 * 2 * CHAR(1), /* DCBDSRG1 - FIRST BYTE OF 22140000 * DCBDSORG */ 22160000 * 2 * CHAR(1), /* DCBDSRG2 - SECOND BYTE 22180000 * OF DCBDSORG */ 22200000 *%C5B3 : ; 22220000 * 2 DCBBUFMA PTR(8); /* MAXIMUM NUMBER OF 22240000 * BUFFERS TO BE USED FOR 22260000 * DATA TRANSFER FOR EACH 22280000 * LINE IN THIS GROUP */ 22300000 * 22320000 *%C5B1 : ; 22340000 *%IF DSORGQX=1 %THEN /* IF DSORGQX AND DSORGTX */ 22360000 * %GOTO C5B4; /* ARE BOTH SET TO ZERO, */ 22380000 *%IF DSORGTX=0 %THEN /* BRANCH TO C6 */ 22400000 * %GOTO C6; 22420000 *%C5B4 : ; 22440000 */* QTAM LINE GROUP INTERFACE */ 22460000 * 22480000 *DECLARE 1 IHADCS17 22500000 * BASED(ADDR(IHADCB)+20), 22520000 * 2 DCBCLPS PTR(31), /* ADDRESS OF LINE 22540000 * PROCEDURE SPECIFICATION 22560000 * ROUTINE */ 22580000 * 3 DCBBUFRQ PTR(8), /* NUMBER OF BUFFERS 22600000 * REQUESTED FOR A READ OR 22620000 * WRITE OPERATION */ 22640000 * 3 DCBCLPSA PTR(24), /* SAME AS DCBCLPS ABOVE */ 22660000 * 2 DCBINTVL PTR(8), /* NUMBER OF SECONDS OF 22680000 * INTENTIONAL DELAY 22700000 * BETWEEN PASSES THROUGH A 22720000 * POLLING LIST FOR 22740000 * NONSWITCHED LINES */ 22760000 * 2 * CHAR(1), /* RESERVED */ 22780000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGBX */ 22800000 * %GOTO C5C; /* OR DSORGDA OR DSORGQS */ 22820000 *%IF DSORGBX=1 %THEN /* OR DSORGBS OR DSORGXE */ 22840000 * %GOTO C5C; /* OR DSORGTX */ 22860000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 22880000 * %GOTO C5C; /* BRANCH TO C5C */ 22900000 *%IF DSORGQS=1 %THEN 22920000 * %GOTO C5C; 22940000 *%IF DSORGBS=1 %THEN 22960000 * %GOTO C5C; 22980000 *%IF DSORGXE=1 %THEN 23000000 * %GOTO C5C; 23020000 *%IF DSORGTX=1 %THEN 23040000 * %GOTO C5C; 23060000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 23080000 * BEING USED */ 23100000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 23120000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 23140000 * ORGANIZATION */ 23160000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 23180000 * ORGANIZATION */ 23200000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 23220000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 23240000 * GROUP */ 23260000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 23261000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 23262000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 23360000 * ORGANIZATION */ 23380000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 23400000 * CONTAINS LOCATION 23420000 * DEPENDENT INFORMATION */ 23440000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 23460000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 23480000 * ORGANIZATION */ 23500000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 23520000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 23540000 * 4 * BIT(1), /* RESERVED */ 23560000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 23580000 * BLOCK ICBI DCB-1*/ 23600000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 23610000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 23620000 * 2 DCBIOBAD PTR(31), /* ADDRESS OF FIRST IOB */ 23720000 * 3 DCBDEVTP PTR(8), /* DEVICE TYPE POINTER */ 23740000 * 3 DCBIOBAA PTR(24), /* ADDRESS OF FIRST IOB */ 23760000 * 2 DCBLCBAD PTR(31), /* BASE FOR ADDRESSING 23780000 * LCB'S (BASE = ADDRESS OF 23800000 * FIRST LCB MINUS LENGTH 23820000 * OF ONE LCB) */ 23840000 * 3 DCBCPRI CHAR(1), /* COMMUNICATION PRIORITY 23860000 * BITS */ 23880000 * 4 * BIT(5), /* RESERVED */ 23900000 * 4 DCBCPR BIT(1), /* RECEIVING HAS PRIORITY */ 23920000 * 4 DCBCPE BIT(1), /* RECEIVING AND SENDING 23940000 * HAVE EQUAL PRIORITY */ 23960000 * 4 DCBCPS BIT(1), /* SENDING HAS PRIORITY */ 23980000 * 3 DCBLCBA PTR(24), /* SAME AS DCBLCBAD ABOVE */ 24000000 * 2 DCBEXLST PTR(31), /* ADDRESS OF EXIT LIST */ 24020000 * 3 DCBEIOBX PTR(8), /* EXTENDED IOB INDEX. SIZE 24040000 * OF LCB. */ 24060000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF EXIT LIST */ 24080000 * 24100000 *%GOTO C6 ; 24120000 *%C5C : ; 24140000 * 2 * CHAR(1), /* DCBDSRG1 - FIRST BYTE OF 24160000 * DCBDSORG */ 24180000 * 2 * CHAR(1), /* DCBDSRG2 - SECOND BYTE 24200000 * OF DCBDSORG */ 24220000 *%IF DSORGTX=0 %THEN /* IF DSORGTX */ 24240000 * %GOTO C5C1; /* IS SET TO ZERO, */ 24260000 *%IF DSORGIS=1 %THEN /* OR DSORGIS OR DSORGBX */ 24280000 * %GOTO C5C1; /* OR DSORGDA */ 24300000 *%IF DSORGBX=1 %THEN /* OR DSORGQS OR DSORGBS */ 24320000 * %GOTO C5C1; /* OR DSORGXE */ 24340000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 24360000 * %GOTO C5C1; /* BRANCH TO C5C1 */ 24380000 *%IF DSORGQS=1 %THEN 24440000 * %GOTO C5C1; 24460000 *%IF DSORGBS=1 %THEN 24480000 * %GOTO C5C1; 24500000 *%IF DSORGXE=1 %THEN 24520000 * %GOTO C5C1; 24540000 * 2 DCBIOBAD PTR(31), /* ADDRESS OF FIRST IOB */ 24560000 * 3 DCBDEVTP PTR(8), /* DEVICE TYPE POINTER */ 24580000 * 3 DCBIOBAA PTR(24); /* ADDRESS OF FIRST IOB */ 24600000 * 24620000 *%GOTO C5C2 ; 24640000 *%C5C1 : ; 24660000 * 2 DCBDEVTP PTR(8), /* DEVICE TYPE POINTER */ 24680000 * 2 * PTR(24); /* DCBIOBAA - ADDRESS OF 24700000 * FIRST IOB */ 24720000 * 24740000 *%C5C2 : ; 24760000 *%IF DSORGTX=0 %THEN 24780000 * %GOTO C5D; 24800000 *DECLARE 1 IHADCS18 24820000 * BASED(ADDR(IHADCB)+32), 24840000 * 2 DCBTRANA PTR(31), /* ADDRESS OF TRANSLATION 24860000 * TABLE */ 24880000 * 3 * CHAR(1), /* DCBCPRI - COMMUNICATION 24900000 * PRIORITY BITS */ 24920000 * 3 DCBTRANS PTR(24); /* ADDRESS OF TRANSLATION 24940000 * TABLE */ 24960000 * 24980000 *%C5D : ; 25000000 *DECLARE 1 IHADCS19 25020000 * BASED(ADDR(IHADCB)+32), 25040000 * 2 DCBLCBAD PTR(31), /* BASE FOR ADDRESSING 25060000 * LCB'S (BASE = ADDRESS OF 25080000 * FIRST LCB MINUS LENGTH 25100000 * OF ONE LCB) */ 25120000 * 3 DCBCPRI CHAR(1), /* COMMUNICATION PRIORITY 25140000 * BITS */ 25160000 * 4 * BIT(5), /* RESERVED */ 25180000 * 4 DCBCPR BIT(1), /* RECEIVING HAS PRIORITY */ 25200000 * 4 DCBCPE BIT(1), /* RECEIVING AND SENDING 25220000 * HAVE EQUAL PRIORITY */ 25240000 * 4 DCBCPS BIT(1), /* SENDING HAS PRIORITY */ 25260000 * 3 DCBLCBA PTR(24), /* SAME AS DCBLCBAD ABOVE */ 25280000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGBX */ 25300000 * %GOTO C5E; /* OR DSORGDA OR DSORGQS */ 25320000 *%IF DSORGBX=1 %THEN /* OR DSORGBS OR DSORGXE */ 25340000 * %GOTO C5E; /* IS SET TO ONE, */ 25360000 *%IF DSORGDA=1 %THEN /* BRANCH TO C5E */ 25380000 * %GOTO C5E; 25400000 *%IF DSORGQS=1 %THEN 25420000 * %GOTO C5E; 25440000 *%IF DSORGBS=1 %THEN 25460000 * %GOTO C5E; 25480000 *%IF DSORGXE=1 %THEN 25500000 * %GOTO C5E; 25520000 * 2 DCBEXLST PTR(31), /* ADDRESS OF EXIT LIST */ 25540000 * 3 DCBEIOBX PTR(8), /* EXTENDED IOB INDEX. SIZE 25560000 * OF LCB */ 25580000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF EXIT LIST */ 25600000 * 25620000 *%GOTO C6 ; 25640000 *%C5E : ; 25660000 * 2 DCBEIOBX PTR(8), /* EXTENDED IOB INDEX. SIZE 25680000 * OF LCB. */ 25700000 * 2 * PTR(24); /* DCBEXLSA - ADDRESS OF 25720000 * EXIT LIST */ 25740000 * 25760000 *%C6 : ; 25780000 *%IF DSORGTQ=0 %THEN /* BRANCH TO C7 */ 25840000 * %GOTO C7; 25860000 */* TCAM MESSAGE QUEUE INTERFACE */ 25900000 * 25920000 *DECLARE 1 IHADCS20 25940000 * BASED(ADDR(IHADCB)+20), 25960000 * 2 DCBTRMAD PTR(31), /* ADDRESS OF USER-PROVIDED 25980000 * AREA IN WHICH THE 26000000 * TERMINAL NAME IS STORED */ 26020000 *%IF DSORGQX=1 %THEN /* IF DSORGQX OR DSORGTX */ 26040000 * %GOTO C6A; /* IS SET TO ONE, */ 26060000 *%IF DSORGTX=1 %THEN /* BRANCH TO C6A */ 26080000 * %GOTO C6A; 26100000 * 3 DCBBUFRQ PTR(8), /* NUMBER OF BUFFERS TO BE 26120000 * FILLED FROM THE DIRECT 26140000 * ACCESS QUEUE */ 26160000 *%GOTO C6B ; 26180000 *%C6A : ; 26200000 * 3 * PTR(8), /* DCBBUFRQ - NUMBER OF 26220000 * BUFFERS TO BE FILLED 26240000 * FROM THE DIRECT ACCESS 26260000 * QUEUE */ 26280000 *%C6B : ; 26300000 * 3 DCBTRMA PTR(24), /* SAME AS DCBTRMAD ABOVE */ 26320000 * 2 DCBSOWA FIXED(15), /* SIZE OF USER-PROVIDED 26340000 * WORK AREA */ 26360000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGBX */ 26380000 * %GOTO C6C; /* OR DSORGDA OR DSORGQX */ 26400000 *%IF DSORGBX=1 %THEN /* OR DSORGQS OR DSORGBS */ 26420000 * %GOTO C6C; /* OR DSORGXE OR DSORGTX */ 26440000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 26460000 * %GOTO C6C; /* BRANCH TO C6C */ 26480000 *%IF DSORGQX=1 %THEN 26500000 * %GOTO C6C; 26520000 *%IF DSORGQS=1 %THEN 26540000 * %GOTO C6C; 26560000 *%IF DSORGBS=1 %THEN 26580000 * %GOTO C6C; 26600000 *%IF DSORGXE=1 %THEN 26620000 * %GOTO C6C; 26640000 *%IF DSORGTX=1 %THEN 26660000 * %GOTO C6C; 26680000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 26700000 * BEING USED */ 26720000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 26740000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 26760000 * ORGANIZATION */ 26780000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 26800000 * ORGANIZATION */ 26820000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 26840000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 26860000 * GROUP */ 26880000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 26881000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 26882000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 26980000 * ORGANIZATION */ 27000000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 27020000 * CONTAINS LOCATION 27040000 * DEPENDENT INFORMATION */ 27060000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 27080000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 27100000 * ORGANIZATION */ 27120000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 27140000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 27160000 * 4 * BIT(1), /* RESERVED */ 27180000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 27200000 * BLOCK ICBI DCB-1*/ 27220000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 27230000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 27240000 * 2 DCBIOBAD PTR(31), /* BEFORE OPEN - ADDRESS OF 27340000 * AVT --- AFTER OPEN - 27360000 * BASE FOR ADDRESSING 27380000 * IOB'S (BASE = ADDRESS 27400000 * OF FIRST IOB MINUS 27420000 * LENGTH OF ONE IOB) */ 27440000 * 3 * PTR(8), /* DCBBUFMA - MAXIMUM 27460000 * NUMBER OF BUFFERS TO BE 27480000 * USED FOR DATA TRANSFER 27500000 * FOR EACH LINE IN THIS 27520000 * GROUP */ 27540000 * 3 DCBIOBAA PTR(24); /* SAME AS DCBIOBAD ABOVE */ 27560000 *%GOTO C6D ; 27580000 *%C6C : ; 27600000 * 2 * CHAR(1), /* DCBDSRG1 - FIRST BYTE OF 27620000 * DCBDSORG */ 27640000 * 2 * CHAR(1), /* DCBDSRG2 - SECOND BYTE 27660000 * OF DCBDSORG */ 27680000 * 2 * PTR(31); /* DCBIOBAD - BASE FOR 27700000 * ADDRESSING IOB'S */ 27720000 *%C6D : ; 27740000 * 27760000 *DECLARE 1 IHADCS21 27780000 * BASED(ADDR(IHADCB)+28), 27800000 * 2 DCBSEGAD PTR(31), /* ADDRESS OF CURRENT 27820000 * SEGMENT */ 27840000 *%IF DSORGTQ=0 %THEN 27860000 * %GOTO C6D1; 27880000 * 2 DCBTHRES PTR(8); /* FOR NON-REUSABLE MESSAGE 27900000 * QUEUE RECORDS, 27920000 * PERCENTAGE OF 27940000 * NON-REUSABLE DISK 27960000 * MESSAGE QUEUE RECORDS 27980000 * TO BE USED BEFORE A 28000000 * FLUSH CLOSEDOWN OF THE 28020000 * SYSTEM IS INITIATED. 28040000 * FOR REUSABLE MESSAGE 28060000 * QUEUE RECORDS AND 28080000 * CHECKPOINT RECORDS, THIS 28100000 * FIELD IS RESERVED */ 28120000 *%GOTO C6D2 ; 28140000 *%C6D1 : ; 28160000 * 2 * CHAR(1); /* RESERVED */ 28180000 *%C6D2 : ; 28200000 * 28220000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 28240000 * %GOTO C7; /* OR DSORGQS OR DSORGBS */ 28260000 *%IF DSORGDA=1 %THEN /* OR DSORGXE */ 28280000 * %GOTO C7; /* IS SET TO ONE, */ 28300000 *%IF DSORGQS=1 %THEN /* BRANCH TO C7 */ 28320000 * %GOTO C7; 28340000 *%IF DSORGBS=1 %THEN 28360000 * %GOTO C7; 28380000 *%IF DSORGXE=1 %THEN 28400000 * %GOTO C7; 28420000 *DECLARE 1 IHADCS22 28440000 * BASED(ADDR(IHADCB)+32), 28460000 * 2 DCBEODAD PTR(31), /* ADDRESS OF USER-PROVIDED 28480000 * ROUTINE */ 28500000 *%IF DSORGBX=1 %THEN /* IF DSORGBX OR DSORGQX */ 28520000 * %GOTO C6E; /* OR DSORGTX */ 28540000 *%IF DSORGQX=1 %THEN /* IS SET TO ONE, */ 28560000 * %GOTO C6E; /* BRANCH TO C6E */ 28580000 *%IF DSORGTX=1 %THEN 28600000 * %GOTO C6E; 28620000 * 2 DCBEXLST PTR(31), /* ADDRESS OF EXIT LIST */ 28640000 *%GOTO C6F ; 28660000 *%C6E : ; 28680000 * 2 * PTR(31), /* DCBEXLST - ADDRESS OF 28700000 * EXIT LIST */ 28720000 *%C6F : ; 28740000 * 3 DCBRECFM CHAR(1), /* RECORD FORMAT */ 28760000 *%DCL DCBRECR CHAR; 28780000 *%DCBRECR ='''02''X'; /* RECORD */ 28800000 *%DCL DCBRECG CHAR; 28820000 *%DCBRECG ='''04''X'; /* MESSAGE */ 28840000 *%DCL DCBRECS CHAR; 28860000 *%DCBRECS ='''08''X'; /* SEGMENT */ 28880000 *%IF DSORGBX=1 %THEN /* IF DSORGBX OR DSORGQX */ 28900000 * %GOTO C6G; /* OR DSORGTX */ 28920000 *%IF DSORGQX=1 %THEN /* IS SET TO ONE, */ 28940000 * %GOTO C6G; /* BRANCH TO C6G */ 28960000 *%IF DSORGTX=1 %THEN 28980000 * %GOTO C6G; 29000000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF EXIT LIST */ 29020000 *%GOTO C7 ; 29040000 *%C6G : ; 29060000 * 3 * PTR(24); /* DCBEXLSA - ADDRESS OF 29080000 * EXIT LIST */ 29100000 *%C7 : ; 29120000 * 29140000 *%C8 : ; 30400000 *%IF DSORGTR=0 %THEN /* IF NOT TR BYPASS 3705 */ 30410000 * %GOTO C8A8; /* EXPANSION S22024*/ 30412000 * 30414000 *DECLARE 1 IHADCS2K 30416000 * BASED(ADDR(IHADCB)+20), /* S22024*/ 30418000 * 2 DCBDUMPD PTR(31), /* FULL WORD LABEL-SAME AS 30418400 * DCBDUMPA S22024*/ 30418800 * 3 DCBUNITN BIT(8), /* NUMBER OF UNITS FOR READ 30419200 * FOLLOWING ATTENTIONS22024*/ 30419600 * 3 DCBDUMPA PTR(24), /* ADDRESS OF THE DCB USED 30419700 * FOR DUMPING THE 3705 */ 30419800 * 2 * CHAR(1), /* RESERVED S22024*/ 30419900 * 2 DCBTRSTA CHAR(1), /* STATUS BYTE. WHEN SET TO 30426600 * 1,THE INDICATORS HAVE THE 30428600 * SPECIFIED MEANING S22024*/ 30430600 * 3 DCBAUTOI BIT(1), /* IPLAUTO=YES SPECIFIED 30432600 * IN THE DCB S22024*/ 30433000 * 3 DCBAUTOD BIT(1), /* DMPAUTO=YES WAS SPECIFIED 30433100 * IN THE DCB MACRO S22024*/ 30433200 * 3 DCBINITL BIT(1), /* BRINGUP=YES WAS SPECIFIED 30439900 * IN THE DCB MACRO S22024*/ 30441900 * 3 DCBRSTRT BIT(1), /* RESTART IN PROCESS S22024*/ 30443900 * 3 DCBIPLED BIT(1), /* 3705 HAS BEEN IPL'DS22024*/ 30445900 * 3 DCBBAKUP BIT(1), /* BACKUP=YES WAS SPECIFIED 30446300 * IN THE DCB MACRO S22024*/ 30446400 * 3 DCBNIDLE BIT(1), /* IDLE=NO WAS SPECIFIED 30446500 * IN THE OPEN MACRO OR 30453200 * WAS IMPLIED BY DEFAULT */ 30455200 * 3 DCBCHNGL BIT(1), /* IPL TEXT HAS BEEN 30457200 * CHANGED S22024*/ 30457600 *%IF DSORGIS=1 %THEN /* DSORGIS */ 30459700 * %GOTO C8A0; /* OR S22024*/ 30459800 *%IF DSORGBX=1 %THEN /* DSORGBX */ 30459900 * %GOTO C8A0; /* OR S22024*/ 30466500 *%IF DSORGDA=1 %THEN /* DSORGDA */ 30468500 * %GOTO C8A0; /* OR S22024*/ 30470500 *%IF DSORGQX=1 %THEN /* DSORGQX */ 30472500 * %GOTO C8A0; /* OR S22024*/ 30472900 *%IF DSORGQS=1 %THEN /* DSORGQS */ 30473300 * %GOTO C8A0; /* OR S22024*/ 30473400 *%IF DSORGBS=1 %THEN /* DSORGBS */ 30473500 * %GOTO C8A0; /* OR S22024*/ 30475600 *%IF DSORGTX=1 %THEN /* DSORGTX */ 30476000 * %GOTO C8A0; /* OR S22024*/ 30476400 *%IF DSORGTQ=1 %THEN /* DSORGTQ */ 30477300 * %GOTO C8A0; /* OR S22024*/ 30477400 *%IF DSORGXE=1 %THEN /* DSORGXE */ 30477600 * %GOTO C8A0; /* BYPASS 3705 EXPANSION */ 30479700 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 30485600 * BEING USED S22024*/ 30487600 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 30489600 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 30490000 * 4 * BIT(5), /* FIRST 5 BITS DSORG */ 30490400 * 4 DCBDSGTR BIT(1), /* DSORG=TR SPECIFIED S22024*/ 30490800 * 2 DCBIOBAD PTR(31), /* ADDRESS OF IOB S22024*/ 30491200 *%GOTO C8A2; 30491300 *%C8A0 : ; /* S22024*/ 30491400 * 2 * CHAR(2), /* DCBDSORG S22024*/ 30492800 * 2 * PTR(31), /* DCBIOBAD S22024*/ 30493200 *%C8A2 : ; 30493300 * 2 DCBRNCKD PTR(31), /* FULL WORD ADDR-DCBRNCKA */ 30497300 * 3 * CHAR(1), /* RESERVED S22024*/ 30497700 * 3 DCBRNCKA PTR(24), /* ADDRESS OF THE DCB USED 30498100 * TO RETAIN INCIDENT 30498200 * CHECKPOINT RECORDS 30498300 * GENERATED BY THE 3705 */ 30503500 *%IF DSORGIS=1 %THEN /* DSORGIS */ 30512100 * %GOTO C8A3; /* OR S22024*/ 30512500 *%IF DSORGBX=1 %THEN /* DSORGBX */ 30512600 * %GOTO C8A3; /* OR S22024*/ 30512700 *%IF DSORGDA=1 %THEN /* DSORGDA */ 30512800 * %GOTO C8A3; /* OR S22024*/ 30513200 *%IF DSORGQX=1 %THEN /* DSORGQX */ 30513600 * %GOTO C8A3; /* OR S22024*/ 30513700 *%IF DSORGQS=1 %THEN /* DSORGQS */ 30513800 * %GOTO C8A3; /* OR S22024*/ 30513900 *%IF DSORGBS=1 %THEN /* DSORGBS */ 30515100 * %GOTO C8A3; /* OR S22024*/ 30517100 *%IF DSORGXE=1 %THEN /* DSORGXE */ 30517500 * %GOTO C8A3; /* OR S22024*/ 30517900 *%IF DSORGTX=1 %THEN /* DSORGTX */ 30518300 * %GOTO C8A3; /* OR S22024*/ 30518700 *%IF DSORGTQ=1 %THEN /* DSORGTQ */ 30527200 * %GOTO C8A3; /* BYPASS 3705 EXPANSION */ 30527600 * 2 DCBEXLST PTR(31), /* FULL WORD ADDRESS-SAME 30528800 * AS DCBEXLSA S22024*/ 30529200 *%GOTO C8A4; /* S22024*/ 30529300 *%C8A3 : ; 30529400 * 2 * PTR(31), /* DCBEXLST S22024*/ 30532800 *%C8A4 : ; 30533200 *%IF DSORGBX=1 %THEN /* DSORGBX */ 30537100 * %GOTO C8A5; /* OR S22024*/ 30537200 *%IF DSORGQX=1 %THEN /* DSORGQX */ 30541600 * %GOTO C8A5; /* OR S22024*/ 30543600 *%IF DSORGTX=1 %THEN /* DSORGTX */ 30547000 * %GOTO C8A5; /* BYPASS 3705 EXPANSION */ 30547400 * 3 DCBEIOBX CHAR(1), /* SIZE,IN BYTES,OF THE IOB */ 30550000 *%GOTO C8A6 ; 30550100 *%C8A5 : ; 30550200 * 3 * CHAR(1), /* DCBEIOBX S22024*/ 30550500 *%C8A6 : ; 30551500 *%IF DSORGIS=1 %THEN /* DSORGIS */ 30551900 * %GOTO C8A7; /* OR S22024*/ 30552300 *%IF DSORGBX=1 %THEN /* DSORGBX */ 30552700 * %GOTO C8A7; /* OR S22024*/ 30553100 *%IF DSORGDA=1 %THEN /* DSORGDA */ 30553200 * %GOTO C8A7; /* OR S22024*/ 30553300 *%IF DSORGQX=1 %THEN /* DSORGQX */ 30553400 * %GOTO C8A7; /* OR S22024*/ 30553700 *%IF DSORGQS=1 %THEN /* DSORGQS */ 30554100 * %GOTO C8A7; /* OR S22024*/ 30554200 *%IF DSORGBS=1 %THEN /* DSORGBS */ 30554300 * %GOTO C8A7; /* OR S22024*/ 30554400 *%IF DSORGTX=1 %THEN /* DSORGTX */ 30555300 * %GOTO C8A7; /* OR S22024*/ 30555700 *%IF DSORGTQ=1 %THEN /* DSORGTQ */ 30556000 * %GOTO C8A7; /* OR S22024*/ 30556200 *%IF DSORGXE=1 %THEN /* DSORGXE */ 30556700 * %GOTO C8A7; /* BYPASS 3705 EXPANSION */ 30556900 * 3 DCBEXLSA PTR(24); /* ADDRESS OF THE EXIT LIST */ 30557100 *%GOTO C8A8 ; /* S22024*/ 30557200 *%C8A7 : ; 30557600 * 3 * PTR(24); /* DCBEXLSA S22024*/ 30560000 *%C8A8 : ; 30562200 *%IF DSORGLR=0 %THEN /* IF DSORGLR */ 30566700 * %GOTO C81; /* IS SET TO ONE */ 30570400 *%IF DSORGIS=1 %THEN /* AND DSORGIS AND DSORGBX */ 30574100 * %GOTO C81; /* AND DSORGDA AND DSORGQX */ 30577800 *%IF DSORGBX=1 %THEN 30581500 * %GOTO C81; /* AND DSORGXA AND DSORGQS */ 30585200 *%IF DSORGDA=1 %THEN /* AND DSORGBS AND DSORGXE */ 30588900 * %GOTO C81; /* ARE ALL SET TO ZERO, */ 30592600 *%IF DSORGQX=1 %THEN /* BRANCH TO CF */ 30596300 * %GOTO C81; 30600000 *%IF DSORGXA=1 %THEN 30700000 * %GOTO C81; 30720000 *%IF DSORGQS=1 %THEN 30740000 * %GOTO C81; 30760000 *%IF DSORGBS=1 %THEN 30780000 * %GOTO C81; 30800000 *%IF DSORGTR=1 %THEN 30810000 * %GOTO C81 ; 30812000 *%IF DSORGXE=0 %THEN 30820000 * %GOTO CF; 30840000 *%C81 : ; 30860000 */* FOUNDATION BEFORE OPEN */ 30880000 * 30900000 *DECLARE 1 IHADCS24 30920000 * BASED(ADDR(IHADCB)+40), 30940000 * 2 DCBDDNAM CHAR(8), /* NAME ON THE DD STATEMENT 30960000 * WHICH DEFINES THE DATA 30980000 * SET ASSOCIATED WITH THIS 31000000 * DCB */ 31020000 * 2 DCBOFLGS CHAR(1), /* FLAGS USED BY OPEN 31040000 * ROUTINE */ 31060000 * 3 DCBOFLWR BIT(1), /* IF ZERO, LAST I/O 31080000 * OPERATION WAS READ OR 31100000 * POINT. IF ONE, LAST I/O 31120000 * OPERATION WAS WRITE. */ 31140000 * 4 DCBOFIOD BIT(1), /* DATA SET IS BEING OPENED 31160000 * FOR INPUT OR OUTPUT 31180000 * (BDAM) */ 31200000 * 3 DCBOFLRB BIT(1), /* LAST I/O OPERATION WAS 31220000 * IN READ BACKWARD MODE */ 31240000 * 3 DCBOFEOV BIT(1), /* SET TO 1 BY EOV WHEN IT 31260000 * CALLS CLOSE ROUTINE FOR 31280000 * CONCATENATION OF DATA 31300000 * SETS WITH UNLIKE 31320000 * ATTRIBUTES */ 31340000 * 3 DCBOFOPN BIT(1), /* AN OPEN HAS BEEN 31360000 * SUCCESSFULLY COMPLETED */ 31380000 * 3 DCBOFPPC BIT(1), /* SET TO 1 BY PROBLEM 31400000 * PROGRAM TO INDICATE A 31420000 * CONCATENATION OF UNLIKE 31440000 * ATTRIBUTES */ 31460000 * 3 DCBOFTM BIT(1), /* TAPE MARK HAS BEEN READ */ 31480000 * 3 DCBOFUEX BIT(1), /* SET TO 0 BY AN I/O 31500000 * SUPPORT FUNCTION WHEN 31520000 * THAT FUNCTION TAKES A 31540000 * USER EXIT. SET TO 1 ON 31560000 * RETURN FROM USER EXIT TO 31580000 * THE I/O SUPPORT 31600000 * FUNCTION WHICH TOOK THE 31620000 * EXIT. */ 31640000 * 3 DCBOFIOF BIT(1), /* SET TO 1 BY AN I/O 31660000 * SUPPORT FUNCTION IF DCB 31680000 * IS TO BE PROCESSED BY 31700000 * THAT FUNCTION */ 31720000 * 2 DCBIFLG CHAR(1), /* FLAGS USED BY IOS IN 31740000 * COMMUNICATING ERROR 31760000 * CONDITIONS AND IN 31780000 * DETERMINING CORRECTIVE 31800000 * PROCEDURES */ 31820000 * 3 DCBIBEC BIT(2), /* ERROR CORRECTION 31840000 * INDICATOR */ 31860000 *%DCL DCBIFNEP CHAR; 31880000 *%DCBIFNEP='''00''B'; /* NOT IN ERROR PROCEDURE */ 31900000 *%DCL DCBEX CHAR; 31920000 *%DCBEX ='''01''B'; /* ERROR CORRECTION OR IOS 31940000 * PAGE FIX IN PROCESS */ 31960000 *%DCL DCBIFPEC CHAR; 31980000 *%DCBIFPEC='''11''B'; /* PERMANENT ERROR 32000000 * CORRECTION */ 32020000 * 3 DCBIBPCT BIT(2), /* PRINTER CARRIAGE TAPE 32040000 * PUNCH INDICATOR */ 32060000 *%DCL DCBIFC9 CHAR; 32080000 *%DCBIFC9 ='''10''B'; /* CHANNEL 9 PRINTER 32100000 * CARRIAGE TAPE PUNCH 32120000 * SENSED */ 32140000 *%DCL DCBIFC12 CHAR; 32160000 *%DCBIFC12='''01''B'; /* CHANNEL 12 PRINTER 32180000 * CARRIAGE TAPE PUNCH 32200000 * SENSED */ 32220000 * 4 DCBICH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 32221000 * 4 DCBICH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 32222000 * 3 DCBIBIOE BIT(2), /* IOS ERROR ROUTINE USE 32240000 * INDICATOR */ 32260000 *%DCL DCBIFER CHAR; 32280000 *%DCBIFER ='''00''B'; /* ALWAYS USE I/O 32300000 * SUPERVISOR ERROR ROUTINE */ 32320000 *%DCL DCBIFNE1 CHAR; 32340000 *%DCBIFNE1='''01''B'; /* NEVER USE I/O SUPERVISOR 32360000 * ERROR ROUTINE */ 32380000 *%DCL DCBIFTIM CHAR; 32400000 *%DCBIFTIM='''01''B'; /* TEST IOS MASK (IMSK) FOR 32420000 * ERROR PROCEDURE (BTAM) */ 32440000 *%DCL DCBIFNE2 CHAR; 32460000 *%DCBIFNE2='''10''B'; /* NEVER USE I/O SUPERVISOR 32480000 * ERROR ROUTINE */ 32500000 *%DCL DCBIFNE3 CHAR; 32520000 *%DCBIFNE3='''11''B'; /* NEVER USE I/O SUPERVISOR 32540000 * ERROR ROUTINE */ 32560000 * 3 * BIT(2), /* RESERVED */ 32580000 * 2 DCBMACR CHAR(2), /* MACRO INSTRUCTION 32600000 * REFERENCE */ 32620000 * 3 DCBMACR1 CHAR(1), /* FIRST BYTE OF DCBMACR */ 32640000 * 4 DCBMRECP BIT(1), /* EXECUTE CHANNEL PROGRAM 32660000 * (EXCP) --- ALWAYS ZERO 32680000 * (BSAM, QSAM, BPAM, 32700000 * BISAM, QISAM, BDAM) 32720000 * --- RESERVED (QTAM, 32740000 * BTAM) */ 32760000 * 4 DCBMRFE BIT(1), /* FOUNDATION EXTENSION IS 32780000 * PRESENT (EXCP) */ 32800000 * 5 DCBMRGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 32820000 * 6 DCBMRPTQ BIT(1), /* PUT FOR MESSAGE GROUP 32840000 * (QTAM) --- ALWAYS ZERO 32860000 * (BSAM, BPAM, BISAM, 32880000 * BDAM) --- RESERVED 32900000 * (BTAM) */ 32920000 * 4 DCBMRAPG BIT(1), /* APPENDAGES ARE REQUIRED 32940000 * (EXCP) */ 32960000 * 5 DCBMRRD BIT(1), /* READ (BSAM, BPAM, BISAM, 32980000 * BDAM, BTAM) */ 33000000 * 6 DCBMRWRQ BIT(1), /* WRITE FOR LINE GROUP 33020000 * (QTAM) --- ALWAYS ZERO 33040000 * (QSAM, QISAM) */ 33060000 * 4 DCBMRCI BIT(1), /* COMMON INTERFACE (EXCP) */ 33080000 * 5 DCBMRMVG BIT(1), /* MOVE MODE OF GET (QSAM, 33100000 * QISAM) */ 33120000 * 6 DCBMRRDK BIT(1), /* KEY SEGMENT WITH READ 33140000 * (BDAM) --- ALWAYS ZERO 33160000 * (BISAM) --- RESERVED 33180000 * (BSAM, BPAM, QTAM, BTAM) */ 33200000 * 4 DCBMRLCG BIT(1), /* LOCATE MODE OF GET 33220000 * (QSAM, QISAM) */ 33240000 * 5 DCBMRRDI BIT(1), /* ID ARGUMENT WITH READ 33260000 * (BDAM) --- ALWAYS ZERO 33280000 * (BISAM) --- RESERVED 33300000 * (EXCP, BSAM, BPAM, QTAM, 33320000 * BTAM) */ 33340000 * 4 DCBMRABC BIT(1), /* USER'S PROGRAM MAINTAINS 33360000 * ACCURATE BLOCK COUNT 33380000 * (EXCP) */ 33400000 * 5 DCBMRPT1 BIT(1), /* POINT (WHICH IMPLIES 33420000 * NOTE) (BSAM, BPAM) */ 33440000 * 6 DCBMRSBG BIT(1), /* SUBSTITUTE MODE OF GET 33460000 * (QSAM) */ 33480000 * 7 DCBMRDBF BIT(1), /* DYNAMIC BUFFERING 33500000 * (BISAM, BDAM) --- 33520000 * ALWAYS ZERO (QISAM) --- 33540000 * RESERVED (QTAM, BTAM) */ 33560000 * 4 DCBMRCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 33580000 * 5 DCBMRCHK BIT(1), /* CHECK (BISAM) */ 33600000 * 6 DCBMRRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 33620000 * 7 DCBPGFXA BIT(1), /* PAGE FIX APPENDAGE IS 33640000 * SPECIFIED (EXCP) 33660000 * --- RESERVED (BTAM, 33680000 * BPAM, QISAM, QTAM) */ 33700000 * 4 DCBMRDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 33720000 * 5 DCBMRCK BIT(1), /* CHECK (BDAM) --- 33740000 * RESERVED (EXCP, BSAM, 33760000 * BPAM, BISAM, QISAM, 33780000 * QTAM, BTAM) */ 33800000 * 3 DCBMACR2 CHAR(1), /* SECOND BYTE OF DCBMACR */ 33820000 * 4 DCBMRSTL BIT(1), /* SETL (QISAM) --- ALWAYS 33840000 * ZERO (BSAM, QSAM, BPAM, 33860000 * BISAM, BDAM) --- 33880000 * RESERVED (EXCP, QTAM, 33900000 * BTAM) */ 33920000 * 4 DCBMRPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 33940000 * OR PUTX (QISAM) */ 33960000 * 5 DCBMRGTQ BIT(1), /* GET FOR MESSAGE GROUP 33980000 * (QTAM) --- ALWAYS ZERO 34000000 * (BSAM, BPAM, BISAM, 34020000 * BDAM) --- RESERVED 34040000 * (EXCP, BTAM) */ 34060000 * 4 DCBMRWRT BIT(1), /* WRITE (BSAM, BPAM, 34080000 * BISAM, BDAM, BTAM) */ 34100000 * 5 DCBMRRDQ BIT(1), /* READ FOR LINE GROUP 34120000 * (QTAM) --- ALWAYS ZERO 34140000 * (QSAM, QISAM) --- 34160000 * RESERVED (EXCP) */ 34180000 * 4 DCBMRMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 34200000 * QISAM) */ 34220000 * 5 DCBMRWRK BIT(1), /* KEY SEGMENT WITH WRITE 34240000 * (BDAM) --- ALWAYS ZERO 34260000 * (BISAM) --- RESERVED 34280000 * (EXCP, BSAM, BPAM, QTAM, 34300000 * BTAM) */ 34320000 * 4 DCBMR5WD BIT(1), /* FIVE-WORD DEVICE 34340000 * INTERFACE (EXCP) */ 34360000 * 5 DCBMRLDM BIT(1), /* LOAD MODE BSAM (CREATE 34380000 * BDAM DATA SET) (BSAM) */ 34400000 * 6 DCBMRLCP BIT(1), /* LOCATE MODE OF PUT 34420000 * (QSAM, QISAM) */ 34440000 * 7 DCBMRIDW BIT(1), /* ID ARGUMENT WITH WRITE 34460000 * (BDAM) --- ALWAYS ZERO 34480000 * (BISAM) --- RESERVED 34500000 * (BPAM, QTAM, BTAM) */ 34520000 * 4 DCBMR4WD BIT(1), /* FOUR-WORD DEVICE 34540000 * INTERFACE (EXCP) */ 34560000 * 5 DCBMRPT2 BIT(1), /* POINT (WHICH IMPLIES 34580000 * NOTE) (BSAM, BPAM) */ 34600000 * 6 DCBMRTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 34620000 * 7 DCBMRUIP BIT(1), /* UPDATE IN PLACE (PUTX) 34640000 * (QISAM) --- ALWAYS ZERO 34660000 * (BISAM) --- RESERVED 34680000 * (BDAM, QTAM, BTAM) */ 34700000 * 4 DCBMR3WD BIT(1), /* THREE-WORD DEVICE 34720000 * INTERFACE (EXCP) */ 34740000 * 5 DCBMRCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 34760000 * 6 DCBMRSTK BIT(1), /* SETL BY KEY (QISAM) */ 34780000 * 7 DCBMRAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) 34800000 * --- ALWAYS ZERO (BISAM) 34820000 * --- RESERVED (BPAM, 34840000 * QTAM, BTAM) */ 34860000 * 4 DCBMR1WD BIT(1), /* ONE-WORD DEVICE 34880000 * INTERFACE (EXCP) */ 34900000 * 5 DCBMRSWA BIT(1), /* USER'S PROGRAM HAS 34920000 * PROVIDED A SEGMENT WORK 34940000 * AREA POOL (BSAM CREATE 34960000 * BDAM, BDAM) */ 34980000 * 6 DCBMRDMD BIT(1), /* DATA MODE (QSAM) */ 35000000 * 7 DCBMRSTI BIT(1); /* SETL BY ID (QISAM) --- 35020000 * ALWAYS ZERO (BISAM) --- 35040000 * RESERVED (BPAM, QTAM, 35060000 * BTAM) */ 35080000 * 35100000 */* FOUNDATION AFTER OPEN */ 35120000 * 35140000 *DECLARE 1 IHADCS25 35160000 * BASED(ADDR(IHADCB)+40), 35180000 * 2 DCBTIOT FIXED(15), /* OFFSET FROM TIOT ORIGIN 35200000 * TO TIOELNGH FIELD IN 35220000 * TIOT ENTRY FOR DD 35240000 * STATEMENT ASSOCIATED 35260000 * WITH THIS DCB */ 35280000 * 2 DCBMACRF CHAR(2), /* SAME AS DCBMACR BEFORE 35300000 * OPEN */ 35320000 * 3 DCBMACF1 CHAR(1), /* FIRST BYTE OF DCBMACRF */ 35340000 * 4 DCBMFECP BIT(1), /* EXECUTE CHANNEL PROGRAM 35360000 * (EXCP) */ 35380000 * 4 DCBMFFE BIT(1), /* FOUNDATION EXTENSION IS 35400000 * PRESENT (EXCP) */ 35420000 * 5 DCBMFGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 35440000 * 6 DCBMFPTQ BIT(1), /* PUT FOR MESSAGE GROUP 35460000 * (QTAM) */ 35480000 * 4 DCBMFAPG BIT(1), /* APPENDAGES ARE REQUIRED 35500000 * (EXCP) */ 35520000 * 5 DCBMFRD BIT(1), /* READ (BSAM, BPAM, BISAM, 35540000 * BDAM, BTAM) */ 35560000 * 6 DCBMFWRQ BIT(1), /* WRITE FOR LINE GROUP 35580000 * (QTAM) */ 35600000 * 4 DCBMFCI BIT(1), /* COMMON INTERFACE (EXCP) */ 35620000 * 5 DCBMFMVG BIT(1), /* MOVE MODE OF GET (QSAM, 35640000 * QISAM) */ 35660000 * 6 DCBMFRDK BIT(1), /* KEY SEGMENT WITH READ 35680000 * (BDAM) */ 35700000 * 4 DCBMFLCG BIT(1), /* LOCATE MODE OF GET 35720000 * (QSAM, QISAM) */ 35740000 * 5 DCBMFRDI BIT(1), /* ID ARGUMENT WITH READ 35760000 * (BDAM) */ 35780000 * 4 DCBMFABC BIT(1), /* USER'S PROGRAM MAINTAINS 35800000 * ACCURATE BLOCK COUNT 35820000 * (EXCP) */ 35840000 * 5 DCBMFPT1 BIT(1), /* POINT (WHICH IMPLIES 35860000 * NOTE) (BSAM, BPAM) */ 35880000 * 6 DCBMFSBG BIT(1), /* SUBSTITUTE MODE OF GET 35900000 * (QSAM) */ 35920000 * 7 DCBMFDBF BIT(1), /* DYNAMIC BUFFERING 35940000 * (BISAM, BDAM) */ 35960000 * 4 DCBMFCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 35980000 * 5 DCBMFCHK BIT(1), /* CHECK (BISAM) */ 36000000 * 6 DCBMFRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 36020000 * 4 DCBMFDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 36040000 * 5 DCBMFCK BIT(1), /* CHECK (BDAM) */ 36060000 * 3 DCBMACF2 CHAR(1), /* SECOND BYTE OF DCBMACRF */ 36080000 * 4 DCBMFSTL BIT(1), /* SETL (QISAM) */ 36100000 * 4 DCBMFPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 36120000 * OR PUTX (QISAM) */ 36140000 * 5 DCBMFGTQ BIT(1), /* GET FOR MESSAGE GROUP 36160000 * (QTAM) */ 36180000 * 4 DCBMFWRT BIT(1), /* WRITE (BSAM, BPAM, 36200000 * BISAM, BDAM, BTAM) */ 36220000 * 5 DCBMFRDQ BIT(1), /* READ FOR LINE GROUP 36240000 * (QTAM) */ 36260000 * 4 DCBMFMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 36280000 * QISAM) */ 36300000 * 5 DCBMFWRK BIT(1), /* KEY SEGMENT WITH WRITE 36320000 * (BDAM) */ 36340000 * 4 DCBMF5WD BIT(1), /* FIVE-WORD DEVICE 36360000 * INTERFACE (EXCP) */ 36380000 * 5 DCBMFLDM BIT(1), /* LOAD MODE BSAM (CREATE 36400000 * BDAM DATA SET) (BSAM) */ 36420000 * 6 DCBMFLCP BIT(1), /* LOCATE MODE OF PUT 36440000 * (QSAM, QISAM) */ 36460000 * 7 DCBMFIDW BIT(1), /* ID ARGUMENT WITH WRITE 36480000 * (BDAM) */ 36500000 * 4 DCBMF4WD BIT(1), /* FOUR-WORD DEVICE 36520000 * INTERFACE (EXCP) */ 36540000 * 5 DCBMFPT2 BIT(1), /* POINT (WHICH IMPLIES 36560000 * NOTE) (BSAM, BPAM) */ 36580000 * 6 DCBMFTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 36600000 * 7 DCBMFUIP BIT(1), /* UPDATE IN PLACE (PUTX) 36620000 * (QISAM) */ 36640000 * 4 DCBMF3WD BIT(1), /* THREE-WORD DEVICE 36660000 * INTERFACE (EXCP) */ 36680000 * 5 DCBMFCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 36700000 * 6 DCBMFSTK BIT(1), /* SETL BY KEY (QISAM) */ 36720000 * 7 DCBMFAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) */ 36740000 * 4 DCBMF1WD BIT(1), /* ONE-WORD DEVICE 36760000 * INTERFACE (EXCP) */ 36780000 * 5 DCBMFSWA BIT(1), /* USER'S PROGRAM HAS 36800000 * PROVIDED A SEGMENT WORK 36820000 * AREA POOL (BSAM CREATE 36840000 * BDAM, BDAM) */ 36860000 * 6 DCBMFDMD BIT(1), /* DATA MODE (QSAM) */ 36880000 * 7 DCBMFSTI BIT(1), /* SETL BY ID (QISAM) */ 36900000 * 2 DCBDEBAD PTR(31), /* ADDRESS OF ASSOCIATED 36920000 * DEB */ 36940000 * 3 DCBIFLGS CHAR(1), /* SAME AS DCBIFLG BEFORE 36960000 * OPEN */ 36980000 * 4 DCBIFEC BIT(2), /* ERROR CORRECTION 37000000 * INDICATOR */ 37020000 * 4 DCBIFPCT BIT(2), /* PRINTER CARRIAGE TAPE 37040000 * PUNCH INDICATOR */ 37060000 * 5 DCBCH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 37061000 * 5 DCBCH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 37062000 * 4 DCBIFIOE BIT(2), /* IOS ERROR ROUTINE USE 37080000 * INDICATOR */ 37100000 * 4 DCBIFLDT BIT(1), /* 3800 PRINTER @G38ESMH*/ 37110000 * /* LOST DATA INDIC. @G38ESMH*/ 37120000 * 4 * BIT(1), /* RESERVED @G38ESMH*/ 37130000 * 3 DCBDEBA PTR(24); /* ADDRESS OF ASSOCIATED 37140000 * DEB */ 37160000 * 37180000 *%IF DSORGBX=1 %THEN /* IF DSORGBX AND DSORGDA */ 37200000 * %GOTO C8A1; /* AND DSORGQX AND DSORGBS */ 37220000 *%IF DSORGDA=1 %THEN /* ARE ALL SET TO ZERO, */ 37240000 * %GOTO C8A1; /* BRANCH TO C8A */ 37260000 *%IF DSORGQX=1 %THEN 37280000 * %GOTO C8A1; 37300000 *%IF DSORGBS=0 %THEN 37320000 * %GOTO C8A; 37340000 *%C8A1 : ; 37360000 *DECLARE 1 IHADCS26 37380000 * BASED(ADDR(IHADCB)+48), 37400000 * 2 DCBWRITE PTR(31), /* SAME AS DCBWRITA BELOW 37420000 * Y01963*/ 37430000 * 3 DCBREAD PTR(31), /* SAME AS DCBREADA BELOW 37440000 * Y01963*/ 37442000 * 4 * CHAR(1), /* DCBOFLGS Y01963*/ 37450000 * 4 DCBWRITA PTR(24), /* ADDRESS OF WRITE MODULE 37452000 * Y01963*/ 37452400 * 5 DCBREADA PTR(24); /* ADDRESS OF READ MODULE 37454000 * Y01963*/ 37456000 * 37460000 *%C8A : ; 37480000 *%IF DSORGIS=1 %THEN /* IF DSORGIS AND DSORGQX */ 37500000 * %GOTO C8A9; /* AND DSORGQS */ 37520000 *%IF DSORGQX=1 %THEN /* ARE ALL SET TO ZERO, */ 37540000 * %GOTO C8A9; /* BRANCH TO C8B */ 37560000 *%IF DSORGTR=1 %THEN 37610000 * %GOTO C8A9 ; 37612000 *%IF DSORGQS=0 %THEN 37620000 * %GOTO C8B; 37640000 *%C8A9 : ; 37660000 *DECLARE 1 IHADCS27 37680000 * BASED(ADDR(IHADCB)+48), 37700000 * 2 DCBGET PTR(31), /* SAME AS DCBGETA BELOW 37720000 * Y01963*/ 37730000 * 3 DCBPUT PTR(31), /* SAME AS DCBPUTA BELOW 37740000 * Y01963*/ 37742000 * 4 * CHAR(1), /* DCBOFLGS Y01963*/ 37750000 * 4 DCBGETA PTR(24), /* ADDRESS OF GET MODULE 37752000 * Y01963*/ 37752400 * 5 DCBPUTA PTR(24); /* ADDRESS OF PUT MODULE 37754000 * Y01963*/ 37756000 * 37760000 *%C8B : ; 37780000 *%IF DSORGTR=1 %THEN 37790000 * %GOTO C8B3 ; 37792000 *%IF DSORGTX=0 %THEN 37800000 * %GOTO C8B1; 37820000 *%C8B3 : ; 37830000 */* 3705 EXTENSION */ 37832000 */* TCAM LINE GROUP EXTENSION */ 37840000 * 37860000 *DECLARE 1 IHADCS43 37880000 * BASED(ADDR(IHADCB)+48), 37900000 * 2 DCBSCTAB PTR(31), /* ADDRESS OF SPECIAL 37920000 * CHARACTERS TABLE (SCT) */ 37940000 * 3 * CHAR(1), /* DCBOFLGS - FLAGS USED BY 37960000 * OPEN ROUTINE */ 37980000 * 3 DCBSCTAD PTR(24), /* ADDRESS OF SPECIAL 38000000 * CHARACTERS TABLE (SCT) */ 38020000 * 2 DCBILCT PTR(8), /* COUNT OF INVITATION 38040000 * LISTS */ 38060000 * 2 DCBUNTCT PTR(8), /* BEFORE OPEN - NUMERICAL 38080000 * VALUE OF SCT. AFTER 38100000 * OPEN - COUNT OF UNITS 38120000 * FOR 1 BUFFER. */ 38140000 * 2 DCBBUFSI FIXED(15); /* SIZE OF ALL BUFFERS USED 38160000 * FOR THIS LINE GROUP */ 38180000 *%IF DSORGTX=0 %THEN 38190000 * %GOTO C8B1; /* S22024*/ 38192000 *DECLARE 1 IHADCS2A 38194000 * BASED(ADDR(IHADCB)+56), 38196000 * 2 DCBRESER CHAR(4), /* NUMBER OF RESERVED BYTES 38200000 * IN BUFFERS */ 38220000 * 3 DCBRESB1 PTR(8), /* NUMBER OF BYTES RESERVED 38240000 * IN THE BUFFER RECEIVING 38260000 * FIRST INCOMING SEGMENT 38280000 * OF A MESSAGE */ 38300000 * 3 DCBRESB2 PTR(8), /* NUMBER OF BYTES RESERVED 38320000 * IN ALL BUFFERS EXCEPT 38340000 * THE ONE CONTAINING FIRST 38360000 * SEGMENT OF A MESSAGE */ 38380000 * 3 * CHAR(2), /* RESERVED */ 38400000 * 38420000 */* THE FOLLOWING 4 BYTES MAY BE REPEATED 'N' TIMES */ 38440000 * 2 DCBINVLI PTR(31), /* ADDRESS OF INVITATION 38460000 * LIST */ 38480000 * 3 DCBINVCI CHAR(1), /* TYPE OF COMMUNICATION 38500000 * INTERFACE FOR 2701 DATA 38520000 * ADAPTER UNIT */ 38540000 * 4 * BIT(2), /* RESERVED */ 38560000 * 4 DCBINVB1 BIT(1), /* IF ZERO, UNIT (A,) IF 38580000 * ONE, UNIT (B,) */ 38600000 * 4 * BIT(1), /* RESERVED */ 38620000 * 4 DCBINVB2 BIT(1), /* IF ZERO, UNIT (,A) IF 38640000 * ONE, UNIT (,B) */ 38660000 * 4 * BIT(3), /* RESERVED */ 38680000 * 3 DCBINVLA PTR(24); /* ADDRESS OF INVITATION 38700000 * LIST */ 38720000 * 38740000 *%C8B1 : ; 38760000 *%IF DSORGXA=1 %THEN /* IF DSORGXA AND DSORGXE */ 38780000 * %GOTO C8B2; /* ARE BOTH SET TO ZERO, */ 38800000 *%IF DSORGXE=0 %THEN /* BRANCH TO C9 */ 38820000 * %GOTO C9; 38840000 *%C8B2 : ; 38860000 */* EXCP WITH EXTENSION OR APPENDAGES */ 38880000 * 38900000 *DECLARE 1 IHADCS28 38920000 * BASED(ADDR(IHADCB)+52), 38940000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 38960000 * %GOTO C8C; /* OR DSORGQS OR DSORGBS */ 38980000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 39000000 * %GOTO C8C; /* BRANCH TO C8C */ 39020000 *%IF DSORGQS=1 %THEN 39040000 * %GOTO C8C; 39060000 *%IF DSORGBS=1 %THEN 39080000 * %GOTO C8C; 39100000 * 2 DCBOPTCD CHAR(1), /* OPTION CODES */ 39120000 *%GOTO C8D ; 39140000 *%C8C : ; 39160000 * 2 * CHAR(1), /* DCBOPTCD - OPTION CODES */ 39180000 *%C8D : ; 39200000 *%IF DSORGQS=1 %THEN /* IF DSORGQS OR DSORGBS */ 39220000 * %GOTO C8E; /* IS SET TO 1, */ 39240000 *%IF DSORGBS=1 %THEN /* BRANCH TO C8E */ 39260000 * %GOTO C8E; 39280000 * 3 * BIT(5), /* RESERVED */ 39300000 * 3 DCBOPTZ BIT(1), /* MAGNETIC TAPE DEVICES - 39320000 * USE REDUCED ERROR 39340000 * RECOVERY PROCEDURE 39360000 * (EXCP, BSAM, BPAM, QSAM) */ 39380000 * 4 DCBSRCHD BIT(1), /* USE SEARCH DIRECT, 39400000 * INSTEAD OF SEARCH 39420000 * PREVIOUS, ON RECORD 39440000 * POSITION SENSING DEVICE 39460000 * (EXCP, BSAM, BPAM, QSAM) 39480000 * ICB217*/ 39500000 * 3 * BIT(2), /* RESERVED */ 39520000 *%C8E : ; 39540000 * 2 * CHAR(7); /* RESERVED */ 39560000 * 39580000 *%IF DSORGXA=0 %THEN 39600000 * %GOTO C9; 39620000 */* EXCP APPENDAGE LIST */ 39640000 * 39660000 *DECLARE 1 IHADCS44 39680000 * BASED(ADDR(IHADCB)+60), 39700000 * 2 DCBEOEA CHAR(2), /* END OF EXTENT APPENDAGE 39720000 * ID */ 39740000 * 2 DCBPCIA CHAR(2), /* PROGRAM CONTROLLED 39760000 * INTERRUPTION APPENDAGE 39780000 * ID */ 39800000 * 2 DCBSIOA CHAR(2), /* START I/O APPENDAGE ID */ 39820000 * 2 DCBCENDA CHAR(2), /* CHANNEL END APPENDAGE ID */ 39840000 * 2 DCBXENDA CHAR(2), /* ABNORMAL END APPENDAGE 39860000 * ID */ 39880000 * 2 * CHAR(2); /* RESERVED */ 39900000 * 39920000 *%C9 : ; 39940000 *%IF DSORGIS=0 %THEN 39960000 * %GOTO CA; 39980000 */* BISAM-QISAM INTERFACE */ 40000000 * 40020000 *DECLARE 1 IHADCS29 40040000 * BASED(ADDR(IHADCB)+52), 40060000 * 2 DCBOPTCD CHAR(1), /* OPTION CODES */ 40080000 *%IF DSORGQS=1 %THEN /* IF DSORGQS OR DSORGBS */ 40100000 * %GOTO C9A; /* IS SET TO 1, */ 40120000 *%IF DSORGBS=1 %THEN /* BRANCH TO C9A */ 40140000 * %GOTO C9A; 40160000 * 3 DCBOPTW BIT(1), /* WRITE VALIDITY CHECK 40180000 * (DASD) (BSAM, BPAM, 40200000 * QSAM, ISAM, BDAM) */ 40220000 *%GOTO C9B ; 40240000 *%C9A : ; 40260000 * 3 * BIT(1), /* DCBOPTW - SAME AS BSAM */ 40280000 *%C9B : ; 40300000 * 3 DCBOPTUF BIT(1), /* FULL-TRACK INDEX WRITE */ 40320000 * 3 DCBOPTM BIT(1), /* MASTER INDEXES */ 40340000 * 3 DCBOPTI BIT(1), /* INDEPENDENT OVERFLOW AREA*/ 40360000 * 3 DCBOPTY BIT(1), /* CYLINDER OVERFLOW AREA */ 40380000 * 3 * BIT(1), /* RESERVED */ 40400000 * 3 DCBOPTL BIT(1), /* DELETE OPTION */ 40420000 * 3 DCBOPTR BIT(1), /* REORGANIZATION CRITERIA */ 40440000 * 2 DCBMAC CHAR(1), /* EXTENSION OF DCBMACRF 40460000 * FIELD FOR ISAM */ 40480000 * 3 * BIT(4), /* RESERVED */ 40500000 * 3 DCBMACUR BIT(1), /* UPDATE FOR READ */ 40520000 * 3 DCBMACUW BIT(1), /* UPDATE TYPE OF WRITE */ 40540000 * 3 DCBMACAW BIT(1), /* ADD TYPE OF WRITE */ 40560000 * 3 DCBMACRE BIT(1), /* READ EXCLUSIVE */ 40580000 * 2 DCBNTM PTR(8), /* NUMBER OF TRACKS THAT 40600000 * DETERMINE THE 40620000 * DEVELOPMENT OF A MASTER 40640000 * INDEX MAXIMUM 40660000 * PERMISSABLE VALUE - 99 */ 40680000 * 2 DCBCYLOF PTR(8), /* NUMBER OF TRACKS TO BE 40700000 * RESERVED ON EACH PRIME 40720000 * DATA CYLINDER FOR 40740000 * RECORDS THAT OVERFLOW 40760000 * FROM OTHER TRACKS ON 40780000 * THAT CYLINDER */ 40800000 * 2 DCBSYNAD PTR(31), /* ADDRESS OF USER'S SYNAD 40820000 * ROUTINE */ 40840000 * 2 DCBRKP FIXED(15), /* RELATIVE POSITION OF 40860000 * FIRST BYTE OF KEY 40880000 * WITHIN EACH LOGICAL 40900000 * RECORD */ 40920000 * 2 DCBBLKSI FIXED(15), /* BLOCK SIZE */ 40940000 * 2 DCBMSWA PTR(31), /* ADDRESS OF MAIN STORAGE 40960000 * WORK AREA FOR USE BY 40980000 * CONTROL PROGRAM WHEN NEW 41000000 * RECORDS ARE BEING ADDED 41020000 * TO AN EXISTING DATA SET */ 41040000 * 2 DCBSMSI FIXED(15), /* NUMBER OF BYTES IN AREA 41060000 * RESERVED TO HOLD 41080000 * HIGHEST LEVEL INDEX */ 41100000 * 2 DCBSMSW FIXED(15), /* NUMBER OF BYTES IN WORK 41120000 * AREA USED BY CONTROL 41140000 * PROGRAM WHEN NEW RECORDS 41160000 * ARE BEING ADDED TO DATA 41180000 * SET */ 41200000 * 2 DCBMSHI PTR(31), /* ADDRESS OF MAIN STORAGE 41220000 * AREA TO HOLD HIGHEST 41240000 * LEVEL INDEX */ 41260000 * 3 DCBNCP PTR(8), /* NUMBER OF COPIES OF 41280000 * READ-WRITE (TYPE K) 41300000 * CHANNEL PROGRAMS THAT 41320000 * ARE TO BE ESTABLISHED 41340000 * FOR THIS DCB. (99 41360000 * MAXIMUM) */ 41380000 * 3 DCBMSHIA PTR(24), /* SAME AS DCBMSHI ABOVE */ 41400000 * 2 DCBSETL PTR(31), /* ADDRESS OF SETL MODULE 41420000 * FOR QISAM. ADDRESS OF 41440000 * CHECK MODULE FOR BISAM */ 41460000 * 2 DCBEXCD1 CHAR(1), /* FIRST BYTE IN WHICH 41480000 * EXCEPTIONAL CONDITIONS 41500000 * DETECTED IN PROCESSING 41520000 * DATA RECORDS ARE 41540000 * REPORTED TO THE USER */ 41560000 * 3 DCBEXNKY BIT(1), /* LOWER KEY LIMIT NOT FOUND*/ 41580000 * 3 DCBEXIDA BIT(1), /* INVALID DEVICE ADDRESS 41600000 * FOR LOWER LIMIT */ 41620000 * 3 DCBEXNSP BIT(1), /* SPACE NOT FOUND */ 41640000 * 3 DCBEXINV BIT(1), /* INVALID REQUEST */ 41660000 * 3 DCBEXIER BIT(1), /* UNCORRECTABLE INPUT ERROR*/ 41680000 * 3 DCBEXOER BIT(1), /* UNCORRECTABLE OUTPUT 41700000 * ERROR */ 41720000 * 3 DCBEXBLI BIT(1), /* BLOCK COULD NOT BE 41740000 * REACHED (INPUT) */ 41760000 * 3 DCBEXBLU BIT(1), /* BLOCK COULD NOT BE 41780000 * REACHED (UPDATE) */ 41800000 * 2 DCBEXCD2 CHAR(1), /* SECOND BYTE IN WHICH 41820000 * EXCEPTIONAL CONDITIONS 41840000 * DETECTED IN PROCESSING 41860000 * DATA RECORDS ARE 41880000 * REPORTED TO THE USER */ 41900000 * 3 DCBEXSEQ BIT(1), /* SEQUENCE CHECK */ 41920000 * 3 DCBEXDUP BIT(1), /* DUPLICATE RECORD */ 41940000 * 3 DCBEXCLD BIT(1), /* DCB CLOSED WHEN ERROR 41960000 * WAS DETECTED */ 41980000 * 3 DCBEXOFL BIT(1), /* OVERFLOW RECORD */ 42000000 * 3 DCBEXLTH BIT(1), /* FOR PUT - LENGTH FIELD OF 42020000 * RECORD LARGER THAN LENGTH 42040000 * INDICATED IN DCBLRECL */ 42060000 * 4 DCBEXRDE BIT(1), /* READ EXCLUSIVE */ 42080000 * 3 * BIT(3), /* RESERVED */ 42100000 * 2 DCBLRECL FIXED(15), /* FOR FIXED-LENGTH RECORD 42120000 * FORMATS, LOGICAL RECORD 42140000 * LENGTH. FOR 42160000 * VARIABLE-LENGTH RECORD 42180000 * FORMATS, MAXIMUM LOGICAL 42200000 * RECORD LENGTH OR AN 42220000 * ACTUAL LOGICAL RECORD 42240000 * LENGTH CHANGED 42260000 * DYNAMICALLY BY USER WHEN 42280000 * CREATING THE DATA SET */ 42300000 * 2 DCBESETL PTR(31), /* ADDRESS OF ESETL ROUTINE 42320000 * IN GET MODULE */ 42340000 * 2 DCBLRAN PTR(31), /* ADDRESS OF READ-WRITE K 42360000 * MODULE OR EXCLUSIVE 42380000 * MODULE */ 42400000 * 2 DCBLWKN PTR(31), /* ADDRESS OF WRITE KN 42420000 * MODULE */ 42440000 * 2 DCBRELSE PTR(31), /* WORK AREA FOR TEMPORARY 42460000 * STORAGE OF REGISTER 42480000 * CONTENTS */ 42500000 * 2 DCBPUTX PTR(31), /* WORK AREA FOR TEMPORARY 42520000 * STORAGE OF REGISTER 42540000 * CONTENTS */ 42560000 * 2 DCBRELEX PTR(31), /* ADDRESS OF READ 42580000 * EXCLUSIVE MODULE */ 42600000 * 2 DCBFREED PTR(31), /* ADDRESS OF DYNAMIC 42620000 * BUFFERING MODULE */ 42640000 * 2 DCBHIRTI PTR(8), /* NUMBER OF INDEX ENTRIES 42660000 * THAT FIT ON A PRIME 42680000 * DATA TRACK */ 42700000 * 2 DCBFTMI2 CHAR(7), /* DIRECT ACCESS DEVICE 42720000 * ADDRESS OF FIRST TRACK 42740000 * OF SECOND LEVEL MASTER 42760000 * INDEX (IN THE FORM 42780000 * MBBCCHH) */ 42800000 * 2 DCBLEMI2 CHAR(5), /* DIRECT ACCESS DEVICE 42820000 * ADDRESS OF LAST ACTIVE 42840000 * ENTRY IN SECOND LEVEL 42860000 * MASTER INDEX (IN THE 42880000 * FORM CCHHR) */ 42900000 * 2 DCBFTMI3 CHAR(7), /* DIRECT ACCESS DEVICE 42920000 * ADDRESS OF FIRST TRACK 42940000 * OF THIRD LEVEL MASTER 42960000 * INDEX (IN THE FORM 42980000 * MBBCCHH) */ 43000000 * 2 DCBLEMI3 CHAR(5), /* DIRECT ACCESS DEVICE 43020000 * ADDRESS OF LAST ACTIVE 43040000 * ENTRY IN THIRD LEVEL 43060000 * MASTER INDEX (IN THE 43080000 * FORM CCHHR) */ 43100000 * 2 DCBNLEV PTR(8), /* NUMBER OF LEVELS OF 43120000 * INDEX */ 43140000 * 2 DCBFIRSH CHAR(3), /* HHR OF FIRST DATA RECORD 43160000 * ON EACH CYLINDER. FOR 43180000 * VARIABLE LENGTH RECORD 43200000 * PROCESSING, R PORTION OF 43220000 * THIS FIELD IS ALWAYS 43240000 * X'01'. */ 43260000 * 2 DCBHMASK CHAR(1), /* BYTE INDICATING 2301 OR 43280000 * NOT */ 43300000 *%DCL DCBHMDRM CHAR; 43320000 *%DCBHMDRM='''07''X'; /* DEVICE IS 2301 DRUM */ 43340000 *%DCL DCBHMNDM CHAR; 43360000 *%DCBHMNDM='''FF''X'; /* DEVICE IS OTHER THAN 43380000 * 2301 DRUM */ 43400000 * 2 DCBLDT CHAR(2), /* HH IS THE LAST PRIME 43420000 * DATA TRACK ON EACH 43440000 * CYLINDER */ 43460000 * 2 DCBHIRCM CHAR(1), /* HIGHEST POSSIBLE R FOR 43480000 * TRACKS OF THE CYLINDER 43500000 * AND MASTER INDICES */ 43520000 * 2 DCBHIRPD CHAR(1), /* HIGHEST R ON ANY PRIME 43540000 * TRACK IN DATA SET. FOR 43560000 * VARIABLE-LENGTH RECORDS, 43580000 * THIS REPRESENTS THE 43600000 * GREATEST NUMBER OF 43620000 * PHYSICAL RECORDS ON ANY 43640000 * PRIME TRACK IN THE DATA 43660000 * SET */ 43680000 * 2 DCBHIROV CHAR(1), /* FOR FIXED-LENGTH RECORD 43700000 * FORMAT, HIGHEST 43720000 * POSSIBLE R FOR OVERFLOW 43740000 * DATA TRACKS. FOR 43760000 * VARIABLE-LENGTH RECORD 43780000 * FORMAT, UNUSED. */ 43800000 * 2 DCBHIRSH CHAR(1), /* FOR FIXED-LENGTH RECORD 43820000 * FORMAT, R OF LAST DATA 43840000 * RECORD ON A SHARED 43860000 * TRACK, IF APPLICABLE. 43880000 * FOR VARIABLE-LENGTH 43900000 * RECORD FORMAT, UNUSED. */ 43920000 * 2 DCBTDC FIXED(15), /* USER-SUPPLIED NUMBER OF 43940000 * RECORDS TAGGED FOR 43960000 * DELETION. */ 43980000 * 2 DCBNCRHI FIXED(15), /* NUMBER OF STORAGE 44000000 * LOCATIONS NEEDED TO 44020000 * HOLD THE HIGHEST LEVEL 44040000 * INDEX */ 44060000 * 2 DCBRORG3 FIXED(31), /* FOR EACH USE OF DATA 44080000 * SET, NUMBER OF READ OR 44100000 * WRITE ACCESSES TO AN 44120000 * OVERFLOW RECORD WHICH 44140000 * IS NOT FIRST IN A CHAIN 44160000 * OF SUCH RECORDS */ 44180000 * 2 DCBNREC FIXED(31), /* NUMBER OF LOGICAL 44200000 * RECORDS IN PRIME DATA 44220000 * AREA */ 44240000 * 2 DCBST CHAR(1), /* STATUS INDICATORS */ 44260000 * 3 DCBSTSSM BIT(1), /* SINGLE SCHEDULE MODE */ 44280000 * 3 DCBSTKSQ BIT(1), /* KEY SEQUENCE CHECKING IS 44300000 * TO BE PERFORMED */ 44320000 * 3 DCBSTLOD BIT(1), /* LOADING HAS COMPLETED. 44340000 * SET TO 1 BY CLOSE ROUTINE 44360000 * AND TO 0 BY FIRST 44380000 * EXECUTION OF PUT ROUTINE */ 44400000 * 3 DCBSTNCY BIT(1), /* EXTENSION OF DATA SET 44420000 * WILL BEGIN ON NEW 44440000 * CYLINDER */ 44460000 * 3 * BIT(1), /* RESERVED */ 44480000 * 3 DCBSTNMC BIT(1), /* FIRST MACRO INSTRUCTION 44500000 * NOT YET RECEIVED */ 44520000 * 3 DCBSTLBF BIT(1), /* LAST BLOCK FULL */ 44540000 * 3 DCBSTLTF BIT(1), /* LAST TRACK FULL */ 44560000 * 2 DCBFTCI CHAR(7), /* DIRECT ACCESS DEVICE 44580000 * ADDRESS OF FIRST TRACK 44600000 * OF CYLINDER INDEX (IN 44620000 * THE FORM MBBCCHH). */ 44640000 * 2 DCBHIIOV CHAR(1), /* FOR FIXED LENGTH RECORD 44660000 * FORMAT, HIGHEST 44680000 * POSSIBLE R FOR 44700000 * INDEPENDENT OVERFLOW 44720000 * DATA TRACKS. FOR 44740000 * VARIABLE LENGTH RECORD 44760000 * FORMAT, UNUSED */ 44780000 * 2 DCBFTMI1 CHAR(7), /* DIRECT ACCESS DEVICE 44800000 * ADDRESS OF FIRST TRACK 44820000 * OF FIRST LEVEL MASTER 44840000 * INDEX (IN THE FORM 44860000 * MBBCCHH). */ 44880000 * 2 DCBNTHI PTR(8), /* NUMBER OF TRACKS OF 44900000 * HIGH-LEVEL INDEX */ 44920000 * 2 DCBFTHI CHAR(7), /* DIRECT ACCESS DEVICE 44940000 * ADDRESS OF FIRST TRACK 44960000 * OF HIGHEST LEVEL INDEX 44980000 * (IN THE FORM MBBCCHH). */ 45000000 * 2 DCBLPDA CHAR(8), /* DIRECT ACCESS DEVICE 45020000 * ADDRESS OF LAST PRIME 45040000 * DATA RECORD IN PRIME 45060000 * DATA AREA (IN THE FORM 45080000 * MBBCCHHR). */ 45100000 * 2 DCBLETI CHAR(5), /* DIRECT ACCESS DEVICE 45120000 * ADDRESS OF LAST ACTIVE 45140000 * NORMAL ENTRY OF TRACK 45160000 * INDEX ON LAST ACTIVE 45180000 * CYLINDER (IN THE FORM 45200000 * CCHHR). */ 45220000 * 2 DCBOVDEV CHAR(1), /* DEVICE TYPE FOR 45240000 * INDEPENDENT OVERFLOW */ 45260000 *%;/* THESE SAME MASKS APPLY TO DCBDEVT FOR ISAM DIRECT ACCESS */ 45280000 *%DCL DCBDVI11 CHAR; 45300000 *%DCBDVI11='''01''X'; /* 2311 DISK DRIVE */ 45320000 *%DCL DCBDVI01 CHAR; 45340000 *%DCBDVI01='''02''X'; /* 2301 PARALLEL DRUM */ 45360000 *%DCL DCBDVI03 CHAR; 45380000 *%DCBDVI03='''03''X'; /* 2303 SERIAL DRUM */ 45400000 *%DCL DCBDVI02 CHAR; 45420000 *%DCBDVI02='''04''X'; /* 2302 DISK STORAGE */ 45440000 *%DCL DCBDVI21 CHAR; 45460000 *%DCBDVI21='''05''X'; /* 2321 DATA CELL DRIVE */ 45480000 *%DCL DCBDVI14 CHAR; 45500000 *%DCBDVI14='''08''X'; /* 2314 DISK STORAGE 45520000 * FACILITY */ 45540000 * 2 DCBNBOV FIXED(15), /* FOR FIXED LENGTH RECORD 45560000 * FORMAT, RESERVED. FOR 45580000 * VARIABLE LENGTH RECORD 45600000 * FORMAT, IF THE 45620000 * INDEPENDENT OVERFLOW 45640000 * OPTION IS SELECTED, 45660000 * CONTAINS, IN BINARY, 45680000 * NUMBER OF BYTES LEFT ON 45700000 * CURRENT TRACK OF 45720000 * INDEPENDENT OVERFLOW 45740000 * AREA */ 45760000 * 2 DCBLECI CHAR(5), /* DIRECT ACCESS DEVICE 45780000 * ADDRESS OF LAST ACTIVE 45800000 * ENTRY IN CYLINDER INDEX 45820000 * (IN THE FORM CCHHR). */ 45840000 * 2 * CHAR(1), /* RESERVED */ 45860000 * 2 DCBRORG2 FIXED(15), /* NUMBER OF TRACKS 45880000 * (PARTIALLY OR WHOLLY) 45900000 * REMAINING IN INDEPENDENT 45920000 * OVERFLOW AREA */ 45940000 * 2 DCBLEMI1 CHAR(5), /* DIRECT ACCESS DEVICE 45960000 * ADDRESS OF LAST ACTIVE 45980000 * ENTRY IN FIRST LEVEL 46000000 * MASTER INDEX (IN THE 46020000 * FORM CCHHR). */ 46040000 * 2 * CHAR(1), /* RESERVED */ 46060000 * 2 DCBNOREC FIXED(15), /* NUMBER OF LOGICAL 46080000 * RECORDS IN AN OVERFLOW 46100000 * AREA */ 46120000 * 2 DCBLIOV CHAR(8), /* DIRECT ACCESS DEVICE 46140000 * ADDRESS OF LAST AREA 46160000 * (IN THE FORM MBBCCHHR). */ 46180000 * 2 DCBRORG1 FIXED(15), /* NUMBER OF CYLINDER 46200000 * OVERFLOW AREAS THAT ARE 46220000 * FULL */ 46240000 * 2 * CHAR(2), /* RESERVED */ 46260000 * 2 DCBWKPT1 PTR(31), /* POINTER TO WORK AREA OR 46280000 * TO CONSTRUCTED CHANNEL 46300000 * PROGRAM FOR WHICH SPACE 46320000 * IS OBTAINED BY GETMAIN 46340000 * MACRO INSTRUCTIONS 46360000 * ISSUED BY OPEN EXECUTORS */ 46380000 * 2 DCBWKPT2 PTR(31), /* ADDITIONAL POINTER AS IN 46400000 * DCBWKPT1 */ 46420000 * 2 DCBWKPT3 PTR(31), /* ADDITIONAL POINTER AS IN 46440000 * DCBWKPT1 */ 46460000 * 2 DCBWKPT4 PTR(31), /* ADDITIONAL POINTER AS IN 46480000 * DCBWKPT1 */ 46500000 * 2 DCBWKPT5 PTR(31), /* ADDITIONAL POINTER AS IN 46520000 * DCBWKPT1 */ 46540000 * 2 DCBWKPT6 PTR(31); /* ADDITIONAL POINTER AS IN 46560000 * DCBWKPT1 */ 46580000 * 46600000 *DECLARE 1 IHADCS55 46610000 * BASED(ADDR(IHADCB)+64), /* ICBI DCB-5*/ 46612000 * 2 DCBLPDT CHAR(8); /* FOR ISAM RESUME LOAD, THE 46614000 * LAST PRIME DATA TRACK ON 46616000 * THE LAST PRIME DATA 46618000 * CYLINDER IN THE FORM 46618400 * MBBCCHHR. ICBI DCB-5*/ 46618800 * 46619200 *%CA : ; 46620000 *%IF DSORGDA=0 %THEN 46640000 * %GOTO CB; 46660000 */* BDAM INTERFACE */ 46680000 * 46700000 *DECLARE 1 IHADCS30 46720000 * BASED(ADDR(IHADCB)+52), 46740000 * 2 DCBCHECK PTR(31), /* ADDRESS OF CHECK MODULE */ 46760000 *%IF DSORGIS=1 %THEN 46780000 * %GOTO CA1; 46800000 * 3 DCBOPTCD CHAR(1), /* OPTION CODES */ 46820000 *%GOTO CA2 ; 46840000 *%CA1 : ; 46860000 * 3 * CHAR(1), /* DCBOPTCD - OPTION CODES */ 46880000 *%CA2 : ; 46900000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGQS */ 46920000 * %GOTO CA3; /* OR DSORGBS */ 46940000 *%IF DSORGQS=1 %THEN /* IS SET TO 1, */ 46960000 * %GOTO CA3; /* BRANCH TO CA3 */ 46980000 *%IF DSORGBS=1 %THEN 47000000 * %GOTO CA3; 47020000 * 4 DCBOPTW BIT(1), /* WRITE VALIDITY CHECK 47040000 * (DASD) (BSAM, BPAM, 47060000 * QSAM, ISAM, BDAM) */ 47080000 *%GOTO CA4 ; 47100000 *%CA3 : ; 47120000 * 4 * BIT(1), /* DCBOPTW - SAME AS BSAM 47140000 * AND ISAM */ 47160000 *%CA4 : ; 47180000 * 4 DCBOPTTO BIT(1), /* TRACK OVERFLOW */ 47200000 * 4 DCBOPTE BIT(1), /* EXTENDED SEARCH */ 47220000 * 4 DCBOPTF BIT(1), /* FEEDBACK */ 47240000 * 4 DCBOPTA BIT(1), /* ACTUAL ADDRESSING */ 47260000 * 4 DCBOPTDB BIT(1), /* DYNAMIC BUFFERING */ 47280000 * 4 DCBOPTRE BIT(1), /* READ EXCLUSIVE */ 47300000 * 4 DCBOPTRB BIT(1), /* RELATIVE BLOCK ADDRESSING*/ 47320000 * 3 DCBCHCKA PTR(24), /* ADDRESS OF CHECK MODULE */ 47340000 *%IF DSORGIS=1 %THEN 47360000 * %GOTO CAA; 47380000 * 2 DCBSYNAD PTR(31), /* ADDRESS OF SYNAD ROUTINE */ 47400000 * 2 * CHAR(2), /* RESERVED */ 47420000 * 2 DCBBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE */ 47440000 *%GOTO CAB ; 47460000 *%CAA : ; 47480000 * 2 * PTR(31), /* DCBSYNAD - ADDRESS OF 47500000 * SYNAD ROUTINE */ 47520000 * 2 * CHAR(2), /* RESERVED */ 47540000 * 2 * FIXED(15), /* DCBBLKSI - MAXIMUM BLOCK 47560000 * SIZE */ 47580000 *%CAB : ; 47600000 * 2 DCBIOBSQ PTR(31), /* ADDRESS OF FIRST IOB ON 47620000 * UNSCHEDULED QUEUE FOR 47640000 * EITHER A WRITE-ADD 47660000 * REQUEST WHEN ANOTHER 47680000 * WRITE-ADD IS IN PROGRESS 47700000 * OR A READ-EXCLUSIVE 47720000 * REQUEST WHEN THE 47740000 * READ-EXCLUSIVE LIST IS 47760000 * FULL */ 47780000 * 2 DCBSQND PTR(31), /* ADDRESS OF LAST IOB ON 47800000 * UNSCHEDULED QUEUE */ 47820000 * 2 DCBIOBUQ PTR(31), /* ADDRESS OF FIRST IOB ON 47840000 * UNPOSTED QUEUE */ 47860000 * 2 DCBUQND PTR(31), /* ADDRESS OF LAST JOB ON 47880000 * UNPOSTED QUEUE THAT IS 47900000 * MAINTAINED BY THE READ 47920000 * EXCLUSIVE MODULE */ 47940000 * 2 * CHAR(1), /* RESERVED */ 47960000 * 2 DCBLIMCT PTR(24), /* NUMBER OF TRACKS OR 47980000 * NUMBER OF RELATIVE 48000000 * BLOCKS TO BE SEARCHED 48020000 * (EXTENDED SEARCH OPTION) */ 48040000 * 2 DCBXARG PTR(31), /* ADDRESS OF READ 48060000 * EXCLUSIVE LIST */ 48080000 * 3 DCBXCNT PTR(8), /* NUMBER OF ENTRIES IN 48100000 * READ EXCLUSIVE LIST */ 48120000 * 3 DCBXARGA PTR(24), /* ADDRESS OF READ 48140000 * EXCLUSIVE LIST */ 48160000 * 2 DCBDRDX PTR(31), /* ADDRESS OF READ 48180000 * EXCLUSIVE MODULE */ 48200000 * 3 DCBMVXNO PTR(8), /* TOTAL NUMBER OF EXTENTS 48220000 * IN MULTIVOLUME DATA SET */ 48240000 * 3 DCBDRDXA PTR(24), /* ADDRESS OF READ 48260000 * EXCLUSIVE MODULE */ 48280000 * 2 DCBDFOR PTR(31), /* ADDRESS OF A FORMAT 48300000 * MODULE */ 48320000 * 2 DCBDFBK PTR(31), /* ADDRESS OF A FEEDBACK 48340000 * MODULE */ 48360000 * 2 DCBDYNB PTR(31); /* FOR DYNAMIC BUFFERING, 48380000 * ADDRESS OF DYNAMIC 48400000 * BUFFER MODULE. FOR 48420000 * UNBLOCKED SPANNED 48440000 * RECORDS WITH BFTEK=R 48460000 * SPECIFIED AND NO 48480000 * DYNAMIC BUFFERING, 48500000 * ADDRESS OF SEGMENT WORK 48520000 * AREA CONTROL BLOCK */ 48540000 * 48560000 *%CB : ; 48580000 *%IF DSORGQX=0 %THEN 48600000 * %GOTO CC; 48620000 */* QTAM INTERFACE */ 48640000 * 48660000 *DECLARE 1 IHADCS31 48680000 * BASED(ADDR(IHADCB)+52), 48700000 * 2 DCBKSTAT CHAR(4), /* FOUR THRESHOLD VALUES 48720000 * FOR ERROR COUNTS */ 48740000 * 3 DCBKSTA1 PTR(8), /* THRESHOLD VALUE FOR 48760000 * NUMBER OF TRANSMISSIONS */ 48780000 * 3 DCBKSTA2 PTR(8), /* THRESHOLD VALUE FOR 48800000 * NUMBER OF DATA CHECKS */ 48820000 * 3 DCBKSTA3 PTR(8), /* THRESHOLD VALUE FOR 48840000 * NUMBER OF INTERVENTIONS 48860000 * REQUIRED */ 48880000 * 3 DCBKSTA4 PTR(8), /* THRESHOLD VALUE FOR 48900000 * NUMBER OF TIMEOUTS */ 48920000 * 48940000 */* QTAM POLLING LIST ORIGIN */ 48960000 * 48980000 * 2 DCBCPOLL PTR(31), /* A 4-BYTE FIELD FOR EACH 49000000 * POLLING LIST */ 49020000 * 3 DCBPLBYT CHAR(1), /* ADAPTER TYPE */ 49040000 * 4 * BIT(4), /* RESERVED */ 49060000 * 4 DCBCPWTT BIT(1), /* WTTA */ 49080000 * 4 * BIT(3), /* RESERVED */ 49100000 * 3 DCBCPOLA PTR(24); /* ADDRESS OF THE POLLING 49120000 * LIST */ 49140000 * 49160000 *%CC : ; 49180000 *%IF DSORGTQ=0 %THEN 49200000 * %GOTO CC1; 49220000 */* TCAM MESSAGE QUEUE INTERFACE */ 49240000 * 49260000 *DECLARE 1 IHADCS32 49280000 * BASED(ADDR(IHADCB)+52), 49300000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 49320000 * %GOTO CC1A; /* OR DSORGQS OR DSORGBS */ 49340000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 49360000 * %GOTO CC1A; /* BRANCH TO CC1A */ 49380000 *%IF DSORGQS=1 %THEN 49400000 * %GOTO CC1A; 49420000 *%IF DSORGBS=1 %THEN 49440000 * %GOTO CC1A; 49460000 * 2 DCBOPTCD CHAR(1), /* OPTION CODES */ 49480000 *%GOTO CC1B ; 49500000 *%CC1A : ; 49520000 * 2 * CHAR(1), /* DCBOPTCD - OPTION CODES */ 49540000 *%CC1B : ; 49560000 * 3 DCBOPTWP BIT(1), /* SOURCE OR DESTINATION 49580000 * NAME PRECEDES MESSAGE 49600000 * (AFTER CONTROL BYTE) 49620000 * (TCAM PROCESS QUEUE) */ 49640000 * 3 DCBOPTUM BIT(1), /* WORK UNIT IS A MESSAGE. 49660000 * DEFAULT WORK UNIT IS A 49680000 * RECORD. (TCAM PROCESS 49700000 * QUEUE) */ 49720000 * 3 DCBOPTCB BIT(1), /* CONTROL BYTE PRECEDES 49740000 * WORK UNIT (TCAM PROCESS 49760000 * QUEUE) */ 49780000 * 4 DCBOPTCP BIT(1), /* CHECKPOINT DATA SET */ 49800000 * 3 * BIT(3), /* RESERVED */ 49820000 * 3 DCBOPTIM BIT(1), /* NON-REUSABLE MESSAGE 49840000 * QUEUE DATA SET */ 49860000 * 3 DCBOPTRM BIT(1), /* REUSABLE MESSAGE QUEUE 49880000 * DATA SET */ 49900000 *%IF DSORGIS=1 %THEN /* IF DSORGIS SET TO 1 */ 49910000 * %GOTO CC1D; /* BRANCH TO CC1D ICBI DCB-9*/ 49922000 *%IF DSORGDA=1 %THEN /* IF DSORGDA SET TO 1 */ 49932000 * %GOTO CC1D; /* BRANCH TO CC1D ICBI DCB-9*/ 49934000 *%IF DSORGBS=1 %THEN /* IF DSORGBS SET TO 1 */ 49934100 * %GOTO CC1D; /* BRANCH TO CC1D ICBI DCB-9*/ 49934200 *%IF DSORGQS=1 %THEN /* IF DSORGQS SET TO 1 */ 49934300 * %GOTO CC1D; /* BRANCH TO CC1D ICBI DCB-9*/ 49937500 * 2 * CHAR(9), /* RESERVED ICBI DCB-9*/ 49940800 * 2 DCBBLKSI FIXED(15); /* BLOCK SIZE ICBI DCB-9*/ 49944000 *%GOTO CC1 ; 49947200 *%CC1D : ; 49950400 * 2 * CHAR(11); /* RESERVED */ 49953600 * 49956800 *%CC1 : ; 49960000 *%CD : ; 50520000 *%IF DSORGBX=0 %THEN 50540000 * %GOTO CDF; 50560000 */* BTAM INTERFACE */ 50580000 * 50600000 *DECLARE 1 IHADCS34 50620000 * BASED(ADDR(IHADCB)+52), 50640000 * 2 DCBLERB PTR(31), /* ADDRESS OF LINE ERROR 50660000 * BLOCK */ 50680000 * 3 DCBRDYQ PTR(31), /* ADDRESS OF USER/BTAM 50690000 * ROUTINE TO PROCESS 50692000 * LOCAL 3270 DEVICE READY 50694000 * INTERRUPTS */ 50696000 * 4 DCBRDYI CHAR(1), /* READYQ INDICATORS */ 50698000 * 5 * BIT(6), /* RESERVED */ 50698400 * 5 DCBRDYIQ BIT(1), /* ADDRESS IS READYQ AND 50698800 * NOT LERB */ 50699200 * 5 DCBRDYIZ BIT(1); /* READYQ SPECIFIED, BUT 50699600 * ADDRESS WAS 0, SO USING 50699700 * BTAM READYQ ROUTINE */ 50699800 * 50700000 *%IF DEVDBS=0 %THEN 50720000 * %GOTO CDF; 50740000 */* BSC INTERFACE */ 50760000 * 50780000 *DECLARE 1 IHADCS35 50800000 * BASED(ADDR(IHADCB)+56), 50820000 * 2 DCBXMODE CHAR(1), /* MODE OF TRANSMISSION FOR 50840000 * BINARY SYNCHRONOUS 50860000 * COMMUNICATION (BSC) */ 50880000 * 3 * BIT(1), /* RESERVED */ 50900000 * 3 DCBXMIBC BIT(1), /* INTERMEDIATE BLOCK 50920000 * CHECKING IS TO BE 50940000 * PERFORMED */ 50960000 * 3 DCBXMDA1 BIT(1), /* TRANSMISSION IS THROUGH 50980000 * A 2701 DATA ADAPTER UNIT 51000000 * DUAL COMMUNICATION 51020000 * INTERFACE B */ 51040000 * 3 * BIT(1), /* RESERVED */ 51060000 * 3 DCBXMDA2 BIT(1), /* TRANSMISSION IS IN CODE B 51080000 * FOR A 2701 DATA ADAPTER 51100000 * UNIT DUAL CODE FEATURE */ 51120000 * 3 * BIT(3), /* RESERVED */ 51140000 * 2 DCBXCODE CHAR(1), /* BSC CONTROL STATION FLAG 51160000 * AND TRANSMISSION CODE */ 51180000 * 3 DCBXCCSF BIT(1), /* BSC CONTROL STATION FLAG 51200000 * IF ZERO, THIS IS THE 51220000 * CONTROL STATION. 51240000 * IF ONE, THIS IS THE 51260000 * REMOTE STATION. */ 51280000 * 3 DCBXCPTP BIT(1), /* IF PTOP IS SPECIFIED IN 51300000 * SYSGEN PROCEDURE - 51320000 * SCHEDULE AN ASYNCHRONOUS 51340000 * EXIT TO INTERFACE 51360000 * RESOLUTION ROUTINE */ 51380000 * 3 DCBXCTR1 BIT(1), /* 6-BIT TRANSCODE IS BEING 51400000 * USED (BIT 4 IS ALSO ON) */ 51420000 * 3 DCBXCAS1 BIT(1), /* USASCII TRANSMISSION CODE 51440000 * IS BEING USED (BIT 5 IS 51460000 * ALSO ON) */ 51480000 * 3 DCBXCEBC BIT(2), /* IF BOTH BITS ARE ZERO, 51500000 * EBCDIC TRANSMISSION 51520000 * CODE IS BEING USED. */ 51540000 * 4 DCBXCTR2 BIT(1), /* 6-BIT TRANSCODE IS BEING 51560000 * USED (BIT 2 IS ALSO ON) */ 51580000 * 4 DCBXCAS2 BIT(1), /* USASCII TRANSMISSION CODE 51600000 * IS BEING USED (BIT 3 IS 51620000 * ALSO ON) */ 51640000 * 3 * BIT(2), /* RESERVED */ 51660000 * 2 DCBBSRSV CHAR(1), /* DLE CONTROL CHARACTER */ 51680000 * 2 DCBBSWBT CHAR(1), /* RESERVED */ 51700000 * 2 DCBIRRAD PTR(31), /* BEFORE OPEN - IF PTOP IS 51720000 * SPECIFIED IN THE SYSGEN 51740000 * PROCEDURE, ADDRESS OF 51760000 * INTERFACE RESOLUTION 51780000 * ROUTINE. AFTER OPEN, 51800000 * THE FOLLOWING 4 51820000 * CHARACTERS OCCUPY THIS 51840000 * SPACE. */ 51860000 * 3 DCBBSTSX CHAR(1), /* DLE CONTROL CHARACTER */ 51880000 * 3 DCBBSSTX CHAR(1), /* STX CONTROL CHARACTER */ 51900000 * 3 DCBBSTEX CHAR(1), /* DLE CONTROL CHARACTER */ 51920000 * 3 DCBBSETX CHAR(1), /* ETX CONTROL CHARACTER */ 51940000 * 2 DCBBSAK0 CHAR(2), /* ACK-0 CONTROL CHARACTER */ 51960000 * 2 DCBBSAK1 CHAR(2), /* ACK-1 CONTROL CHARACTER */ 51980000 * 2 DCBBSENQ CHAR(1), /* ENQ CONTROL CHARACTER */ 52000000 * 2 DCBBSNAK CHAR(1), /* NAK CONTROL CHARACTER */ 52020000 * 2 DCBBSETB CHAR(1), /* ETB CONTROL CHARACTER */ 52040000 * 2 DCBBSDLE CHAR(1), /* DLE CONTROL CHARACTER */ 52060000 * 2 DCBBSEOT CHAR(1), /* EOT CONTROL CHARACTER */ 52080000 * 2 DCBBSSYN CHAR(3), /* SYN, SYN, SYN CONTROL 52100000 * CHARACTERS */ 52120000 * 2 DCBBSONL CHAR(2), /* SOH % CONTROL CHARACTERS */ 52140000 * 2 DCBBSSAK CHAR(2), /* WACK CONTROL CHARACTERS */ 52160000 * 2 DCBBSRVI CHAR(2), /* DLE @ CONTROL CHARACTERS */ 52180000 * 2 * CHAR(18); /* RESERVED */ 52200000 * 52220000 *%CDF : ; 52240000 *%IF DSORGQS=1 %THEN /* IF DSORGQS AND DSORGBS */ 52260000 * %GOTO CDF1; /* ARE BOTH ZERO, */ 52280000 *%IF DSORGBS=0 %THEN /* BRANCH TO CF YA03395*/ 52300000 * %GOTO CF; /* BRANCH TO CF YA03395*/ 52320000 *%CDF1 : ; 52340000 */* QSAM-BSAM-BPAM COMMON INTERFACE */ 52360000 * 52380000 *DECLARE 1 IHADCS36 52400000 * BASED(ADDR(IHADCB)+52), 52420000 *%IF DSORGDA=1 %THEN 52440000 * %GOTO CDA1; 52460000 * 2 DCBGERR PTR(31), /* ADDRESS OF SYNCHRONIZING 52480000 * ROUTINE FOR GET */ 52500000 * 3 DCBPERR PTR(31), /* ADDRESS OF SYNCHRONIZING 52520000 * ROUTINE FOR PUT */ 52540000 * 4 DCBCHECK PTR(31), /* ADDRESS OF CHECK MODULE */ 52560000 *%IF DSORGIS=1 %THEN 52580000 * %GOTO CDA; 52600000 * 5 DCBOPTCD CHAR(1), /* OPTION CODES */ 52620000 *%GOTO CD2 ; 52640000 *%CDA1 : ; 52660000 * 2 * PTR(31), /* DCBGERR, DCBPERR OR 52680000 * DCBCHECK */ 52700000 *%CDA : ; 52720000 * 5 * CHAR(1), /* DCBOPTCD - OPTION CODES */ 52740000 *%CD2 : ; 52760000 * 6 DCBOPTW BIT(1), /* WRITE VALIDITY CHECK 52780000 * (DASD) (BSAM, BPAM, 52800000 * QSAM, ISAM, BDAM) */ 52820000 * 6 DCBOPTU BIT(1), /* ALLOW DATA CHECK CAUSED 52840000 * BY INVALID CHARACTER 52860000 * (1403 PRINTER WITH UCS 52880000 * FEATURE) (BSAM, BPAM, 52900000 * QSAM) OR 52920000 * MSS WINDOW PROCESSING 52923000 * REQUESTED 52930000 * (BSAM, QSAM) @ZA37313*/ 52935000 * 6 DCBOPTC BIT(1), /* CHAINED SCHEDULING USING 52940000 * PCI (BSAM, BPAM, QSAM) */ 52960000 * 6 DCBOPTH BIT(1), /* 1287/1288 OPTICAL READER 52980000 * - HOPPER EMPTY EXIT 53000000 * (BSAM, BPAM) OR 53020000 * PDS STAGING REQUEST ON 53025000 * MSS (BPAM) @ZA36508*/ 53030000 * 7 DCBOPTO BIT(1), /* 1285/1287 OPTICAL READER 53040000 * - ON-LINE CORRECTION 53060000 * (QSAM) */ 53080000 * 8 DCBBCKPT BIT(1), /* CHANNEL-END APPENDAGE IS 53100000 * TO BYPASS DOS EMBEDDED 53120000 * CHECKPOINT RECORDS ON 53140000 * TAPE (BSAM, QSAM) ICB226*/ 53160000 * 6 DCBOPTQ BIT(1), /* TRANSLATION TO OR FROM 53180000 * ASCII (BSAM, BPAM, QSAM) */ 53200000 * 6 DCBOPTZ BIT(1), /* MAGNETIC TAPE DEVICES - 53220000 * USE REDUCED ERROR 53240000 * RECOVERY PROCEDURE 53260000 * (EXCP, BSAM, BPAM, QSAM) */ 53280000 * 7 DCBSRCHD BIT(1), /* USE SEARCH DIRECT, 53300000 * INSTEAD OF SEARCH 53320000 * PREVIOUS, ON RECORD 53340000 * POSITION SENSING DEVICE 53360000 * (EXCP, BSAM, BPAM, QSAM) 53380000 * ICB217*/ 53400000 * 6 DCBOPTT BIT(1), /* USER TOTALING 53420000 * (BSAM, QSAM) */ 53440000 * 6 DCBOPTJ BIT(1), /* 3800- DYNAMIC @Z40MSRZ*/ 53460000 * /*CHAR SELECTION @Z40MSRZ*/ 53470000 *%IF DSORGDA=1 %THEN 53480000 * %GOTO CD1; 53500000 * 5 DCBGERRA PTR(24), /* ADDRESS OF SYNCHRONIZING 53520000 * ROUTINE FOR GET */ 53540000 * 6 DCBPERRA PTR(24), /* ADDRESS OF SYNCHRONIZING 53560000 * ROUTINE FOR PUT */ 53580000 * 7 DCBCHCKA PTR(24), /* ADDRESS OF CHECK MODULE */ 53600000 *%GOTO CD3 ; 53620000 *%CD1 : ; 53640000 * 5 * PTR(24), /* DCBGERRA, DCBPERRA OR 53660000 * DCBCHCKA */ 53680000 *%CD3 : ; 53700000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 53720000 * %GOTO CDB; 53740000 *%IF DSORGDA=1 %THEN /* IS SET TO ONE, */ 53760000 * %GOTO CDB; /* BRANCH TO CDB */ 53780000 * 2 DCBSYNAD PTR(31), /* ADDRESS OF USER-PROVIDED 53840000 * SYNAD ROUTINE */ 53860000 * 3 DCBIOBL PTR(8), /* IOB LENGTH IN DOUBLE 53880000 * WORDS */ 53900000 * 3 DCBSYNA PTR(24), /* ADDRESS OF USER-PROVIDED 53920000 * SYNAD ROUTINE */ 53940000 *%GOTO CD4 ; 53960000 *%CDB : ; 53980000 * 2 * PTR(31), /* DCBSYNAD - ADDRESS OF 54000000 * SYNAD ROUTINE */ 54020000 * 3 DCBIOBL PTR(8), /* IOB LENGTH IN DOUBLE 54040000 * WORDS */ 54060000 * 3 * PTR(24), /* DCBSYNA - ADDRESS OF 54080000 * SYNAD ROUTINE */ 54100000 *%CD4 : ; 54120000 * 2 DCBCIND1 CHAR(1), /* CONDITION INDICATORS */ 54140000 * 3 DCBCNTOV BIT(1), /* DIRECT ACCESS - TRACK 54160000 * OVERFLOW IN USE 54180000 * (BSAM, BPAM, QSAM) 54200000 * 2540 CARD PUNCH - DATA 54220000 * SET WAS OPENED BUT NO 54240000 * DATA WAS WRITTEN (QSAM) */ 54260000 * 3 DCBCNSRD BIT(1), /* SEARCH DIRECT 54280000 * (BSAM, BPAM, QSAM) */ 54300000 * 3 DCBCNEVB BIT(1), /* END OF VOLUME - USED BY 54320000 * EOB ROUTINES 54340000 * (BSAM, BPAM, QSAM) */ 54360000 * 3 DCBCNEVA BIT(1), /* END OF VOLUME - USED BY 54380000 * CHANNEL-END APPENDAGE 54400000 * ROUTINES (BSAM, BPAM, 54420000 * QSAM) */ 54440000 * 3 * BIT(1), /* RESERVED ICBI DCB-2*/ 54460000 * 3 DCBCNBRM BIT(1), /* BLOCKED RECORD BIT 54470000 * MODIFIED ICBI DCB-2*/ 54472000 * 3 * BIT(1), /* RESERVED ICBI DCB-2*/ 54474000 * 3 DCBCNEXB BIT(1), /* EXCHANGE BUFFERING 54480000 * SUPPORTED (QSAM) */ 54500000 * 2 DCBCIND2 CHAR(1), /* CONDITION INDICATORS */ 54520000 * 3 DCBCNSTO BIT(1), /* PARTITIONED DATA SET - 54540000 * STOW HAS BEEN PERFORMED 54560000 * (BSAM, BPAM, QSAM) 54580000 * SEQUENTIAL DATA SET - 54600000 * UPDATE (BSAM, BPAM) */ 54620000 * 3 DCBCNWRO BIT(1), /* DIRECT ORGANIZATION DATA 54640000 * SET - LAST I/O WAS A 54660000 * WRITE RECORD ZERO 54680000 * (BSAM, BPAM, QSAM) 54700000 * SEQUENTIAL DATA SET - 54720000 * UPDATE EOF IS INDICATED 54740000 * (BSAM, BPAM) */ 54760000 * 3 DCBCNCLO BIT(1), /* CLOSE IN PROCESS (QSAM) */ 54780000 * 3 DCBCNIOE BIT(1), /* PERMANENT I/O ERROR 54800000 * (BSAM, BPAM, QSAM) */ 54820000 * 3 DCBCNBFP BIT(1), /* OPEN ACQUIRED BUFFER POOL 54840000 * (BSAM, BPAM, QSAM) */ 54860000 * 3 DCBCNCHS BIT(1), /* CHAINED SCHEDULING BEING 54880000 * SUPPORTED (BSAM, BPAM, 54900000 * QSAM) */ 54920000 * 3 DCBCNFEO BIT(1), /* FEOV BIT (BSAM, BPAM, 54940000 * QSAM) */ 54960000 * 3 DCBCNQSM BIT(1), /* ALWAYS ZERO (BSAM, BPAM) 54980000 * THIS IS A QSAM DCB (QSAM)*/ 55000000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGDA */ 55020000 * %GOTO CDC; /* IS SET TO ONE, */ 55040000 *%IF DSORGDA=1 %THEN /* BRANCH TO CDC */ 55060000 * %GOTO CDC; 55080000 * 2 DCBBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE */ 55100000 *%GOTO CD7 ; 55120000 *%CDC : ; 55140000 * 2 * FIXED(15), /* DCBBLKSI - MAXIMUM BLOCK 55160000 * SIZE */ 55180000 *%CD7 : ; 55200000 * 2 DCBWCPO PTR(8), /* OFFSET OF WRITE CHANNEL 55220000 * PROGRAM FROM THE START 55240000 * OF IOB */ 55260000 * 2 DCBWCPL PTR(8), /* LENGTH OF WRITE CHANNEL 55280000 * PROGRAM */ 55300000 * 2 DCBOFFSR PTR(8), /* OFFSET OF READ CCW FROM 55320000 * BSAM/BPAM PREFIX OF IOB */ 55340000 * 2 DCBOFFSW PTR(8), /* OFFSET OF WRITE CCW FROM 55360000 * BSAM/BPAM PREFIX OF IOB */ 55380000 * 2 DCBIOBA PTR(31), /* FOR NORMAL SCHEDULING, 55400000 * ADDRESS OF QSAM OR 55420000 * BSAM/BPAM PREFIX OF IOB. 55440000 * FOR CHAINED SCHEDULING, 55460000 * ADDRESS OF ICB. FOR 55480000 * 1419/1275, ADDRESS OF 55500000 * MAGNETIC INTERRUPT 55520000 * CONTROL BLOCK (MICB) 55540000 * CURRENTLY BEING 55560000 * PROCESSED BY READ 55580000 * ROUTINE. FOR TSO 55600000 * TERMINAL DATA SET OPENED 55620000 * FOR INPUT AND FORMAT U, 55640000 * SIMULATED LOW-ORDER FOUR 55660000 * BYTES OF IOBCSW */ 55680000 * 55700000 * 3 DCBCICB PTR(31), /* SAME AS DCBCICBA BELOW 55720000 * ICB354*/ 55740000 * 4 * PTR(8), /* DCBNCP (BSAM,BPAM) ICB354*/ 55760000 * 4 DCBCICBA PTR(24); /* POINTER TO JES C.I. 55780000 * CONTROL BLOCK (CICB) 55800000 * ICBI DCB-4*/ 55820000 *DECLARE 1 IHADCS52 55870000 * BASED(ADDR(IHADCB)+80), /* ICBI DCB-4*/ 55920000 * 2 DCBDIRCT FIXED(15), /* NUMBER OF BYTES USED IN 55960000 * LAST DIRECTORY BLOCK 55980000 * (RANGE 0-254) 56000000 * (BSAM, BPAM) ICB295*/ 56020000 * 3 DCBQSWS CHAR(1), /* FLAG BYTE ICB295*/ 56040000 * 4 DCBUSASI CHAR(1), /* FLAG BYTE FOR ASCII 56060000 * TAPES */ 56080000 * 5 * BIT(1), /* RESERVED */ 56100000 * 5 DCBBLBP BIT(1), /* BLOCK PREFIX IS FOUR-BYTE 56120000 * FIELD CONTAINING BLOCK 56140000 * LENGTH IN UNPACKED 56160000 * DECIMAL (SPECIFIED BY 56180000 * BUFFER=L) */ 56200000 * 5 DCBQADFS BIT(3), /* USED TO PERFORM SEQUENCE 56220000 * CHECKING WITH MULTIPLE 56240000 * FUNCTION SUPPORT FOR 3525 56260000 * (BSAM, QSAM) */ 56280000 * 6 DCBQADF1 BIT(1), /* FIRST BIT OF DCBQADFS */ 56300000 * 6 DCBQADF2 BIT(1), /* SECOND BIT OF DCBQADFS */ 56320000 * 6 DCBQADF3 BIT(1), /* THIRD BIT OF DCBQADFS */ 56340000 * 5 * BIT(2), /* RESERVED */ 56360000 * 5 DCBQSTRU BIT(1), /* TRUNC ENTRY POINT ENTERED 56380000 * (QSAM) */ 56400000 * 3 DCBBUFOF PTR(8), /* BLOCK PREFIX LENGTH 56420000 * (0-99), SPECIFIED BY 56440000 * BUFOFF=N OR BUFOFF=L */ 56460000 * 4 DCBDIRCQ PTR(8); /* NUMBER OF BYTES USED IN 56480000 * LAST DIRECTORY BLOCK 56500000 * (RANGE 0-254) 56520000 * (QSAM) ICB295*/ 56540000 */* BSAM-QSAM-TCAM INTERFACE */ 56542000 *DECLARE 1 IHADCS37 56550000 * BASED(ADDR(IHADCB)+60), /* ICBI DCB-3*/ 56552000 * 2 DCBFLAG1 CHAR(1), /* SAM-TCAM APP. PROG. 56554000 * FLAGS ICBI DCB-3*/ 56556000 * 3 DCBSTQCK BIT(1), /* STOP=QUICK SPECIFIED FOR 56558000 * SAM-TCAM DCB ICBI DCB-3*/ 56558400 * 3 DCBSTFLS BIT(1), /* STOP=FLUSH SPECIFIED FOR 56558800 * SAM-TCAM DCB ICBI DCB-3*/ 56559200 * 3 * BIT(6); /* RESERVED (TCAM-SAM) 56559600 * ICBI DCB-3*/ 56559700 * 56560000 *%IF DSORGBS=0 %THEN 56580000 * %GOTO CE; 56600000 */* BSAM-BPAM INTERFACE */ 56620000 * 56640000 *DECLARE 1 IHADCS38 56660000 * BASED(ADDR(IHADCB)+72), 56680000 * 2 DCBEOBR PTR(31), /* ADDRESS OF END-OF-BLOCK 56700000 * MODULE FOR READ */ 56720000 *%IF DSORGIS=1 %THEN 56740000 * %GOTO CDD; 56760000 * 3 DCBNCP PTR(8), /* NUMBER OF CHANNEL 56780000 * PROGRAMS. */ 56800000 *%GOTO CD8 ; 56820000 *%CDD : ; 56840000 * 3 * PTR(8), /* DCBNCP - NUMBER OF 56860000 * CHANNEL PROGRAMS. */ 56880000 *%CD8 : ; 56900000 * /* NUMBER OF READ OR WRITE 56920000 * REQUESTS WHICH MAY BE 56940000 * ISSUED PRIOR TO A CHECK, 56960000 * NUMBER OF IOB'S 56980000 * GENERATED. (99 MAXIMUM) */ 57000000 * 3 DCBEOBRA PTR(24), /* ADDRESS OF END-OF-BLOCK 57020000 * MODULE FOR READ */ 57040000 * 2 DCBEOBW PTR(31), /* ADDRESS OF END-OF-BLOCK 57060000 * MODULE FOR WRITE. FOR 57080000 * BSAM CREATE BDAM 57100000 * PROCESSING OF UNBLOCKED 57120000 * SPANNED RECORDS WITH 57140000 * BKTEK=R SPECIFIED, 57160000 * ADDRESS OF SEGMENT WORK 57180000 * AREA CONTROL BLOCK */ 57200000 * 2 * FIXED(15), /* DCBDIRCT - NUMBER OF 57220000 * BYTES USED IN LAST 57240000 * DIRECTORY BLOCK (RANGE 57260000 * 0-254) ICB295*/ 57280000 *%IF DSORGIS=1 %THEN 57300000 * %GOTO CDE; 57320000 * 2 DCBLRECL FIXED(15), /* LOGICAL RECORD LENGTH */ 57340000 *%GOTO CD9 ; 57360000 *%CDE : ; 57380000 * 2 * FIXED(15), /* DCBLRECL - LOGICAL 57400000 * RECORD LENGTH */ 57420000 *%CD9 : ; 57440000 * 2 DCBPOINT PTR(31), /* ADDRESS OF NOTE/POINT 57460000 * MODULE */ 57480000 * 3 DCBCNTRL PTR(31), /* ADDRESS OF CNTRL MODULE */ 57500000 * 4 DCBNOTE PTR(31); /* ADDRESS OF NOTE/POINT 57520000 * MODULE */ 57540000 * 57560000 *%CE : ; 57580000 *%IF DSORGQS=0 %THEN 57600000 * %GOTO FIN; 57620000 */* QSAM INTERFACE */ 57640000 * 57660000 *%IF DSORGDA=0 %THEN 57680000 * %GOTO CE1; 57700000 *DECLARE 1 IHADCS39 57720000 * BASED(ADDR(IHADCB)+52), 57740000 * 2 DCBGERR PTR(31), /* ADDRESS OF SYNCHRONIZING 57760000 * ROUTINE FOR GET */ 57780000 * 3 DCBPERR PTR(31), /* ADDRESS OF SYNCHRONIZING 57800000 * ROUTINE FOR PUT */ 57820000 * 4 * CHAR(1), /* DCBOPTCD - OPTION CODES */ 57840000 * 4 DCBGERRA PTR(24), /* ADDRESS OF SYNCHRONIZING 57860000 * ROUTINE FOR GET */ 57880000 * 5 DCBPERRA PTR(24); /* ADDRESS OF SYNCHRONIZING 57900000 * ROUTINE FOR PUT */ 57920000 * 57940000 *%CE1 : ; 57960000 *DECLARE 1 IHADCS40 57980000 * BASED(ADDR(IHADCB)+72), 58000000 * 2 DCBEOBAD PTR(31), /* FOR SIMPLE BUFFERING, 58020000 * ADDRESS OF LAST BYTE OF 58040000 * CURRENT BUFFER */ 58060000 * 3 DCBLCCW PTR(31), /* FOR EXCHANGE BUFFERING, 58080000 * ADDRESS OF LAST CCW IN 58100000 * LIST */ 58120000 * 2 DCBCCCW PTR(31), /* FOR EXCHANGE BUFFERING 58140000 * ADDRESS OF CURRENT OR 58160000 * NEXT CCW */ 58180000 * 3 DCBRECAD PTR(31), /* ADDRESS OF CURRENT OR 58200000 * NEXT LOGICAL RECORD */ 58220000 * 4 DCBRECBT CHAR(1), /* FLAG BYTE */ 58240000 * 5 DCBRCREL BIT(4), /* RELSE MACRO HAS BEEN 58260000 * ISSUED (QSAM WITH 58280000 * SIMPLE BUFFERING) */ 58300000 * 6 DCBRCTRU BIT(1), /* TRUNC MACRO HAS BEEN 58320000 * ISSUED (QSAM LOCATE MODE)*/ 58340000 * 6 DCBRCFGT BIT(1), /* FIRST GET AFTER OPEN 58360000 * (QSAM LOCATE MODE) */ 58380000 * 5 * BIT(4), /* RESERVED */ 58400000 * 4 DCBRECA PTR(24), /* ADDRESS OF CURRENT OR 58420000 * NEXT LOGICAL RECORD */ 58440000 * 2 * CHAR(1), /* DCBQSWS - FLAG BYTE */ 58460000 * 2 * PTR(8), /* DCBDIRCQ - NUMBER OF 58480000 * BYTES USED IN LAST 58500000 * DIRECTORY BLOCK 58520000 * (RANGE 0-254) ICB295*/ 58540000 *%IF DSORGIS=1 %THEN /* IF DSORGIS OR DSORGBS */ 58560000 * %GOTO CEE; /* IS SET TO ONE, */ 58580000 *%IF DSORGBS=1 %THEN /* BRANCH TO CEE */ 58600000 * %GOTO CEE; 58620000 * 2 DCBLRECL FIXED(15), /* LOGICAL RECORD LENGTH */ 58640000 *%GOTO CEEA ; 58660000 *%CEE : ; 58680000 * 2 * FIXED(15), /* DCBLRECL - LOGICAL 58700000 * RECORD LENGTH */ 58720000 *%CEEA : ; 58740000 *%IF DSORGBS=1 %THEN 58760000 * %GOTO CEF; 58780000 * 2 DCBCNTRL PTR(31), /* ADDRESS OF CNTRL MODULE */ 58800000 *%GOTO CEF1 ; 58820000 *%CEF : ; 58840000 * 2 * PTR(31), /* DCBCNTRL - ADDRESS OF 58860000 * CNTRL MODULE */ 58880000 *%CEF1 : ; 58900000 * 3 DCBEROPT CHAR(1), /* ERROR OPTION */ 58920000 * 4 DCBERACC BIT(1), /* ACCEPT PERMANENT ERROR */ 58940000 * 4 DCBERSKP BIT(1), /* SKIP PERMANENT ERROR */ 58960000 * 4 DCBERABE BIT(1), /* ABNORMAL END OF TASK */ 58980000 * 4 * BIT(5), /* RESERVED */ 59000000 *%IF DSORGBS=1 %THEN 59020000 * %GOTO CEF2; 59040000 * 3 DCBCNTRA PTR(24), /* ADDRESS OF CNTRL MODULE */ 59060000 *%GOTO CEF3 ; 59080000 *%CEF2 : ; 59100000 * 3 * PTR(24), /* DCBCNTRA - ADDRESS OF 59120000 * CNTRL MODULE */ 59140000 *%CEF3 : ; 59160000 * 2 * CHAR(2), /* RESERVED */ 59180000 * 2 DCBPRECL FIXED(15), /* FORMAT F RECORDS - BLOCK 59181000 * LENGTH 59182000 * FORMAT U RECORDS - MAXIMUM 59183000 * BLOCK LENGTH 59184000 * FORMAT V RECORDS - 59185000 * UNSPANNED RECORD FORMAT - 59186000 * MAXIMUM BLOCK LENGTH 59187000 * SPANNED RECORD FORMAT - 59188000 * PUT, NOT DATA MODE - 59189000 * MAXIMUM BLOCK LENGTH 59190000 * PUT, DATA MODE - 59191000 * DATA LENGTH 59192000 * GET - SEGMENT CONTROL 59193000 * CODE OF PREVIOUS SEGMENT 59194000 * */ 59195000 * 2 DCBEOB PTR(31); /* ADDRESS OF END OF BLOCK 59260000 * MODULE */ 59280000 * 59300000 * %GOTO FIN; /* BRANCH TO FIN YA03395*/ 59301000 *%CF : ; 59320000 *%IF DSORGLR=0 %THEN /* IF NOT DSORGLR YA03395*/ 59321000 * %GOTO FIN; /* BRANCH TO FIN YA03395*/ 59322000 *%IF DSORGIS=1 %THEN /* IF DSORGIS THEN YA03395*/ 59340000 * %GOTO FIN; /* LRECL EXPANDED YA03395*/ 59360000 *DECLARE 1 IHADCS41 59500000 * BASED(ADDR(IHADCB)+82), 59520000 * 2 DCBLRECL FIXED(15); /* LOGICAL RECORD LENGTH */ 59540000 * 59560000 *%GOTO FIN ; 59580000 *%SLIP : ; 59600000 */* GRAPHIC DEVICE INTERFACE */ 59620000 * 59640000 *DECLARE 59660000 * 1 IHADCB BASED(DCBPTR), 59680000 * 2 * CHAR(12), /* RESERVED */ 59700000 * 2 DCBBRSA PTR(15), /* BUFFER RESTART ADDRESS. 59720000 * BLANK BEFORE EXECUTION 59740000 * OF SECOND I/O OPERATION */ 59760000 * 2 DCBGTYPE CHAR(1), /* TYPE OF BUFFER 59780000 * MANAGEMENT AND ATTENTION 59800000 * HANDLING */ 59820000 *%DCL DCBGTEXP CHAR; 59840000 *%DCBGTEXP='''00''X'; /* EXPRESS */ 59860000 *%DCL DCBGTBAS CHAR; 59880000 *%DCBGTBAS='''01''X'; /* BASIC */ 59900000 * 2 * CHAR(1), /* RESERVED */ 59920000 * 2 DCBBFRST PTR(15), /* BLANK BEFORE EXECUTION 59940000 * OF OPEN ROUTINE. 59960000 * STARTING ADDRESS FOR 59980000 * BUFFER AFTER EXECUTION 60000000 * OF OPEN ROUTINE */ 60020000 * 2 DCBBFRSZ FIXED(15), /* BLANK BEFORE EXECUTION 60040000 * OF OPEN ROUTINE. SIZE 60060000 * OF BUFFER AFTER 60080000 * EXECUTION OF OPEN 60100000 * ROUTINE. */ 60120000 * 60140000 */* COMMON INTERFACE */ 60160000 * 60180000 * 2 * CHAR(6), /* RESERVED */ 60200000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 60220000 * BEING USED */ 60240000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 60260000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 60280000 * ORGANIZATION */ 60300000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 60320000 * ORGANIZATION */ 60340000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 60360000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 60380000 * GROUP */ 60400000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 60401000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 60402000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 60500000 * ORGANIZATION */ 60520000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 60540000 * CONTAINS LOCATION 60560000 * DEPENDENT INFORMATION */ 60580000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 60600000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 60620000 * ORGANIZATION */ 60640000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 60660000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 60680000 * 4 * BIT(1), /* RESERVED */ 60700000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 60720000 * BLOCK ICBI DCB-1*/ 60740000 * 4 * BIT(3), /* RESERVED ICBI DCB-1*/ 60760000 * 2 DCBIOBAD PTR(31), /* BLANK BEFORE EXECUTION 60860000 * OF OPEN ROUTINE. 60880000 * ADDRESS OF STANDARD 60900000 * FIELDS OF FIRST IOB 60920000 * AFTER EXECUTION OF OPEN 60940000 * ROUTINE */ 60960000 * 60980000 */* FOUNDATION EXTENSION */ 61000000 * 61020000 * 2 DCBPOLST PTR(31), /* ADDRESS OF AREA WHERE A 61040000 * DCB LIST IS TO BE 61060000 * CONSTRUCTED FOR POLLING 61080000 * PURPOSES */ 61100000 * 3 DCBGNCP PTR(8), /* NUMBER OF I/O 61120000 * INSTRUCTIONS TO BE 61140000 * ISSUED BEFORE A WAIT 61160000 * MACRO INSTRUCTION */ 61180000 * 3 DCBPOLSA PTR(24), /* SAME AS DCBPOLST ABOVE */ 61200000 * 2 DCBEXLST PTR(31), /* ADDRESS OF USER'S EXIT 61220000 * LIST */ 61240000 * 3 * CHAR(1), /* RESERVED */ 61260000 * 3 DCBEXLSA PTR(24), /* ADDRESS OF USER'S EXIT 61280000 * LIST */ 61300000 * 61320000 */* FOUNDATION BEFORE OPEN */ 61340000 * 61360000 * 2 DCBDDNAM CHAR(8), /* 8-BYTE NAME FROM DD 61380000 * STATEMENT THAT DEFINES 61400000 * DATA SET ASSOCIATED WITH 61420000 * THIS DCB */ 61440000 * 2 DCBOFLG CHAR(1), /* FLAGS USED BY OPEN 61460000 * ROUTINE */ 61480000 * 3 DCBOFGRW BIT(1), /* IF ZERO, LAST I/O 61500000 * OPERATION WAS GREAD. 61520000 * IF ONE, LAST I/O 61540000 * OPERATION WAS GWRITE. */ 61560000 * 3 * BIT(1), /* RESERVED */ 61580000 * 3 DCBOFEOV BIT(1), /* SET TO 1 BY EOV WHEN IT 61600000 * CALLS CLOSE ROUTINE FOR 61620000 * CONCATENATION OF DATA 61640000 * SETS WITH UNLIKE 61660000 * ATTRIBUTES */ 61680000 * 3 DCBOFOPN BIT(1), /* AN OPEN HAS BEEN 61700000 * SUCCESSFULLY COMPLETED */ 61720000 * 3 DCBOFPPC BIT(1), /* SET TO 1 BY PROBLEM 61740000 * PROGRAM TO INDICATE A 61760000 * CONCATENATION OF UNLIKE 61780000 * ATTRIBUTES */ 61800000 * 3 DCBOFTM BIT(1), /* TAPE MARK HAS BEEN READ */ 61820000 * 3 DCBOFUEX BIT(1), /* SET TO 0 BY AN I/O 61840000 * SUPPORT FUNCTION WHEN 61860000 * THAT FUNCTION TAKES A 61880000 * USER EXIT. SET TO 1 ON 61900000 * RETURN FROM USER EXIT TO 61920000 * THE I/O SUPPORT 61940000 * FUNCTION WHICH TOOK THE 61960000 * EXIT. */ 61980000 * 3 DCBOFIOF BIT(1), /* SET TO 1 BY AN I/O 62000000 * SUPPORT FUNCTION IF DCB 62020000 * IS TO BE PROCESSED BY 62040000 * THAT FUNCTION */ 62060000 * 2 DCBIFLG CHAR(1), /* SET TO ZERO BY GRAPHIC 62080000 * ROUTINES BUT USED BY 62100000 * IOS IN COMMUNICATING 62120000 * ERROR CONDITIONS AND IN 62140000 * DETERMINING CORRECTIVE 62160000 * PROCEDURES */ 62180000 * 2 DCBMACR CHAR(2), /* MACRO INSTRUCTION 62200000 * REFERENCE */ 62220000 * 3 DCBMACR1 CHAR(1), /* FIRST BYTE OF DCBMACR */ 62240000 * 4 * BIT(2), /* RESERVED */ 62260000 * 4 DCBMRRD BIT(1), /* READ */ 62280000 * 4 * BIT(3), /* RESERVED */ 62300000 * 4 DCBMRCRL BIT(1), /* CNTRL */ 62320000 * 4 * BIT(1), /* RESERVED */ 62340000 * 3 DCBMACR2 CHAR(1), /* SECOND BYTE OF DCBMACR */ 62360000 * 4 * BIT(2), /* RESERVED */ 62380000 * 4 DCBMRWRT BIT(1), /* WRITE */ 62400000 * 4 * BIT(3), /* RESERVED */ 62420000 * 4 DCBMRCTL BIT(1), /* CNTRL */ 62440000 * 4 * BIT(1); /* RESERVED */ 62460000 * 62480000 */* FOUNDATION AFTER OPEN */ 62500000 * 62520000 *DECLARE 1 IHADCS42 62540000 * BASED(ADDR(IHADCB)+40), 62560000 * 2 DCBTIOT PTR(15), /* OFFSET FROM TIOT ORIGIN 62580000 * TO DD ENTRY ASSOCIATED 62600000 * WITH THIS DCB */ 62620000 * 2 DCBMACRF CHAR(2), /* SAME AS DCBMACR BEFORE 62640000 * OPEN */ 62660000 * 3 DCBMACF1 CHAR(1), /* FIRST BYTE OF DCBMACRF */ 62680000 * 4 * BIT(2), /* RESERVED */ 62700000 * 4 DCBMFRD BIT(1), /* READ */ 62720000 * 4 * BIT(3), /* RESERVED */ 62740000 * 4 DCBMFCRL BIT(1), /* CNTRL */ 62760000 * 4 * BIT(1), /* RESERVED */ 62780000 * 3 DCBMACF2 CHAR(1), /* SECOND BYTE OF DCBMACRF */ 62800000 * 4 * BIT(2), /* RESERVED */ 62820000 * 4 DCBMFWRT BIT(1), /* WRITE */ 62840000 * 4 * BIT(3), /* RESERVED */ 62860000 * 4 DCBMFCTL BIT(1), /* CNTRL */ 62880000 * 4 * BIT(1), /* RESERVED */ 62900000 * 2 DCBDEBAD PTR(31), /* ADDRESS OF ASSOCIATED 62920000 * DEB */ 62940000 * 3 DCBIFLGS CHAR(1), /* SAME AS DCBIFLG BEFORE 62960000 * OPEN */ 62980000 * 3 DCBDEBA PTR(24), /* ADDRESS OF ASSOCIATED 63000000 * DEB */ 63020000 * 2 DCBGIOCR PTR(31), /* ADDRESS OF GRAPHICS I/O 63040000 * CONTROL ROUTINE */ 63060000 * 3 DCBOFLGS CHAR(1), /* SAME AS DCBOFLG BEFORE 63080000 * OPEN */ 63100000 * 3 DCBGIOCA PTR(24); /* ADDRESS OF GRAPHICS I/O 63120000 * CONTROL ROUTINE */ 63140000 * 63160000 *%FIN: ; 63180000