/********************************************************************/ 00050003 /* */ 00100003 /* MACRO NAME = IDAAMBL */ 00150003 /* */ 00200003 /* DESCRIPTIVE NAME = ACCESS METHOD BLOCK LIST. */ 00250003 /* */ 00300003 /* FUNCTION = THE AMBL DESCRIBES A VSAM CLUSTER AND POINTS TO THE */ 00350003 /* CLUSTER'S DATA SET AND INDEX AMB'S. WHEN THE CLUSTER*/ 00400003 /* IS OPENED, AN AMBL IS BUILT TO DESCRIBE THE CLUSTER.*/ 00450003 /* IF THE CLUSTER IS SHARED WITH OTHER USERS, THE */ 00500003 /* EXISTING AMB'S ADDRESSES ARE PUT INTO THE AMBL. */ 00550003 /* */ 00600003 /* CONTROL BLOCK STRUCTURE = THE AMBL IS POINTED TO BY AN ACB */ 00650003 /* (ACBAMBL). */ 00700003 /* */ 00750003 /* INCLUDED MACROS = NONE */ 00800003 /* */ 00850003 /* METHOD OF ACCESS = PL/S - RESPECIFY IDAAMBL BASED. */ 00900003 /* */ 00950003 /* CREATED BY: VSAM OPEN MODULE IDA0192F. */ 01000003 /* */ 01050003 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3, (CHANGE FLAGS @X04SVXX)*/ 01100004 /* */ 01150003 /* DATE OF LAST CHANGE = 29/07/75 @Z40WSRL*/ 01200004 /* */ 01250003 /********************************************************************/ 01300003 DCL 1 IDAAMBL BASED, 64546803 2 AMBLPCHN PTR(31), /* PRIMARY CHAIN POINTER */ 64800003 2 AMBLSCHN PTR(31), /* SECONDARY CHAIN POINTER */ 65400003 2 AMBLACB PTR(31), /* POINTER TO ACB */ 66000003 2 AMBLEOV FIXED(31),/* EOV/RM INTERFACE */ 66600003 3 AMBLEFLG CHAR(1), /* EOV FLAGS */ 67200003 4 AMBLWAIT BIT(1), /* EOV IS WAITING */ 67800003 4 AMBLESET BIT(1), /* EOV RESET CONTROL BLOCKS. */ 68400003 3 AMBLCOMP CHAR(1), /* EOV LOCK */ 69000003 3 * CHAR(2), /* NOT USED */ 69600003 2 AMBLDDNM CHAR(8), /* DDNAME FROM ACB */ 70200003 3 AMBLIDF CHAR(8), /* CLUSTER ID @X04SVLC*/ 70250003 4 AMBLCACB PTR(31)BDY(BYTE),/* CAT ACB @X04SVLC*/ 70300003 4 AMBLDCI FIXED(24)BDY(BYTE),/* CI NBR @X04SVLC*/ 70350003 4 AMBLQ BIT(8), /* QUALIFIER @X04SVLC*/ 70450003 5 AMBLDDC BIT(1),/* DD CONNECT ONLY @X04SVLC*/ 70500003 5 AMBLGSR BIT(1),/* OPENED FOR GSR @X04SVLC*/ 70550003 5 AMBLLSR BIT(1),/* OPENED FOR LSR @X04SVLC*/ 70600003 5 AMBLFSTP BIT(1),/* OPENED FOR FAST PATH 70650003 @X04SVLC*/ 70700003 5 AMBLUBF BIT(1),/* OPENED FOR USER BFR @X04SVLC*/ 70750003 5 AMBLKSDS BIT(1),/* OPENED AS KSDS @X04SVLC*/ 70760003 5 AMBLESDS BIT(1),/* OPENED AS ESDS @X04SVLC*/ 70770003 5 AMBLDFR BIT(1),/* OPENED WITH DEFER OPTION 70780003 @X04SVLC*/ 70790003 2 AMBLXPT PTR(31), /* PTR FR BASE AMBL TO PATH 70800003 AMBL & VICE-VERSA @X04SVLC*/ 70850003 2 AMBLVC FIXED(15),/* VALID AMBL TABLE @X04SVLC*/ 70950003 3 AMBLVRT FIXED(8), /* RELATIVE VAT @X04SVLC*/ 71000003 3 AMBLENO FIXED(8), /* OFFSET WITHIN VAT @X04SVLC*/ 71050003 2 AMBLTYPE BIT(8), /* STRUCTURE TYPE @X04SVLC*/ 71060003 3 AMBLPATH BIT(1), /* ACB IS FOR PATH @X04SVLC*/ 71070003 3 AMBLUPGR BIT(1), /* ACB FOR UPGRADE @X04SVLC*/ 71080003 3 AMBLAIX BIT(1), /* ACB FOR AIX END USE-IMPLIES 71090003 AMBLBASE ON @X04SVLC*/ 71090403 3 AMBLBASE BIT(1), /* ACB FOR BASE @X04SVLC*/ 71092003 3 AMBLFIX BIT(1), /* STRUCTURE FIXED BY 71092403 OPEN @X04SVLC*/ 71092803 3 * BIT(3), /* UNUSED @X04SVLC*/ 71094003 2 * CHAR(1), /* UNUSED @X04SVLC*/ 71100003 2 AMBLID CHAR(1), /* AMBL IDENTIFER */ 73200003 2 AMBLSHAR BIT(8), /* SHARING INDICATORS */ 73800003 3 AMBLPRIM BIT(1), /* P-AMBL INDICATOR */ 74400003 3 AMBLCATO BIT(1), /* CATALOG OPEN IND IS ON */ 75000003 3 AMBLWRIT BIT(1), /* OUTPUT/UPDATE SPECIFIED */ 75600003 3 * BIT(5), /* RESERVED */ 76200003 2 AMBLLEN PTR(8), /* AMBL LENGTH */ 76800003 2 AMBLFLG1 BIT(8), /* FLAG BYTE ONE */ 77400003 3 AMBLFULL BIT(1), /* FULL ACCESS OK */ 78000003 3 AMBLCINV BIT(1), /* CINV ACCESS OK */ 78600003 3 AMBLUPD BIT(1), /* UPDATE ACCESS OK */ 79200003 3 AMBLVVIC BIT(1), /* AMBL FOR VVIC DATA SET 79800003 @X04SVRP*/ 79810003 4 AMBLSDS BIT(1), /* AMBL FOR SYSTEM DATA SET 79820004 @Z40WSRL*/ 79830004 3 AMBLSCRA BIT(1), /* AMBL FOR SYSTEM CATALOG 79850003 RECOVERY AREA @X04SVRP*/ 79900003 3 AMBLUCRA BIT(1), /* AMBL FOR USER CATALOG 79950003 RECOVERY AREA @X04SVRP*/ 80000003 3 AMBLCAT BIT(1), /* IND ACB FOR A CATALOG */ 80400003 3 AMBLDUMY BIT(1), /* DD DUMMY SPECIFIED */ 81000003 /* TO SIMPLIFY TESTING FOR */ 81050003 /* SPECIAL DATA SETS IN */ 81100003 /* EXISTING CODE THE AMBLCAT */ 81150003 /* AMBLVVIC AND AMBLSCRA */ 81200003 /* BITS ARE SET AS FOLLOWS: */ 81250003 /* VVIC SCRA X CAT TYPE OF */ 81300003 /* DATA SET */ 81350003 /* 0 0 X 0 CATALOG */ 81400003 /* 1 0 X 1 VVIC */ 81450003 /* 0 1 X 1 SCRA */ 81500003 2 AMBLFLG2 BIT(8), /* FLAG BYTE TWO */ 81600003 3 * BIT(3), /* RESERVED @Z30SSDT*/ 82860003 3 AMBLSTAG BIT(1), /* CLUSTER IS STAGED @X04ACPS*/ 82870003 3 * BIT(4), /* RESERVED @X04ACPS*/ 82900003 2 AMBLNST CHAR(1), /* NUMBER OF STRINGS */ 83400003 2 AMBLNUM FIXED(15),/* NUMBER OF AMB PTRS IN */ 84000003 /* AMBL */ 84600003 2 * CHAR(1), /* RESERVED */ 85250003 2 AMBLNIDS PTR(8), /* NUMBER IF IDS */ 85300003 2 AMBLMIDS(5) CHAR(2), /* IDS OF MODULES LOADED */ 85350003 2 AMBLDTA PTR(31), /* POINTER TO DATA AMB */ 85400003 2 AMBLIX PTR(31), /* POINTER TO INDEX AMB */ 85450003 2 AMBLBIB PTR(31), /* PTR TO BIB @X04SVLC*/ 89410003 2 AMBLCMB PTR(31); /* PTR TO CMB @X04SVRP*/ 89460003