/***********************************************************@Y30LB12*/ 00050003 /* @Y30LB12*/ 00100003 /* THE FOLLOWING DECLARE STATEMENT DESCRIBES BUILDTAB, @Y30LB12*/ 00150003 /* THE BUILD COMMUNICATIONS AREA. THIS AREA IS OBTAINED @Y30LB12*/ 00200003 /* AND FREED BY ICGDSBLD, THE BUILD EXECUTIVE PHASE. @Y30LB12*/ 00250003 /* @Y30LB12*/ 00300003 /***********************************************************@Y30LB12*/ 00350003 DCL 1 BUILDTAB BOUNDARY(DWORD) BASED(BUILDPTR), /*@Y30LB12*/ 00400003 /*****************************************************@Y30LB12*/ 00450003 /* @Y30LB12*/ 00500003 /* THE FOLLOWING AREA IS USED TO COMMUNICATE WITH @Y30LB12*/ 00550003 /* THE DASD READ AND WRITE MODULES. UPON CALL TO @Y30LB12*/ 00600003 /* ICGDSB06, THIS AREA MUST CONTAIN @Y30LB12*/ 00650003 /* 1. THE ADDRESS OF THE DCB. @Y30LB12*/ 00700003 /* 2. THE ADDRESS OF THE BUFFER TO BE WRITTEN @Y30LB12*/ 00750003 /* 3. THE VIRTUAL CYLINDER AND HEAD TO WHICH @Y30LB12*/ 00800003 /* TO WRITE. @Y30LB12*/ 00850003 /* @Y30LB12*/ 00900003 /*****************************************************@Y30LB12*/ 00950003 2 COMB06, /*@Y30LB12*/ 01000003 3 B06DCBPT FIXED(31), /*@Y30LB12*/ 01050003 3 B06BUFPT FIXED(31), /*@Y30LB12*/ 01100003 3 B06TBLID FIXED(8), /*@Y30LB12*/ 01150003 3 B06ADDR CHAR(3), /*@Y30LB12*/ 01200003 4 B06CYL FIXED(8), /*@Y30LB12*/ 01250003 4 B06HEAD FIXED(8), /*@Y30LB12*/ 01300003 4 B06REC FIXED(8), /*@Y30LB12*/ 01350003 /*****************************************************@Y30LB12*/ 01400003 /* @Y30LB12*/ 01450003 /* THE FOLLOWING AREA IS USED TO COMMUNICATE WITH @Y30LB12*/ 01500003 /* THE DASD READ AND WRITE MODULES. UPON CALL TO @Y30LB12*/ 01550003 /* ICGDSB05, THIS AREA MUST CONTAIN @Y30LB12*/ 01600003 /* 1. THE ADDRESS OF THE DCB. @Y30LB12*/ 01650003 /* 2. THE ADDRESS OF THE BUFFER TO BE READ INTO @Y30LB12*/ 01700003 /* 3. THE VIRTUAL CYLINDER AND HEAD FROM WHICH @Y30LB12*/ 01750003 /* TO READ. @Y30LB12*/ 01800003 /* @Y30LB12*/ 01850003 /*****************************************************@Y30LB12*/ 01900003 2 COMB05, /*@Y30LB12*/ 01950003 3 B05DCBPT FIXED(31), /*@Y30LB12*/ 02000003 3 B05BUFPT FIXED(31), /*@Y30LB12*/ 02050003 3 B05TBLID FIXED(8), /*@Y30LB12*/ 02100003 3 B05ADDR CHAR(3), /*@Y30LB12*/ 02150003 4 B05CYL FIXED(8), /*@Y30LB12*/ 02200003 4 B05HEAD FIXED(8), /*@Y30LB12*/ 02250003 4 B05REC FIXED(8), /*@Y30LB12*/ 02300003 /*****************************************************@Y30LB12*/ 02350003 /* @Y30LB12*/ 02400003 /* THE FOLLOWING IS A GENERAL WORK AREA CONTAINING @Y30LB12*/ 02450003 /* POINTERS TO THE TWO BUFFERS OBTAINED IN THE @Y30LB12*/ 02500003 /* 'BUILDTAB GETMAIN', THE ADDRESS OF THE NEXT @Y30LB12*/ 02550003 /* AVAILABLE VIRTUAL CYLINDER AND HEAD ON SYSUT2, @Y30LB12*/ 02600003 /* @Y30LB12*/ 02650003 /*****************************************************@Y30LB12*/ 02700003 2 BUILDGEN, /*@Y30LB12*/ 02750003 3 ADDRBUF1 FIXED(31), /*@Y30LB12*/ 02800003 3 ADDRBUF2 FIXED(31), /*@Y30LB12*/ 02850003 3 UT2VCHR FIXED(31), /*@Y30LB12*/ 02900003 4 UT2TABID FIXED(8), /*@Y30LB12*/ 02950003 4 OUTADDR CHAR(3), /*@Y30LB12*/ 03000003 5 UT2VCYL FIXED(8), /*@Y30LB12*/ 03050003 5 UT2VHEAD FIXED(8), /*@Y30LB12*/ 03100003 5 UT2VREC FIXED(8), /*@Y30LB12*/ 03150003 3 UT1VCHR FIXED(31), /*@Y30LB12*/ 03200003 4 UT1TABID FIXED(8), /*@Y30LB12*/ 03250003 4 INADDR CHAR(3), /*@Y30LB12*/ 03300003 5 UT1VCYL FIXED(8), /*@Y30LB12*/ 03350003 5 UT1VHEAD FIXED(8), /*@Y30LB12*/ 03400003 5 UT1VREC FIXED(8), /*@Y30LB12*/ 03450003 2 UT1STUFF BOUNDARY(DWORD), /*@Y30LB12*/ 03500003 3 UT1DCB CHAR(96), /*@Y30LB12*/ 03550003 3 UT1FLAG BIT(32), /*@Y30LB12*/ 03600003 4 UT1VUPDT BIT(1), /*@Y30LB12*/ 03650003 4 UT1VOERR BIT(1), /*@Y30LB12*/ 03700003 4 UT1VWERR BIT(1), /*@Y30LB12*/ 03750003 4 * BIT(29), /*@Y30LB12*/ 03800003 3 UT1JFCB CHAR(176), /*@Y30LB12*/ 03850003 3 UT1ECB CHAR(4), /*@Y30LB12*/ 03900003 3 UT1IOB CHAR(40), /*@Y30LB12*/ 03950003 3 UT1CCWS (37) CHAR(8), /*@Y30LB12*/ 04000003 3 UT1DDN CHAR(8), /*@Y30LB12*/ 04050003 /*****************************************************@Y30LB12*/ 04100003 /* @Y30LB12*/ 04150003 /* THE FOLLOWING AREA WILL CONTAIN THE DCB, IOB, @Y30LB12*/ 04200003 /* AND CCW STRINGS FOR SYSUT2, THE 'NEW' TABLES @Y30LB12*/ 04250003 /* PACK, @Y30LB12*/ 04300003 /* @Y30LB12*/ 04350003 /*****************************************************@Y30LB12*/ 04400003 2 UT2STUFF BOUNDARY(DWORD), /*@Y30LB12*/ 04450003 3 UT2DCB CHAR(96), /*@Y30LB12*/ 04500003 3 UT2FLAG BIT(32), /*@Y30LB12*/ 04550003 4 UT2VUPDT BIT(1), /*@Y30LB12*/ 04600003 4 UT2VOERR BIT(1), /*@Y30LB12*/ 04650003 4 UT2VWERR BIT(1), /*@Y30LB12*/ 04700003 4 UT2VCERR BIT(1), /*@Y30LB12*/ 04750003 4 * BIT(28), /*@Y30LB12*/ 04800003 3 UT2JFCB CHAR(176), /*@Y30LB12*/ 04850003 3 UT2ECB CHAR(4), /*@Y30LB12*/ 04900003 3 UT2IOB CHAR(40), /*@Y30LB12*/ 04950003 3 UT2CCWS (37) CHAR(8), /*@Y30LB12*/ 05000003 3 UT2DDN CHAR(8), /*@Y30LB12*/ 05050003 2 UT3STUFF BOUNDARY(DWORD), /*@Y30LB12*/ 05100003 3 UT3DCB CHAR(96), /*@Y30LB12*/ 05150003 3 UT3FLAG BIT(32), /*@Y30LB12*/ 05200003 4 UT3VUPDT BIT(1), /*@Y30LB12*/ 05250003 4 UT3VOERR BIT(1), /*@Y30LB12*/ 05300003 4 UT3VWERR BIT(1), /*@Y30LB12*/ 05350003 4 * BIT(29), /*@Y30LB12*/ 05400003 3 UT3JFCB CHAR(176), /*@Y30LB12*/ 05450003 3 UT3ECB CHAR(4), /*@Y30LB12*/ 05550003 3 UT3IOB CHAR(40), /*@Y30LB12*/ 05600003 3 UT3CCWS (37) CHAR(8), /*@Y30LB12*/ 05650003 3 UT3DDN CHAR(8), /*@Y30LB12*/ 05700003 3 * CHAR(4), /*@Y30LB12*/ 05710003 2 CVERIFY CHAR(1584), /*@Y30LB12*/ 05750003 2 NVERIFY CHAR(1584), /*@Y30LB12*/ 05800003 2 UT1BUFER CHAR(8448), /*@Y30LB12*/ 05850003 2 UT2BUFER CHAR(8704), /*@Y30LB12*/ 05900003 2 LTRTRANO (40) FIXED(15), /*@Y30LB12*/ 05950003 2 LTRTRANI (40) FIXED(15), /*@Y30LB12*/ 06000003 2 TEMPEND CHAR(1); /*@Y30LB12*/ 06050003