*%GO TO CBSBSL1; /* @Z40BHUC*/ 03060048 * /* @Z40BHUC 03070048 MACRO 03080048 AMCBS 03090048 AGO .CBSBAL @Z40BHUC 03100048 * */ 03270048 /********************************************************************/ 39060048 /* */ 39070048 /* MACRO NAME = AMCBS */ 39080048 /* */ 39090048 /* DESCRIPTIVE NAME = ACCESS METHOD CONTROL BLOCK STRUCTURE BLOCK */ 39092048 /* */ 39094048 /* FUNCTION = THE ACCESS METHOD CONTROL BLOCK STRUCTURE (AMCBS) */ 39096048 /* CONTAINS INFORMATION THAT IS USED BY OS/VS TO */ 39098048 /* LOCATE THE MASTER CATALOG AND USER CATALOGS. THE */ 39098448 /* AMCBS IS COMPLETED WHEN THE MASTER CATALOG IS */ 39099748 /* OPENED. */ 39099848 /* */ 39103648 /* THE AMCBS CONTAINS: */ 39104048 /* * ENTRY POINTS TO VSAM CATALOG ROUTINES */ 39104448 /* * ENTRY POINTS TO GENCB, MODCB, SHOWCB ROUTINES */ 39104848 /* * POINTER TO THE MASTER CATALOG ACB */ 39104948 /* * POINTER TO THE CAXWA CHAIN */ 39105048 /* * 8 DOUBLEWORDS FOR EACH OF THE VSAM SHARED */ 39105248 /* RESOURCE POOLS (GSR OPTION). THE FIRST WORD */ 39106048 /* OF EACH DOUBLWORD CONTAINS THE CELL USE */ 39106448 /* COUNT */ 39107248 /* THE SECOND WORD OF EACH DOUBLEWORD CONTAINS */ 39108048 /* THE ADDRESS OF THE CELL. A COMPARE AND SWAP */ 39108848 /* DOUBLE (CDS) INSTRUCTION IS USED TO SET THE */ 39109648 /* CELL USE COUNT AND THE CELL ADDRESS. @G38KSCM*/ 39110448 /* * POINTER TO THE IDAVSI (VSAM SHARED INFO) CHAIN.*/ 39112148 /* A VSI BIT INDICATING THAT UNUSED VSI'S LEFT */ 39112548 /* FROM ABEND MAY EXIST ON THE VSI CHAIN WHICH */ 39112648 /* REQUIRE CLEAN UP. */ 39114648 /* */ 39116648 /* CONTROL BLOCK STRUCTURE = THE AMCBS IS POINTED TO BY THE */ 39117848 /* CVT (CVTCBSP). */ 39119448 /* */ 39121048 /* INCLUDED MACROS = NONE */ 39122648 /* */ 39124248 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 39125848 /* */ 39127448 /* CREATED BY: VSAM CATALOG MODULE IEAVNP11 DURING */ 39127848 /* NIP MASTER CATALOG OPEN */ 39128248 /* */ 39128348 /* STATUS = MVS VERSION 1/RELEASE 1. @G38KSRL*/ 39131948 /* */ 39132648 /* COPYRIGHT = REFER TO MODULE ACB @G38KSRL*/ 39132848 /* */ 39133048 /* DATE OF LAST CHANGE = 22 JAN 76 @Z40BHUC*/ 39133348 /* 08/16/76 CBUF SUPPORT @G38KSRL*/ 39134048 /* */ 39134748 /********************************************************************/ 39135148 *%CBSBSL1: ; /* @Z40BHUC*/ 40000048 DECLARE 41000048 1 AMCBS BASED(CBSPTR) BDY(DWORD), /* AMCBS LEVEL ONE @Y30SSSB*/ 42000048 2 CBSID CHAR(2), /* AMCBS ID CHARACTER */ 45000048 2 CBSSIZ PTR(15), /* LENGTH OF AMCBS */ 48000048 2 CBSMCSTA CHAR(4), /* CCHH OF MASTER CATALOG Y02020*/ 51000048 2 CBSACB PTR(31), /* PTR TO MASTER CATALOG'S ACB */ 54000048 2 CBSCBP PTR(31), /* POINTER TO CONTROL BLOCK 57000048 MANIPULATION ROUTINE */ 57050048 2 CBSCMP PTR(31), /* POINTER TO CATALOG ROUTINE */ 60000048 3 CBSMCUCB PTR(31), /* MASTER CATALOG UCB ADDRESS 60050048 (NIP THROUGH MASTER CATALOG 60100048 OPEN) Y02020*/ 60150048 2 CBSCAXCN PTR(31), /* POINTER TO CAXWA CHAIN */ 63000048 2 CBSCRACA PTR(31), /* PTR TO CRA CAXWA CHN @Y30SSSB*/ 63050048 2 CBSCRTCB PTR(31), /* CRA TASK TCB POINTER @Y30SSSB*/ 63100048 2 CBSVSRT(8) CHAR(8) BDY(DWORD), /* CDS WORDS FOR CELLS FOR 63150048 KEY 0 TO 7 @G38KSCM*/ 63180048 3 CBSVUSE FIXED(31), /* CELL USE COUNT @G38KSCM*/ 63210048 3 CBSVPTR PTR(31), /* POINTER TO CELL @G38KSCM*/ 63240048 2 CBSVSICN PTR(31), /* PTR TO IDAVSI CHAIN @G38KSRS*/ 63300048 2 CBSFLG1 BIT(8), /* AMCBS FLAGS @G38KSRS*/ 63310048 3 CBSCUVSI BIT(1), /* CLEAN UP OF VSI CHAIN IS 63320048 REQUIRED @G38KSRS*/ 63330048 3 * BIT(7), /* RESERVED @G38KSRS*/ 63340048 2 * CHAR(3); /* RESERVED @G38KSRS*/ 63350048 *%GOTO CBSBSL2 ; /* @Z40BHUC*/ 63400048 */* 63450048 */* 63500048 .CBSBAL ANOP /* @Z40BHUC*/ 63550048 * DUMMY AMCBS FOR CALL IN IDA019C1 FOR VS2 SYSTEM * 63600048 MEND /* @Z40BHUC*/ 63650048 *%CBSBSL2:; /* @Z40BHUC*/ 63700048