/********************************************************************/ 01000003 /* */ 01001003 /* MACRO NAME = IGGCAXWA */ 01002003 /* */ 01003003 /* DESCRIPTIVE NAME = CATALOG AUXILIARY WORKAREA */ 01004003 /* */ 01005003 /* FUNCTION = THE CATALOG AUXILIARY WORKAREA (CAXWA) CONTAINS */ 01006003 /* THE ADDRESS OF CONTROL BLOCKS AND WORK AREAS NEEDED */ 01007003 /* WHEN A CATALOG IS BEING OPENED OR CREATED. IT ALSO */ 01008003 /* CONTAINS FLAGS THAT INDICATE THE TYPE OF PROCESSING */ 01009003 /* BEING PERFORMED ON THE CATALOG AND THE OS/VS */ 01010003 /* COMPONENT THAT INVOKED THE PROCESSING. */ 01011003 /* */ 01012003 /* CONTROL BLOCK STRUCTURE = THE CAXWA IS POINTED TO BY */ 01013003 /* THE ACB (ACBUAPTR). */ 01014003 /* */ 01015003 /* INCLUDED MACROS = NONE */ 01016003 /* */ 01017003 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 01018003 /* */ 01019003 /* CREATED BY: VSAM CATALOG MANAGEMENT DURING BUILD OR OPEN OF */ 01020003 /* A MASTER OR USER CATALOG. */ 01021003 /* */ 01022003 /* STATUS = VS/2 RELEASE 4 (CHANGE FLAG @Y40WSXX) @Z40WSPJ*/ 01023004 /* */ 01024003 /* DATE OF LAST CHANGE = 20 MAY 75 @Z40WSPJ*/ 01025004 /* DATE OF LAST CHANGE = 11 NOV 74 @Z40RSRC*/ 01025404 /* */ 01026003 /********************************************************************/ 01027003 DECLARE 02000003 1 IGGCAXWA BASED(CAXWAPTR), /* ESTABLISH BASE TO THE CAXWA */ 09000003 2 CAXID CHAR(1), /* CAXWA ID = 'CA'X */ 10000003 2 * PTR(24), /* RESERVED */ 11000003 2 CAXCHN PTR(31), /* CAXWA CHAIN PTR */ 12000003 * 2 CAXFLGS BIT(8), /* FLAGS */ 13000003 3 CAXBLD BIT(1), /* BUILD REQUEST */ 14000003 3 CAXOPN BIT(1), /* OPEN IN CONTROL */ 15000003 3 CAXCLS BIT(1), /* CLOSE IN CONTROL */ 16000003 3 CAXEOV BIT(1), /* END-OF-VOLUME IN CONTROL */ 17000003 3 CAXCMP BIT(1), /* I/O SUPPORT COMPLETE */ 18000003 3 CAXMCT BIT(1), /* 1 = MASTER CATALOG, */ 19000003 /* 0 = USER CATALOG */ 20000003 3 CAXCMR BIT(1), /* CATALOG MGMT INVOKED */ 21000003 3 CAXSCR BIT(1), /* SCHEDULER INVOKED */ 22000003 2 CAXFLG2 BIT(8), /* FLAGS - BYTE 2 */ 23000003 3 CAXF2DT BIT(1), /* CATALOG DELETED */ 24000003 3 CAXF2NDD BIT(1), /* NO DDNAME FOUND (IFG0191X) */ 25000003 3 CAXF2NCR BIT(1), /* UNABLE TO GET CORE (IFG0191X) */ 26000003 3 CAXF2IOE BIT(1), /* I/O ERROR (IFG0191X) */ 27000003 3 CAXF2CLR BIT(1), /* RPL CLEANUP REQUESTED Y02020*/ 28000003 3 CAXF2CA BIT(1), /* FREE CAXWA IF ERROR */ 29000003 3 CAXF2REC BIT(1), /* RECOVERABLE CATALOG @Y30SSDW*/ 29050003 3 CAXF2VTU BIT(1), /* VOLUME T.S. UPDATED @Y30SSDW*/ 30000003 2 CAXFLG3 BIT(8), /* FLAGS @Y30SSDW*/ 31000003 3 CAXF3AT BIT(1), /* CRA ALT TIOT EXIST @Y30SSDW*/ 31050003 3 CAXF3ANE BIT(1), /* CRA NONEXISTENT @Y30SSDW*/ 31068003 3 * BIT(1), /* RESERVED @Z40RSRC*/ 31100004 3 CAXRAC BIT(1), /* CATLG IS RAC-DEFINED @Z40RSRC*/ 31110004 3 CAXF3B5 BIT(1), /* B56-11-NO CAT PSWD @Z30TSBM*/ 31150003 3 CAXF3B6 BIT(1), /* 01-NO UPD,10-UPD @Z30TSBM*/ 31200003 3 * BIT(2), /* RESERVED @Z30TSBM*/ 31250003 2 CAXACT PTR(8), /* CATALOG ACTIVITY COUNT */ 32000003 * 2 CAXATIOT PTR(31), /* ALTERNATE TIOT POINTER */ 33000003 2 CAXSCHWA PTR(31), /* PTR TO SCHEDULER WORKAREA */ 34000003 2 CAXDRWP PTR(31), /* POINTER TO DRWA */ 35000003 2 CAXACB PTR(31), /* ACB POINTER */ 36000003 2 CAXUCB PTR(31), /* UCB POINTER */ 37000003 * 2 CAXCCR, /* CATALOG CONTROL RECORD INFO */ 38000003 * 3 CAXHACI PTR(24) BDY(BYTE), /* HI ALLOCATED CI NUMBER */ 39000003 * 3 CAXNFCI PTR(24) BDY(BYTE), /* NEXT FREE CI NUMBER */ 40000003 * 3 CAXCDCI PTR(24) BDY(BYTE), /* DELETED CI COUNT */ 41000003 3 CAXFDCI PTR(24) BDY(BYTE), /* FIRST DELETED CI NUMBER */ 42000003 2 CAXASID FIXED(15), /* AS ID FOR UCRA ACCESS @Y30SSSB*/ 43000003 2 CAXRPLCT PTR(15), /* RPL COUNT */ 44000003 * 2 CAXRPL PTR(31), /* PTR TO RPL CHAIN */ 45000003 2 CAXCNAM CHAR(44), /* CATALOG NAME */ 46000003 3 CAXVOLID CHAR(6), /* CRA VOLUME SERIAL @Y30SSDW*/ 46050003 3 CAXRACTS CHAR(4), /* CRA CREATION TIME STAMP 46100003 @Y30SSDW*/ 46150003 3 CAXRATEP PTR(31) BDY(BYTE), /* TIOT ENTRY POINTER FOR CRA 46200003 @Y30SSDW*/ 46250003 3 CAXRADDN CHAR(8), /* CRA DD NAME @Y30SSDW*/ 46960003 3 * CHAR(22), /* RESERVED, CRA ONLY @Y30SSDW*/ 46970003 2 CAXOPLST, /* OPEN/CLOSE PARAMETER LIST */ 47000003 3 COPTS BIT(8), /* OPTIONS */ 48000003 4 CENLST BIT(1), /* END-OF-LIST INDICATOR */ 49000003 4 * BIT(7), /* UNUSED */ 50000003 3 COPACB PTR(24), /* POINTER TO ACB */ 51000003 2 CAXOPEWA PTR(31), /* POINTER TO O/C/EOV WORKAREA */ 52000003 2 CAXCCA PTR(31), /* POINTER TO CCA */ 53000003 3 CAXPLOCK PTR(31), /* RPL POST LOCK @Z40WSPJ*/ 53010004 2 CAXJDE PTR(31), /* POINTER TO JDE @Y30SSDW*/ 53050003 2 CAXCRACB PTR(31), /* ADDRESS OF CRA ACB @Z40WSPJ*/ 53100004 2 CAXRACP PTR(31), /* ADDR OF RAC PROFILE @Z40RSRC*/ 53150004 2 CAXECB PTR(31), /* RPL WAIT ECB @Z40WSPJ*/ 53150104 3 CAXECBHB BIT(8), /* RPL WAIT ECB BYTE 1 @Z40WSPJ*/ 53152004 4 CAXECBWB BIT(1), /* WAIT BIT @Z40WSPJ*/ 53154004 4 CAXECBPB BIT(1), /* POST BIT @Z40WSPJ*/ 53156004 4 * BIT(6), /* RESERVED @Z40WSPJ*/ 53158004 3 * PTR(24), /* RESERVED @Z40WSPJ*/ 53158404 2 CAXASCBP PTR(31), /* ADDRESS OF ASCB @Z40WSPJ*/ 53160004 2 CAXHRPLW PTR(31), /* HUNG RPL WORD @Z40WSPJ*/ 53160404 3 CAXHRPLC PTR(15), /* HUNG-UP RPL COUNT @Z40WSPJ*/ 53162004 3 CAXWNQID PTR(15); /* RPL WAIT ENQ ID @Z40WSPJ*/ 53170004 DECLARE CAXCD PTR(8) CONSTANT (202);/* CAXWA ID CHARACTER ('CA'X)*/ 53200003 % DECLARE /* MACRO-PASS CHARACTER VARIABLES*/ 53300003 OPLST CHAR, /* OPEN/CLOSE PARAMETER LIST */ 53400003 ENLST CHAR, /* END-OF-LIST INDICATOR */ 53500003 OPDCB CHAR, /* POINTER TO ACB */ 53600003 OPEWA CHAR, /* POINTER TO O/C/EOV WORKAREA */ 53700003 COWCCA CHAR, /* POINTER TO CCA */ 53800003 COWDRWP CHAR; /* POINTER TO DRWA */ 53900003 % OPLST = 'CAXOPLST'; /* OPEN/CLOSE PARAMETER LIST */ 54000003 % ENLST = 'CENLST'; /* END-OF-LIST INDICATOR */ 55000003 % OPDCB = 'COPACB'; /* POINTER TO ACB */ 56000003 % OPEWA = 'CAXOPEWA'; /* POINTER TO O/C/EOV WORKAREA */ 57000003 % COWCCA = 'CAXCCA'; /* POINTER TO CCA */ 58000003 % COWDRWP = 'CAXDRWP'; /* POINTER TO DRWA */ 59000003