/********************************************************************/ 00900003 /* */ 00902003 /* MACRO NAME = IGGMDRWA */ 00904003 /* */ 00906003 /* DESCRIPTIVE NAME = DSCB READ WORKAREA */ 00908003 /* */ 00910003 /* FUNCTION = USED TO READ FORMAT 1 DSCB FOR CATALOGS AND */ 00912003 /* CLUSTER RECORD OF CATALOGS DURING OPEN OF A */ 00914003 /* CATALOG (NON-BUILD CASE). */ 00916003 /* */ 00918003 /* INCLUDED MACROS = NONE */ 00920003 /* */ 00922003 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00924003 /* */ 00926003 /* CREATED BY: VSAM CATALOG OPEN ACB PROCESSOR (IFG0191X) */ 00928003 /* */ 00930003 /* STATUS = VS/2 RELEASE 3 (CHANGE FLAG @Y30SSXX) */ 00932003 /* */ 00934003 /* DATE OF LAST CHANGE = 17 JUL 74 */ 00936003 /* */ 00938003 /********************************************************************/ 00940003 %IF SYSTEM ='DOS' %THEN %GOTO DRWAWP1; 10800003 DECLARE 11200003 1 IGGMDRWA BASED(CAXDRWP), /* BASE IS IN CAXWA */ 11700003 2 DRWDEB CHAR(48) BDY(WORD), /* DEB AREA */ 12600003 3 * CHAR(16), /* FILLER */ 13500003 3 DRWDEXT PTR(8), /* DEB EXTENT COUNT */ 14400003 3 * CHAR(7), /* FILLER */ 15300003 3 DRWDID PTR(8), /* DEB ID */ 16200003 3 DRWDDCB PTR(24), /* DCB PTR */ 17100003 3 DRWDEXS PTR(8), /* EXTENT SCALE */ 18000003 3 DRWDAPP PTR(24), /* IOS APP. TABLE ADDR */ 18900003 3 DRWDMOD PTR(8), /* DEVICE MOD. */ 19800003 3 DRWDUCB PTR(24), /* UCB ADDR */ 20700003 3 DRWDBB PTR(15), /* BB FROM SEEK */ 21600003 3 DRWSCC CHAR(4), /* START CCHH OF EXTENT */ 22500003 3 DRWECC CHAR(4), /* END CCHH OF EXTENT */ 23400003 3 DRWNTK CHAR(2), /* NO. TRACKS IN EXTENT */ 24300003 2 DRWDEBP PTR(31), /* DCB DEB PTR */ 25200003 2 DRWECB PTR(31), /* ECB */ 26100003 3 DRWECMP PTR(8), /* ECB COMP CODE */ 27000003 3 * PTR(24), /* RESERVED */ 27900003 2 DRWIOB CHAR(32) BDY(WORD), /* IOB AREA */ 28800003 3 * CHAR(2), /* FILLER @XA03929*/ 28850003 3 DRWISN0 CHAR(1), /* SENSE BYTE ZERO @XA03929*/ 28900003 3 DRWISN1 CHAR(1), /* SENSE BYTE ONE @XA03929*/ 28950003 3 DRWIECB PTR(31), /* ECB PTR */ 30600003 3 * CHAR(8), /* FILLER */ 31500003 3 DRWSCP PTR(31), /* CHANNEL PROG START ADDR */ 32400003 3 DRWIDCB PTR(31), /* IOB DCB PTR */ 33300003 3 * CHAR(8), /* FILLER */ 34200003 2 DRWSEEK CHAR(8), /* IOB SEEK FIELD */ 35100003 3 * CHAR(3), /* M B B AREA @XA03929*/ 35150003 3 DRWSECC CHAR(2), /* C C OF SEEK @XA03929*/ 35200003 3 DRWSEHH CHAR(2), /* H H OF SEEK @XA03929*/ 35250003 3 DRWSER CHAR(1), /* R OF SEEK @XA03929*/ 35300003 2 DRWCCW CHAR(104) BDY(DWORD), /* CCW AREA */ 36000003 3 DRWCCW0 CHAR(8), /* SET SECTOR CCW */ 37800003 3 DRWCCW1 CHAR(8), /* SEARCH ID EQUAL */ 38700003 3 DRWCCW2 CHAR(8), /* TIC CCW1 */ 39600003 3 DRWCCW3 CHAR(8), /* READ DATA */ 40500003 3 DRWCCW4 CHAR(8), /* SEARCH EQ OR HI */ 41400003 3 DRWCCW5 CHAR(8), /* TIC CCW9 */ 42300003 3 DRWCCW6 CHAR(8), /* SEARCH EQ/HI KEY */ 43200003 3 DRWCCW7 CHAR(8), /* READ COUNT */ 44100003 3 DRWCCW8 CHAR(8), /* TIC CCW11 */ 45000003 3 DRWCCW9 CHAR(8), /* SEARCH EQ/HI KEY */ 45900003 3 DRWCCW10 CHAR(8), /* TIC CCW4 */ 46800003 3 DRWCCW11 CHAR(8), /* READ DATA */ 47700003 3 DRWCCW12 CHAR(8), /* READ COUNT */ 48600003 2 DRWTHETA PTR(8), /* SET SECTOR THETA */ 49500003 2 * PTR(8), /* RESERVED @XA03929*/ 50400003 2 DRWF4TC CHAR(2), /* TRACKS PER CYLINDER @XA03929*/ 50450003 2 DRWRIA CHAR(512), /* READ IN AREA */ 51300003 3 DRWSKEY CHAR(44), /* SEARCH KEY ARG */ 52200003 3 DRWDSCB CHAR(140), /* DSCB AREA F4 OR F1 */ 53100003 3 DRWCNT CHAR(5), /* COUNT FIELD FOR RESEEK */ 54000003 3 DRWHPCHR CHAR(5); /* HI WATER MARK CCHHR */ 54900003 DECLARE 55300003 DRWDCB CHAR(44) DEF(DRWDEB) POS(5) BDY(WORD); /* DCB */ 55800003 %IF SYSTEM ^='DOS' %THEN %GOTO DRWAWP2; 56700000 %DRWAWP1:; 57600000 DECLARE 58000003 1 IGGMDRWA BASED(CAXDRWP), /* BASE IS IN CAXWA */ 58500003 2 DRWCCB CHAR(16) BDY(DWORD), /* DOS CCB FOR PIOCS */ 59400003 3 DRWRCNT FIXED(15), /* RESIDUAL COUNT */ 60300003 3 DRWTRINF CHAR(2), /* TRANSMISSION INFORMATION */ 61200003 4 DRWBYTE2 CHAR(1), /* CCB-BYTE 2 */ 62100003 4 DRWBYTE3 CHAR(1), /* CCB-BYTE 3 */ 63000003 3 DRWCSWSB BIT(16), /* CSW STATUS BITS */ 63900003 3 DRWSUAD CHAR(2), /* SYMBOLIC UNIT ADDRESS */ 64800003 3 * CHAR(1), /* RESERVED FOR LIOCS */ 65700003 3 DRWSCP PTR(24), /* A(CHANNEL PROGRAM) */ 66600003 3 * CHAR(1), /* RESERVED FOR PIOCS */ 67500003 3 * PTR(24), /* CCW ADDRESS IN CSW */ 68400003 2 DRWSEEK CHAR(8), /* IOB SEEK FIELD */ 69300003 2 DRWCCW CHAR(104) BDY(DWORD), /* CCW AREA */ 70200003 3 DRWCCW0 CHAR(8), /* SET SECTOR CCW */ 72000003 3 DRWCCW1 CHAR(8), /* SEARCH ID EQUAL */ 72900003 3 DRWCCW2 CHAR(8), /* TIC CCW1 */ 73800003 3 DRWCCW3 CHAR(8), /* READ DATA */ 74700003 3 DRWCCW4 CHAR(8), /* SEARCH EQ OR HI */ 75600003 3 DRWCCW5 CHAR(8), /* TIC CCW9 */ 76500003 3 DRWCCW6 CHAR(8), /* SEARCH EQ/HI KEY */ 77400003 3 DRWCCW7 CHAR(8), /* READ COUNT */ 78300003 3 DRWCCW8 CHAR(8), /* TIC CCW11 */ 79200003 3 DRWCCW9 CHAR(8), /* SEARCH EQ/HI KEY */ 80100003 3 DRWCCW10 CHAR(8), /* TIC CCW4 */ 81000003 3 DRWCCW11 CHAR(8), /* READ DATA */ 81900003 3 DRWCCW12 CHAR(8), /* READ COUNT */ 82800003 2 DRWTHETA PTR(8), /* SET SECTOR THETA */ 83700003 2 * PTR(24), /* RESERVED */ 84600003 2 DRWRIA CHAR(512), /* READ IN AREA */ 85500003 3 DRWSKEY CHAR(44), /* SEARCH KEY ARG */ 86400003 3 DRWDSCB CHAR(140); /* DSCB AREA F4 OR F1 */ 87300003 %DRWAWP2:; 89100000