/********************************************************************/ 00200037 /* */ 00201037 /* MACRO NAME = IGGCCA */ 00202037 /* */ 00203037 /* DESCRIPTIVE NAME = CATALOG COMMUNICATIONS AREA */ 00204037 /* */ 00205037 /* FUNCTION = THE CCA IS USED BY CATALOG MANAGEMENT TO PASS */ 00206037 /* INFORMATION BETWEEN ITS PROCEDURES. THE CCA IS */ 00207037 /* BUILT EACH TIME AN OS/VS COMPONENT ISSUES THE CATLG */ 00208037 /* MACRO INSTRUCTION (SVC 26) TO PROCESS A CATALOG */ 00209037 /* RECORD. THE CCA CONTAINS INFORMATION ABOUT THE */ 00210037 /* CATALOG BEING PROCESSED, AND ABOUT THE CATALOG */ 00211037 /* RECORD AND ITS EXTENSIONS CONTAINED IN EACH OF */ 00212037 /* THE SIX BUFFERS AVAILABLE TO PROCESS THE USER'S */ 00213037 /* REQUEST. */ 00214037 /* */ 00215037 /* CONTROL BLOCK STRUCTURE = THE CCA IS POINTED TO BY REGISTER 11 */ 00216037 /* */ 00217037 /* INCLUDED MACROS = NONE */ 00218037 /* */ 00219037 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00220037 /* */ 00221037 /* CREATED BY: CSECT IGG0CLC9 IN LOAD MODULE IGG0CLC9 */ 00222037 /* */ 00223037 /* STATUS = VS/2 RELEASE 3 (CHANGE FLAG @Y30SSXX) */ 00224037 /* */ 00225037 /* DATE OF LAST CHANGE = 15 MAY 78 @Y30SSPJ*/ 00226037 /* C 572000 @ZA24944*/ 00236037 /* I 692260-692268, 692929 @ZA27024*/ 00246037 /* I 691305-330 @ZA30975*/ 00256037 /* C 514000,690826,693355 @ZA29164*/ 00266037 /* I 514300-515600,690827-690828,693256 @ZA29164*/ 00276037 /* I @ZA29164*/ 00346137 /* */ 00400037 /********************************************************************/ 00460037 DECLARE 00520037 * 1 IGGCCA BASED(CCAPTR), /* SET BASE TO CCA */ 02200037 * 2 CCAID FIXED(15), /* CCA ID = 'ACCA'X @Y30SSPJ*/ 02210037 * 2 CCASZ FIXED(15), /* SIZE OF CCA @Y30SSPJ*/ 02220037 * 2 CCAPROB FIXED(31), /* PROBLEM DETERMINATION WORD 02300037 * @Y30SSPJ*/ 02310037 * 3 CCAMODID CHAR(2), /* ERROR MODULE ID @Y30SSPJ*/ 02618037 * 3 CCAERRCD FIXED(15) /* ERROR CODES @Y30SSPJ*/ 02624037 BDY(BYTE), 02630037 * 4 CCAREASN CHAR(1), /* SET REASON CODE @Y30SSPJ*/ 02636037 * 5 CCACDR CHAR(1), /* REFER REASON CODE @Y30SSPJ*/ 02642037 * 4 CCARETRN CHAR(1), /* SET RETURN CODE @Y30SSPJ*/ 02648037 * 5 CCACD1 CHAR(1), /* REFER RETURN CODE @Y30SSPJ*/ 02900037 * 2 * CHAR(5), /* RESERVED @Y30SSPJ*/ 02950037 * 2 CCACD2 PTR(8), /* RETURN CODE 2 */ 03000037 * 2 CCAFLG1 PTR(8), /* FLAGS */ 03200037 * 3 CCAF1LPS BIT(1), /* STOP LOOP IF ON */ 03400037 * 3 CCAF1CNS BIT(1), /* CATALOG NAME SEARCH Y02020*/ 03600037 * 3 CCAF1LRD BIT(1), /* CCR READ INTO CORE */ 03800037 * 3 CCAF1KEY BIT(1), /* GET BY TRUE NAME */ 04000037 * 3 CCAF1KGE BIT(1), /* GET NEXT */ 04200037 * 3 CCAF1CR BIT(1), /* CHKPT CCR REQ */ 04400037 * 3 CCAF1UP BIT(1), /* GET FOR UPDATE */ 04600037 * 3 CCAF1DK BIT(1), /* DELETE, KEEP CI */ 04800037 * 2 CCAFLG2 PTR(8), /* FLAGS */ 05000037 * 3 CCAF2SYS BIT(1), /* SYSTEM CALLER */ 05200037 * 3 CCAF2NVC BIT(1), /* NO VALIDITY CHECK */ 05400037 * 3 CCAF2CCT BIT(1), /* 0 = CONCAT CTLG SEARCH, */ 05600037 * /* 1 = SINGLE CTLG SEARCH */ 05800037 3 CCAF2XEQ BIT(1), /* 0 = SHARED ENQ, */ 06000037 /* 1 = EXCLUSIVE ENQ */ 06200037 3 CCAF2RHS BIT(1), /* RECURSIVE CALL TO CATLG */ 06400037 3 CCAF2COB BIT(2), /* COMB. OF CATLG OPEN/BUILD */ 06600037 4 CCAF2CO BIT(1), /* CATLG BEING OPENED */ 06800037 4 CCAF2CB BIT(1), /* CATLG OPEN DURING BUILD */ 07000037 * 3 CCAF2SMO BIT(1), /* SEARCH MASTER CATLG ONLY */ 07200037 * 2 CCAFLG3 PTR(8), /* FLAGS */ 07400037 * 3 CCAEXGR1 BIT(1), /* EXIT INDICATOR */ 07600037 * 3 CCAGC4 BIT(1), /* GROUP CODE 4 IN SCNC */ 07800037 * 3 CCAGDSP BIT(1), /* GENDSP */ 08000037 * 3 CCAEXGR2 BIT(1), /* EXIT INDICATOR */ 08200037 * 3 CCANF BIT(1), /* NOT FOUND CONDITION */ 08400037 * 3 CCAELC2 BIT(1), /* EXIT INDICATOR */ 08600037 * 3 CCALFT BIT(1), /* FIRST TIME */ 08800037 * 3 CCAEGREC BIT(1), /* EXIT INDICATOR */ 09000037 * 2 CCAFLG4 PTR(8), /* FLAGS */ 09200037 * 3 CCAF4DRQ BIT(1), /* DEQ REQD */ 09400037 * 3 CCAF4BYS BIT(1), /* BYPASS SECURITY */ 09600037 * 3 CCAGVNC BIT(1), /* NOT COMPLETE */ 09800037 * 3 CCAGVNF BIT(1), /* RELREPNO NOT FOUND */ 10000037 * 3 CCAGVNBS BIT(1), /* NO BUFFER SPACE */ 10200037 * 3 CCAGVEX BIT(1), /* EXIT BIT */ 10400037 * 3 CCAGVNE BIT(1), /* NON-EXISTENT FIELD */ 10600037 * 3 CCATCOMP BIT(1), /* TEST COMPLETE */ 10800037 * 2 CCAFLG5 PTR(8), /* FLAGS */ 11000037 * 3 CCAMEX2 BIT(1), /* EXIT INDICATOR */ 11200037 * 3 CCAMEX BIT(1), /* EXIT BIT */ 11400037 * 3 CCAMEX1 BIT(1), /* EXIT BIT */ 11600037 * 3 CCAMODPA BIT(1), /* PUT-ADD */ 11800037 * 3 CCATHIT BIT(1), /* SUCCESSFUL TEST */ 12000037 * 3 CCATEX BIT(1), /* EXIT INDICATOR */ 12200037 * 3 CCATEX1 BIT(1), /* EXIT INDICATOR */ 12400037 * 3 CCATEX2 BIT(1), /* EXIT INDICATOR */ 12600037 * 2 CCAFLG6 PTR(8), /* FLAGS */ 12800037 * 3 CCAMCODR BIT(1), /* DEQ REQ SW */ 13000037 * 3 CCADELP BIT(1), /* DELETED GOP */ 13200037 * 3 CCAMNOSP BIT(1), /* NO SPACE IN MOVE OCCUR */ 13400037 * 3 CCAINIT BIT(1), /* INSERT INIT SW FOR VAR FIELD */ 13600037 * 3 CCASUPFD BIT(1), /* SUPPRESS FIELD INFO */ 13800037 * 3 CCAREUSE BIT(1), /* RE-USE RECORD AREAS */ 14000037 * 3 CCAEXT BIT(1), /* EXTRACT IN PROCESS */ 14200037 * 3 CCAMOD BIT(1), /* MODIFY IN PROCESS */ 14400037 * 2 CCATCB PTR(31), /* PTR TO TCB */ 14600037 * 3 CCALBCYL PTR(31), /* LABEL CYLINDER DATA PTR */ 14800037 * 2 CCARB PTR(31), /* PTR TO RB */ 15000037 * 3 CCADPL PTR(31), /* DADSM PARMETER LIST PTR */ 15200037 * 2 CCACPL PTR(31), /* PTR TO CPL */ 15400037 * 2 CCAACB PTR(31), /* PTR TO CATALOG ACB */ 15600037 * 2 CCANPCCB PTR(31), /* PTR TO NEXT PCCB IN CHAIN */ 15800037 * 2 CCAURAB PTR(31), /* PTR TO RAB TO USE */ 16000037 * 2 CCASRCH CHAR(44), /* SEARCH ARGUMENT */ 16200037 * 3 CCASRID CHAR(3), /* CI NUMBER */ 16400037 * 4 CCASRCIN PTR(24) BDY(BYTE), /* CI NUMBER */ 16600037 * 3 * CHAR(41), /* RESERVED */ 16800037 * 2 CCARAB0, /* RECORD AREA BLOCK 0 */ 17000037 * 3 CCAR0FLG PTR(8), /* CCARAB0 FLAGS */ 17200037 * 4 CCAR0UR BIT(1), /* RAB IN-USE EXT, MOD */ 17400037 * 4 CCAR0U1 BIT(1), /* RAB IN-USE TESTS */ 17600037 * 4 CCAR0U2 BIT(1), /* RAB IN-USE TESTS */ 17800037 * 4 CCAR0WR BIT(1), /* WRITE IT BEFORE READ */ 18000037 * 4 CCAR0PA BIT(1), /* PUT-ADD WRITE */ 18200037 * 4 * BIT(2), /* RESERVED */ 18400037 * 4 CCAR0UPD BIT(1), /* UPDATE BUFFER NOT REUSED */ 18600037 * 3 CCAR0RPL PTR(8), /* LAST ASSIGN, RPL INDEX */ 18800037 * 3 * CHAR(2), /* RESERVED */ 19000037 * 3 CCAR0REC PTR(31), /* PTR TO RECORD AREA */ 19200037 * 3 CCAR0SEG, /* SEGMENT PTRS */ 19400037 * 4 CCACPE20 PTR(31), /* PTR REPEATING CONTROL INFO */ 19600037 * 4 CCACPE30 PTR(31), /* PTR TO FIRST OCCURRENCE */ 19800037 * 4 CCACPE40 PTR(31), /* PTR TO END OF RECORD */ 20000037 * 2 CCARAB1, /* RECORD AREA BLOCK 1 */ 20200037 * 3 CCAR1FLG PTR(8), /* FLAGS */ 20400037 * 4 CCAR1UR BIT(1), /* SAME AS CCAR0UR */ 20600037 * 4 CCAR1U1 BIT(1), /* SAME AS CCAR0U1 */ 20800037 * 4 CCAR1U2 BIT(1), /* SAME AS CCAR0U2 */ 21000037 * 4 CCAR1WR BIT(1), /* SAME AS CCAR0WR */ 21200037 * 4 CCAR1PA BIT(1), /* SAME AS CCAROPA */ 21400037 * 4 * BIT(2), /* RESERVED */ 21600037 * 4 CCAR1UPD BIT(1), /* SAME AS CCAR0UPD */ 21800037 * 3 CCAR1RPL PTR(8), /* SAME AS CCAR0RPL */ 22000037 * 3 * CHAR(2), /* RESERVED */ 22200037 * 3 CCAR1REC PTR(31), /* SAME AS CCAR0REC */ 22400037 * 3 CCAR1SEG, /* SAME AS CCAR0SEG */ 22600037 * 4 CCACPE21 PTR(31), /* SAME AS CCACPE20 */ 22800037 * 4 CCACPE31 PTR(31), /* SAME AS CCACPE30 */ 23000037 * 4 CCACPE41 PTR(31), /* SAME AS CCACPE40 */ 23200037 * 2 CCARAB2, /* RECORD AREA BLOCK 2 */ 23400037 * 3 CCAR2FLG PTR(8), /* FLAGS */ 23600037 * 4 CCAR2UR BIT(1), /* SAME AS CCAR0UR */ 23800037 * 4 CCAR2U1 BIT(1), /* SAME AS CCAR0U1 */ 24000037 * 4 CCAR2U2 BIT(1), /* SAME AS CCAR0U2 */ 24200037 * 4 CCAR2WR BIT(1), /* SAME AS CCAR0WR */ 24400037 * 4 CCAR2PA BIT(1), /* SAME AS CCAROPA */ 24600037 * 4 * BIT(2), /* RESERVED */ 24800037 * 4 CCAR2UPD BIT(1), /* SAME AS CCAR0UPD */ 25000037 * 3 CCAR2RPL PTR(8), /* SAME AS CCAR0RPL */ 25200037 * 3 * CHAR(2), /* RESERVED */ 25400037 * 3 CCAR2REC PTR(31), /* SAME AS CCAR0REC */ 25600037 * 3 CCAR2SEG, /* SAME AS CCAR0SEG */ 25800037 * 4 CCACPE22 PTR(31), /* SAME AS CCACPE20 */ 26000037 * 4 CCACPE32 PTR(31), /* SAME AS CCACPE30 */ 26200037 * 4 CCACPE42 PTR(31), /* SAME AS CCACPE40 */ 26400037 * 2 CCARAB3, /* RECORD AREA BLOCK 3 */ 26600037 * 3 CCAR3FLG PTR(8), /* FLAGS */ 26800037 * 4 CCAR3UR BIT(1), /* SAME AS CCAR0UR */ 27000037 * 4 CCAR3U1 BIT(1), /* SAME AS CCAR0U1 */ 27200037 * 4 CCAR3U2 BIT(1), /* SAME AS CCAR0U2 */ 27400037 * 4 CCAR3WR BIT(1), /* SAME AS CCAR0WR */ 27600037 * 4 CCAR3PA BIT(1), /* SAME AS CCAROPA */ 27800037 * 4 * BIT(2), /* RESERVED */ 28000037 * 4 CCAR3UPD BIT(1), /* SAME AS CCAR0UPD */ 28200037 * 3 CCAR3RPL PTR(8), /* SAME AS CCAR0RPL */ 28400037 * 3 * CHAR(2), /* RESERVED */ 28600037 * 3 CCAR3REC PTR(31), /* SAME AS CCAR0REC */ 28800037 * 3 CCAR3SEG, /* SAME AS CCAR0SEG */ 29000037 * 4 CCACPE23 PTR(31), /* SAME AS CCACPE20 */ 29200037 * 4 CCACPE33 PTR(31), /* SAME AS CCACPE30 */ 29400037 * 4 CCACPE43 PTR(31), /* SAME AS CCACPE40 */ 29600037 2 CCARAB4, /* RECORD AREA BLOCK 4 */ 29800037 3 CCAR4FLG PTR(8), /* FLAGS */ 30000037 4 CCAR4UR BIT(1), /* SAME AS CCAR0UR */ 30200037 4 CCAR4U1 BIT(1), /* SAME AS CCAR0U1 */ 30400037 4 CCAR4U2 BIT(1), /* SAME AS CCAR0U2 */ 30600037 4 CCAR4WR BIT(1), /* SAME AS CCAR0WR */ 30800037 * 4 CCAR4PA BIT(1), /* SAME AS CCAROPA */ 31000037 * 4 * BIT(2), /* RESERVED */ 31200037 4 CCAR4UPD BIT(1), /* SAME AS CCAR0UPD */ 31400037 3 CCAR4RPL PTR(8), /* SAME AS CCAR0RPL */ 31600037 3 * CHAR(2), /* RESERVED */ 31800037 3 CCAR4REC PTR(31), /* SAME AS CCAR0REC */ 32000037 3 CCAR4SEG, /* SAME AS CCAR0SEG */ 32200037 4 CCACPE24 PTR(31), /* SAME AS CCACPE20 */ 32400037 4 CCACPE34 PTR(31), /* SAME AS CCACPE30 */ 32600037 4 CCACPE44 PTR(31), /* SAME AS CCACPE40 */ 32800037 2 CCARAB5, /* RECORD AREA BLOCK 5 */ 33000037 3 CCAR5FLG PTR(8), /* FLAGS */ 33200037 4 CCAR5UR BIT(1), /* SAME AS CCAR0UR */ 33400037 4 CCAR5U1 BIT(1), /* SAME AS CCAR0U1 */ 33600037 4 CCAR5U2 BIT(1), /* SAME AS CCAR0U2 */ 33800037 4 CCAR5WR BIT(1), /* SAME AS CCAR0WR */ 34000037 * 4 CCAR5PA BIT(1), /* SAME AS CCAROPA */ 34200037 * 4 * BIT(2), /* RESERVED */ 34400037 4 CCAR5UPD BIT(1), /* SAME AS CCAR0UPD */ 34600037 3 CCAR5RPL PTR(8), /* SAME AS CCAR0RPL */ 34800037 3 * CHAR(2), /* RESERVED */ 35000037 3 CCAR5REC PTR(31), /* SAME AS CCAR0REC */ 35200037 3 CCAR5SEG, /* SAME AS CCAR0SEG */ 35400037 4 CCACPE25 PTR(31), /* SAME AS CCACPE20 */ 35600037 4 CCACPE35 PTR(31), /* SAME AS CCACPE30 */ 35800037 4 CCACPE45 PTR(31), /* SAME AS CCACPE40 */ 36000037 2 CCARPLK PTR(8), /* ASSIGNED RPL COUNT */ 36200037 2 CCARPLF PTR(8), /* INDEX TO FOUND RPL */ 36400037 2 CCARPLX PTR(8), /* WORK BYTE FOR SUBFUNCTION */ 36600037 /* IGGPRPLM */ 36650037 2 CCARPLT PTR(8), /* WORK BYTE FOR SUBFUNCTION */ 36800037 /* IGGPRPLM */ 36850037 2 CCATIQRN CHAR(6), /* TIOT ENQ MINOR NAME @Y30SSPJ*/ 37200037 3 CCATASID CHAR(2), /* ASID @Y30SSPJ*/ 37210037 3 CCATQDB PTR(31)BDY(BYTE),/* QDB ADDRESS @Y30SSPJ*/ 37220037 2 CCASC PTR(8), /* SEARCH CODE Y02020*/ 37250037 2 CCAQLEN PTR(8), /* QUALIFIER LENGTH | 0 Y02020*/ 37300037 2 CCARPL1 PTR(31), /* PTR TO RPL IN USE */ 37400037 * 2 CCADESA CHAR(44), /* DADSM EXTENTS SAVEAREA */ 37600037 * 3 CCANDEXT PTR(8), /* COUNT OF EXTENTS */ 37800037 * 3 CCAIXEXT PTR(8), /* EXTENT INDEX VALUE */ 38000037 * 3 CCASSVOL FIXED(15) BDY(BYTE), /* DATA SET DIR SEQ. NO. */ 38200037 * 3 CCAEXTDE(5) CHAR(8), /* EXTENT DESCRIPTORS */ 38400037 * 4 CCAEXTSS CHAR(2), /* DESCRIPTOR SPACE SEQ. NO. */ 38600037 * 4 CCAEXTAD CHAR(4), /* EXTENT STARTING CCHH */ 38800037 * 5 CCAEXTCC FIXED(15) BDY(BYTE), /* STARTING CYLINDER */ 39000037 5 CCAEXTHH FIXED(15) BDY(BYTE), /* STARTING TRACK */ 39200037 * 4 CCAEXTTH FIXED(15) BDY(BYTE), /* NO. TRACKS IN EXTENT */ 39400037 * 2 CCAASCIK PTR(8), /* COUNT OF CI'S REQD */ 39800037 * 2 CCACRRP PTR(8), /* RPL USED TO READ CCR */ 40000037 * 2 CCAASCIX PTR(8), /* ASSIGNED CI ARRAY INDEX */ 40200037 * 2 CCAASCI(3) PTR(24) BDY(BYTE), /* ASSIGNED CI NUMBERS */ 40400037 * 2 CCAEQDQ CHAR(16) BDY(WORD), /* ENQ/DEQ PARAMETER LIST */ 40600037 * 3 CCAEDXFF PTR(8), /* END OF PL IND BYTE - X'FF' */ 40800037 * 3 CCAEDRLN PTR(8), /* LENGTH OF MINOR NAME */ 41000037 * 3 CCAEDOPT PTR(8), /* ENQ-DEQ OPTIONS */ 41200037 * 4 CCAEDSHR BIT(1), /* 1=SHARED, 0=EXCLUSIVE */ 41400037 * 4 * BIT(7), /* OTHER OPT. (SET BY MACRO) */ 41600037 * 3 CCAEDRCD PTR(8), /* ENQ/DEQ RETURN CODE */ 41800037 * 3 CCAEDQNM PTR(31), /* MAJOR NAME PTR */ 42000037 * 3 CCAEDRNM PTR(31), /* MINOR NAME PTR */ 42200037 * 3 CCAEDUCB PTR(31), /* UCB PTR */ 42400037 * 2 CCAMLRET PTR(31), /* MAIN LINE RTN SAVE AREA PTR */ 42600037 2 CCAMSSPL CHAR(12) BDY(WORD), /* STORAGE MGMT WORKAREA */ 42800037 3 CCAMNLLP PTR(31), /* LENGTH OF LIST POINTER Y02020*/ 43000037 * 3 CCAMNPTR PTR(31), /* ADDRESS OF RETURN ADDRESS */ 43200037 3 * FIXED(8), /* STORAGE MANAGEMENT BYTE */ 43400037 3 CCAMNSPL FIXED(8), /* REQUIRED SUBPOOL */ 43600037 3 * FIXED(15), /* STORAGE MANAGEMENT AREA */ 43800037 * 2 CCARPRM CHAR(4), /* RETURN PARMS */ 44000037 * 2 CCACMS CHAR(8) BDY(WORD), /* CMS AREA */ 44800037 * 3 CCACMSWA PTR(31), /* PTR TO CMS WORK AREA */ 45000037 * 3 CCAEXCMS PTR(31), /* SECONDARY CMS WORK AREA ADDR */ 45200037 * 2 CCALUME CHAR(0), /* START OF FIELD MGMT WORK AREA */ 45850037 * /* AND INTERFACE VARIABLES FOR */ 45900037 * /* LOCATE, UPDATE, MODIFY, AND */ 45950037 * /* EXTRACT ROUTINES */ 45960037 * 2 CCACPE5 PTR(31), /* ADDR OF OCCURRENCE PTR */ 46000037 * 2 CCACPE51 PTR(31), /* ALTERNATE PTR TO GOP */ 46200037 * 2 CCACPE52 PTR(31), /* ALT GOP PTR */ 46400037 * 2 CCACPE53 PTR(31), /* ALT GOP PTR */ 46600037 * 2 CCACPE6 PTR(31), /* ADDR OF OCCURRENCE */ 46800037 * 2 CCACPE61 PTR(31), /* ALT PTR TO OCCURRENCE */ 47000037 * 3 CCARABSE PTR(31), /* SAVE EXTRACT CALLER URAB */ 47050037 * 2 CCACPE7 PTR(31), /* ADDR OF FIELD VALUE */ 47200037 * 3 CCAIDPT PTR(31), /* INSERT DATA ADDR */ 47400037 * 2 CCACPE71 PTR(31), /* ALT PTR TO FIELD VALUE */ 47600037 * 2 CCAGOPLN FIXED(15), /* GROUP OCCURRENCE PTR LENGTH */ 47800037 * 2 CCASL FIXED(15), /* SEQUENCE NUMBER LENGTH */ 48000037 * 2 CCAILNG PTR(31), /* INSERT LENGTH */ 48200037 * 2 CCAFLPT PTR(31), /* FIELD LIST POINTER */ 48400037 * 3 CCATFLPT PTR(31), /* FIELD LIST PTR FOR TESTS */ 48600037 * 2 CCARABPT PTR(31), /* RAB PTR */ 48800037 * 2 CCADICT CHAR(4), /* DICTIONARY INFO */ 49000037 * 2 CCAXCPL PTR(31), /* EXTRACT CPL PTR */ 49200037 * 3 CCAMCPL PTR(31), /* MODIFY CPL PTR */ 49400037 * 2 CCARABB PTR(31), /* BASE RAB PTR */ 49600037 * 2 CCARABF PTR(31), /* FIRST RAB PTR */ 49800037 * 2 CCARABL PTR(31), /* LAST RAB PTR */ 50000037 * 2 CCACBASE CHAR(3), /* BASE CI NUMBER */ 50200037 * 2 CCAGC PTR(8), /* GROUP CODE */ 50400037 * 2 CCALREL FIXED(15), /* LOGICAL RELREPNO */ 50600037 * 3 CCALREL1 CHAR(2), /* LOGICAL RELREPNO */ 50800037 * 2 CCASN FIXED(15), /* SEQUENCE NO. */ 51000037 * 3 CCASN1 CHAR(2), /* SEQUENCE NO. */ 51200037 * 2 CCAUSKEY BIT(8), /* USER KEY @ZA29164*/ 51400037 * 2 CCAMSFLG BIT(8), /* MISC. FLAGS @ZA29164*/ 51430037 * 3 CCACICIN BIT(1), /* INTEGRITY CHECK INCOMPLETE 51460037 * @ZA29164*/ 51490037 * 3 CCACPLOK BIT(1), /* CPL IS VALID @ZA29164*/ 51520037 * 3 CCASKYSS BIT(1), /* CALLER HAS SYSTEM KEY OR IS IN 51526037 * SUPERVISOR STATE @ZA29164*/ 51532037 * 3 CCAGDGUY BIT(1), /* AUTHORIZED CALLER @ZA29164*/ 51540037 * 3 * BIT(4), /* RESERVED @ZA29164*/ 51560037 * 2 CCAIXFPL FIXED(15), /* FIELD ARRAY INDEX */ 51600037 * 2 CCAIXREL FIXED(15), /* INDEX RELREPNO */ 51800037 * 2 CCATNREL FIXED(15), /* NEXT RELREPNO */ 52000037 * 2 CCATNUM FIXED(15), /* NO. OF SUCCESSFUL RELREPNOS */ 52200037 * 2 CCATREL(16) FIXED(15), /* SUCCESSFUL REL REPNOS */ 52400037 * 2 CCATNO FIXED(15), /* TOTAL NO. SUCCESSFUL RELREPNOS*/ 52600037 * 2 CCATEST PTR(31), /* TEST FIELD PTR */ 53000037 * 2 CCARBA CHAR(20), /* EXTENT HOLDER FIELD */ 53200037 * 3 CCACRAVL BDY(BYTE), /* CRA VOLSER @Y30SSRS*/ 53220037 * 4 CCASS FIXED(15) BDY(BYTE), /* SPACE DESCRIPTOR @Y30SSRS*/ 53400037 * /* SEQUENCE NO. @Y30SSRS*/ 53402037 * 4 CCACCHH1 CHAR(4), /* CCHH-LOW @Y30SSRS*/ 53410037 * 3 CCACRADT BDY(BYTE), /* CRA DEVICE TYPE @Y30SSRS*/ 53840037 * 4 CCACCHH2 CHAR(4), /* CCHH-HIGH @Y30SSRS*/ 53890037 * 3 CCATT FIXED(15) BDY(BYTE), /* TT-NO. TRACKS */ 54000037 * 3 CCARBA1 CHAR(4), /* RBA-LOW */ 54200037 * 3 CCARBA2 CHAR(4), /* RBA-HIGH */ 54400037 * 2 CCATLNG FIXED(15), /* TESTED EXTENT LENGTH */ 54600037 * 3 CCATLEN FIXED(15), /* MODIFIED VAR LENGTH */ 54800037 * 2 CCARBAL FIXED(15), /* RBA EXTENT BALANCE */ 55000037 * 2 CCACNIX FIXED(15), /* COMBINATION NAME INDEX */ 55200037 * 2 CCASMFIX FIXED(15), /* DEFINE CATALOG SMF INDEX */ 55400037 * 2 CCAIDPT2 PTR(31), /* AVAILABLE SPACE IN WORK AREA */ 55600037 * 2 CCAIDPT3 PTR(31), /* INCOMPLETE VAR FIELDS */ 55800037 * 3 CCARABSM PTR(31), /* SAVE MODIFY CALLER URAB */ 55850037 * 2 CCAGVCT FIXED(15), /* COUNTER */ 56000037 * 2 CCANEVV CHAR(2), /* NON-EXISTENT VARIABLE */ 56200037 * /* VALUE LENGTH */ 56400037 * 2 CCAGVEXT CHAR(3), /* EXTENSION RCD POINTER */ 56600037 * 2 CCANEFV CHAR(1), /* NON-EXISTENT FIXED VALUE */ 56800037 * 2 CCASAVID CHAR(1), /* SAVE RECORD ID @ZA24944*/ 57200037 * 2 CCAGRGC BIT(8), /* GROUP CODE */ 57400037 * 3 CCARCDID CHAR(1), /* RECORD ID @Y30SSRS*/ 57420037 * 2 CCAGRHI FIXED(15), /* HIGH RELREPNO @Y30SSRS*/ 57680037 * 3 CCASSEQ FIXED(15), /* SAVE SEQ. NO. @Y30SSRS*/ 57900037 * 4 CCAGRHI1 CHAR(2), /* HIGH RELREPNO @Y30SSRS*/ 57920037 * 2 CCAIXTPL FIXED(15), /* INDEX TO TEST FPL */ 58000037 * 2 CCADLEN FIXED(15), /* MODIFY DELETE LENGTH */ 58200037 * 2 CCADIFF FIXED(15), /* SPACE DIFFERENCE */ 58400037 * 2 CCAREPCT FIXED(15), /* RELREPNO COUNT */ 58600037 * 2 CCADISP FIXED(15), /* DISPLACEMENT INTO VAR FIELD */ 58800037 * 2 CCASVCI CHAR(3), /* SAVE CI OF BASE */ 59000037 * 2 CCASVCI1 CHAR(3), /* SAVE SPACE CI */ 59200037 * 2 CCADTA PTR(31), /* DICTIONARY PTR */ 59400037 * 2 CCACDTA PTR(31), /* INDEX COMBO TABLE PTR */ 59600037 * 2 CCADTCT FIXED(15), /* COUNT DICT ENTRIES */ 59800037 * 2 CCACDTCT FIXED(15), /* COUNT INDEX COMB TABLE */ 60000037 * 2 CCACWAP PTR(31), /* CONTROLLER WORK AREA */ 60200037 * 2 CCASDWAP PTR(31), /* POINTER TO SDWA Y02020*/ 60400037 * 2 CCAILNG3 FIXED(31), /* MODIFY LENGTH */ 60600037 * 2 CCAILNG2 FIXED(31), /* MODIFY LENGTH */ 60800037 * 2 CCAALPTR PTR(31), /* SPACE MNGMT SUB-FUNCTION WA */ 61000037 2 CCASMFPT PTR(31), /* SMF DATA PTR */ 61200037 2 CCALCPL PTR(31), /* LSPACE CPL PTR - INTERNAL CALL*/ 61400037 2 CCAFLG7 PTR(8), /* FLAGS */ 61800037 3 CCALSP BIT(1), /* LSPACE INTERNAL CALL */ 62000037 3 CCASMFEX BIT(1), /* SMF EXIT INDICATOR */ 62200037 3 CCASMFA BIT(1), /* DO SMF IN MODIFY */ 62400037 3 CCASMFBR BIT(1), /* DO GET FOR BASE RECORD */ 62600037 3 CCAONCE BIT(1), /* MOVE ONLY ONE OCCURRENCE */ 62800037 3 CCAROREQ BIT(1), /* READ-ONLY REQUEST */ 63000037 3 CCAFEOV BIT(1), /* FORCE EOV */ 63050037 3 CCACRABU BIT(1), /* CRA BEING BUILT @Y30SSPJ*/ 63070037 2 CCAFLG8 BIT(8), /* FLAGS @Y30SSPJ*/ 63090037 3 CCADSRCL BIT(1), /* DEFINE SPACE @Y30SSPJ*/ 63110037 /* RECURSIVE CALL @Y30SSPJ*/ 63130037 3 CCAVBUFI BIT(1), /* VOL RECORDS BUFFERED @Y30SSPJ*/ 63150037 3 CCASCRA BIT(1), /* SUPPRESS CRA UPDATES @Y30SSPJ*/ 63170037 3 CCASCICK BIT(1), /* SUPPRESS CRA CI CHECK @Y30SSSB*/ 63370037 3 CCALPIND BIT(1), /* LOOP CONTROL IN BUFFER */ 63372037 /* SCAN FOR GETS @Y30SSSB*/ 63374037 3 CCAVRIND BIT(1), /* VOLUME RECORD BUFFER CHAIN */ 63376037 /* TO BE CHECKED @Y30SSSB*/ 63378037 3 CCALEOD BIT(1), /* EOF ON LOW KEYS @Y30SSSB*/ 63380037 3 CCAAUCAT BIT(1), /* VOLUME HAS UCAT @Y30LSPS*/ 63390037 2 CCAFLG9 BIT(8), /* FLAGS @Y30SSSB*/ 63450037 3 CCARABYC BIT(1), /* BYPASS CAT I/O @Y30SSSB*/ 63500037 3 CCARAEOV BIT(1), /* CRA EOV @Y30SSSB*/ 63550037 3 CCARALRD BIT(1), /* CRA CCR HAS BEEN READ @Y30SSSB*/ 63560037 3 CCARACR BIT(1), /* CRA CCR CHK PT REQD @Y30SSSB*/ 63580037 3 CCAUCRA BIT(1), /* USE UCRA TRANS TAB @Y30SSSB*/ 63592037 3 CCARAACT BIT(1), /* CRA ACTIVE @Y30SSSB*/ 63594037 3 CCARAICI BIT(1), /* INHIBIT CAT I/O @Y30SSSB*/ 63596037 3 CCARESUM BIT(1), /* ON = REPLACE SUM,ELSE @Y30SSSB*/ 63598037 /* OFF = INCREMENT SUM @Y30SSSB*/ 63598437 2 CCANORBA PTR(8), /* NO. OF RBA'S THAT ARE */ 63598837 /* NEEDED IN CB STRT @Y30SSSB*/ 63599237 2 CCASMFRD PTR(31), /* SMF RECORD POINTER */ 63600037 2 CCASMFCT FIXED(15), /* COUNT OF SMF RECORDS */ 63800037 2 CCASMFLG BIT(16), /* SMF RECORD FLAGS */ 64000037 3 CCASMFG1 BIT(8), /* SMF FLAGS */ 64200037 4 CCASMFUC BIT(1), /* UNCATALOG - SMF RCD 67 */ 64400037 /* (ALWAYS SET ON) */ 64600037 5 CCASMFDF BIT(1), /* DEFINE - SMF RCD 63 */ 64800037 4 CCASMFSR BIT(1), /* SCRATCH - SMF RCD 67. SET ON */ 65000037 /* ONLY IF RECORD ID IS D, I OR A*/ 65200037 5 CCASMFAL BIT(1), /* ALTER - SMF RCD 63 */ 65600037 4 * BIT(6), /* RESERVED */ 65800037 3 CCASMFG2 BIT(8), /* SMF FLAGS */ 66000037 2 CCASMFLN FIXED(15), /* SMF RECORD LENGTH */ 66200037 2 CCACHAIN CHAR(3), /* CHAIN CI NO. - START OF VOLUME*/ 66400037 /* ENTRY TRANSLATION WORKAREA */ 66420037 2 CCACI1 CHAR(3), /* SAVE CI AREA */ 66600037 2 CCACI2 CHAR(3), /* SAVE CI AREA */ 66800037 2 CCACI3 CHAR(3), /* SAVE CI AREA */ 67000037 2 CCAVARLN FIXED(15), /* INSERT LENGTH */ 67200037 2 CCARRAB PTR(31), /* RELATIVE BASE RAB ADDR */ 67400037 2 CCARBASE PTR(31), /* RELATIVE BASE RAB ADDR */ 67600037 2 CCAVARPT PTR(31), /* POINTER TO INSERT INFO */ 67800037 2 CCADELN FIXED(15), /* DELETE LENGTH */ 68000037 2 CCAVAR CHAR(20), /* INSERT INFO SAVE AREA */ 68200037 2 CCAVAR1 CHAR(20), /* INSERT INFO SAVE AREA */ 68400037 2 CCADEL1 CHAR(3), /* START DELETE CI */ 68600037 2 CCADEL2 CHAR(3), /* END DELETE CI */ 68800037 2 CCAXLATE CHAR(40), /* TRANSLATION WORK AREA */ 68850037 2 CCAR14S PTR(31), /* CLC9 REG 14 SAVE AREA */ 68900037 2 CCABMINP, /* INPUT PARAMETERS */ 68910037 3 CCABMTRK FIXED(15), /* STARTING TRACK */ 68950037 3 CCABMLIM FIXED(15), /* CHECK LIMIT, NN FOR SET */ 68960037 3 CCABMMIN FIXED(15), /* COND CHECK MINIMUM */ 68970037 3 CCABMFLG BIT(8), /* STATE AND FUNCTION CODE */ 68980037 4 CCABMST BIT(1), /* STATE TO SET/COND. CHECK */ 68990037 4 CCABMCHK BIT(1), /* ON = PERFORM CHECK */ 68992037 4 CCABMSET BIT(1), /* ON = PERFORM SET */ 68994037 4 CCABMCCK BIT(1), /* ON = PERFORM COND. CHECK */ 68996037 4 CCABMLST BIT(1), /* ON = LAST SET REQ (WRITE) */ 68998037 3 * PTR(8), /* RESERVED */ 68998437 2 CCABMOUT, /* OUTPUT PARAMETERS */ 68998837 3 CCABMONN FIXED(15), /* TRK NUMBER (CK/COND.CK) */ 68999237 3 CCABMOTR FIXED(15), /* STARTING TRK(COND.CHK.) */ 68999637 3 CCABMOFG BIT(8), /* OUTPUT FLAGS */ 68999737 4 CCABMOST BIT(1), /* STATE OF BITS (CHECK) */ 68999837 2 * CHAR(2), /* RESERVED */ 68999937 2 CCABMPAD CHAR(1), /* PADDING CHARACTER */ 69016637 2 CCABMGOP PTR(31), /* CURRENT BIT MASK GOP */ 69026637 2 CCABMPTR PTR(31), /* CURRENT BIT MASK BYTE */ 69028637 2 CCABMEND PTR(31), /* END OF CURRENT BIT MASK */ 69030637 2 CCABMBT1 FIXED(15), /* BIT COUNT - FIRST BYTE */ 69032637 2 CCABMBTL FIXED(15), /* BIT COUNT - LAST BYTE */ 69033037 2 CCABMBYT FIXED(15), /* NUMBER OF FULL BYTES */ 69033137 2 CCABMSTR FIXED(15), /* CURRENT BIT MASK START TRACK */ 69033237 2 CCABMWK1 PTR(31), /* WORK FIELD */ 69038837 2 CCABMWK2 PTR(31), /* WORK FIELD */ 69040837 2 CCABMWK3 PTR(31), /* WORK FIELD */ 69042837 2 CCABMWK4 PTR(31), /* WORK FIELD */ 69043237 2 CCABMRB1 PTR(31), /* FIRST BIT MAP RAB PTR */ 69043637 2 CCABMRB2 PTR(31), /* SECOND RAB POINTER */ 69044037 2 CCATEMPS CHAR(40), /* PL/S TEMP AREA */ 69044437 2 CCAMNCAT CHAR(256) BDY(WORD),/* CONTIGUOUS AREA FOR 69046437 TRACKING Y02020*/ 69048802 3 CCAMNAT CHAR(248) BDY(WORD),/* TRACKING BUFFER Y02020*/ 69049237 4 MNATTOP BIT(8), /* TOP ENTRY - 1ST BYTE Y02020*/ 69049737 5 MNATFULL BIT(1), /* BUFFER FULL Y02020*/ 69049837 5 * BIT(7), /* RESERVED Y02020*/ 69049937 4 * CHAR(239), /* BODY OF BUFFER Y02020*/ 69076637 4 MNATFLGS BIT(8), /* MOST RECENT ENTRY-1ST BYTE 69078637 Y02020*/ 69079002 5 MNATVAL BIT(1), /* VALID ENTRY BIT Y02020*/ 69080637 5 * BIT(2), /* RESERVED @ZA29164*/ 69082637 5 MNATFCLS BIT(1), /* CLASS 'F' CORE IF OFF @ZA29164*/ 69082737 5 * BIT(3), /* RESERVED @ZA29164*/ 69082837 5 MNATSCLS BIT(1), /* CLASS 'S' CORE Y02020*/ 69083037 4 MNATARG1 PTR(24) BDY(BYTE),/* REMAINDER OF 1ST WD 69083137 Y02020*/ 69085302 4 MNATARG2 PTR(32), /* MOST RECENT ENTRY-2ND WD 69088837 Y02020*/ 69089202 3 CCAMNLL PTR(8), /* G/F MAIN LEN LIST-EOL BYTE 69090837 Y02020*/ 69091202 3 CCAMNLEN PTR(24) BDY(BYTE),/* G/F MAIN LENGTH Y02020*/ 69092837 3 CCAMNADR PTR(31), /* G/F MAIN ADDRESS Y02020*/ 69093237 2 CCAARFWA CHAR(16) BDY(WORD),/* SPILL RTN WORK AREA Y02020*/ 69093637 3 ARFGMLEN PTR(31), /* LEN LIST FOR GETMAIN Y02020*/ 69094037 4 ARFGMLP PTR(8), /* END-OF-LIST BYTE Y02020*/ 69094237 4 ARFLEN PTR(24) BDY(BYTE),/* LENGTH Y02020*/ 69094337 3 ARFGMADR PTR(31), /* ADDRESS FOR GETMAIN Y02020*/ 69094437 3 ARFSBSCH PTR(31), /* PTR TO 1ST SPILL BLOCK Y02020*/ 69108237 3 ARFSBECH PTR(31), /* PTR TO LAST SPILL BLOCK Y02020*/ 69118237 2 CCARVFG1 BIT(8), /* RECOVERY FLAGS Y02020*/ 69120237 3 RVCCAV BIT(1), /* CCA VALID Y02020*/ 69120637 3 RVARFI BIT(1), /* TRACKING DATA INCOMPLETE 69121037 Y02020*/ 69121102 3 RVCMSFG BIT(1), /* CMS FUNCTION GATE Y02020*/ 69121437 3 RVESBO BIT(1), /* ESTAE BACKOUT IN CONTROL 69121837 Y02020*/ 69121902 3 RVESBOR BIT(1), /* ESTAE BACKOUT REGISTER Y02020*/ 69122037 3 * BIT(3), /* RESERVED Y02020*/ 69127737 2 * CHAR(2), /* RESERVED Y02020*/ 69130537 2 CCAFLG11 BIT(8), /* @ZA30975*/ 69130837 3 * BIT(4), /* RESERVED @ZA30975*/ 69131137 3 CCAF11B5 BIT(1), /* B5 AND B6 ON - NO CATLG PASSWORD 69131437 @ZA30975*/ 69131737 3 CCAF11B6 BIT(1), /* B5 AND B6 EQUAL TO 01, NO UPDATE 69132037 PASSWORD, EQUAL TO 10, THERE IS UPDATE PW @ZA30975*/ 69132337 3 * BIT(2), /* RESERVED @ZA30975*/ 69132637 2 CCAREGS CHAR(348), /* REGISTER SAVE AREA Y02020*/ 69133337 3 * CHAR(4), /* USER SAVE AREA ADDR Y02020*/ 69136137 3 CCAMODNM CHAR(8), /* LOAD MODULE NAME @Y30SSSB*/ 69150037 2 CCABZSAV PTR(31), /* SAVE AREA FOR CLBZ @Y30SSSB*/ 69160037 3 CCADSPWA PTR(31), /* DEF SPACE W.A. PTR @Y30SSDW*/ 69170037 2 CCACUMPL PTR(31), /* CATLG UPGRADE MGMNT @Y30SSPJ*/ 69171037 /* PARM LIST PTR @Y30SSPJ*/ 69172037 2 CCATNQCT PTR(8), /* TIOT ENQ COUNT @Y30SSPJ*/ 69173037 2 CCASBASE PTR(24), /* SAVE BASE CI @Y30SSPJ*/ 69174037 /* FOR UPGD PROCESS @Y30SSPJ*/ 69175037 2 CCACRACI PTR(31), /* CRA REC PTR ARRAY AD @Y30SSSB*/ 69176037 2 CCARAACB PTR(31), /* CRA ACB ADDRESS @Y30SSSB*/ 69177037 2 CCARARPL PTR(31), /* CRA RPL ADDRESS @Y30SSSB*/ 69178037 2 CCARARBA PTR(31), /* CRA RBA @Y30SSSB*/ 69200537 2 CCARAREC PTR(31), /* RECORD POINTER @Y30SSSB*/ 69201037 2 CCARALSA PTR(31), /* CRA LOCAL SAVE AREA @Y30SSSB*/ 69201537 3 CCACRABT FIXED(15), /* BLOCKS/TRACK FOR CRA RECORD 69201937 CONSTRUCTION (CLB4) @Y30SSDW*/ 69203937 3 * CHAR(2), /* RESERVED @Y30SSDW*/ 69204337 2 CCAFLG10 BIT(8), /* FLAG BYTE @Y30SSSB*/ 69209237 3 CCAINCPL BIT(1), /* INVALID CPL, VAL CK @Y30SSSB*/ 69211637 3 CCAPDMW BIT(1), /* PROB DET MSG PUT @Y30SSSB*/ 69214037 3 CCACATAC BIT(1), /* CAT ACTIVE, CRA @Y30SSSB*/ 69216437 3 CCARAFEV BIT(1), /* CRA FORCED EOV CH @Y30SSSB*/ 69218837 3 CCARARTC BIT(1), /* RECOVERY EXIT, RETURN TO */ 69221237 /* CALLER @Y30SSSB*/ 69223637 3 CCAPRANX BIT(1), /* PRIME CRA GONE @Y30SSRG*/ 69225637 3 CCADEFUN BIT(1), /* DEFINE UNIQUE SAVE @ZA27024*/ 69226037 3 * BIT(1), /* RESERVED @ZA27024*/ 69226837 2 CCASUMTT PTR(24) BDY(BYTE), /* CRA SUM TT VALUE @Y30SSSB*/ 69228437 2 CCADICTS CHAR(4), /* DATA/INDEX ID TS @Y30SSSB*/ 69230837 2 CCARANCA (2) PTR(31), /* NORMAL RECORD BUFFER CHAIN */ 69233237 /* START, END ADDRS @Y30SSSB*/ 69235637 2 CCARAVCA (2) PTR(31), /* VOLUME RECORD BUFFER CHAIN */ 69238037 /* START, END ADDRS @Y30SSSB*/ 69240437 2 CCAVTS CHAR(8), /* VOLUME TIMESTAMP @Y30SSSB*/ 69242837 2 CCAREWKA PTR(31), /* REUSE WORKAREA ADDR @Y30SSSB*/ 69245237 * 2 CCASMFP, /* SMF SAVE AREA @Y30SSSB*/ 69247637 /* FOR PROB DETER @Y30SSSB*/ 69250037 3 CCASMFMD CHAR(2), /* MODULE ID @Y30SSSB*/ 69252437 3 CCASMFRC CHAR(1), /* REASON CODE @Y30SSSB*/ 69254837 3 CCASMFCD CHAR(1), /* RETURN CODE @Y30SSSB*/ 69257237 * 2 CCAPROBX FIXED(31), /* AUXILLARY SAVE AREA @Y30SSSB*/ 69259637 /* FOR CCAPROB @Y30SSSB*/ 69261637 * 3 CCAMODDX CHAR(2), /* ERROR MODULE ID @Y30SSSB*/ 69262037 3 CCAERCDX FIXED(15) BDY(BYTE), /* ERROR CODES @Y30SSSB*/ 69264437 4 CCARESNX CHAR(1), /* REASON CODE @Y30SSSB*/ 69266837 4 CCARETRX CHAR(1), /* RETURN CODE @Y30SSSB*/ 69269237 * 2 CCADGDGA PTR(31), /* DEL FULL GDG WA @Y30SSSB*/ 69271637 3 CCASAVMN PTR(31), /* SAVE GOTTEN CORE ADDR @ZA27024*/ 69292937 * 2 CCAOCPL PTR(31), /* ORIGINAL CPL ADDRESS @ZA29164*/ 69325537 * 2 * CHAR(40), /* RESERVED @ZA29164*/ 69335537 2 CCAEND CHAR(0); /* END CCA - MUST END ON */ 69385537 /* FULLWORD BOUNDARY @Y30SSSB*/ 69435537 /* FULLWORD BOUNDARY @Y30SSSB*/ 69485537