/********************************************************************/ 01000038 /* */ 01020038 /* MACRO NAME = IGGMCMWA */ 01040038 /* */ 01060038 /* DESCRIPTIVE NAME = VSAM CATALOG MANAGEMENT SERVICES WORK AREAS */ 01080038 /* */ 01100038 /* FUNCTION = CONTAINS MAPPING STRUCTURES FOR THE CMS EXTENSION */ 01120038 /* WORK AREA, THE CMS DELETE WORK AREA, THE CMS */ 01140038 /* DELETE-ERASE WORK AREA, THE ENQUEUE PARAMETER */ 01160038 /* LIST, AND THE CATALOG UPGRADE MANAGEMENT PARAMETER */ 01180038 /* LIST AND ASSOCIATED WORK AREA. */ 01200038 /* */ 01220038 /* CONTROL BLOCK STRUCTURE = THE CMSWA AND THE DELWKA ARE POINTED */ 01240038 /* TO BY THE CCA (CCACMSWA). THE */ 01260038 /* CUMPLWA IS ALSO POINTED TO BY THE */ 01280038 /* CCA (CCACUMPL). */ 01300038 /* */ 01320038 /* INCLUDED MACROS = NONE */ 01340038 /* */ 01360038 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 01380038 /* */ 01400038 /* CREATED BY: CORE OBTAINED AND FREED BY IGG0CLAT (IGGPCDVR) */ 01420038 /* */ 01440038 /* STATUS = VS/2 RELEASE 4 (CHANGE FLAG @Z40RSXX) @Z40RSRC*/ 01460038 /* */ 01500038 /* DATE OF LAST CHANGE = 23 FEB 78 @ZA30382*/ 01650032 /* */ 01660032 /* A 871322,871324 @ZA30382*/ 01670032 /* */ 01700038 /********************************************************************/ 01800038 /********************************************************************/ 06000038 /* DECLARATION OF BASE REGISTER FOR DEFINE SIZE PARAMETER TABLE MAP */ 06500038 /********************************************************************/ 06700038 DECLARE DCWABASE REG(4) PTR(31); /* ADDR OF DEVICE CHARACTERISTICS 07500038 AND WORKAREA ARRAY ELEMENT */ 08000038 /********************************************************************/ 08500038 /* DECLARATION OF DEFINE SIZE PARAMETER TABLE MAP */ 09000038 /********************************************************************/ 09100038 DECLARE 09200038 1 DSPTBL BASED(DCWABASE), /* DEFINE SIZE PARAMETER TABLE */ 09500038 2 DSDEVCHA CHAR(20), /* DEVICE CHARACTERISTICS AREA */ 10000038 2 DSMPHYBS FIXED(15), /* MAXIMUM ALLOWABLE PHYSICAL BLOCK 11000038 SIZE FOR THIS DEVICE TYPE */ 11500038 2 DSPHYBPT (4) FIXED(15), /* ARRAY OF PHYSICAL BLOCKS PER 12500038 TRACK FOR 512, 1024, 2048, AND 13000038 4096 BYTE BLOCKS RESPECTIVELY */ 13500038 2 DSNPHYBS FIXED(15); /* NUMBER OF ALLOWABLE PHYSICAL 14500038 BLOCK SIZES FOR THIS DEVICE */ 15000038 /********************************************************************/ 15500038 /* DECLARATION FOR THE CMS EXTENSION WORK AREA */ 16000038 /********************************************************************/ 16100038 DECLARE 16200038 1 CMSWA BASED(CCACMSWA), /* CMS EXTENSION WORKAREA */ 16500038 2 CMWFLAGS BIT(8), /* OPTION & PROCESS INDICATE */ 17000038 3 CMFGDLSC BIT(1), /* TEMP SECURITY DELETE */ 17500038 3 CMPROCM BIT(1), /* PROCESSING CONTROL - DSPC */ 18000038 3 CMPROC BIT(1), /* PROCESSING CONTROL - DSPC */ 18500038 3 CMSRACDL BIT(1), /* RAC-INDICATED DELETE @Z40RSTC*/ 18550038 3 CMSUALOC BIT(1), /* UNALLOC REQUIRED @Z40RSRC*/ 18600038 2 CMCISREQ PTR(8), /* CI'S ORIGINALLY OBTAINED */ 19000038 /* FOR DEFINE ONLY */ 19500038 2 CMCISUSE PTR(8), /* NO. OF CI'S PROCESSED */ 20000038 3 CMWRKATR BIT(8), /* AMDSB DATA ATTRIBUTES */ 20500038 4 CMAMDDST BIT(1), /* KEY, CHRONOLOGIC */ 21000038 4 CMAMDWCK BIT(1), /* WRITE CHECK */ 21500038 4 CMAMDSDT BIT(1), /* SEQUENCE SET WITH DATA */ 22000038 4 CMAMDRPL BIT(1), /* REPLICATION */ 22500038 4 CMAMDORD BIT(1), /* USE VOLUMES IN LIST ORDER */ 23000038 4 CMAMDRNG BIT(1), /* KEY RANGE DATA SET */ 23500038 2 CMWACI (3) PTR(24) BDY(BYTE), /* CI'S FOR DEFINE USAGE ONLY*/ 24000038 /* @Z40RSTC*/ 24050038 /* END OF NON-OVERLAID FIELDS IN CMS WORK AREA @Z40RSRC*/ 24498838 /* @Z40RSRC*/ 24499238 2 CMWFVTPT PTR(31), /* SECONDARY FVT BASE */ 24500038 2 CMASCFPL PTR(31), /* ADDRESS OF ASSOCIATION FPL */ 25000038 2 CMCPLFVT PTR(31), /* ADDRESS OF CALLER FVT-SAVED */ 25500038 3 CMEXTFLS PTR(31), /* EXTRACT CORE REFERENCE */ 26000038 2 CMNRMEXT PTR(31), /* ADDRESS OF NORMAL EXTENT LIST */ 26500038 3 CMLDTFPL PTR(31), /* LOW DATA FPL ADDRESS - DEFC */ 27000038 4 CMRNMLST PTR(31), /* RENAME PARAMETER LIST REFER */ 27500038 2 CMSSEXTS PTR(31), /* ADDRESS OF SS W/DATA EXT LIST */ 28000038 3 CMHDTFPL PTR(31), /* HIGH DATA FPL ADDRESS - DEFC */ 28500038 4 CMTSTFPL PTR(31), /* TEST FPL ADDRESS */ 29000038 2 CMCANVOL PTR(31), /* ADDRESS OF CANDIDATE VOL LIST */ 29500038 3 CMHIXFPL PTR(31), /* HIGH INDEX FPL ADDRESS - DEFC */ 30000038 4 CMDTAFPL PTR(31), /* DATA FPL ADDRESS */ 30500038 2 PROCESS CHAR(2), /* LOOP CONTROL CHARACTERS */ 31000038 2 SPACINDC CHAR(2), /* SPACE OBTAINED INDICATOR */ 31500038 2 CMRNGCTR FIXED(15), /* RELATIVE SEQUENCE NUMBER FOR */ 32000038 /* RANGE BEING PROCESSED */ 32500038 3 CMADDVOL FIXED(15), /* COUNT OF VOLS TO ADD - ALTER */ 33000038 2 CMVOLCTR FIXED(15), /* RELATIVE SEQUENCE NO. FOR VOL */ 33500038 /* ENTRY BEING PROCESSED */ 34000038 3 CMRMVVOL FIXED(15), /* REMOVE VOLUME COUNT - ALTER */ 34500038 2 CMSPCFVT PTR(31), /* REFERENCE TO A SPACE FVT */ 35000038 2 CMSDFSPC PTR(32), /* DEFINE - DEFINE SPACE FEEDBACK*/ 35500038 3 CMSWAFLG BIT(8), /* INTERFACE FLAGS - PASSED */ 36000038 3 CMSDEFCI PTR(24) BDY(BYTE), /* CI OF UNIQUE ENTRY - PASS */ 36500038 2 CMSCRAVI CHAR(6), /* CRA VOLID @Y30SSSG*/ 36550038 2 CMSCRADT CHAR(4), /* CRA DEVTYPE @Y30SSSG*/ 36600038 2 * CHAR(2), /* RESERVED @Y30SSSG*/ 36650038 2 CMVLLIST, /* SINGLE ENTRY VOLUME LIST */ 37000038 3 CMVLLTLN FIXED(15), /* LENGTH OF VOLUME LIST */ 37500038 3 CMVLRTCD FIXED(15), /* RETURN CODE FIELDS */ 38000038 4 CMVLRT1 PTR(8), /* NORMAL RETURN CODE */ 38500038 4 CMVLRT2 PTR(8), /* RESERVED */ 39000038 3 CMVLVOL CHAR(6), /* VOLUME SERIAL NUMBER */ 39500038 2 CMTOTVOL FIXED(15) BDY(BYTE), /* TOTAL NO. OF VOL SERS */ 40000038 2 CMSPCATR (2) CHAR(16) BDY(WORD), /* SPACE ATTRIBUTES */ 40500038 3 CMPHYBLK PTR(32), /* PHYSICAL BLOCK SIZE */ 41000038 3 CMSWADTY PTR(32), /* DEVICE TYPE */ 41500038 3 CMBLKTRK FIXED(15), /* BLOCKS PER TRACK */ 42000038 3 CMTRKPCA FIXED(15), /* TRACKS PER CONTROL AREA */ 42500038 3 CMTRKCYL FIXED(15), /* TRACKS PER CYLINDER */ 43000038 2 CMCNVLEN FIXED(15), /* SIZE OF CANDIDATE VOLUME LIST */ 43500038 2 CMCNVNO FIXED(15), /* NO. OF CANDIDATE VOLUMES */ 44000038 2 CMFPLIDX PTR(31), /* ADDRESS OF FPL INDEX */ 44500038 2 * CHAR(2), /* UNUSED - PRESERVE ALIGNMENT */ 45000038 2 WORKPROC CHAR(2), /* LOOP CONTROL - IGGPDEXD */ 45500038 2 CMEXTLST PTR(31), /* EXTENT LIST REFERENCE IN FPL */ 46000038 2 CMSRCCOR PTR(31), /* CATALOG DEFINE RECORD CORE PTR*/ 46500038 2 CMDEFSWA PTR(31), /* PTR TO DEFINE SPACE WORKAREA */ 47000038 2 CMWASTOR CHAR(8) BDY(WORD), /* TIME WORKAREA */ 47500038 3 CMPOT FIXED(31), /* WORKAREA - POWER-2 - DSPC */ 48000038 4 CMDCONV FIXED(31), /* VALUE TO CONVERT - DSPC */ 48500038 5 CMIXFANO FIXED(31), /* INDEX CI FANOUT - DSPC */ 49000038 6 CMWT FIXED(31), /* TIME WORKAREA */ 49500038 3 CMPOTX FIXED(31), /* WORKAREA - POWER-2 - DSPC */ 50000038 4 CMPBI FIXED(31), /* BLOCK SIZE INDEX - DSPC */ 50500038 5 CMIXFANS FIXED(31), /* SQUARE ROOT OF CMIXFANO */ 51000038 6 CMNCITL FIXED(31), /* NO. CI THIS INDEX LEVEL-DSPC */ 51500038 2 CMWABYTB CHAR(4) BDY(WORD), /* DATE WORKAREA */ 52000038 3 CMPBIX FIXED(31), /* BLOCK SIZE CONTROL - DSPC */ 52500038 4 CMNEST FIXED(31), /* NO. OF INDEX SECTIONS - DSPC */ 53000038 5 CMFANT FIXED(31), /* WORKAREA FOR CMIXFANS */ 53500038 6 CMSPCQTY FIXED(31), /* WORKAREA FOR SPCQTY - DSPC */ 54000038 7 CMNCILL FIXED(31), /* NO. CI LAST IX LEVEL- DSPC */ 54500038 2 CMWGENAM CHAR(44), /* GENERATED ENTRYNAME */ 55000038 3 CMWFIXID CHAR(12), /* FIXED IDENTIFIER */ 55500038 3 CMWDATE, /* DATE */ 56000038 4 CMWYEAR CHAR(2), /* YEAR */ 56500038 4 CMWDAY CHAR(3), /* DAY */ 57000038 3 CMWTIME, /* TIME */ 57500038 4 CMWDELM1 CHAR(2), /* DELIMITER .T */ 58000038 4 CMWTIME1 CHAR(7), /* FIRST 7 DIGITS */ 58500038 4 CMWDELM2 CHAR(2), /* DELIMITER */ 59000038 4 CMWTIME2 CHAR(7), /* SECOND 7 DIGITS */ 59500038 3 CMWPAD CHAR(9), /* PAD OF BLANKS */ 60000038 /********************************************************************/ 62000038 /* DECLARATION OF CMS DEFINE WORKAREA USED FOR FPL'S */ 62500038 /* AND FIELD VALUES */ 63000038 /********************************************************************/ 63200038 2 DCWIX PTR(15) BDY(WORD), /* WORKAREA INDEX */ 63500038 2 * PTR(15), /* RESERVED */ 64000038 2 DCWAREPT PTR(31), /* POINTER TO ARRAY ELEMENT TO */ 64500038 /* BE PROCESSED */ 65000038 2 DCWFPLPT PTR(31), /* PTR TO FPL TO BE PROCESSED */ 65500038 /* IN ARRAY ELEMENT */ 66000038 2 DCWPLSPS, /* SET OF SPACE PARAMETERS */ 66500038 /* FPL AND FIELD VALUE */ 67000038 3 DCWPLSPL, /* SPACE PARAMETER FPL */ 67500038 4 DCWPLSPH CHAR(LENGTH(CTGFL)), /* FPL HEADER */ 68000038 4 DCWPLSPA CHAR(LENGTH(CTGFLDAT)), /* FPL FIELD PAIR */ 68500038 3 DCWPLSPV CHAR(7), /* SPACE PARAMETER FIELD VALUE */ 69000038 3 * CHAR(1), /* RESERVED */ 69500038 2 DCWPLBFS, /* SET OF BUFFER SIZE FPL */ 70000038 /* AND FIELD VALUE */ 70500038 3 DCWPLBFL, /* BUFFER SIZE FPL */ 71000038 4 DCWPLBFH CHAR(LENGTH(CTGFL)), /* FPL HEADER */ 71500038 4 DCWPLBFA CHAR(LENGTH(CTGFLDAT)), /* FPL FIELD PAIR */ 72000038 3 DCWPLBFV CHAR(4), /* BUFFER SIZE FIELD VALUE */ 72500038 2 DCWPLEDS, /* EXPIRATION DATE SET OF */ 73000038 /* FPL AND FIELD */ 73500038 3 DCWPLEDL, /* EXPIRATION DATE FPL */ 74000038 4 DCWPLEDH CHAR(LENGTH(CTGFL)), /* FPL HEADER */ 74500038 4 DCWPLEDA CHAR(LENGTH(CTGFLDAT)), /* FPL FIELD PAIR */ 75000038 3 DCWPLEDV CHAR(3), /* EXPIRATION DATE FIELD */ 75500038 3 * CHAR(1), /* RESERVED */ 76000038 2 DCWPLARS, /* SET OF AVG LOGICAL RECRD SIZE */ 76500038 /* FPL AND FIELD VALUE */ 77000038 3 DCWPLARL, /* AVG LOGICAL RECORD SIZE FPL */ 77500038 4 DCWPLARH CHAR(LENGTH(CTGFL)), /* FPL HEADER */ 78000038 4 DCWPLARA CHAR(LENGTH(CTGFLDAT)), /* FPL FIELD PAIR */ 78500038 3 DCWPLARV PTR(31), /* AVG LOGICAL RECORD SIZE VALUE */ 79000038 2 DCWPLCDS, /* CREATION DATE SET OF FPL */ 79500038 /* AND FIELD */ 80000038 3 DCWPLCDL, /* CREATION DATE FPL */ 80500038 4 DCWPLCDH CHAR(LENGTH(CTGFL)), /* FPL HEADER */ 81000038 4 DCWPLCDA CHAR(LENGTH(CTGFLDAT)), /* FPL FIELD PAIR */ 81500038 3 DCWPLCDV CHAR(3), /* CREATION DATE FIELD */ 82000038 3 * CHAR(1), /* RESERVED */ 82500038 2 CMSDSPTB (2) CHAR(LENGTH(DSPTBL)), /* ARRAY FOR DATA AND 83500038 INDEX DEVICE CHARACTERISTICS 84000038 AND WORK VALUES */ 84500038 2 CMBLPTKS FIXED(15), /* BLOCKS PER TRACK FOR */ 85500038 /* SEQUENCE SET ON DATA DEVICE */ 86000038 2 CMUCATCI CHAR(3), /* UCAT ENTRY CI NUMBER */ 86500038 3 CMDEFACI CHAR(3), /* ALIEN ENTRY CI NUMBER */ 87000038 2 * CHAR(3), /* RESERVED */ 87050038 2 CMSCTREC(20) PTR(31), /* CATALOG RECORD ADDRESS ARRAY 87100038 Y02020*/ 87100738 2 CMBYTTRK FIXED(31), /* BYTES PER TRACK Y02020*/ 87101138 2 CMBYTAU FIXED(31), /* BYTES PER ALLOC UNIT @Z40RSTC*/ 87101238 /* @Z40RSRC*/ 87103238 /* RAC-RELATED FIELDS @Z40RSRC*/ 87103338 /* @Z40RSRC*/ 87103438 2 CMSRACBF(3) PTR(31), /* BUFFER TO PREVENT @Z40RSTC 87113238 OVERLAY BY DELETE WRK AREA @Z40RSTC*/ 87113638 2 CMSRAC, /* RAC FIELDS @Z40RSRC*/ 87114738 3 CMSRETCD PTR(8), /* RAC RETURN CODE @Z40RSRC*/ 87124738 3 CMSREACD PTR(8), /* RAC REASON CODE @Z40RSRC*/ 87125138 3 * CHAR(2), /* RESERVED @Z40RSRC*/ 87125538 3 CMSRDSNA PTR(31), /* DSNAME ADDR FOR RAC @Z40RSRC*/ 87125938 3 CMSRDSVL PTR(31), /* VOLSER ADDR FOR RAC @Z40RSTC*/ 87126038 3 CMSWARFV PTR(31), /* CURRENT FVT FOR RAC @Z40RSRC 87129838 DEFINITION PURPOSES @Z40RSRC*/ 87131838 3 CMSWRMAC PTR(31), /* ADDR OF RDDFLIST @ZA30382*/ 87132232 3 * CHAR(12), /* RESERVED @ZA30382*/ 87132432 3 CMSROBJA, /* RAC ARRAY NAME @Z40RSTC*/ 87133038 4 CMSROBJN(3) CHAR(44), /* RAC OBJECT NAME ARRAY @Z40RSTC*/ 87133438 5 CMSROBJI CHAR(1), /* INITIAL CHAR STATE ID @Z40RSTC*/ 87133538 5 * CHAR(43), /* OBJECT NAME (LOW @Z40RSTC 87137338 ORDER 43 CHARACTERS) @Z40RSTC*/ 87139338 3 CMSDYNAL PTR(31); /* ADDR OF DYNAMIC ALLOCATION 87139738 WORK AREA @Z40RSRC*/ 87140138 /********************************************************************/ 87141138 /* CONSTANTS USED TO SET AND/OR TEST FIELDS DECLARED ABOVE */ 87144938 /********************************************************************/ 87148738 DECLARE /* CHARACTER CONSTANTS */ 87160038 CMWENTPD CHAR(10) CONSTANT(' '), /* ENTRYNAME PAD OF 87171338 BLANKS */ 87182638 CMWENTDL CHAR(2) CONSTANT('.T'), /* DELIMITER OF TIME FIELD */ 87193938 CMWENTCD CHAR(12) CONSTANT('VSAMDSET.DFD'), /* FIXED PORTION OF 87205238 ENTRYNAME */ 87216538 EDNULVAL BIT(24) CONSTANT('00000F'X); /* EXPIRATION DATE 87227838 NULLVALUE */ 87239138 %IF DELWKA99 = '' /*IF DELWKA NOT REQUIRED @Y30SSPJ*/ 87250438 %THEN %GOTO DELWKA01; /* THEN DONT GENERATE IT @Y30SSPJ*/ 87250838 %STOPFMT1:; /* SHOW NEXT COMMENT @Y30SSPJ*/ 87251238 /********************************************************************/ 87251638 /* DECLARATION OF THE CMS DELETE WORK AREA */ 87251738 /********************************************************************/ 87251838 DECLARE 87251938 1 DELWKA CHAR(516) BDY(WORD) BASED(CCACMSWA), /* CMS @Z40RSTC*/ 87346038 /* DELETE AREA @Z40RSTC*/ 87366038 /* OVERLAPS CMSWA @Y30SSPJ*/ 87396038 2 * CHAR(12), /* DO NOT USE THIS FIELD @Z40RSRC*/ 87446038 2 DELNMOBJ PTR(8), /* NUM OF ASSOCIATED OBJ @Y30SSPJ*/ 87496038 2 DELR3SAV PTR(8), /* R3 SAVE AREA @Y30SSPJ*/ 87546038 2 DELRTYPE CHAR(1), /* CTGTYPE SAVE AREA @Y30SSPJ*/ 87596038 2 DELERRIX PTR(8), /* INDEX TO ERR ARRAY @Y30SSPJ*/ 87646038 2 * CHAR(1), /* DELETE FLAGS @Y30SSPJ*/ 87696038 3 DELCODE BIT(1), /* ERROR CODE FLAG1 @Y30SSPJ*/ 87746038 3 DELCODE2 BIT(1), /* ERROR CODE FLAG2 @Y30SSPJ*/ 87796038 3 DELKYRNG BIT(1), /* KEY RANGE DATA SET @Y30SSPJ*/ 87846038 3 DELCAT BIT(1), /* DELETE COPIED CATALOG @Y30SSPJ*/ 87896038 3 DELGNMR BIT(1), /* GET NUM OF PATHS @Y30SSPJ*/ 87946038 3 DELCODE3 BIT(1), /* ERROR CODE FLAG3 @Y30SSPJ*/ 87996038 3 DELCODE4 BIT(1), /* ERROR CODE FLAG4 @Y30SSPJ*/ 88046038 3 DELCODE5 BIT(1), /* ERROR CODE FLAG5 @Y30SSPJ*/ 88096038 4 DELSPSCR BIT(1), /* VTOC MODIFIED @Y30SSPJ*/ 88146038 2 DELSGRRN FIXED(15)BDY(BYTE),/* SPACE GRP RELREPNO @Y30SSPJ*/ 88196038 3 DELI PTR(8), /* DO LOOP COUNTER I @Y30SSPJ*/ 88246038 4 DELSPFLG BIT(8), /* DELETE SPACE FLAG @Y30SSPJ*/ 88296038 5 DELNONVS BIT(1), /* NON-VSAM FOUND IN CRA @Y30SSPJ*/ 88346038 5 * BIT(7), /* RESERVED @Y30SSPJ*/ 88396038 3 DELE PTR(8), /* DO LOOP COUNTER E @Y30SSPJ*/ 88446038 2 DELC PTR(8), /* DO LOOP COUNTER C @Y30SSPJ*/ 88496038 2 DELVRRN CHAR(2) BDY(WORD), /* RELREPNO VALUE @Y30SSPJ*/ 88546038 3 TSTRELSP CHAR(2), /* SPACE HEADER GROUP @Y30SSPJ*/ 88596038 /* RELREPNO VALUE @Y30SSPJ*/ 88646038 2 DELVCRN CHAR(2), /* CNTREPNO VALUE @Y30SSPJ*/ 88696038 3 TSTCNTRN CHAR(2), /* TEST VAL FOR CNTREPNO @Y30SSPJ*/ 88746038 2 DELXTNWA BDY(WORD), /* IF INSUFF. WA FOR VGO @Y30SSPJ*/ 88796038 3 DELXLOC PTR(31), /* LOCATION OF GVO WA @Y30SSPJ*/ 88846038 4 DELTSFPL PTR(31), /* TEST FPL REFERENCE @Y30SSPJ*/ 88896038 3 DELXLEN PTR(31), /* LENGTH OF EXT'N WKA @Y30SSPJ*/ 88946038 4 TSTSPDUU FIXED(15), /* UNITS USED IN DATA SPACE 88996038 @Y30SSPJ*/ 89046038 4 * CHAR(1)BDY(BYTE), /* RESERVED @Z40RSRC*/ 89096038 4 DELRACF BIT(8), /* RAC FLAG BYTE @Z40RSRC*/ 89106038 5 DELINDC BIT(1), /* RAC-INDICATED CLUSTER @Z40RSRC 89116038 OR AIX @Z40RSRC*/ 89126038 5 DELINDD BIT(1), /* RAC-INDICATED DATA @Z40RSRC*/ 89136038 5 DELINDI BIT(1), /* RAC-INDICATED INDEX @Z40RSRC*/ 89138038 5 * BIT(5), /* RESERVED @Z40RSRC*/ 89140038 2 DELERRSX BDY(BYTE), /* ERROR RET CODE ARRAY @Y30SSPJ*/ 89146038 3 DELERRS(5)CHAR(4), /* ERR RET CODE ARRAY @Y30SSPJ*/ 89196038 4 DELMODID CHAR(2), /* ERROR MODULE ID @Y30SSPJ*/ 89246038 4 DELREASN CHAR(1), /* ERROR REASON CODE @Y30SSPJ*/ 89296038 4 DELRETCD CHAR(1), /* ERROR RETURN CODE @Y30SSPJ*/ 89346038 /********************************************************************/ 89396038 /* WORK AREA INTERFACE FOR EXTRACT/MODIFY SUBFUNCTIONS @Y30SSPJ*/ 89446038 /********************************************************************/ 89496038 2 DELEXTWA, /*WORKAREA FOR INTERFACE @Y30SSPJ*/ 89546038 3 DELCPL CHAR(LENGTH(CTGPL)),/* CPL FOR EXTRACT AND @Y30SSPJ*/ 89596038 4 DELCPLST CHAR(LENGTH(CTGPL)),/* INTERNAL CPL @Y30SSPJ*/ 89646038 3 * CHAR(LENGTH(CTGFIELD)), /* MODIFY @Y30SSPJ*/ 89696038 4 DELCPLFL CHAR(LENGTH(CTGFIELD)),/* CPL FPL PTR @Y30SSPJ*/ 89746038 3 DELFPLR CHAR(LENGTH(CTGFL)),/* FPL FOR EXTRACT AND @Y30SSPJ*/ 89796038 4 DELFPLDT CHAR(LENGTH(CTGFL)),/* DATA RETRIEVE FPL @Y30SSPJ*/ 89846038 3 * CHAR(LENGTH(CTGFLDAT)), /* MODIFY @Y30SSPJ*/ 89896038 4 DELFL1DT CHAR(LENGTH(CTGFLDAT)),/* FPL DATA LENGTH/ADDR 89946038 @Y30SSPJ*/ 89996038 3 DELNMR CHAR(8), /* FIELD NAME @Y30SSPJ*/ 90046038 4 DELFL1NM CHAR(8), /* FIELD NAME VALUE @Y30SSPJ*/ 90096038 3 DELFPLT CHAR(LENGTH(CTGFL)),/* 1ST TEST FPL FOR @Y30SSPJ*/ 90146038 4 DELFPLT1 CHAR(LENGTH(CTGFL)),/* TEST FPL ONE @Y30SSPJ*/ 90196038 3 * CHAR(LENGTH(CTGFLDAT)), /* EXTRACT AND MODIFY @Y30SSPJ*/ 90246038 4 DELT1DT CHAR(LENGTH(CTGFLDAT)),/* FPL DATA LENGTH/ADDR 90296038 @Y30SSPJ*/ 90346038 3 DELNMT CHAR(8), /* FIELD NAME @Y30SSPJ*/ 90396038 4 DELT1NM CHAR(8), /* FIELD NAME VALUE @Y30SSPJ*/ 90446038 3 DELFPLT2 CHAR(LENGTH(CTGFL)),/*2ND TEST FPL AND @Y30SSPJ*/ 90496038 3 * CHAR(LENGTH(CTGFLDAT)), /* EXTRACT AND MODIFY @Y30SSPJ*/ 90546038 4 DELT2DT CHAR(LENGTH(CTGFLDAT)),/* FPL DATA LENGTH/ADDR 90596038 @Y30SSPJ*/ 90646038 3 DELNMT2 CHAR(8), /* FIELD NAME @Y30SSPJ*/ 90696038 4 DELT2NM CHAR(8), /* FIELD NAME VALUE @Y30SSPJ*/ 90746038 2 DELNCOBJ PTR(8) BDY(BYTE), /*NUM OF CLUSTER OBJECTS @Y30SSPJ*/ 90796038 2 DELNGOBJ PTR(8), /* NUMBER OF AIX'S @Y30SSPJ*/ 90846038 2 DELNROBJ PTR(8), /* NUMBER OF PATH'S @Y30SSPJ*/ 90896038 2 DELUSINX PTR(8), /* CURR ENTRY IN USERWKA @Y30SSPJ*/ 90946038 2 DELR13SA FIXED(31) BDY(WORD), /* REG 13 SAVEAREA @Y30SSPJ*/ 90996038 2 DELDIV BDY(WORD), /* WA FOR ASSOCIATIONS @Y30SSPJ*/ 91046038 /********************************************************************/ 91096038 /* EXTRACT ASSOCIATION WORK AREA FOR GENERAL USE @Y30SSPJ*/ 91146038 /********************************************************************/ 91196038 3 DELASCWA BDY(WORD), /* ASSOCIATION FIELD WKA @Y30SSPJ*/ 91246038 4 DELALNG FIXED(15), /* WORK AREA LENGTH @Y30SSPJ*/ 91296038 4 DELARLNG FIXED(15), /* REQUIRED WICA LENGTH @Y30SSPJ*/ 91346038 4 DELASSO(3)CHAR(4)BDY(BYTE),/* ARRAY ASSOCIATIONS @Y30SSPJ*/ 91396038 5 DELATYPE CHAR(1), /* ASSOC OBJECT TYPE @Y30SSPJ*/ 91446038 5 DELACI PTR(24)BDY(BYTE),/* ASSOC OBJECT CI NUM @Y30SSPJ*/ 91496038 /********************************************************************/ 91546038 /* EXTRACT ASSOCIATION SAVE AREA FOR CLUSTER USE @Y30SSPJ*/ 91596038 /********************************************************************/ 91646038 3 DELCASWA BDY(WORD), /* CLUSTER ASSOC WKA @Y30SSPJ*/ 91696038 4 DELCALNG FIXED(15), /* WORK AREA LENGTH @Y30SSPJ*/ 91746038 4 DELCRLNG FIXED(15), /* REQUIRED WICA LENGTH @Y30SSPJ*/ 91796038 4 DELCASSO(3)CHAR(4)BDY(BYTE),/* ASSOCIATIONS ARRAY @Y30SSPJ*/ 91846038 5 DELCTYPE CHAR(1), /* ASSOC OBJECT TYPE @Y30SSPJ*/ 91896038 5 DELCCI PTR(24)BDY(BYTE),/* ASSOC OBJECT CI NUM @Y30SSPJ*/ 91946038 /********************************************************************/ 91996038 /* EXTRACT ASSOCIATION SAVE AREA FOR AIX USE @Y30SSPJ*/ 92046038 /********************************************************************/ 92096038 3 DELGASWA BDY(WORD), /* AIX ASSOC WKA @Y30SSPJ*/ 92146038 4 DELGALNG FIXED(15), /* WORK AREA LENGTH @Y30SSPJ*/ 92196038 4 DELGRLNG FIXED(15), /* REQUIRED WICA LENGTH @Y30SSPJ*/ 92246038 4 DELGASSO(3)CHAR(4)BDY(BYTE),/* ASSOCIATIONS ARRAY @Y30SSPJ*/ 92296038 5 DELGTYPE CHAR(1), /* ASSOC OBJECT TYPE @Y30SSPJ*/ 92346038 5 DELGCI PTR(24)BDY(BYTE),/* ASSOC OBJECT CI NUM @Y30SSPJ*/ 92396038 /********************************************************************/ 92446038 /* EXTRACT ASSOCIATION SAVE AREA FOR PATH USE @Y30SSPJ*/ 92496038 /********************************************************************/ 92546038 3 DELRASWA BDY(WORD), /* PATH ASSOC WKA @Y30SSPJ*/ 92596038 4 DELRALNG FIXED(15), /* WORK AREA LENGTH @Y30SSPJ*/ 92646038 4 DELRRLNG FIXED(15), /* REQUIRED WICA LENGTH @Y30SSPJ*/ 92696038 4 DELRASSO(5)CHAR(4)BDY(BYTE),/* ASSOCIATIONS ARRAY @Y30SSPJ*/ 92746038 5 DELRTYP CHAR(1), /* ASSOC OBJECT TYPE @Y30SSPJ*/ 92796038 5 DELRCI PTR(24)BDY(BYTE),/* ASSOC OBJECT CI NUM @Y30SSPJ*/ 92846038 /********************************************************************/ 92896038 /* WORK AREA FOR EXTRACTING A SPECIFIC TYPE ASSOCIATION @Y30SSPJ*/ 92946038 /********************************************************************/ 92996038 3 DELXASWA BDY(WORD), /* SPECIFIC TYPE ASC WA @Y30SSPJ*/ 93046038 4 DELXALNG FIXED(15), /* WORK AREA LENGTH @Y30SSPJ*/ 93096038 4 DELXRLNG FIXED(15), /* REQUIRED WICA LENGTH @Y30SSPJ*/ 93146038 4 DELXASSO(1)CHAR(4)BDY(BYTE),/* ASSOCIATIONS ARRAY @Y30SSPJ*/ 93196038 5 DELXTYPE CHAR(1), /* ASSOC OBJECT TYPE @Y30SSPJ*/ 93246038 5 DELXCI PTR(24)BDY(BYTE),/* ASSOC OBJECT CI NUM @Y30SSPJ*/ 93296038 /********************************************************************/ 93346038 /* WORK AREA FOR EXTRACTING VOLUME GROUP OCCURENCES @Y30SSPJ*/ 93396038 /********************************************************************/ 93446038 3 DELVGOWA BDY(BYTE), /* WORK AREA FOR VGO @Y30SSPJ*/ 93496038 4 DELVLNG CHAR(2), /* LENGTH OF WORK AREA @Y30SSPJ*/ 93546038 4 DELVRLNG CHAR(2), /* WA REQUIRED LENGTH @Y30SSPJ*/ 93596038 4 DELTVRRN CHAR(2), /* RELREPNO RETURN @Y30SSPJ*/ 93646038 4 DELVGO CHAR(LENGTH(GVO)),/*VOLUME GROUP OCCURANCE @Y30SSPJ*/ 93696038 /********************************************************************/ 93746038 /* WORK AREA FOR EXTRACTING DATA SPACE GROUP @Y30SSPJ*/ 93796038 /********************************************************************/ 93846038 3 DELSHWA BDY(BYTE), /* DATA SPACE GROUP WA @Y30SSPJ*/ 93896038 4 DELSLNG CHAR(2), /* LENGTH OF WORK AREA @Y30SSPJ*/ 93946038 4 DELSRLNG CHAR(2), /* WA REQUIRED LENGTH @Y30SSPJ*/ 93996038 4 DELDSGRP CHAR(LENGTH(CTVDSPAC)),/* DATA SPACE GRP @Y30SSPJ*/ 94046038 /********************************************************************/ 94096038 /* WORK AREA FOR EXTRACTING DATA SET DIRECTORIES @Y30SSPJ*/ 94146038 /********************************************************************/ 94196038 3 DELDSDWA BDY(BYTE), /* WORK AREA FOR DS DIR @Y30SSPJ*/ 94246038 4 DELDLNG CHAR(2), /* LENGTH OF WORK AREA @Y30SSPJ*/ 94296038 4 DELDRLNG CHAR(2), /* WA REQUIRED LENGTH @Y30SSPJ*/ 94346038 4 DELDIRCT CHAR(LENGTH(CTVDIR)),/* DS DIRECTORY @Y30SSPJ*/ 94396038 5 DELDRRN CHAR(2), /* DS DIRECTORY RELREPNO @Y30SSPJ*/ 94446038 4 * CHAR(1), /* NOT USED @Y30SSPJ*/ 94496038 /********************************************************************/ 94546038 /* WORK AREA FOR SCRATCH FUNCTION @Y30SSPJ*/ 94596038 /********************************************************************/ 94606038 2 DELSCRWA BDY(WORD), /* SCRATCH WORK AREA @Y30SSPJ*/ 94616038 /********************************************************************/ 94626038 /* SCRATCH PARAMETER LIST @Y30SSPJ*/ 94628038 /********************************************************************/ 94630038 3 DELSCRTH CHAR(16)BDY(WORD),/* SCRATCH PARAM LIST @Y30SSPJ*/ 94632038 4 DELSCRFL FIXED(31)BDY(WORD), /* SCRATCH OPT BYTES @Y30SSPJ*/ 94632438 4 DELSDSNM PTR(31), /*DATA SET NAME TO SCRTH @Y30SSPJ*/ 94632838 4 DELSNUSE PTR(31), /*UNUSED @Y30SSPJ*/ 94641238 4 DELSVLST PTR(31), /*VOLUME LIST REFERENCE @Y30SSPJ*/ 94643238 /********************************************************************/ 94645238 /* SCRATCH VOLUME LIST @Y30SSPJ*/ 94647238 /********************************************************************/ 94649238 3 DELSVOL, /*SCRATCH VOLUME LIST @Y30SSPJ*/ 94649338 4 DELSNVLS FIXED(15), /*NUM VOL LIST ENTRIES @Y30SSPJ*/ 94649438 4 DELSDEVT CHAR(4), /*VOL DEV TYPE CODE @Y30SSPJ*/ 94649538 4 DELSVLID CHAR(6), /*VOL SERIAL NUMBER @Y30SSPJ*/ 94649638 4 DELSRCD1 PTR(8), /*UNUSED RTN CODE @Y30SSPJ*/ 94649738 4 DELSRCD2 PTR(8), /*LIST ENTRY RTN CODE @Y30SSPJ*/ 94649838 2 DELVOLL CHAR(LENGTH(IDAVVOLL)), /*VOLUME LIST @Y30SSPJ*/ 94649938 3 DELSVMTL CHAR(LENGTH(IDAVVOLL)),/*VOLUME LIST @Y30SSPJ*/ 94661038 2 DELSVTET CHAR(LENGTH(VVOLLENT)),/*VOLUME MNT ENTRY @Y30SSPJ*/ 94671038 2 DELPROC CHAR(2), /* PROCESS LOOP CONTROL @Y30SSPJ*/ 94671438 2 DELTIOPT PTR(31), /* TIOT PTR FOR VOLUME MOUNT 94671838 @Y30SSPJ*/ 94672238 3 * CHAR(1), /* NOT USED @Y30SSPJ*/ 94673038 3 DELHECIN PTR(24), /* HORIZONTAL EXTENSION CI NUMBER 94673438 @Y30SSPJ*/ 94673838 2 DELOPNPL PTR(31)BDY(WORD), /* PARAM LIST FOR OPEN @Y30SSPJ*/ 94674238 3 DELOPOPT CHAR(1)BDY(BYTE),/* OPEN OPTIONS @Y30SSPJ*/ 94674638 4 DELOPEND BIT(1), /* MARK END OF PARAM LST @Y30SSPJ*/ 94674738 4 * BIT(7), /* USED BY OPEN @Y30SSPJ*/ 94677538 3 DELACBPT PTR(24)BDY(BYTE),/* PTR TO ACB TO OPEN @Y30SSPJ*/ 94679538 2 * CHAR(2), /* RESERVED @Y30SSPJ*/ 94681538 2 F FIXED(15) BDY(BYTE); /* ERASE LOOP COUNTER @Y30SSPJ*/ 94681938 /********************************************************************/ 94682338 /* DECLARATION FOR PASSWORD BASE REFERENCE FIELD @Y30SSPJ*/ 94682738 /********************************************************************/ 94683138 DECLARE PASSSTRT CHAR(8) BASED; /* PASSWORD BASE REF FLD @Y30SSPJ*/ 94685238 /********************************************************************/ 94687238 /* DECLARATION FOR CMS DELETE-ERASE WORK AREA @Y30SSPJ*/ 94689238 /********************************************************************/ 94689338 DECLARE 94689438 1 DELERASE BDY(WORD)BASED(CCAR5REC),/* ERASE WORK AREA @Y30SSPJ*/ 94691538 2 DELACB CHAR(LENGTH(IFGACB)),/* ACB FOR ERASE @Y30SSPJ*/ 94693538 2 DELRPL CHAR(LENGTH(IFGRPL)),/* RPL FOR ERASE @Y30SSPJ*/ 94695538 2 DELRCPTR PTR(31), /* RECORD AREA POINTER @Y30SSPJ*/ 94695638 2 DELPASSW, /* PASSWORD STRUCTURE @Y30SSPJ*/ 94695738 3 DELPASLN BDY(BYTE)FIXED(8),/* PASSWORD LENGTH @Y30SSPJ*/ 94699238 3 DELPASWD CHAR(8); /* PASSWORD VALUE @Y30SSPJ*/ 94701238 /********************************************************************/ 94701638 /* DECLARATION FOR ENQUEUE PARAMETER LIST @Y30SSPJ*/ 94702038 /********************************************************************/ 94702438 DECLARE 94702538 1 DELENQ BDY(WORD)BASED(CCAR5REC),/*ENQ PARAMETER LIST @Y30SSPJ*/ 94702638 2 ENQPROPR, /* ENQ MAIN SECTION LBL @Y30SSPJ*/ 94703638 3 ENQOPT1 BIT(8), /* OPTION BYTE 1 @Y30SSPJ*/ 94704038 4 ENQEND BIT(1), /* ON FOR END OF LIST @Y30SSPJ*/ 94704438 4 ENQNEW BIT(1), /* OFF FOR NES FORM @Y30SSPJ*/ 94704838 4 * BIT(5), /* RESERVED @Y30SSPJ*/ 94705238 4 ENQDIR BIT(1), /* ON FOR DIRECTED FORM @Y30SSPJ*/ 94705338 3 ENQRLEN FIXED(8), /* RNAME LENGTH @Y30SSPJ*/ 94705438 3 ENQOPT2 BIT(8), /* OPTION BYTE 2 @Y30SSPJ*/ 94705538 4 ENQSHR BIT(1), /* ENQ FOR SHARED CONTRL @Y30SSPJ*/ 94708638 4 * BIT(7), /* RESERVED @Y30SSPJ*/ 94710638 3 ENQRETC FIXED(8), /* ENQ/DEQ RETURN CODE @Y30SSPJ*/ 94711038 3 ENQQNADR PTR(31), /* QNAME ADDRESS @Y30SSPJ*/ 94711438 3 ENQRNADR PTR(31), /* RNAME ADDRESS @Y30SSPJ*/ 94711838 2 RNAME CHAR(8), /* RNAME FOR ENQ @Y30SSPJ*/ 94712238 3 RNAMECI CHAR(3), /* CONTROL INTERVAL NO. @Y30SSPJ*/ 94712538 3 RNAMECA CHAR(4), /* CATALOG ACB POINTER @Y30SSPJ*/ 94712938 3 RNAMEID CHAR(1); /* ALPHA ID TYPE @Y30SSPJ*/ 94713038 94713138 %IF DELWKA98 = '' /*IF OBTAIN WORK AREA NOT REQUIRED 94714038 @Y30SSPJ*/ 94714438 %THEN %GOTO DELWKA01; /* THEN DONT GENERATE IT @Y30SSPJ*/ 94714838 %STOPFMT2:; /* SHOW NEXT COMMENT @Y30SSPJ*/ 94715238 /********************************************************************/ 94715638 /* OBTAIN PARAMETER LIST - IN RECORD AREA 4 @Y30SSPJ*/ 94715738 /********************************************************************/ 94718638 DECLARE 94720638 1 DELOCAM BASED(CCAR4REC), /* OBTAIN CAM LIST @Y30SSPJ*/ 94721038 2 DELOPT CHAR(4), /* OBTAIN OPTIONS @Y30SSPJ*/ 94721438 2 DELODSN PTR(31), /* ADDRESS OF FORMAT 1 DSCB CCHHR 94721538 @Y30SSPJ*/ 94722338 2 DELOVOL PTR(31), /* ADDR OF VOLUME SERIAL @Y30SSPJ*/ 94722738 2 DELOBUF PTR(31), /* ADDR OF DSCB BUFFER @Y30SSPJ*/ 94723138 2 DELDBUF CHAR(148); /* BUFFER FOR DSCB @Y30SSPJ*/ 94723538 DECLARE 94723638 DELOSEK BIT(32) CONSTANT('C0800000'X); /* SEEK OPTION @Y30SSPJ*/ 94723738 /********************************************************************/ 94723838 /* DISK ADDRESS OF DSCB - IN RECORD AREA 4 @Y30SSPJ*/ 94724038 /********************************************************************/ 94724138 DECLARE 94724238 1 DELDSADR DEF(DELDBUF)POS(149),/* DSCB DISK ADDRESS @Y30SSPJ*/ 94724338 2 DELDSCC FIXED(15)BDY(BYTE),/* DSCB CYLINDER ADDR @Y30SSPJ*/ 94725038 2 DELDSHH FIXED(15)BDY(BYTE),/* DSCB HEAD ADDRESS @Y30SSPJ*/ 94725438 2 DELDSREC PTR(8)BDY(BYTE); /* DSCB RECORD NUMBER @Y30SSPJ*/ 94725838 /********************************************************************/ 94726238 /* FORMAT 4 EXTENT DESCRIPTION @Y30SSPJ*/ 94726338 /********************************************************************/ 94726538 DECLARE 94726938 1 DELVTOCE DEF(DS4VTOCE), /* FORMAT 4 EXTENT DESCRIPTION 94727038 @Y30SSPJ*/ 94729538 2 * CHAR(2), /* NOT USED @Y30SSPJ*/ 94731538 2 DELDS4BG CHAR(4), /* VTOC START CCHH @Y30SSPJ*/ 94731938 2 DELDS4EN CHAR(4); /* VTOC END CCHH @Y30SSPJ*/ 94732338 /********************************************************************/ 94732438 /* VOLUME INFORMATION SAVE AREA - IN RECORD AREA 4 @Y30SSPJ*/ 94732638 /********************************************************************/ 94733038 DECLARE 94733738 1 * DEF(DELDSREC) POS(2), /* VOL ENTRY SAVE AREA @Y30SSPJ*/ 94734138 2 * CHAR(1) BDY(BYTE), /* RESERVED @Y30SSPJ*/ 94734538 2 DELVLSER CHAR(6), /* VOLUME SERIAL @Y30SSPJ*/ 94734938 2 DELDEVT CHAR(4), /* VOLUME DEVICE TYPE @Y30SSPJ*/ 94735038 2 DELUCB FIXED(31) BDY(BYTE), /* VOLUME UCB ADDRESS @Y30SSPJ*/ 94735138 2 DELNOTRK FIXED(15) BDY(BYTE); /* TRACKS PER CYL @Y30SSPJ*/ 94735238 %DELWKA01:; /*@Y30SSPJ*/ 94785238 /********************************************************************/ 94835238 /* THE FOLLOWING STRUCTURE DESCRIBES THE CATALOG @Y30SSPJ*/ 94885238 /* UPGRADE INTERFACE PARAMETER LIST AND ALSO ITS @Y30SSPJ*/ 94935238 /* ASSOCIATED WORKAREA. THE CALLER MUST SUPPLY @Y30SSPJ*/ 94985238 /* CORE FOR BOTH AND INITIALIZE CUMPL TO DELETE OR @Y30SSPJ*/ 95035238 /* ADD AN UPGRADE ASSOCIATION. CCACUMPL MUST BE @Y30SSPJ*/ 95085238 /* INITIALIZED TO POINT TO CUMPLWA. @Y30SSPJ*/ 95135238 /********************************************************************/ 95185238 DECLARE 95235238 1 CUMPLWA BASED(CCACUMPL), /* UPGRADE MGMNT PL/WA @Y30SSPJ*/ 95285238 2 CUMPL, /* INTERFACE PARM LIST @Y30SSPJ*/ 95335238 3 CUMIN BIT(8), /* INPUT FLAGS @Y30SSPJ*/ 95385238 4 CUMFDEL BIT(1), /* FORCE DELETE Y ENTRY @Y30SSPJ*/ 95435238 4 CUMNRG BIT(1), /* NO RE-GET BASE RCD @Y30SSPJ*/ 95485238 4 CUMFUNC BIT(1), /* SET INTERNALLY: @Y30SSPJ*/ 95535238 /* 0 - DELETE, 1 - ADD @Y30SSPJ*/ 95585238 4 * BIT(5), /* RESERVED @Y30SSPJ*/ 95635238 3 CUMOUT BIT(8), /* OUTPUT FLAGS @Y30SSPJ*/ 95685238 4 CUMDUP BIT(1), /* DUPLICATE UPGRD ASSOC @Y30SSPJ*/ 95735238 4 CUMNE BIT(1), /* NON-EXISTENT Y ENTRY @Y30SSPJ*/ 95785238 /* OR UPGRADE ASSOC @Y30SSPJ*/ 95835238 4 * BIT(6), /* RESERVED @Y30SSPJ*/ 95885238 3 CUMDCI PTR(24) BDY(BYTE), /* AIX DATA CI @Y30SSPJ*/ 95935238 3 CUMICI PTR(24) BDY(BYTE), /* AIX INDEX CI @Y30SSPJ*/ 95985238 2 CUMWA CHAR(152) BDY(WORD), /* UPGRD MGMNT WRK AREA @Y30SSPJ*/ 96035238 3 CUMFLAG BIT(8), /* UPGRADE MGMNT FLAGS @Y30SSPJ*/ 96085238 4 CUMEXIT BIT(1), /* FORCE DELETE EXIT IND @Y30SSPJ*/ 96135238 4 * BIT(7), /* RESERVED @Y30SSPJ*/ 96185238 3 CUMBCI PTR(24), /* CALLER'S BASE RECORD CI 96235238 NUMBER @Y30SSPJ*/ 96285238 3 CUMURAB PTR(31), /* SAVE CALLER'S CCAURAB @Y30SSPJ*/ 96335238 3 CUMRABB PTR(31), /* SAVE CALLER'S CCARABB @Y30SSPJ*/ 96385238 3 CUMRAB1 PTR(31), /* FIRST FREE RAB ADDR @Y30SSPJ*/ 96435238 3 CUMRAB2 PTR(31), /* SECOND FREE RAB ADDR @Y30SSPJ*/ 96485238 3 CUMRABD PTR(31), /* DATA RAB ADDRESS @Y30SSPJ*/ 96535238 3 * CHAR(1), /* RESERVED @Y30SSPJ*/ 96585238 3 CUMSRID PTR(24), /* SRCH ARG OF NEXT RCD @Y30SSPJ*/ 96635238 3 * PTR(8), /* RESERVED @Y30SSPJ*/ 96685238 3 CUMDY PTR(24), /* DATA RECORD CI NO. @Y30SSPJ*/ 96735238 3 CUMFN1 CHAR(8), /* FIELD NAME @Y30SSPJ*/ 96785238 3 CUMFN2 CHAR(8), /* TEST FIELD NAME @Y30SSPJ*/ 96835238 3 CUMWASS2, /* ASSOCIATION WORK AREA @Y30SSPJ*/ 96885238 4 CUMWREL FIXED(15), /* RELREPNO @Y30SSPJ*/ 96895238 4 CUMWASS, /* SINGLE ASSOCIATION @Y30SSPJ*/ 96935238 5 CUMWTYP CHAR(1), /* TYPE D ENTRY @Y30SSPJ*/ 96985238 6 CUMTYPE CHAR(1), /* NEXT RECORD TYPE GET @Y30SSPJ*/ 97035238 5 CUMWCI PTR(24) /* D ENTRY CI NO. @Y30SSPJ*/ 97085238 BDY(BYTE), /* @Y30SSPJ*/ 97095238 4 CUMWTYP2 CHAR(1), /* TYPE I ENTRY @Y30SSPJ*/ 97135238 4 CUMWCI2 PTR(24) /* I ENTRY CI NO. @Y30SSPJ*/ 97185238 BDY(BYTE), /* @Y30SSPJ*/ 97195238 3 CUMFMWA CHAR(88), /* FIELD MGMNT WORK AREA @Y30SSPJ*/ 97235238 3 * CHAR(2), /* RESERVED @Y30SSPJ*/ 97285238 3 CUMRC CHAR(4); /* SAVE RETURN CODE @Y30SSPJ*/ 97335238