* /* ARWA (VSAM RESTART WORK AREA) DECLARATION */ 00600000 * /* */ 00650002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 00700002 * /* MACSTAT Y-2 73192/Y02113 @Y021131*/ 00750002 * /* */ 00800002 * /* DESCRIBES WORK AREA USED BY ALL AM/0 RESTART ROUTINES */ 01200000 * /* CREATED BY VSAM RESTART */ 01800000 * /* */ 02400000 *%GOTO ARWA1; 03000000 * /* ARWA DIGRAM */ 03600000 * /* 0 ------------------------------------------- */ 04200000 * /* | | | */ 04800000 * /* | ARWASIZE | ARWAACBN | */ 05400000 * /* 4 |--------------------|--------------------| */ 06000000 * /* | | | | */ 06600000 * /* | ARWABUFS | RESERVED |ARWAMCDE | */ 07200000 * /* 8 |-----------------------------------------| */ 07800000 * /* | | | */ 08400000 * /* | ARWARCDE | ARWAOPEN | */ 09000000 * /* 12 |-----------------------------------------| */ 09600000 * /* | | */ 10200000 * /* | ARWARSWA | */ 10800000 * /* 16 |-----------------------------------------| */ 11400000 * /* | | */ 12000000 * /* | ARWAUALP | */ 12600000 * /* 20 |-----------------------------------------| */ 13200000 * /* | | */ 13800000 * /* | ARWAWALP | */ 14400000 * /* 24 |-----------------------------------------| */ 15000000 * /* | | */ 15600000 * /* | ARWAACBU | */ 16200000 * /* 28 |-----------------------------------------| */ 16800000 * /* | | */ 17400000 * /* | ARWAACBW | */ 18000000 * /* 32 |-----------------------------------------| */ 18600000 * /* | | */ 19200000 * /* | ARWAAMLU | */ 19800000 * /* 36 |-----------------------------------------| */ 20400000 * /* | | */ 21000000 * /* | ARWAAMLW | */ 21600000 * /* 40 |-----------------------------------------| */ 22200000 * /* | | */ 22800000 * /* | ARWAAMBU | */ 23400000 * /* 44 |-----------------------------------------| */ 24000000 * /* | | */ 24600000 * /* | ARWAAMBW | */ 25200000 * /* 48 |-----------------------------------------| */ 25800000 * /* | | */ 26400000 * /* | ARWAAMBL | */ 27000000 * /* 52 |-----------------------------------------| */ 27600000 * /* | | */ 28200000 * /* | ARWAWORK | */ 28800000 * /* 56 |-----------------------------------------| */ 29400000 * /* | | */ 30000000 * /* | ARWAWAEP | */ 30600000 * /* 60 |-----------------------------------------| */ 31250000 * /* | | */ 31300000 * /* | ARWAMDSB | */ 31350000 * /* 64 |-----------------------------------------| */ 31400000 * /* | | */ 31500000 * /* | ARWABLPT | */ 31550000 * /* 68 |-----------------------------------------| */ 31650000 * /* | | */ 31700000 * /* | ARWAMBPT | */ 31750000 * /* 72 |-----------------------------------------| */ 31770000 * /* | | */ 31780000 * /* | ARWAXBEG | */ 31790000 * /* 76 |-----------------------------------------| */ 31794000 * /* | | | */ 31794400 * /* | ARWAXFL2 | ARWAXEND | */ 31794800 * /* 80 |-----------------------------------------| */ 31798800 * /* | | */ 31799200 * /* | ARWAECB | */ 31799600 * /* 84 |-----------------------------------------| */ 31799800 * /* | | */ 31799900 * /* | RESERVED | */ 31849900 * /* 88 |-----------------------------------------| */ 31899900 * /* | | */ 31949900 * /* | RESERVED | */ 31999900 * /* 92 |-----------------------------------------| */ 32049900 * /* | | */ 32059900 * /* | RESERVED | */ 32069900 * /* 96 |-----------------------------------------| */ 32079900 * /* | | */ 32089900 * /* | RESERVED | */ 32091900 * /* 100|-----------------------------------------| */ 32093900 * /* | | */ 32095900 * /* | RESERVED | */ 32097900 * /* 104|-----------------------------------------| */ 32098300 * /* | | */ 32098700 * /* | RESERVED | */ 32099100 * /* 108|-----------------------------------------| */ 32099500 * /* | | */ 32099600 * /* | RESERVED | */ 32149600 * /* 112|-----------------------------------------| */ 32159600 * /* | | */ 32169600 * /* | RESERVED | */ 32179600 * /* 116|-----------------------------------------| */ 32189600 * /* | | */ 32191600 * /* | RESERVED | */ 32193600 * /* 120 ----------------------------------------- @Y021131*/ 32195602 * /* */ 32299500 * /* ARWA DECLARATION */ 32400000 * /* */ 33000000 * /* */ 33600000 *%ARWA1: ; 34200000 * /* */ 34800000 * DCL 1 IDAARWA BASED, /* ARWA */ 35400000 * 2 ARWASIZE FIXED(15), /* ARWA SIZE */ 36000000 * 2 ARWAACBN FIXED(15), /* NUMBER OF USER ACBS */ 36600000 * 2 ARWABUFS FIXED(15), /* USED TO COMPUTE 37250000 * LENGTH OF THE ARDKEYS 37300000 * FIELD IN THE ARDB */ 37350000 * 2 * BIT(8), /* RESERVED */ 37800000 * 2 ARWAMCDE FIXED(8), /* ERROR MESSAGE CODE */ 40200000 * 2 ARWARCDE FIXED(8), /* ERROR RETURN CODE */ 40800000 * 2 ARWAOPEN PTR(24), /* OPEN PARAMETER LIST */ 41400000 * 2 ARWARSWA PTR(31), /* PTR VS RESTART WA */ 42000000 * 2 ARWAAL CHAR(8) BDY(WORD), /* PT ACB LISTS */ 42600000 * 3 ARWAUALP PTR(31), /* PT USER/WORK ACB LIST 43200002 * @Y021131*/ 43250002 * 3 ARWAWALP PTR(31), /* PT WORK ACBS @Y021131*/ 43800002 * 2 ARWAACB CHAR(8) BDY(WORD), /* PT CURRENT ACBS */ 44400000 * 3 ARWAACBU PTR(31), /* PTR CURRENT USER ACB*/ 45000000 * 3 ARWAACBW PTR(31), /* PTR CURRENT WORK ACB*/ 45600000 * 2 ARWAAML CHAR(8) BDY(WORD), /* PT CURRENT AMBLS*/ 46200000 * 3 ARWAAMLU PTR(31), /* PTR USER AMBL */ 46800000 * 3 ARWAAMLW PTR(31), /* PTR WORK AMBL */ 47400000 * 2 ARWAAMB CHAR(8) BDY(WORD), /* PT CURRENT AMBS */ 48000000 * 3 ARWAAMBU PTR(31), /* PTR CURRENT USER AMB*/ 48600000 * 3 ARWAAMBW PTR(31), /* PTR CURRENT WORK AMB*/ 49200000 * 2 ARWAAMBL PTR(31), /* SAVE JSCB AMBL PT */ 49800000 * 2 ARWAWORK PTR(31), /* WORK AREA */ 51000000 * 2 ARWARSA CHAR(64) BDY(WORD), /* VSAM RESTART 53400000 * ERROR MESSAGE AND 54000000 * PAGE FIX WORK AREA */ 54010000 * 3 ARWAWAEP PTR(31), /* POINTER TO WORK 54050000 * ACB EXTENSION */ 54100000 * 3 ARWAMDSB PTR(31), /* PT TO CURRENT AMDSB */ 54600000 * 3 ARWABLPT PTR(31), /* PT TO CURRENT AMBL */ 57600000 * 3 ARWAMBPT PTR(31), /* PT TO CURRENT AMB */ 57650000 * 3 ARWAXBEG PTR(31), /* PT MSTR BLK TO FIX */ 57660000 * 3 ARWAXFL2 BIT(8), /* END LIST INDICATOR */ 57670000 * 3 ARWAXEND PTR(24), /* PT END OF MSTR BLK */ 57680000 * 3 ARWAECB CHAR(4), /* PAGE FIX ECB */ 57700000 * 4 * CHAR(3), /* RESERVE SECTION ECB */ 57710000 * 4 ARWACC BIT(8), /* ECB CONDITION CODE */ 57720000 * 5 * BIT(4), /* UNUSED */ 57740000 * 5 ARWAFXER BIT(1), /* PAGE FIX INDICATOR */ 57742000 * 5 * BIT(3), /* UNUSED */ 57744000 * 3 * PTR(31), /* RESERVED */ 57900000 * 3 * PTR(31), /* RESERVED */ 57950000 * 3 * PTR(31), /* RESERVED */ 58000000 * 3 * PTR(31), /* RESERVED */ 58050000 * 3 * PTR(31), /* RESERVED */ 58100000 * 3 * PTR(31), /* RESERVED */ 58150000 * 3 * PTR(31), /* RESERVED */ 58200000 * 3 * PTR(31), /* RESERVED @Y021131*/ 58250002 * 2 ARWAUWAL CHAR(0); /* USER/WORK ACB LIST @Y021131*/ 58350002 * /* */ 67800000 *%GOTO ARWA2; 68450000 * /* */ 68500000 * /* ARWA ASSEMBLER DSECT */ 69000000 * /* */ 69600000 MACRO 70200000 IGCARWA DSECT ARWA DSECT 70800000 ARWASIZE DS H RESTART WORK AREA SIZE 71400000 ARWAACBN DS H NUMBER OF OPEN VSAM ACBS 72000000 ARWABUFS DS H LENGTH OF ARDKEYS FIELD 72600000 DS BL1 RESERVED 73200000 ARWAMCDE DS XL1 ERROR MESSAGE CODE 75600000 ARWARCDE DS XL1 ERROR RETURN CODE 76200000 ARWAOPEN DS AL3 PT TO OPEN PARAMETER LIST 76800000 ARWARSWA DS A POINTER TO VS RESTART WA 77400000 ARWAAL DS 0CL8 PTR USER / WORK ACB LIST 78000000 ARWAUALP DS A POINTER TO USER ACB LIST 78600000 ARWAWALP DS A POINTER TO WORK ACBS 79200002 ARWAACB DS 0CL8 PTR TO CURRENT ACBS 79800000 ARWAACBU DS A PTR TO CURRENT USER ACB 80400000 ARWAACBW DS A PTR TO CURRENT WORK ACB 81000000 ARWAAML DS 0CL8 PTR TO CURRENT AMBLS 81600000 ARWAAMLU DS A PTR TO CURRENT USER AMBL 82200000 ARWAAMLW DS A PTR TO CURRENT WORK AMBL 82800000 ARWAAMB DS 0CL8 PTR TO CURRENT AMBS 83400000 ARWAAMBU DS A PTR TO CURRENT USER AMB 84000000 ARWAAMBW DS A PTR TO CURRENT WORK AMB 84600000 ARWAAMBL DS A SAVE AREA FOR JSCB AMBL PT 85200000 ARWAWORK DS A WORK AREA 85800000 ARWARSA DS 0CL64 PAGEFIX ERROR MSG WRK AREA 87000000 ARWAWAEP DC A WORK ACB EXTENSION PT 88200000 ARWAMDSB DC A CURRENT AMDSB POINTER 88250000 ARWABLPT DC A CURRENT AMBL POINTER 88300000 ARWAMBPT DC A CURRENT AMB POINTER 88350000 ARWAXBEG DC A PT MASTER BLK TO BE FIXED 88400000 ARWAXFL2 DC 0BL1 END OF LIST INDICATOR 88600002 ARWAXEND DC A PT TO END OF MASTER BLK 88650000 ARWAECB DC 0A MASTER BLOCK ECB 88652000 DC CL3 RESERVE SECTION OF ECB 88660000 ARWACC DC CL1 ECB CONDITION CODE 88670000 ARWAFXER EQU X'08' PAGE FIX INDICATOR 88680000 DC A RESERVED 88750000 DC A RESERVED 88800000 DC A RESERVED 88850000 DC A RESERVED 88900000 DC A RESERVED 88950000 DC A RESERVED 89000000 DC A RESERVED 89050000 DC A RESERVED 89100000 DC A RESERVED 89150000 DC A RESERVED 89200000 ARWAPGFX DC A ADDRESS OF PAGE FIX LIST 89250002 DC F RESERVED 89300002 MEND 90600000 * /* */ 91200000 * /* END OF IGCARWA, AM/0 RESTART WORK AREA */ 91800000 * /* */ 92400000 *%ARWA2: ; 93000000