*/********************************************************************/ 00450037 */* */ 00500037 */* MACRO NAME = IDAAMB */ 00550037 */* */ 00600037 */* DESCRIPTIVE NAME =ACCESS METHOD BLOCK */ 00650037 */* */ 00700037 */* FUNCTION = DESCRIBES DATA SET ATTRIBUTES AND SUPPLIES */ 00750037 */* IOS COMPATIBLE FIELDS FOR I/O */ 00752037 */* */ 00760037 */* CONTROL BLOCK STRUCTURE = THE IDAAMB IS POINTED TO BY THE */ 00770037 */* IDAAMBL */ 00772037 */* */ 00780037 */* INCLUDED MACROS = NONE */ 00790037 */* */ 00792037 */* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00794037 */* */ 00796037 */* CREATED BY = VSAM OPEN */ 00798037 */* */ 00798437 */* STATUS = VS/1 RELEASE 4 (CHANGE FLAG @X04SVXX) */ 00798837 */* VS/2 RELEASE 3 (CHANGE FLAG @Y30SDXX) */ 00798904 */* IDATRACE SUPPORT (CHANGE FLAG @ZA29388) */ 00799037 */* */ 00799237 */* DATE OF LAST CHANGE = 08/11/75 @Z40WSRL*/ 00799604 */* */ 29900037 */********************************************************************/ 29950037 * DCL 1 IDAAMB BASED , /* AMB */ 30000037 * 2 AMBID BIT(8), /* AMB IDENTIFIER */ 30400037 * 2 AMBRSC BIT(8), /* RESOURCE TS BYTE */ 30800037 * 2 AMBLEN FIXED(15), /* AMB LENGTH */ 31200037 * 2 AMBLINK PTR(31), /* NEXT AMB */ 31600037 * 2 AMBBUFC PTR(31), /* BUFFER CONTROL */ 32000037 * 2 AMBPH PTR(31), /* PLACEHOLDER */ 32400037 * 2 AMBCACB PTR(31), /*PTR TO ACB OF CATALOG*/ 32800037 * /*USED TO ACCESS OBJECT*/ 33200037 * 2 AMBDSB PTR(31), /* AMDSB POINTER */ 33600037 * 2 AMBEOVR CHAR(1), /* EOV REQUEST TYPE - NOT 34000037 * USED IN MVM @Y30DSJH*/ 34002037 * 3 AMBFLG0 BIT(8), /* MVM AMB FLAGS @Y30DSJH*/ 34004037 * 4 AMBPSDS BIT(1), /* PAGE SPACE @Y30DSJH*/ 34006037 * 4 AMBSWSP BIT(1), /* SWAP SPACE @Z40WSRL*/ 34006404 * 4 * BIT(6), /* UNUSED IN MVM @Z40WSRL*/ 34008004 * 2 AMBFLG1 BIT(8), /* FLAG BYTE ONE */ 34400037 * 3 AMBCREAT BIT(1), /* ON IF IN CREATE MODE*/ 34800037 * 3 AMBTYPE BIT(1), /* */ 35200037 * 3 AMBMCAT BIT(1), /* MASTER CATL */ 35600037 * 3 AMBPCAT BIT(1), /* PRIVATE CATL */ 36000037 * 3 AMBSPEED BIT(1), /* CREATE SPEED OPITON */ 36400037 * 3 AMBUBF BIT(1), /* USER BUFFERING */ 36800037 * 3 AMBJRN BIT(1), /* JOURNAL EXIT PRESENT*/ 37200037 * 3 AMBINBUF BIT(1), /* SHARED DS--DIRECT */ 37600037 * /* REQ BFR INVALIDATION*/ 38000037 * 2 AMBDSORG BIT(16), /* DATA SET ORGANIZ. */ 38400037 * 3 * BIT(12), /* ALWAYS ZERO */ 38800037 * 3 AMBDORGA BIT(1), /* ACCESS METHOD INDIC */ 39200037 * 3 * BIT(3), /* ALWAYS ZERO */ 39600037 * 2 AMBIOBAD PTR(31), /* IOB ADDR */ 40000037 * 3 AMBIOMB PTR(31), /* IOMB CHAIN IN MVM 40002037 * @Y30DSJH*/ 40004037 * 2 AMBCDSN CHAR(3), /* CATALOG DSN */ 40400037 * 2 AMBDDSN CHAR(3), /* DATA DSN */ 40800037 * 2 * PTR(16), /* RESERVED */ 41200037 * 2 AMBTIOT FIXED(15), /* OFFSET TO TIOT */ 41600037 * 2 AMBINFL PTR(8), /* INDICATOR FLAGS */ 42000037 * 3 * BIT(1), /* RESERVED FOR EXCP */ 42400037 * 3 * BIT(2), /* RESERVED */ 42800037 * 3 AMBCAT BIT(1), /* AMB FOR VSAM CATLG */ 43200037 * 3 AMBSCRA BIT(1), /* CATALOG CONTROL BLOCK 43210037 * SYSTEM AREA @X04SVLC*/ 43220037 * 3 AMBUCRA BIT(1), /* CATALOG CONTROL BLOCK 43230037 * USER AREA @X04SVLC*/ 43240037 * 3 AMBUPX BIT(1), /* SET ON IF UPGRADE TABLE 43250037 * EXISTS @X04SVLC*/ 43300037 * 3 AMBSDS BIT(1), /* SET ON IF SYSTEM DATA 43350004 * SET @Z40WSRL*/ 43400004 * 2 AMBAMETH PTR(8), /* ACCESS METHOD TYPE */ 43600037 * %AMBVSAM='''11''X'; /* VSAM CODE */ 44000037 * 2 AMBDEBPT PTR(31), /* DEB ADDR */ 44400037 * 3 AMBIFLGS BIT(8), /* IOS ERROR FLAGS */ 44800037 * 3 AMBDEBAD PTR(24), /* DEB ADDR */ 45200037 * 2 AMBOFLGS BIT(8), /* OPEN FLAGS */ 45600037 * 3 * BIT(3), /* ALWAYS ZERO */ 46000037 * 3 AMBOPEN BIT(1), /* AMB IS OPEN */ 46400037 * 3 * BIT(2), /* ALWAYS ZERO */ 46800037 * 3 AMBEXFG BIT(1), /* USER EXIT FLAG */ 47200037 * 3 AMBBUSY BIT(1), /* BUSY BIT */ 47600037 * 2 AMBFLG2 PTR(8), /* FLAG BYTE TWO @X04SVLC*/ 48000037 * 3 AMBPUG BIT(1), /* AMB PARTICIPATES IN 48050037 * UPGRADE @X04SVLC*/ 48100037 * 2 AMBRPT FIXED(15), /* */ 48400037 * 2 AMBEDB PTR(31), /* EDB POINTER */ 48800037 * 2 AMBEOVPT PTR(31), /* PTR TO KEY OR RBA - NOT 49200037 * USED IN MVM @Y30DSJH*/ 49202037 * 3 AMBAMBXN PTR(31), /* PTR TO AMB EXTENSION IN 49204037 * MVM @Y30DSJH*/ 49206037 * 2 AMBWKA PTR(31), /* WORK AREA PTR */ 49600037 * 2 AMBIWA PTR(31), /* INSERT WORK AREA PTR*/ 50000037 * 2 * PTR(31), /* UNUSED @Z30SSMR*/ 50450037 * 2 AMBPIXP PTR(31), /* PTR TO PRIME INDEX AMB*/ 50800037 * 2 AMBPAMBL PTR(31), /* PTR TO PRIMARY AMBL 51200037 * @X04SVLC*/ 51210037 * 2 AMBUPLH PTR(31), /* PTR TO UPGRADE PLH 51250037 * @X04SVLC*/ 51300037 * 2 AMBCSWD1 FIXED(31)BDY(WORD),/* CS WORD 1 @X04SVLC*/ 51310037 * 3 AMBAFLG BIT(8), /* ADDITIONAL FLAGS @X04SVLC*/ 51350037 * 4 * BIT(1),/* UNUSED @X04SVLC*/ 51400037 * 4 AMBLSR BIT(1),/* LSR OPTION @X04SVLC*/ 51450037 * 4 AMBGSR BIT(1),/* GSR OPTION @Y30SDLP*/ 51460037 * 4 AMBICI BIT(1),/* ICIP OPTION @Y30SDLP*/ 51500037 * 4 AMBDFR BIT(1),/* DEFER WRITES @X04SVLC*/ 51550037 * 4 AMBSIS BIT(1),/* SEQ INSERT STRAT @X04SVLC*/ 51560037 * 4 AMBCFX BIT(1),/* FIXED CTRL BLK OPTN @Y30SDLP*/ 51562037 * 4 * BIT(1),/* UNUSED @X04SVLC*/ 51564037 * 3 * FIXED(8), /* UNUSED @X04SVLC*/ 51570037 * 3 AMBRDCNT FIXED(15),/* NBR OF CIS READ FOR THIS AMB 51580037 * - VS1 ONLY @X04SVLC*/ 51590037 * 2 AMBBM2SH PTR(31), /* ADDR OF PLH DOING 2ND SEARCH 51592037 * OF SUBPOOL - VS1 ONLY @X04SVLC*/ 51594037 * 2 AMBCPA PTR(31), /* DB/DC - PTR TO WSHD. NON DB/DC 51594237 * & VS1 - UNUSED. NON DB/DC & VS2 51594437 * - PTR TO STATIC CPA'S @Y30DSJH*/ 51594637 * 2 AMBWSHD PTR(31), /* PTR TO WORK SPACE HDR @X04SVLC*/ 51594837 * 2 AMBEXEX CHAR(8), /* EXCEPTION EXIT NAME @X04SVLC*/ 51595237 * 2 AMBSZRD FIXED(15),/* CP SIZE FOR READ @X04SVLC*/ 51596037 * 2 AMBSZWR FIXED(15),/* CP SIZE FOR WRITE @X04SVLC*/ 51598037 * 2 AMBSZFW FIXED(15),/* CP SIZE FORMAT WRITE @X04SVLC*/ 51598437 * 2 AMBSZCP FIXED(15),/* SIZE FOR CPA BASE @X04SVLC*/ 51598837 * 2 AMBVIOT PTR(31), /* POINTER TO IDAVIOT @X04SVLC*/ 51599237 * 2 AMBTRACE PTR(31); /* PTR TO TRACE TABLE @ZA29388*/ 51599437 * DCL AMBINDEX BIT(1) CONSTANT('1'B); /* INDEX TYPE AMB */ 51600037 * DCL AMBDATA BIT(1) CONSTANT('0'B); /* DATA TYPE AMB */ 52000037 * DCL AMBEOVMK BIT(8) CONSTANT('00000001'B); /* MOUNT BY KEY */ 52400037 * DCL AMBEOVMR BIT(8) CONSTANT('10000001'B); /* MOUNT BY RBA */ 52800037 * DCL AMBEOVAK BIT(8) CONSTANT('00000010'B); /* ALLOCATE BY KEY */ 53200037 * DCL AMBEOVAR BIT(8) CONSTANT('10000010'B); /* ALLOCATE BY RBA */ 53600037 * DCL AMBEOVUC BIT(8) CONSTANT('00000100'B); /* UPDATE CATALOG */ 53650037 * DCL AMBEXOFF BIT(1) CONSTANT('1'B); /* AMB NOT LOCKED */ 54000037 *%GOTO AMBBSL2 ; 54400037 */* */ 54800037 */* */ 55200037 */* ASSEMBLER DSECT FOR AMB */ 55600037 */* */ 56000037 MACRO 56400037 IDAAMB &DSECT=YES 56800037 AIF ('&DSECT' EQ 'NO').NODS 57200037 IDAAMB DSECT 57600037 AGO .AMBDSCT 58000037 .NODS ANOP 58400037 IDAAMB DS 0F ACCESS METHOD BLOCK 58800037 .AMBDSCT ANOP 59200037 AMBID DS XL1 AMB IDENTIFIER='40' 59600037 AMBRSC DS XL1 RESOURCE TS BYTE 60000037 AMBIDENT EQU X'40' ID OF AMB 60400037 AMBLEN DS H AMB LENGTH IN BYTES 60800037 AMBLINK DS A AMB LINK FIELD 61200037 AMBBUFC DS A AMB BUFFER PTR 61600037 AMBPH DS A AMB PLACE HOLDER 62000037 AMBCACB DS A PTR TO CATALOG ACB 62400037 AMBDSB DS A ADDRESS OF ASB 62800037 AMBEOVR DS 0BL1 EOV REQUEST TYPE - NOT USED 63200037 * BY EOV IN MVM @Y30DSJH 63202037 AMBEOVMK EQU X'01' MOUNT BY KEY 63600037 AMBEOVMR EQU X'81' MOUNT BY RBA 64000037 AMBEOVAK EQU X'02' ALLOCATE BY KEY 64400037 AMBEOVAR EQU X'82' ALLOCATE BY RBA 64800037 AMBFLG0 DS BL1 MVM AMB FLAGS FIELD @Y30DSJH 64802037 AMBPSDS EQU X'80' PAGE SPACE DATA SET @Y30DSJH 64804037 AMBSWSP EQU X'40' SWAP SPACE DATA SET @Z40WSRL 64854004 AMBFLG1 DS BL1 FLAG BYTE ONE 65200037 AMBCREAT EQU X'80' ON IF IN CREATE MODE 65600037 AMBTYPE EQU X'40' TYPE OF AMB 66000037 AMBMCAT EQU X'20' MASTER CATL 66400037 AMBPCAT EQU X'10' PRIVATE CATL 66800037 AMBSPEED EQU X'08' CREATE SPEED OPTION 67200037 AMBUBF EQU X'04' USER BUFFERING--CNV, MOVE MODE 67600037 AMBJRN EQU X'02' JOURNAL EXIT SPECIFIED 68000037 AMBINBUF EQU X'01' SHARE--INVALIDATE DIR REQ BFRS 68400037 AMBDSORG DS BL2 DS ORG FIELD 68800037 AMBDORGA EQU X'08' ACCESS METHOD INDICATOR 69200037 AMBIOBAD DS 0A IOB ADDR @Y30DSJH 69600037 AMBIOMB DS A IOMB CHAIN IN MVM @Y30DSJH 69602037 AMBCDSN DS CL3 CATALOG DSN 70000037 AMBDDSN DS CL3 DATA DSN 70400037 DS H RESERVED 70800037 AMBTIOT DS H OFFSET TO TIOT 71200037 AMBINFL DS XL1 INDICATOR FLAGS 71600037 AMBCAT EQU X'10' AMB FOR VSAM CATALOG 72000037 AMBSCRA EQU X'08' CATALOG CONTROL BLOCK 72010037 * SYSTEM AREA @X04SVLC 72020037 AMBUCRA EQU X'04' CATALOG CONTROL BLOCK 72030037 * USER AREA @X04SVLC 72040037 AMBUPX EQU X'02' UPGRADE TAB EXISTS @X04SVLC 72050037 AMBSDS EQU X'01' SYSTEM DATA SET @Z40WSRL 72100004 AMBAMETH DS XL1 ACCESS METHOD TYPE 72400037 AMBVSAM EQU X'11' VSAM CODE 72800037 AMBIFLGS DS XL1 ERROR FLAGS 73200037 AMBDEBAD DS AL3 ADDRESS OF DEB 73600037 AMBOFLGS DS BL1 OPEN FLAGS 74000037 AMBOPEN EQU X'10' AMB IS OPEN 74400037 AMBEXFG EQU X'02' USER EXIT FLAG 74800037 AMBBUSY EQU X'01' AMB IS BUSY 75200037 AMBFLG2 DS BL1 FLAG BYTE TWO @X04SVLC 75250037 AMBPUG EQU X'80' AMB PARTICIPATES IN 75300037 * UPGRADE @X04SVLC 75350037 AMBRPT DS H 76000037 AMBEDB DS A ADDRESS OF EDB 76400037 AMBEOVPT DS 0A PTR TO KEY OR RBA FOR @Y30DSJH 76800037 * EOV - NOT USED IN MVM @Y30DSJH 76802037 AMBAMBXN DS A PTR TO AMB EXTENSION @Y30DSJH 76804037 * IN MVM @Y30DSJH 76806037 AMBWKA DS A WORK AREA PTR 77200037 AMBIWA DS A INSERT WORK AREA PTR 77600037 DS A UNUSED @Z30SSMR 78000037 AMBPIXP DS A POINTER TO PRIME INDEX AMB 78400037 AMBPAMBL DS A PTR TO PRIMARY AMBL 78800037 AMBUPLH DS A PTR TO UPGRADE PLH @X04SVLC 78850037 AMBCSWD1 DS 0A CS WORD 1 @X04SVLC 78850437 AMBAFLG DS BL1 ADDITIONAL FLAGS @X04SVLC 78850837 AMBLSR EQU X'40' LSR OPTION @X04SVLC 78851637 AMBGSR EQU X'20' GSR OPTION @X04SVLC 78851737 AMBICI EQU X'10' ICIP OPTION @X04SVLC 78851837 AMBDFR EQU X'08' DEFER WRITES @X04SVLC 78855737 AMBSIS EQU X'04' SEQ INSERT STRAT @X04SVLC 78863937 AMBCFX EQU X'02' FIXED CNTL BLK OPTION @X04SVLC 78865937 DS AL1 UNUSED @X04SVLC 78867937 AMBRDCNT DS H NBR OF CIS READ FOR THIS AMB 78877937 * @X04SVLC 78879937 AMBBM2SH DS A ADDR OF PLH DOING 2ND SEARCH 78881937 * OF SUBPOOL @X04SVLC 78883937 AMBCPA DS A DB/DC - PTR TO WSHD. NON DB/DC 78900037 * & VS1 - UNUSED. NON DB/DC & 78902037 * VS2 - STATIC CPA PTR. @Y30DSJH 78904037 AMBWSHD DS A PTR TO WORK SPACE HDR @X04SVLC 78904437 AMBEXEX DS CL8 EXCEPTION EXIT NAME @X04SVLC 78904837 AMBSZRD DS H CP SIZE FOR READ @X04SVLC 78905237 AMBSZWR DS H CP SIZE FOR WRITE @X04SVLC 78905637 AMBSZFW DS H CP SIZE FORMAT WRITE @X04SVLC 78905737 AMBSZCP DS H SIZE FOR CPA BASE @X04SVLC 78905837 AMBVIOT DS A POINTER TO IDAVIOT @X04SVLC 78905937 AMBTRACE DS A PTR TO TRACE TABLE @ZA29388 78955937 AMBLENTH EQU *-IDAAMB LENGTH OF AMB IN BYTES 79200037 MEND 79600037 * 80000037 * 80400037 *%AMBBSL2: ; 80800037