TITLE 'IGC0102G - VSAM OBTAIN SUPPORT MODULE *00001000 ' 00002000 IGC0102G CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGC0102G 77.175' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 USING @DATD,RWKAPTR 00011000 USING OBTNWKA,RWKAREA 00012000 BALR 11,0 00013000 USING *,11 00014000 * /***********************************************************/ 00015000 * /* GET STORAGE FOR THE VSAM OBTAIN WORK AREA */ 00016000 * /***********************************************************/ 00017000 * R2 = LENGTH(VSAMOBWA); /* SET STORAGE SIZE NEEDED */ 00018000 LA R2,812 0036 00019000 * GEN REFS (CVT,R2); 0037 00020000 IECRES GET,EXTPR=(RWKAREA),LV=(R2),ID=OBWA, Y02080X00021000 STM=(R2,R14,12(RWKAREA)) Y02080 00022000 MODESET EXTKEY=SUPR RETURN TO KEY ZERO AFTER Y02082X00023000 ISSUING THE IECRES GET Y02082 00024000 * RWKAPTR = R1; /* VSAM OBTAIN W/A ADDRESS */ 00025000 LR RWKAPTR,R1 0038 00026000 * RFY (R0,R1,R4,R5,R6,R7,R12,R14,RETCDREG) UNRSTD; 0039 00027000 * /***********************************************************/ 00028000 * /* */ 00029000 * /* CONSTRUCT THE CPL REQUIRED TO CALL VSAM CATALOG MANAGE- */ 00030000 * /* MENT TO ATTEMPT TO FIND THE NAMED DATA SET IN A VSAM */ 00031000 * /* CATALOG. */ 00032000 * /* */ 00033000 * /***********************************************************/ 00034000 * RFY CTGPL BASED(ADDR(VSLOCCPL)); 0040 00035000 * CTGPL = CTGPL && CTGPL; /* CLEAR THE CPL */ 00036000 LA @12,144 0041 00037000 ALR @12,RWKAPTR 0041 00038000 XC CTGPL(28,@12),CTGPL(@12) 0041 00039000 * CTGBYPSS = '1'B; /* SET BYPASS SECURITY FLAG */ 00040000 * CTGNAME = '1'B; /* FULL ENTRY NAME GIVEN */ 00041000 OI CTGBYPSS(@12),B'10000100' 0043 00042000 * CTGFUNC = CTGLOC; /* LOCATE FCN REQUESTED */ 00043000 NI CTGFUNC(@12),B'00111111' 0044 00044000 OI CTGFUNC(@12),B'00100000' 0044 00045000 * CTGAM0 = '1'B; /* VSAM REQUEST INDICATOR */ 00046000 OI CTGAM0(@12),B'00000001' 0045 00047000 * IF OBTTENQ = '1'B THEN /* IF TIOT ENQUED @ZA19743*/ 00048000 TM OBTTENQ(RPLPTR),B'10000000' 0046 00049000 BNO @RF00046 0046 00050000 * DO; /* AND USER IS @ZA19743*/ 00051000 * RFY (RETCDREG) RSTD; 0048 00052000 * GEN (TESTAUTH FCTN=1,STATE=YES,KEY=YES,BRANCH=YES); /* */ 00053000 TESTAUTH FCTN=1,STATE=YES,KEY=YES,BRANCH=YES 00054000 * IF RETCDREG = 0 THEN /* AUTHORIZED, THEN @ZA19743*/ 00055000 LTR RETCDREG,RETCDREG 0050 00056000 BNZ @RF00050 0050 00057000 * CTGTIOT = '1'B; /* PASS ENQUE BIT @ZA19743*/ 00058000 OI CTGTIOT+144(RWKAPTR),B'00000100' 0051 00059000 * ELSE CTGTIOT = '0'B; /* TO CATALOG @ZA19743*/ 00060000 B @RC00050 0052 00061000 @RF00050 NI CTGTIOT+144(RWKAPTR),B'11111011' 0052 00062000 * RFY (RETCDREG) UNRSTD; 0053 00063000 @RC00050 DS 0H 0054 00064000 * END; /* MANAGEMENT, ELSE @ZA19743*/ 00065000 * ELSE; /* SET SWITCH OFF @ZA19743*/ 00066000 @RF00046 DS 0H 0056 00067000 * CTGENT = OBTDSNPT; /* DATA SET NAME LOCATION */ 00068000 LA @12,144 0056 00069000 ALR @12,RWKAPTR 0056 00070000 MVC CTGENT(4,@12),OBTDSNPT(RPLPTR) 0056 00071000 * CTGWKA = ADDR(VSLOCWKA); /* RETURN DATA LOCATION */ 00072000 LA @08,VSLOCWKA(,RWKAPTR) 0057 00073000 ST @08,CTGWKA(,@12) 0057 00074000 * CTGNOFLD = NODATAFL; /* NO. OF DATA RETRIEVE FPLS*/ 00075000 MVI CTGNOFLD(@12),X'06' 0058 00076000 * DO R2 = INCR1 TO NODATAFL; /* PROCESS MAIN DATA FPLS */ 00077000 LA R2,1 0059 00078000 @DL00059 DS 0H 0060 00079000 * VSCPLFLD(R2) = ADDR(VSFPLS(R2));/* SET CPL FPL PTR VALUE */ 00080000 LR @12,R2 0060 00081000 SLA @12,2 0060 00082000 LR @08,R2 0060 00083000 SLA @08,5 0060 00084000 LA @08,VSFPLS-32(@08,RWKAPTR) 0060 00085000 ST @08,@TF00001 0060 00086000 ALR @12,RWKAPTR 0060 00087000 MVC VSCPLFLD-4(4,@12),@TF00001 0060 00088000 * R3 = ADDR(VSFPLS(R2)); /* FPL ADDRESS */ 00089000 LR R3,@08 0061 00090000 * CALL FPLBUILD; /* COMMON FPL BUILDER */ 00091000 BAL @14,FPLBUILD 0062 00092000 * END; 0063 00093000 AH R2,@CH00038 0063 00094000 CH R2,@CH00200 0063 00095000 BNH @DL00059 0063 00096000 * /* INITIALIZE THE FIELD NAMES IN THE FPLS */ 00097000 * DO R3 = INCR1 TO TOTALFLS; /* PROCESS ALL OF THE FPLS */ 00098000 LA R3,1 0064 00099000 @DL00064 DS 0H 0065 00100000 * VSFPLFNM(R3) = TBLFPLNM(R3); 0065 00101000 LR @12,R3 0065 00102000 SLA @12,5 0065 00103000 ALR @12,RWKAPTR 0065 00104000 LR @08,R3 0065 00105000 SLA @08,3 0065 00106000 LA @01,TBLFPLNM-8(@08) 0065 00107000 MVC VSFPLFNM-32(8,@12),0(@01) 0065 00108000 * END; 0066 00109000 AH R3,@CH00038 0066 00110000 CH R3,@CH00036 0066 00111000 BNH @DL00064 0066 00112000 * /* INITIALIZE THE WORK AREA HEADER INFORAMTION */ 00113000 * WKALEN1 = ADDR(ENDWKA) - ADDR(VSLOCWKA);/* WORK AREA LENGTH*/ 00114000 L @12,CTGWKA+144(,RWKAPTR) 0067 00115000 MVC WKALEN1(2,@12),@CH01109 0067 00116000 * WKALEN2 = CLEAR; /* CLEAR SECOND LNG FIELD */ 00117000 SLR @08,@08 0068 00118000 STH @08,WKALEN2(,@12) 0068 00119000 * /* CONSTRUCT THE TEST FPLS FOR LOCATING ENTVOL */ 00120000 * RFY (R4) RSTD; 0069 00121000 * RFY CTGFL BASED(R4); 0070 00122000 * DO R2 = R2 TO TOTALFLS; /* PROCESS THE TEST FPLS */ 00123000 B @DE00071 0071 00124000 @DL00071 DS 0H 0072 00125000 * R4 = ADDR(VSFPLS(R2 - INCR1));/* PREVIOUS FPL ADDRESS */ 00126000 LR @12,R2 0072 00127000 SLA @12,5 0072 00128000 LA R4,VSFPLS-64(@12,RWKAPTR) 0072 00129000 * R3 = ADDR(VSFPLS(R2)); /* TEST FPL ADDRESS */ 00130000 LA R3,VSFPLS-32(@12,RWKAPTR) 0073 00131000 * CTGFLCHN = R3; /* TEST FPL ADDRESS - CHAIN */ 00132000 ST R3,CTGFLCHN(,R4) 0074 00133000 * CALL FPLBUILD; /* COMMON FPL BUILD */ 00134000 BAL @14,FPLBUILD 0075 00135000 * RFY CTGFL BASED(R3); 0076 00136000 * CTGFLDGC = VOLGRPCD; /* VOLUME GROUP CODE VALUE */ 00137000 MVI CTGFLDGC(R3),X'03' 0077 00138000 * CTGFLDCD = CTGFLDEQ; /* TEST CONDITION CODE */ 00139000 MVI CTGFLDCD(R3),X'80' 0078 00140000 * END; 0079 00141000 AH R2,@CH00038 0079 00142000 @DE00071 CH R2,@CH00036 0079 00143000 BNH @DL00071 0079 00144000 * RFY (R4) UNRSTD; 0080 00145000 * /* INITIALIZE THE TEST DATA AND ITS DESCRIPTORS */ 00146000 * VSVOLTST = OBTVOLPT->VOLID; /* VOL SER TEST DATA */ 00147000 L @12,OBTVOLPT(,RPLPTR) 0081 00148000 MVC VSVOLTST(6,RWKAPTR),VOLID(@12) 0081 00149000 * VSCNTTST = INCR1; /* COUNT REP NO. DATA */ 00150000 MVC VSCNTTST(2,RWKAPTR),@CH00038 0082 00151000 * RFY CTGFL BASED(ADDR(VSFPLS(7))); /*YM8135*/ 00152000 * CTGFLPT(1) = ADDR(VSVOLTST); /* TEST DATA ADDRESS */ 00153000 LA @12,VSFPLS+192(,RWKAPTR) 0084 00154000 LA @08,VSVOLTST(,RWKAPTR) 0084 00155000 ST @08,CTGFLPT(,@12) 0084 00156000 * CTGFLNG(1) = LENGTH(VSVOLTST); /* TEST DATA LENGTH */ 00157000 MVC CTGFLNG(4,@12),@CF00200 0085 00158000 * RFY CTGFL BASED(ADDR(VSFPLS(8))); /*YM8135*/ 00159000 * CTGFLPT(1) = ADDR(VSCNTTST); /* TEST DATA ADDRESS */ 00160000 LA @12,VSFPLS+224(,RWKAPTR) 0087 00161000 LA @08,VSCNTTST(,RWKAPTR) 0087 00162000 ST @08,CTGFLPT(,@12) 0087 00163000 * CTGFLNG(1) = LENGTH(VSCNTTST); /* TEST DATA LENGTH */ 00164000 MVC CTGFLNG(4,@12),@CF00077 0088 00165000 * /***********************************************************/ 00166000 * /* LOCATE CERTAIN DATA FROM THE SPECIFIED ENTRY IN A VSAM */ 00167000 * /* CATALOG, IF THE ENTRY EXISTS IN THE CATALOG */ 00168000 * /***********************************************************/ 00169000 * RFY (R1,RETCDREG) RSTD; 0089 00170000 * R1 = ADDR(VSLOCCPL); /* SET THE CPL ADDRESS */ 00171000 LA R1,VSLOCCPL(,RWKAPTR) 0090 00172000 * GEN (SVC 26); /* CALL THE CATALOG LOCATE */ 00173000 SVC 26 00174000 * RFY (R1) UNRSTD; 0092 00175000 * /***********************************************************/ 00176000 * /* RETURN FROM VSAM CATALOG MANAGEMENT LOCATE */ 00177000 * /***********************************************************/ 00178000 * RFY CTGFL BASED(ADDR(VSFPLS(5))); /*ZA00116*/ 00179000 * IF CTGFLPT(1) = CLEAR | /*IF INVALID PTR OR YM8135*/ 00180000 * CTGFLPT(1) -> ENTYPE = CTGTALIN | /*ALIEN REQ @ZA06425*/ 00181000 * CTGFLPT(1) -> ENTYPE = CTGTUCAT | /*USER CAT @ZA06425*/ 00182000 * CTGFLPT(1) -> ENTYPE = CTGTGBS | /*GDG BASE @ZA06425*/ 00183000 * CTGFLPT(1) -> ENTYPE = CTGTANM THEN /*ALIAS NM @ZA06425*/ 00184000 LA @14,VSFPLS+128(,RWKAPTR) 0094 00185000 L @14,CTGFLPT(,@14) 0094 00186000 LTR @14,@14 0094 00187000 BZ @RT00094 0094 00188000 CLI ENTYPE(@14),C'A' 0094 00189000 BE @RT00094 0094 00190000 CLI ENTYPE(@14),C'U' 0094 00191000 BE @RT00094 0094 00192000 CLI ENTYPE(@14),C'B' 0094 00193000 BE @RT00094 0094 00194000 CLI ENTYPE(@14),C'X' 0094 00195000 BNE @RF00094 0094 00196000 @RT00094 DS 0H 0095 00197000 * RETCDREG = NODSCB; /*NO VSAM DATA SPACE ZA00116*/ 00198000 LA RETCDREG,8 0095 00199000 * ELSE /*VALID REQUEST YM8135*/ 00200000 * IF RETCDREG = CLEAR | /* ALL OKAY OR WORK AREA TOO*/ 00201000 * RETCDREG = RCVLSZ THEN /* SMALL, CHECK DATA */ 00202000 B @RC00094 0096 00203000 @RF00094 LTR RETCDREG,RETCDREG 0096 00204000 BZ @RT00096 0096 00205000 CH RETCDREG,@CH00996 0096 00206000 BNE @RF00096 0096 00207000 @RT00096 DS 0H 0097 00208000 * DO; /* CHECK FOR DATA RETURNED */ 00209000 * RFY IECSDSL1 BASED(ADDR(VSOBDSCB)); 0098 00210000 * RETCDREG = CLEAR; /* CLEAR RETURN CODE REG */ 00211000 SLR RETCDREG,RETCDREG 0099 00212000 * RFY CTGFL BASED(ADDR(VSFPLS(1)));/* CREATE DATE FPLS */ 00213000 * IF CTGFLPT(1) ^= CLEAR & /* VALID DATA POINTER */ 00214000 * CTGFLNG(1) ^= CLEAR THEN /* VALID LENGTH FOR DATA */ 00215000 SLR @14,@14 0101 00216000 LA @12,VSFPLS(,RWKAPTR) 0101 00217000 C @14,CTGFLPT(,@12) 0101 00218000 BE @RF00101 0101 00219000 C @14,CTGFLNG(,@12) 0101 00220000 BE @RF00101 0101 00221000 * DS1CREDT = VSCREDAT; /* SET RETURNED DATA-F'S OK */ 00222000 MVC DS1CREDT+4(3,RWKAPTR),VSCREDAT(RWKAPTR) 0102 00223000 * ELSE; /* NO DATA */ 00224000 @RF00101 DS 0H 0104 00225000 * RFY CTGFL BASED(ADDR(VSFPLS(2)));/* EXPIRE DATE FPLS */ 00226000 * IF CTGFLPT(1) ^= CLEAR & /* VALID DATA POINTER */ 00227000 * CTGFLNG(1)^= CLEAR THEN /* VALID DATA LENGTH */ 00228000 SLR @14,@14 0105 00229000 LA @12,VSFPLS+32(,RWKAPTR) 0105 00230000 C @14,CTGFLPT(,@12) 0105 00231000 BE @RF00105 0105 00232000 C @14,CTGFLNG(,@12) 0105 00233000 BE @RF00105 0105 00234000 * DS1EXPDT = VSEXPDAT; /* SET RETURNED DATA-F'S OK */ 00235000 MVC DS1EXPDT+4(3,RWKAPTR),VSEXPDAT(RWKAPTR) 0106 00236000 * ELSE; /* NO DATA */ 00237000 @RF00105 DS 0H 0108 00238000 * RFY CTGFL BASED(ADDR(VSFPLS(3)));/* LOG RCRD SIZE FPL */ 00239000 * IF CTGFLPT(1) ^= CLEAR & /* VALID DATA POINTER */ 00240000 * CTGFLNG(1) ^= CLEAR THEN /* VALID DATA LENGTH */ 00241000 SLR @14,@14 0109 00242000 LA @12,VSFPLS+64(,RWKAPTR) 0109 00243000 C @14,CTGFLPT(,@12) 0109 00244000 BE @RF00109 0109 00245000 C @14,CTGFLNG(,@12) 0109 00246000 BE @RF00109 0109 00247000 * IF VSLRECL ^= -INCR1 THEN /* VALID DATA VALUE -NO F'S*/ 00248000 CLC VSLRECL(4,RWKAPTR),@CF01113 0110 00249000 BE @RF00110 0110 00250000 * DSXLRECL = VSLRECL; /* SET RETURNED LRECL */ 00251000 MVC DSXLRECL+92(2,RWKAPTR),VSLRECL+2(RWKAPTR) 0111 00252000 * ELSE; /* NOT VALID DATA */ 00253000 @RF00110 DS 0H 0113 00254000 * ELSE; /* NO DATA */ 00255000 @RF00109 DS 0H 0114 00256000 * RFY CTGFL BASED(ADDR(VSFPLS(4)));/* AMDSB FPL */ 00257000 * IF CTGFLPT(1) ^= CLEAR & /* VALID DATA POINTER */ 00258000 * CTGFLNG(1) ^= CLEAR THEN /* VALID DATA LENGTH */ 00259000 SLR @14,@14 0115 00260000 LA @12,VSFPLS+96(,RWKAPTR) 0115 00261000 C @14,CTGFLPT(,@12) 0115 00262000 BE @RF00115 0115 00263000 C @14,CTGFLNG(,@12) 0115 00264000 BE @RF00115 0115 00265000 * DO; /* PROCESS AMDSB DATA VALUES*/ 00266000 * RFY IDAAMDSB BASED(ADDR(VSAMDSB)); 0117 00267000 * DSXKEYL = AMDKEYLN; /* KEY LENGTH VALUE */ 00268000 LA @14,474 0118 00269000 ALR @14,RWKAPTR 0118 00270000 MVC DSXKEYL+94(1,RWKAPTR),AMDKEYLN+1(@14) 0118 00271000 * DSXRKP = AMDRKP; /* RELATIVE KEY POSITION */ 00272000 MVC DSXRKP+95(2,RWKAPTR),AMDRKP(@14) 0119 00273000 * DSXBLKL= AMDLRECL; /* MAXIMUM LRECL */ 00274000 MVC DSXBLKL+90(2,RWKAPTR),AMDLRECL+2(@14) 0120 00275000 * END; /* NO DATA */ 00276000 * ELSE; 0122 00277000 @RF00115 DS 0H 0123 00278000 * RFY CTGFL BASED(ADDR(VSFPLS(6)));/* VOLUME FPL ZA00116*/ 00279000 * IF CTGFLPT(1) ^= CLEAR & /* VALID DATA POINTER */ 00280000 * CTGFLNG(1) ^= CLEAR THEN /* VALID DATA LENGTH */ 00281000 SLR @14,@14 0124 00282000 LA @12,VSFPLS+160(,RWKAPTR) 0124 00283000 C @14,CTGFLPT(,@12) 0124 00284000 BE @RF00124 0124 00285000 C @14,CTGFLNG(,@12) 0124 00286000 BE @RF00124 0124 00287000 * DO; /* PROCESS VOLUME FIELDS */ 00288000 * RFY GVO BASED(ADDR(VSVOLLOC)); 0126 00289000 * IF CMFLNOEX < MAXEXTS THEN /* LESS THAN MAX NO. EXT*/ 00290000 LA @14,573 0127 00291000 ALR @14,RWKAPTR 0127 00292000 CLI CMFLNOEX(@14),3 0127 00293000 BNL @RF00127 0127 00294000 * DSXNOEPV = CMFLNOEX; /* SET NO. OF EXTENTS ON VOL*/ 00295000 MVC DSXNOEPV+63(1,RWKAPTR),CMFLNOEX(@14) 0128 00296000 * ELSE /* MAXIMUM OR GREATER NO. */ 00297000 * DSXNOEPV = MAXEXTS; /* SET MAXIMUM NO. EXTENTS */ 00298000 B @RC00127 0129 00299000 @RF00127 MVI DSXNOEPV+63(RWKAPTR),X'03' 0129 00300000 * R2 = DSXNOEPV; /* GET NO. OF EXTS TO MOVE */ 00301000 @RC00127 SLR R2,R2 0130 00302000 IC R2,DSXNOEPV+63(,RWKAPTR) 0130 00303000 * RFY (R4) RSTD; 0131 00304000 * R4 = ADDR(CMFLLKLN) + CMFLLKLN + LENGTH(CMFLLKLN); 00305000 LA R4,CMFOVERL+573(,RWKAPTR) 0132 00306000 SH R4,@CH00036 0132 00307000 LA @14,CMFLLKLN(,R4) 0132 00308000 MVC @TF00001(2),CMFLLKLN(R4) 0132 00309000 AH @14,@TF00001 0132 00310000 AL @14,@CF00077 0132 00311000 LR R4,@14 0132 00312000 * R4 = R4 + R4->RANGELN + LENGTH(CMFLHKLN) + 0133 00313000 * LENGTH(CMFLEXLN); /* EXTENTS START LOCATION */ 00314000 LR @14,R4 0133 00315000 AH @14,RANGELN(,R4) 0133 00316000 AH @14,@CH00154 0133 00317000 LR R4,@14 0133 00318000 * RFY VSPHYEXT BASED(R4); 0134 00319000 * DO R3 = INCR1 TO R2; /* PROCESS ALL EXTENTS */ 00320000 LA R3,1 0135 00321000 B @DE00135 0135 00322000 @DL00135 DS 0H 0136 00323000 * DS1EXTX(R3) = VSCOMEXT(R3);/* SET EXTENT INFO */ 00324000 LR @14,R3 0136 00325000 MH @14,@CH00223 0136 00326000 LA @12,109 0136 00327000 ALR @12,RWKAPTR 0136 00328000 ST @14,@TF00001 0136 00329000 ALR @14,@12 0136 00330000 AL @14,@CF01134 0136 00331000 LR @08,R3 0136 00332000 MH @08,@CH00261 0136 00333000 ALR @08,R4 0136 00334000 AL @08,@CF01135 0136 00335000 MVC DS1EXTX(10,@14),VSCOMEXT(@08) 0136 00336000 * DS1EXTSQ(R3) = R3; /* SET EXTENT SEQUENCE NO. */ 00337000 L @14,@TF00001 0137 00338000 AL @14,@CF01136 0137 00339000 STC R3,DS1EXTSQ-1(@14,@12) 0137 00340000 * DS1EXTID(R3) = INCR1;/* SET EXTENT TYPE INFO */ 00341000 LA @14,1 0138 00342000 L @08,@TF00001 0138 00343000 AL @12,@CF01134 0138 00344000 STC @14,DS1EXTID(@08,@12) 0138 00345000 * END; 0139 00346000 AH R3,@CH00038 0139 00347000 @DE00135 CR R3,R2 0139 00348000 BNH @DL00135 0139 00349000 * RFY (R4) UNRSTD; 0140 00350000 * END; /* YM5916*/ 00351000 * ELSE; /* YM5916*/ 00352000 @RF00124 DS 0H 0143 00353000 * /* INITIALIZE THE REMAINDER OF THE DSCB DATA */ 00354000 * DS1DSIND = '00110000'B;/* INDICATE AS PROTECTED AND*/ 00355000 LA @14,4 0143 00356000 ALR @14,RWKAPTR 0143 00357000 MVI DS1DSIND(@14),B'00110000' 0143 00358000 * /* BLOCK LENGTH MULT OF 8 */ 00359000 * DS1DSORG = '0000000000001000'B;/* VSAM DSORG VALUE */ 00360000 MVC DS1DSORG(2,@14),@CB01097 0144 00361000 * DS1FMTID = 'F1'X; /* SET FORMAT 1 DSCB ID */ 00362000 MVI DS1FMTID(@14),X'F1' 0145 00363000 * DS1DSSN = OBTVOLPT -> VOLID; /* VOLUME SERIAL NBR */ 00364000 L @12,OBTVOLPT(,RPLPTR) 0146 00365000 MVC DS1DSSN(6,@14),VOLID(@12) 0146 00366000 * /* MOVE THE DSCB INFORMATION INTO THE CALLERS AREA */ 00367000 * RFY (R1) RSTD; 0147 00368000 * GEN REFS (RB,TCB,R1,R2); 0148 00369000 L R1,TCBADDR LOAD THE TCB ADDRESS Y02078 00370000 USING TCB,R1 TCB ADDRESSABILITY Y02078 00371000 MODESET EXTKEY=RBT234,WORKREG=2 SWITCH TO CALLERS KEY Y02078 00372000 DROP R1 Y02078 00373000 * RFY (R1) UNRSTD; 0149 00374000 * R2 = OBTWKAPT; /* USER WORK AREA ADDRESS */ 00375000 L R2,OBTWKAPT(,RPLPTR) 0150 00376000 * R3 = ADDR(VSDSCBDT); /* FORMATTED DSCB DATA ADDR */ 00377000 LA R3,VSDSCBDT(,RWKAPTR) 0151 00378000 * R2->DS1DATA = R3->DS1DATA;/* MOVE DSCB INTO WORK A */ 00379000 MVC DS1DATA(96,R2),DS1DATA(R3) 0152 00380000 * R2 = R2 + LENGTH(DS1DATA);/* CCHHR LOCATION */ 00381000 AH R2,@CH01003 0153 00382000 * RFY DSCBVTAD BASED(R2); 0154 00383000 * DSCBVTAD = DSCBVTAD && DSCBVTAD;/* CLEAR CCHHR DATA*/ 00384000 XC DSCBVTAD(5,R2),DSCBVTAD(R2) 0155 00385000 * RETCDREG = CLEAR; /* CLEAR RETURN CODE REG */ 00386000 SLR RETCDREG,RETCDREG 0156 00387000 * GEN (MODESET EXTKEY=SUPR); 0157 00388000 MODESET EXTKEY=SUPR 00389000 * END; 0158 00390000 * ELSE /* LOCATE FAILED */ 00391000 * RETCDREG = NODSCB; /* SET DATA SET NOT FOUND */ 00392000 B @RC00096 0159 00393000 @RF00096 LA RETCDREG,8 0159 00394000 * /***********************************************************/ 00395000 * /* FREE THE OBTAIN WORK AREA STORAGE */ 00396000 * /***********************************************************/ 00397000 * RFY (R0,R1,R4,R5,R6,R7,RERRSAVE,R12,R14) RSTD; 0160 00398000 @RC00096 DS 0H 0160 00399000 @RC00094 DS 0H 0161 00400000 * RERRSAVE=RETCDREG; /* SAVE RETURN CODE */ 00401000 LR RERRSAVE,RETCDREG 0161 00402000 * GEN (IECRES FREE,PREFIX=FIRST,A=(RWKAREA)) 0162 00403000 * REFS (CVT,RWKAREA); /* FREE WORK AREAS */ 00404000 IECRES FREE,PREFIX=FIRST,A=(RWKAREA) 00405000 * RETCDREG=RERRSAVE; /* RESTORE RETURN CODE */ 00406000 LR RETCDREG,RERRSAVE 0163 00407000 * RFY (R0,R1,R4,R5,R6,R7,RERRSAVE,R12) UNRSTD; 0164 00408000 * /************************************************************/ 00409000 * /* RETURN TO THE CALLER */ 00410000 * /************************************************************/ 00411000 * EXIT: 0165 00412000 * R14=CVTEXPRO; /* LOAD EXIT PROLOG ADDRESS */ 00413000 EXIT L @12,CVTPTR 0165 00414000 L R14,CVTEXPRO(,@12) 0165 00415000 * GOTO R14; /* RETURN TO CALLER */ 00416000 BR R14 0166 00417000 * FPLBUILD: 0167 00418000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0167 00419000 FPLBUILD DS 0H 0168 00420000 * /***********************************************************/ 00421000 * /* */ 00422000 * /* FPLBUILD - THIS INTERNAL PROCEDURE CONSTRUCTS THE FPLS */ 00423000 * /* THAT ARE USED TO LOCATE SPECIFIC DATA FIELDS IN AN */ 00424000 * /* ENTRY, IF IT EXISTS IN THE VSAM CATALOG */ 00425000 * /* */ 00426000 * /***********************************************************/ 00427000 * RFY (R2,R3,R14) RSTD; 0168 00428000 * RFY CTGFL BASED(R3); 0169 00429000 * CTGFL = CTGFL && CTGFL; /* CLEAR THE FPL STORAGE */ 00430000 XC CTGFL(16,R3),CTGFL(R3) 0170 00431000 * CTGFLDNM = ADDR(VSFPLFNM(R2)); /* FIELD NAME LOCATION */ 00432000 LR @12,R2 0171 00433000 SLA @12,5 0171 00434000 LA @12,VSFPLFNM-32(@12,RWKAPTR) 0171 00435000 ST @12,CTGFLDNM(,R3) 0171 00436000 * CTGFLDNO = INCR1; /* NO. OF LNG/DATA POINTERS */ 00437000 MVI CTGFLDNO(R3),X'01' 0172 00438000 * CTGFLPT(1) = CLEAR; /* CLEAR DATA ADDR POINTER */ 00439000 SLR @12,@12 0173 00440000 ST @12,CTGFLPT(,R3) 0173 00441000 * CTGFLNG(1) = CLEAR; /* CLEAR DATA LENGTH FIELD */ 00442000 ST @12,CTGFLNG(,R3) 0174 00443000 * END FPLBUILD; 0175 00444000 @EL00002 DS 0H 0175 00445000 @EF00002 DS 0H 0175 00446000 @ER00002 BR @14 0175 00447000 * GEN (EJECT); 0176 00448000 EJECT 00449000 * /***********************************************************/ 00450000 * /* END OF MODULE DELIMITER AND PATCH AREA */ 00451000 * /***********************************************************/ 00452000 * GEN DATA; 0177 00453000 * END 0178 00454000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00455000 */*%INCLUDE SYSLIB (IEZCTGPL) * 00456000 */*%INCLUDE SYSLIB (IEZCTGFL) * 00457000 */*%INCLUDE SYSLIB (IECSDSL1) * 00458000 */*%INCLUDE SYSLIB (IGGMGVO ) * 00459000 */*%INCLUDE SYSLIB (IDAAMDSB) * 00460000 */*%INCLUDE SYSLIB (CVT ) * 00461000 *; 0178 00462000 @EL00001 DS 0H 0178 00463000 @EF00001 DS 0H 0178 00464000 @ER00001 BR @14 0178 00465000 @DATA DS 0H 00466000 @CH00038 DC H'1' 00467000 @CH00154 DC H'4' 00468000 @CH00036 DC H'8' 00469000 @CH00223 DC H'10' 00470000 @CH00261 DC H'20' 00471000 @CH00996 DC H'40' 00472000 @CH01003 DC H'96' 00473000 @CH01109 DC H'352' 00474000 @DATD DSECT 00475000 DS 0F 00476000 @TF00001 DS F 00477000 @ZTEMPS DS C 00478000 @ZTEMPND EQU * 00479000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00480000 IGC0102G CSECT 00481000 DS 0F 00482000 @CF00077 DC F'2' 00483000 @CF00200 DC F'6' 00484000 @CH00200 EQU @CF00200+2 00485000 @CF01135 DC F'-20' 00486000 @CF01134 DC F'-10' 00487000 @CF01136 DC F'-9' 00488000 @CF01113 DC F'-1' 00489000 @DATD DSECT 00490000 DS 0D 00491000 IGC0102G CSECT 00492000 DS 0F 00493000 @SIZDATD DC AL1(0) 00494000 DC AL3(@ENDDATD-@DATD) 00495000 DS 0D 00496000 @CB01097 DC B'0000000000001000' 00497000 TBLFPLNM DC CL8'DSETCRDT' 00498000 DC CL8'DSETEXDT' 00499000 DC CL8'LRECL ' 00500000 DC CL8'AMDSBCAT' 00501000 DC CL8'ENTYPE ' 00502000 DC CL8'ENTVOL ' 00503000 DC CL8'VOLSER ' 00504000 DC CL8'CNTREPNO' 00505000 @DATD DSECT 00506000 IGC0102G CSECT Y02080 00507000 XCTLTABL SVC=027,LENGTH=,BRT=YES Y02080 00508000 SPACE 2 Y02078 00509000 IECDSECS RB,TCB,EXPAND=YES RB AND TCB DSECTS Y02078 00510000 WORKAREA IECOBTWA EP OBTAIN WORK AREA Y02080 00511000 @DATD DSECT 00512000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00513000 @ENDDATD EQU * 00514000 IGC0102G CSECT 00515000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00516000 @01 EQU 01 00517000 @02 EQU 02 00518000 @03 EQU 03 00519000 @04 EQU 04 00520000 @05 EQU 05 00521000 @06 EQU 06 00522000 @07 EQU 07 00523000 @08 EQU 08 00524000 @09 EQU 09 00525000 @10 EQU 10 00526000 @11 EQU 11 00527000 @12 EQU 12 00528000 @13 EQU 13 00529000 @14 EQU 14 00530000 @15 EQU 15 00531000 R0 EQU @00 00532000 R1 EQU @01 00533000 R2 EQU @02 00534000 R3 EQU @03 00535000 R4 EQU @04 00536000 R5 EQU @05 00537000 R6 EQU @06 00538000 R7 EQU @07 00539000 RERRSAVE EQU @08 00540000 RWKAPTR EQU @09 00541000 RPLPTR EQU @10 00542000 RBASE EQU @11 00543000 R12 EQU @12 00544000 RWKAREA EQU @13 00545000 R14 EQU @14 00546000 RETCDREG EQU @15 00547000 CVTPTR EQU 16 00548000 CTGPL EQU 0 00549000 CTGOPTN1 EQU CTGPL 00550000 CTGBYPSS EQU CTGOPTN1 00551000 CTGNAME EQU CTGOPTN1 00552000 CTGOPTN2 EQU CTGPL+1 00553000 CTGEXT EQU CTGOPTN2 00554000 CTGERASE EQU CTGOPTN2 00555000 CTGSMF EQU CTGERASE 00556000 CTGREL EQU CTGSMF 00557000 CTGPURG EQU CTGOPTN2 00558000 CTGVMNT EQU CTGPURG 00559000 CTGOPTN3 EQU CTGPL+2 00560000 CTGFUNC EQU CTGOPTN3 00561000 CTGAM0 EQU CTGOPTN3 00562000 CTGOPTN4 EQU CTGPL+3 00563000 CTGTIOT EQU CTGOPTN4 00564000 CTGENT EQU CTGPL+4 00565000 CTGCAT EQU CTGPL+8 00566000 CTGWKA EQU CTGPL+12 00567000 CTGDSORG EQU CTGPL+16 00568000 CTGNOFLD EQU CTGPL+19 00569000 CTGDDNM EQU CTGPL+20 00570000 CTGNEWNM EQU CTGDDNM 00571000 CTGFBFLG EQU CTGNEWNM+2 00572000 CTGJSCB EQU CTGPL+24 00573000 CTGFIELD EQU CTGPL+28 00574000 CTGFL EQU 0 00575000 CTGFLDNO EQU CTGFL 00576000 CTGFLDCD EQU CTGFL+1 00577000 CTGFLDGC EQU CTGFL+2 00578000 CTGFLDRE EQU CTGFL+3 00579000 CTGFLDNM EQU CTGFL+8 00580000 CTGFLCHN EQU CTGFL+12 00581000 CTGFLDAT EQU CTGFL+16 00582000 CTGFLNG EQU CTGFLDAT 00583000 CTGFLPT EQU CTGFLDAT+4 00584000 IECSDSF1 EQU 0 00585000 IECSDSL1 EQU 0 00586000 DS1DSNAM EQU IECSDSL1 00587000 DS1FMTID EQU IECSDSL1+44 00588000 DS1DSSN EQU IECSDSL1+45 00589000 DS1CREDT EQU IECSDSL1+53 00590000 DS1EXPDT EQU IECSDSL1+56 00591000 DS1NOEPV EQU IECSDSL1+59 00592000 DS1DSORG EQU IECSDSL1+82 00593000 DS1BLKL EQU IECSDSL1+86 00594000 DS1LRECL EQU IECSDSL1+88 00595000 DS1KEYL EQU IECSDSL1+90 00596000 DS1RKP EQU IECSDSL1+91 00597000 DS1DSIND EQU IECSDSL1+93 00598000 DS1EXT1 EQU IECSDSL1+105 00599000 GVO EQU 0 00600000 CMFLVLFL EQU GVO+12 00601000 CMFLNOEX EQU GVO+13 00602000 CMFLITEX EQU GVO+34 00603000 CMFOVERL EQU GVO+37 00604000 CMFOVLAY EQU 0 00605000 CMFLLKLN EQU CMFOVLAY+8 00606000 CMFLHKLN EQU CMFOVLAY+10 00607000 CMFLEXLN EQU CMFOVLAY+12 00608000 CMFXECTS EQU 0 00609000 CMFXEXST EQU CMFXECTS+2 00610000 CMFXSTA EQU CMFXEXST 00611000 CMFXEXED EQU CMFXECTS+6 00612000 CMFXEDA EQU CMFXEXED 00613000 IDAAMDSB EQU 0 00614000 AMDATTR EQU IDAAMDSB+1 00615000 AMDNEST EQU IDAAMDSB+4 00616000 AMDRKP EQU IDAAMDSB+6 00617000 AMDKEYLN EQU IDAAMDSB+8 00618000 AMDLRECL EQU IDAAMDSB+24 00619000 AMDHLRBA EQU IDAAMDSB+28 00620000 AMDSSRBA EQU IDAAMDSB+32 00621000 AMDATTR3 EQU IDAAMDSB+40 00622000 AMDSTAT EQU IDAAMDSB+48 00623000 CVTMAP EQU 0 00624000 CVT EQU CVTMAP 00625000 CVTDAR EQU CVTMAP+72 00626000 CVTFLGS1 EQU CVTDAR 00627000 CVTDCB EQU CVTMAP+116 00628000 CVTIOQET EQU CVTMAP+120 00629000 CVTIERLC EQU CVTMAP+144 00630000 CVTHEAD EQU CVTMAP+160 00631000 CVTSV76C EQU CVTHEAD 00632000 CVTOPTA EQU CVTMAP+182 00633000 CVTOPTB EQU CVTMAP+183 00634000 CVTGTF EQU CVTMAP+236 00635000 CVTGTFST EQU CVTGTF 00636000 CVTGTFS EQU CVTGTFST 00637000 CVTSTATE EQU CVTGTFST 00638000 CVTTMODE EQU CVTGTFST 00639000 CVTFORM EQU CVTGTFST 00640000 CVTAQAVT EQU CVTMAP+240 00641000 CVTTCMFG EQU CVTAQAVT 00642000 CVTVOLM2 EQU CVTMAP+244 00643000 CVTTATA EQU CVTVOLM2 00644000 CVTTSKS EQU CVTTATA 00645000 CVTVOLF2 EQU CVTTSKS 00646000 CVTTAT EQU CVTTATA+1 00647000 CVTATER EQU CVTMAP+248 00648000 CVTEXT1 EQU CVTMAP+252 00649000 CVTPURG EQU CVTMAP+260 00650000 CVTQMSG EQU CVTMAP+268 00651000 CVTDMSR EQU CVTMAP+272 00652000 CVTRSV37 EQU CVTDMSR 00653000 CVTDMSRF EQU CVTRSV37 00654000 CVTERPV EQU CVTMAP+316 00655000 CVTINTLA EQU CVTMAP+320 00656000 CVTAPF EQU CVTMAP+324 00657000 CVTEXT2 EQU CVTMAP+328 00658000 CVTHJES EQU CVTMAP+332 00659000 CVTPGSIA EQU CVTMAP+348 00660000 CVTA1F1 EQU CVTMAP+356 00661000 CVTSYSK EQU CVTMAP+357 00662000 CVTVOLM1 EQU CVTMAP+380 00663000 CVTVOLF1 EQU CVTVOLM1 00664000 CVTATMCT EQU CVTMAP+388 00665000 CVTXTNT1 EQU 0 00666000 CVTXTNT2 EQU 0 00667000 CVTDSSV EQU CVTXTNT2 00668000 CVTFLGBT EQU CVTXTNT2+5 00669000 CVTQID EQU CVTXTNT2+24 00670000 CVTRV400 EQU CVTXTNT2+52 00671000 CVTRV409 EQU CVTXTNT2+53 00672000 CVTATCVT EQU CVTXTNT2+64 00673000 CVTRV429 EQU CVTXTNT2+84 00674000 CVTRV438 EQU CVTXTNT2+85 00675000 CVTRV457 EQU CVTXTNT2+112 00676000 CVTRV466 EQU CVTXTNT2+113 00677000 CVTFIX EQU 0 00678000 CVTRELNO EQU CVTFIX+252 00679000 ENTYPE EQU 0 00680000 DS1DATA EQU 0 00681000 DSCBVTAD EQU 0 00682000 DSXBLKL EQU 0 00683000 DSXKEYL EQU 0 00684000 DSXLRECL EQU 0 00685000 DSXNOEPV EQU 0 00686000 DSXRKP EQU 0 00687000 RANGELN EQU 0 00688000 VOLID EQU 0 00689000 DS1EXTX EQU 0 00690000 DS1EXTID EQU DS1EXTX 00691000 DS1EXTSQ EQU DS1EXTX+1 00692000 VSPHYEXT EQU 0 00693000 VSCOMEXT EQU VSPHYEXT 00694000 VSAMOBWA EQU 0 00695000 VSOBDSCB EQU VSAMOBWA+4 00696000 VSDSCBDT EQU VSOBDSCB+44 00697000 VSLOCCPL EQU VSAMOBWA+144 00698000 VSCPLFLD EQU VSAMOBWA+172 00699000 VSFPLS EQU VSAMOBWA+196 00700000 VSFPLFNM EQU VSFPLS+24 00701000 VSVOLTST EQU VSAMOBWA+452 00702000 VSCNTTST EQU VSAMOBWA+458 00703000 VSLOCWKA EQU VSAMOBWA+460 00704000 VSCREDAT EQU VSAMOBWA+464 00705000 VSEXPDAT EQU VSAMOBWA+467 00706000 VSLRECL EQU VSAMOBWA+470 00707000 VSAMDSB EQU VSAMOBWA+474 00708000 VSVOLLOC EQU VSAMOBWA+573 00709000 ENDWKA EQU VSAMOBWA+812 00710000 USERWKA EQU 0 00711000 WKALEN1 EQU USERWKA 00712000 WKALEN2 EQU USERWKA+2 00713000 OBTINPL EQU 0 00714000 OBTOPTCD EQU OBTINPL 00715000 OBTTENQ EQU OBTOPTCD+2 00716000 OBTDSNPT EQU OBTINPL+4 00717000 OBTVOLPT EQU OBTINPL+8 00718000 OBTWKAPT EQU OBTINPL+12 00719000 USERDSCB EQU 0 00720000 @NM00006 EQU CTGDDNM 00721000 CTGPROB EQU @NM00006 00722000 CTGREASN EQU CTGPROB+2 00723000 CVTS01 EQU CVTPGSIA 00724000 CVTLPDIA EQU CVTS01+12 00725000 CVTDIRST EQU CVTLPDIA 00726000 CVTSLIDA EQU CVTS01+24 00727000 CVTCTLFG EQU CVTS01+50 00728000 CVTEXPRO EQU CVTS01+260 00729000 CVTRV210 EQU CVTS01+424 00730000 CVTRV219 EQU CVTS01+425 00731000 CVTRV228 EQU CVTS01+426 00732000 CVTRV237 EQU CVTS01+427 00733000 CVTMFRTR EQU CVTS01+452 00734000 CVTRV262 EQU CVTS01+468 00735000 CVTRV271 EQU CVTS01+469 00736000 CVTRV280 EQU CVTS01+470 00737000 CVTRV289 EQU CVTS01+471 00738000 CVTGSDA EQU CVTS01+600 00739000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00740000 CVTRV628 EQU CVTS01+728 00741000 CVTRV627 EQU CVTS01+724 00742000 CVTRV626 EQU CVTS01+720 00743000 CVTRV625 EQU CVTS01+716 00744000 CVTRV624 EQU CVTS01+712 00745000 CVTRV623 EQU CVTS01+708 00746000 CVTRV622 EQU CVTS01+704 00747000 CVTRV621 EQU CVTS01+700 00748000 CVTIHASU EQU CVTS01+696 00749000 CVTRV619 EQU CVTS01+692 00750000 CVTRV618 EQU CVTS01+688 00751000 CVTRV617 EQU CVTS01+684 00752000 CVTRV616 EQU CVTS01+680 00753000 CVTRV615 EQU CVTS01+676 00754000 CVTRV614 EQU CVTS01+672 00755000 CVTRV613 EQU CVTS01+668 00756000 CVTTCASP EQU CVTS01+664 00757000 CVT0PT03 EQU CVTS01+660 00758000 CVT0PT0E EQU CVTS01+656 00759000 CVTRV609 EQU CVTS01+652 00760000 CVTCGK EQU CVTS01+648 00761000 CVTRAC EQU CVTS01+644 00762000 CVTRV606 EQU CVTS01+640 00763000 CVTRV605 EQU CVTS01+636 00764000 CVTRV604 EQU CVTS01+632 00765000 CVTEFF02 EQU CVTS01+628 00766000 CVTCBBR EQU CVTS01+624 00767000 CVTSSCR EQU CVTS01+620 00768000 CVTEVENT EQU CVTS01+616 00769000 CVTCRCA EQU CVTS01+612 00770000 CVTTPIO EQU CVTS01+608 00771000 CVTADV EQU CVTS01+604 00772000 CVTGSDAB EQU CVTGSDA 00773000 CVTQV3 EQU CVTS01+596 00774000 CVTQV2 EQU CVTS01+592 00775000 CVTQV1 EQU CVTS01+588 00776000 CVTRPT EQU CVTS01+584 00777000 CVTSSRB EQU CVTS01+580 00778000 CVTCSDRL EQU CVTS01+576 00779000 CVTEXP1 EQU CVTS01+572 00780000 CVTRMPMT EQU CVTS01+568 00781000 CVTRMPTT EQU CVTS01+564 00782000 CVTVPSA EQU CVTS01+560 00783000 CVTVSTOP EQU CVTS01+556 00784000 CVTGTFR8 EQU CVTS01+552 00785000 CVTQUIT EQU CVTS01+548 00786000 CVTVACR EQU CVTS01+544 00787000 CVTWTCB EQU CVTS01+540 00788000 CVTSTPRS EQU CVTS01+536 00789000 CVT0PT02 EQU CVTS01+532 00790000 CVTDARCM EQU CVTS01+528 00791000 CVTIRECM EQU CVTS01+524 00792000 CVTJRECM EQU CVTS01+520 00793000 CVTVEMS0 EQU CVTS01+516 00794000 CVTSPFRR EQU CVTS01+512 00795000 CVTRLSTG EQU CVTS01+508 00796000 CVT0TC0A EQU CVTS01+504 00797000 CVTGMBR EQU CVTS01+500 00798000 CVTLFRM EQU CVTS01+496 00799000 CVTRMBR EQU CVTS01+492 00800000 CVTVIOP EQU CVTS01+488 00801000 CVTRV307 EQU CVTS01+486 00802000 CVTRV306 EQU CVTS01+484 00803000 CVTRV305 EQU CVTS01+482 00804000 CVTRV304 EQU CVTS01+480 00805000 CVTRV303 EQU CVTS01+478 00806000 CVTRV302 EQU CVTS01+476 00807000 CVTTRCA EQU CVTS01+472 00808000 CVTRV297 EQU CVTRV289 00809000 CVTRV296 EQU CVTRV289 00810000 CVTRV295 EQU CVTRV289 00811000 CVTRV294 EQU CVTRV289 00812000 CVTRV293 EQU CVTRV289 00813000 CVTRV292 EQU CVTRV289 00814000 CVTRV291 EQU CVTRV289 00815000 CVTRV290 EQU CVTRV289 00816000 CVTRV288 EQU CVTRV280 00817000 CVTRV287 EQU CVTRV280 00818000 CVTRV286 EQU CVTRV280 00819000 CVTRV285 EQU CVTRV280 00820000 CVTRV284 EQU CVTRV280 00821000 CVTRV283 EQU CVTRV280 00822000 CVTRV282 EQU CVTRV280 00823000 CVTRV281 EQU CVTRV280 00824000 CVTRV279 EQU CVTRV271 00825000 CVTRV278 EQU CVTRV271 00826000 CVTRV277 EQU CVTRV271 00827000 CVTRV276 EQU CVTRV271 00828000 CVTRV275 EQU CVTRV271 00829000 CVTRV274 EQU CVTRV271 00830000 CVTRV273 EQU CVTRV271 00831000 CVTRV272 EQU CVTRV271 00832000 CVTRV270 EQU CVTRV262 00833000 CVTRV269 EQU CVTRV262 00834000 CVTRV268 EQU CVTRV262 00835000 CVTRV267 EQU CVTRV262 00836000 CVTRV266 EQU CVTRV262 00837000 CVTRV265 EQU CVTRV262 00838000 CVTRV264 EQU CVTRV262 00839000 CVTRV263 EQU CVTRV262 00840000 CVTVFP EQU CVTS01+464 00841000 CVTVSI EQU CVTS01+460 00842000 CVTVPSIB EQU CVTS01+456 00843000 CVTMFACT EQU CVTMFRTR 00844000 CVTMFCTL EQU CVTS01+448 00845000 CVTPVBP EQU CVTS01+444 00846000 CVTPWI EQU CVTS01+440 00847000 CVTRV254 EQU CVTS01+438 00848000 CVTRV253 EQU CVTS01+436 00849000 CVTRV252 EQU CVTS01+434 00850000 CVTRV251 EQU CVTS01+433 00851000 CVTRV250 EQU CVTS01+432 00852000 CVTRV249 EQU CVTS01+431 00853000 CVTRV248 EQU CVTS01+430 00854000 CVTRV247 EQU CVTS01+429 00855000 CVTRV246 EQU CVTS01+428 00856000 CVTRV245 EQU CVTRV237 00857000 CVTRV244 EQU CVTRV237 00858000 CVTRV243 EQU CVTRV237 00859000 CVTRV242 EQU CVTRV237 00860000 CVTRV241 EQU CVTRV237 00861000 CVTRV240 EQU CVTRV237 00862000 CVTRV239 EQU CVTRV237 00863000 CVTRV238 EQU CVTRV237 00864000 CVTRV236 EQU CVTRV228 00865000 CVTRV235 EQU CVTRV228 00866000 CVTRV234 EQU CVTRV228 00867000 CVTRV233 EQU CVTRV228 00868000 CVTRV232 EQU CVTRV228 00869000 CVTRV231 EQU CVTRV228 00870000 CVTRV230 EQU CVTRV228 00871000 CVTRV229 EQU CVTRV228 00872000 CVTRV227 EQU CVTRV219 00873000 CVTRV226 EQU CVTRV219 00874000 CVTRV225 EQU CVTRV219 00875000 CVTRV224 EQU CVTRV219 00876000 CVTRV223 EQU CVTRV219 00877000 CVTRV222 EQU CVTRV219 00878000 CVTRV221 EQU CVTRV219 00879000 CVTRV220 EQU CVTRV219 00880000 CVTRV218 EQU CVTRV210 00881000 CVTRV217 EQU CVTRV210 00882000 CVTRV216 EQU CVTRV210 00883000 CVTRV215 EQU CVTRV210 00884000 CVTRV214 EQU CVTRV210 00885000 CVTRV213 EQU CVTRV210 00886000 CVTRV212 EQU CVTRV210 00887000 CVTRV211 EQU CVTRV210 00888000 CVTLCCAT EQU CVTS01+420 00889000 CVTPCCAT EQU CVTS01+416 00890000 CVTIPCRP EQU CVTS01+412 00891000 CVTIPCRI EQU CVTS01+408 00892000 CVTIPCDS EQU CVTS01+404 00893000 CVTAIDVT EQU CVTS01+400 00894000 CVTSSAP EQU CVTS01+396 00895000 CVTEHCIR EQU CVTS01+392 00896000 CVTEHDEF EQU CVTS01+388 00897000 CVTDAIR EQU CVTS01+384 00898000 CVTPERFM EQU CVTS01+380 00899000 CVT044R2 EQU CVTS01+376 00900000 CVTFETCH EQU CVTS01+372 00901000 CVTRSTWD EQU CVTS01+368 00902000 CVTSPOST EQU CVTS01+364 00903000 CVTIOBP EQU CVTS01+360 00904000 CVTASMVT EQU CVTS01+356 00905000 CVTRECRQ EQU CVTS01+352 00906000 CVTWSAC EQU CVTS01+348 00907000 CVTRV149 EQU CVTS01+344 00908000 CVTWSAL EQU CVTS01+340 00909000 CVTSPSA EQU CVTS01+336 00910000 CVTGLMN EQU CVTS01+332 00911000 CVTVEAC0 EQU CVTS01+328 00912000 CVT062R1 EQU CVTS01+324 00913000 CVTRPOST EQU CVTS01+320 00914000 CVTDQIQE EQU CVTS01+316 00915000 CVTCSD EQU CVTS01+312 00916000 CVTLKRMA EQU CVTS01+308 00917000 CVTRSPIE EQU CVTS01+304 00918000 CVTRENQ EQU CVTS01+300 00919000 CVTLQCB EQU CVTS01+296 00920000 CVTFQCB EQU CVTS01+292 00921000 CVTQCS01 EQU CVTS01+288 00922000 CVTAPFT EQU CVTS01+284 00923000 CVTPARRL EQU CVTS01+280 00924000 CVTVWAIT EQU CVTS01+276 00925000 CVTGSPL EQU CVTS01+272 00926000 CVTLSMQ EQU CVTS01+268 00927000 CVTGSMQ EQU CVTS01+264 00928000 CVTOPCTP EQU CVTS01+256 00929000 CVTSIC EQU CVTS01+252 00930000 CVTTPIOS EQU CVTS01+248 00931000 CVTRTMS EQU CVTS01+244 00932000 CVTSDBF EQU CVTS01+240 00933000 CVTSCBP EQU CVTS01+236 00934000 CVTSDMP EQU CVTS01+232 00935000 CVTSV60 EQU CVTS01+228 00936000 CVTRTMCT EQU CVTS01+224 00937000 CVTASCBL EQU CVTS01+220 00938000 CVTASCBH EQU CVTS01+216 00939000 CVTGDA EQU CVTS01+212 00940000 CVTASVT EQU CVTS01+208 00941000 CVTVVMDI EQU CVTS01+204 00942000 CVTAQTOP EQU CVTS01+200 00943000 CVTIOSCS EQU CVTS01+196 00944000 CVTSDRM EQU CVTS01+192 00945000 CVTOPTE EQU CVTS01+188 00946000 CVTSTXU EQU CVTS01+184 00947000 CVTQUIS EQU CVTS01+180 00948000 CVTPARS EQU CVTS01+176 00949000 CVTS1EE EQU CVTS01+172 00950000 CVTFRAS EQU CVTS01+168 00951000 CVTQSAS EQU CVTS01+164 00952000 CVTCRAS EQU CVTS01+160 00953000 CVTCRMN EQU CVTS01+156 00954000 CVTDELCP EQU CVTS01+152 00955000 CVTFRECL EQU CVTS01+148 00956000 CVTGETCL EQU CVTS01+144 00957000 CVTBLDCP EQU CVTS01+140 00958000 CVTAUTHL EQU CVTS01+136 00959000 CVTSCAN EQU CVTS01+132 00960000 CVTRV144 EQU CVTS01+130 00961000 CVTMAXMP EQU CVTS01+128 00962000 CVTSTCK EQU CVTS01+124 00963000 CVTRV139 EQU CVTS01+123 00964000 CVTDSSAC EQU CVTS01+122 00965000 CVTRV513 EQU CVTS01+121 00966000 CVTIOSPL EQU CVTS01+120 00967000 CVTPTGT EQU CVTS01+116 00968000 CVTCSPIE EQU CVTS01+112 00969000 CVTSMFEX EQU CVTS01+108 00970000 CVTOLT0A EQU CVTS01+104 00971000 CVTSRBRT EQU CVTS01+100 00972000 CVTPUTL EQU CVTS01+96 00973000 CVTASCRL EQU CVTS01+92 00974000 CVTASCRF EQU CVTS01+88 00975000 CVTRV326 EQU CVTS01+84 00976000 CVTRV325 EQU CVTS01+80 00977000 CVTRV324 EQU CVTS01+76 00978000 CVT0VL01 EQU CVTS01+72 00979000 CVTSHRVM EQU CVTS01+68 00980000 CVTRV332 EQU CVTS01+64 00981000 CVTTAS EQU CVTS01+60 00982000 CVTRSCN EQU CVTS01+56 00983000 CVTTRAC2 EQU CVTS01+54 00984000 CVTTRACE EQU CVTS01+52 00985000 CVTAPG EQU CVTS01+51 00986000 CVTSDTRC EQU CVTCTLFG 00987000 CVTGTRCE EQU CVTCTLFG 00988000 CVTNOMP EQU CVTCTLFG 00989000 CVTRSV79 EQU CVTCTLFG 00990000 CVTDSTAT EQU CVTCTLFG 00991000 CVTRSV78 EQU CVTCTLFG 00992000 CVTRV333 EQU CVTCTLFG 00993000 CVTRV323 EQU CVTCTLFG 00994000 CVTSPVLK EQU CVTS01+49 00995000 CVTRSV77 EQU CVTS01+48 00996000 CVTRV331 EQU CVTS01+44 00997000 CVTRV330 EQU CVTS01+40 00998000 CVTRV329 EQU CVTS01+36 00999000 CVTRV328 EQU CVTS01+32 01000000 CVTRV322 EQU CVTS01+28 01001000 CVTSLID EQU CVTSLIDA+1 01002000 CVTSYLK EQU CVTSLIDA 01003000 CVTRV321 EQU CVTS01+20 01004000 CVTRV320 EQU CVTS01+16 01005000 CVTLPDIR EQU CVTLPDIA+1 01006000 CVTRSV69 EQU CVTDIRST 01007000 CVTRSV68 EQU CVTDIRST 01008000 CVTRSV67 EQU CVTDIRST 01009000 CVTRSV66 EQU CVTDIRST 01010000 CVTRSV65 EQU CVTDIRST 01011000 CVTRSV64 EQU CVTDIRST 01012000 CVTRSV63 EQU CVTDIRST 01013000 CVTDICOM EQU CVTDIRST 01014000 CVTPVTP EQU CVTS01+8 01015000 CVTLPDSR EQU CVTS01+4 01016000 CVTGETL EQU CVTS01 01017000 CTGREAS2 EQU CTGREASN+1 01018000 CTGREAS1 EQU CTGREASN 01019000 CTGMODID EQU CTGPROB 01020000 DSCBADDR EQU USERDSCB+96 01021000 DSCBDATA EQU USERDSCB 01022000 @NM00020 EQU OBTOPTCD 01023000 VSEXTNTS EQU VSAMOBWA+752 01024000 VSMAXKYS EQU VSAMOBWA+624 01025000 VSVLRLRP EQU VSAMOBWA+571 01026000 VSENTYPE EQU VSAMOBWA+570 01027000 VSNEDLNG EQU VSLOCWKA+2 01028000 VSPASLNG EQU VSLOCWKA 01029000 VSFPLDAT EQU VSFPLS+16 01030000 VSLOCFPL EQU VSFPLS 01031000 @NM00019 EQU VSOBDSCB 01032000 VSPLSTMP EQU VSAMOBWA 01033000 @NM00018 EQU VSPHYEXT+10 01034000 DS1EXRNG EQU DS1EXTX+2 01035000 CVTLEVL EQU CVTRELNO+2 01036000 CVTNUMB EQU CVTRELNO 01037000 CVTMDL EQU CVTFIX+250 01038000 @NM00017 EQU CVTFIX+248 01039000 @NM00016 EQU CVTFIX 01040000 CVTRV482 EQU CVTXTNT2+128 01041000 CVTRV481 EQU CVTXTNT2+124 01042000 CVTRV480 EQU CVTXTNT2+120 01043000 CVTRV479 EQU CVTXTNT2+118 01044000 CVTRV478 EQU CVTXTNT2+117 01045000 CVTRV477 EQU CVTXTNT2+116 01046000 CVTRV476 EQU CVTXTNT2+115 01047000 CVTRV475 EQU CVTXTNT2+114 01048000 CVTRV474 EQU CVTRV466 01049000 CVTRV473 EQU CVTRV466 01050000 CVTRV472 EQU CVTRV466 01051000 CVTRV471 EQU CVTRV466 01052000 CVTRV470 EQU CVTRV466 01053000 CVTRV469 EQU CVTRV466 01054000 CVTRV468 EQU CVTRV466 01055000 CVTRV467 EQU CVTRV466 01056000 CVTRV465 EQU CVTRV457 01057000 CVTRV464 EQU CVTRV457 01058000 CVTRV463 EQU CVTRV457 01059000 CVTRV462 EQU CVTRV457 01060000 CVTRV461 EQU CVTRV457 01061000 CVTRV460 EQU CVTRV457 01062000 CVTRV459 EQU CVTRV457 01063000 CVTRV458 EQU CVTRV457 01064000 CVTRV456 EQU CVTXTNT2+108 01065000 CVTRV455 EQU CVTXTNT2+104 01066000 CVTRV454 EQU CVTXTNT2+100 01067000 CVTRV453 EQU CVTXTNT2+96 01068000 CVTRV452 EQU CVTXTNT2+94 01069000 CVTRV451 EQU CVTXTNT2+92 01070000 CVTRV450 EQU CVTXTNT2+90 01071000 CVTRV449 EQU CVTXTNT2+88 01072000 CVTRV448 EQU CVTXTNT2+87 01073000 CVTRV447 EQU CVTXTNT2+86 01074000 CVTRV446 EQU CVTRV438 01075000 CVTRV445 EQU CVTRV438 01076000 CVTRV444 EQU CVTRV438 01077000 CVTRV443 EQU CVTRV438 01078000 CVTRV442 EQU CVTRV438 01079000 CVTRV441 EQU CVTRV438 01080000 CVTRV440 EQU CVTRV438 01081000 CVTRV439 EQU CVTRV438 01082000 CVTRV437 EQU CVTRV429 01083000 CVTRV436 EQU CVTRV429 01084000 CVTRV435 EQU CVTRV429 01085000 CVTRV434 EQU CVTRV429 01086000 CVTRV433 EQU CVTRV429 01087000 CVTRV432 EQU CVTRV429 01088000 CVTRV431 EQU CVTRV429 01089000 CVTRV430 EQU CVTRV429 01090000 CVTRV428 EQU CVTXTNT2+80 01091000 CVTRV427 EQU CVTXTNT2+76 01092000 CVTRV426 EQU CVTXTNT2+72 01093000 CVTRV425 EQU CVTXTNT2+68 01094000 CVTATACT EQU CVTATCVT 01095000 CVTRV423 EQU CVTXTNT2+62 01096000 CVTRV422 EQU CVTXTNT2+60 01097000 CVTRV421 EQU CVTXTNT2+58 01098000 CVTRV420 EQU CVTXTNT2+56 01099000 CVTRV419 EQU CVTXTNT2+55 01100000 CVTRV418 EQU CVTXTNT2+54 01101000 CVTRV417 EQU CVTRV409 01102000 CVTRV416 EQU CVTRV409 01103000 CVTRV415 EQU CVTRV409 01104000 CVTRV414 EQU CVTRV409 01105000 CVTRV413 EQU CVTRV409 01106000 CVTRV412 EQU CVTRV409 01107000 CVTRV411 EQU CVTRV409 01108000 CVTRV410 EQU CVTRV409 01109000 CVTRV408 EQU CVTRV400 01110000 CVTRV407 EQU CVTRV400 01111000 CVTRV406 EQU CVTRV400 01112000 CVTRV405 EQU CVTRV400 01113000 CVTRV404 EQU CVTRV400 01114000 CVTRV403 EQU CVTRV400 01115000 CVTRV402 EQU CVTRV400 01116000 CVTRV401 EQU CVTRV400 01117000 CVTICB EQU CVTXTNT2+48 01118000 CVTSKTA EQU CVTXTNT2+44 01119000 CVTRSV99 EQU CVTXTNT2+40 01120000 CVTRSV98 EQU CVTXTNT2+36 01121000 CVTRSV97 EQU CVTXTNT2+34 01122000 CVTRSV96 EQU CVTXTNT2+32 01123000 CVTOLTEP EQU CVTXTNT2+28 01124000 CVTQIDA EQU CVTQID+1 01125000 CVTRSV95 EQU CVTQID 01126000 CVTRSV94 EQU CVTXTNT2+20 01127000 CVTRSV93 EQU CVTXTNT2+16 01128000 CVTRSV92 EQU CVTXTNT2+12 01129000 CVTDEBVR EQU CVTXTNT2+8 01130000 CVTRSV91 EQU CVTXTNT2+6 01131000 CVTRSV9H EQU CVTFLGBT 01132000 CVTRSV9G EQU CVTFLGBT 01133000 CVTRSV9F EQU CVTFLGBT 01134000 CVTRSV9E EQU CVTFLGBT 01135000 CVTRSV9D EQU CVTFLGBT 01136000 CVTRSV9C EQU CVTFLGBT 01137000 CVTVME EQU CVTFLGBT 01138000 CVTNPE EQU CVTFLGBT 01139000 CVTNUCLS EQU CVTXTNT2+4 01140000 CVTDSSVA EQU CVTDSSV+1 01141000 CVTRSV89 EQU CVTDSSV 01142000 CVTRSV88 EQU CVTXTNT1+8 01143000 CVTRSV87 EQU CVTXTNT1+4 01144000 CVTFACHN EQU CVTXTNT1 01145000 CVTRV488 EQU CVTMAP+412 01146000 CVTRV487 EQU CVTMAP+408 01147000 CVTRV486 EQU CVTMAP+404 01148000 CVTRV485 EQU CVTMAP+400 01149000 CVTACTAP EQU CVTMAP+396 01150000 CVTAUTH EQU CVTMAP+392 01151000 CVTATMCA EQU CVTATMCT+1 01152000 CVTATMST EQU CVTATMCT 01153000 CVTRSV61 EQU CVTMAP+384 01154000 CVTVOLT1 EQU CVTVOLM1+1 01155000 CVTVOLI1 EQU CVTVOLF1 01156000 CVTSTOA EQU CVTMAP+376 01157000 CVTRSV58 EQU CVTMAP+374 01158000 CVTRSV57 EQU CVTMAP+372 01159000 CVTDDCE EQU CVTMAP+368 01160000 CVTPNWFR EQU CVTMAP+364 01161000 CVTSMF EQU CVTMAP+360 01162000 CVTSULK EQU CVTMAP+358 01163000 CVTSLKO EQU CVTSYSK 01164000 CVTSLKP EQU CVTSYSK 01165000 CVTSLKQ EQU CVTSYSK 01166000 CVTSLKR EQU CVTSYSK 01167000 CVTRSV56 EQU CVTSYSK 01168000 CVTRSV55 EQU CVTSYSK 01169000 CVTRSV54 EQU CVTSYSK 01170000 CVTRSV53 EQU CVTSYSK 01171000 CVTRSV52 EQU CVTA1F1 01172000 CVTRSV51 EQU CVTA1F1 01173000 CVTRSV50 EQU CVTA1F1 01174000 CVTRSV49 EQU CVTA1F1 01175000 CVTRSV48 EQU CVTA1F1 01176000 CVTRSV47 EQU CVTA1F1 01177000 CVTSRSW EQU CVTA1F1 01178000 CVTPFSW EQU CVTA1F1 01179000 CVTPCVT EQU CVTMAP+352 01180000 CVTRSV46 EQU CVTMAP+344 01181000 CVTRSV45 EQU CVTMAP+340 01182000 CVTRSV44 EQU CVTMAP+338 01183000 CVTRSV43 EQU CVTMAP+336 01184000 CVTHJESA EQU CVTHJES+1 01185000 CVTRSV42 EQU CVTHJES 01186000 CVTEXT2A EQU CVTEXT2+1 01187000 CVTRSV41 EQU CVTEXT2 01188000 CVTAPFA EQU CVTAPF+1 01189000 CVTRSV40 EQU CVTAPF 01190000 CVTRV518 EQU CVTINTLA 01191000 CVTRV517 EQU CVTERPV 01192000 CVTEORM EQU CVTMAP+312 01193000 CVTMCHPR EQU CVTMAP+308 01194000 CVTTZ EQU CVTMAP+304 01195000 CVTJEPS EQU CVTMAP+300 01196000 CVTJESCT EQU CVTMAP+296 01197000 CVTMODE EQU CVTMAP+292 01198000 CVTPTRV EQU CVTMAP+288 01199000 CVTREAL EQU CVTMAP+284 01200000 CVTRSV39 EQU CVTMAP+280 01201000 CVTRSV38 EQU CVTMAP+276 01202000 CVTDMSRA EQU CVTDMSR+1 01203000 CVTRV634 EQU CVTDMSRF 01204000 CVTRV633 EQU CVTDMSRF 01205000 CVTRV632 EQU CVTDMSRF 01206000 CVTRV631 EQU CVTDMSRF 01207000 CVTRV630 EQU CVTDMSRF 01208000 CVTRV629 EQU CVTDMSRF 01209000 CVTUDUMP EQU CVTDMSRF 01210000 CVTSDUMP EQU CVTDMSRF 01211000 CVTQMSGA EQU CVTQMSG+1 01212000 CVTRSV36 EQU CVTQMSG 01213000 CVTAMFF EQU CVTMAP+264 01214000 CVTPURGA EQU CVTPURG+1 01215000 CVTRSV35 EQU CVTPURG 01216000 CVTCBSP EQU CVTMAP+256 01217000 CVTATERA EQU CVTATER+1 01218000 CVTSYST EQU CVTATER 01219000 CVTVOLT2 EQU CVTTAT 01220000 CVTVOLI2 EQU CVTVOLF2 01221000 CVTAQAVB EQU CVTAQAVT+1 01222000 CVTRSV34 EQU CVTTCMFG 01223000 CVTRSV33 EQU CVTTCMFG 01224000 CVTRSV32 EQU CVTTCMFG 01225000 CVTRSV31 EQU CVTTCMFG 01226000 CVTRSV30 EQU CVTTCMFG 01227000 CVTRSV29 EQU CVTTCMFG 01228000 CVTRSV28 EQU CVTTCMFG 01229000 CVTTCRDY EQU CVTTCMFG 01230000 CVTGTFA EQU CVTGTF+1 01231000 CVTRSV27 EQU CVTGTFST 01232000 CVTRNIO EQU CVTGTFST 01233000 CVTUSR EQU CVTGTFST 01234000 CVTRV318 EQU CVTFORM 01235000 CVTRV317 EQU CVTTMODE 01236000 CVTRV316 EQU CVTSTATE 01237000 CVTRV315 EQU CVTGTFS 01238000 CVTGTFAV EQU CVTGTFS 01239000 CVT0SCR1 EQU CVTMAP+232 01240000 CVTRV515 EQU CVTMAP+228 01241000 CVTRMS EQU CVTMAP+224 01242000 CVTPATCH EQU CVTMAP+220 01243000 CVTTSCE EQU CVTMAP+216 01244000 CVTLNKSC EQU CVTMAP+214 01245000 CVTQABST EQU CVTMAP+212 01246000 CVTMDLDS EQU CVTMAP+208 01247000 CVTUSER EQU CVTMAP+204 01248000 CVTABEND EQU CVTMAP+200 01249000 CVTSMCA EQU CVTMAP+196 01250000 CVTRSV18 EQU CVTMAP+192 01251000 CVTQLPAQ EQU CVTMAP+188 01252000 CVTQCDSR EQU CVTMAP+184 01253000 CVTRSV17 EQU CVTOPTB 01254000 CVTRSV16 EQU CVTOPTB 01255000 CVTFP EQU CVTOPTB 01256000 CVTAPTHR EQU CVTOPTB 01257000 CVTNLOG EQU CVTOPTB 01258000 CVTTOD EQU CVTOPTB 01259000 CVTCTIMS EQU CVTOPTB 01260000 CVTPROT EQU CVTOPTB 01261000 CVTXPFP EQU CVTOPTA 01262000 CVTASCII EQU CVTOPTA 01263000 CVTRSV13 EQU CVTOPTA 01264000 CVTRSV12 EQU CVTOPTA 01265000 CVTNIP EQU CVTOPTA 01266000 CVTDDR EQU CVTOPTA 01267000 CVTAPR EQU CVTOPTA 01268000 CVTCCH EQU CVTOPTA 01269000 CVTSNCTR EQU CVTMAP+180 01270000 CVTQMWR EQU CVTMAP+176 01271000 CVTQOCR EQU CVTMAP+172 01272000 CVT1EF00 EQU CVTMAP+168 01273000 CVTMZ00 EQU CVTMAP+164 01274000 CVTSV76Q EQU CVTSV76C 01275000 CVTRSV11 EQU CVTMAP+156 01276000 CVT0PT01 EQU CVTMAP+152 01277000 CVTMSER EQU CVTMAP+148 01278000 CVTRV516 EQU CVTIERLC 01279000 CVTILCH EQU CVTMAP+140 01280000 CVT0DS EQU CVTMAP+136 01281000 CVTFBOSV EQU CVTMAP+132 01282000 CVTNUCB EQU CVTMAP+128 01283000 CVTIXAVL EQU CVTMAP+124 01284000 CVTSV76M EQU CVTIOQET 01285000 CVTDCBA EQU CVTMAP+117 01286000 CVTMVS2 EQU CVTDCB 01287000 CVT6DAT EQU CVTDCB 01288000 CVT4MPS EQU CVTDCB 01289000 CVTRSV09 EQU CVTDCB 01290000 CVT4MS1 EQU CVTDCB 01291000 CVT2SPS EQU CVTDCB 01292000 CVT1SSS EQU CVTDCB 01293000 CVTRSV08 EQU CVTDCB 01294000 CVTSTB EQU CVTMAP+112 01295000 CVTQTD00 EQU CVTMAP+108 01296000 CVTQTE00 EQU CVTMAP+104 01297000 CVTCUCB EQU CVTMAP+100 01298000 CVTSJQ EQU CVTMAP+96 01299000 CVTPBLDL EQU CVTMAP+92 01300000 CVTTPC EQU CVTMAP+88 01301000 CVTSVDCB EQU CVTMAP+84 01302000 CVTBRET EQU CVTMAP+82 01303000 CVTEXIT EQU CVTMAP+80 01304000 CVT0FN00 EQU CVTMAP+76 01305000 CVTDARA EQU CVTDAR+1 01306000 CVTRSV07 EQU CVTFLGS1 01307000 CVTRSV06 EQU CVTFLGS1 01308000 CVTRSV05 EQU CVTFLGS1 01309000 CVTRSV04 EQU CVTFLGS1 01310000 CVTRSV03 EQU CVTFLGS1 01311000 CVTRSV02 EQU CVTFLGS1 01312000 CVTRSV01 EQU CVTFLGS1 01313000 CVTDMPLK EQU CVTFLGS1 01314000 CVTXITP EQU CVTMAP+68 01315000 CVTZDTAB EQU CVTMAP+64 01316000 CVTMSLT EQU CVTMAP+60 01317000 CVTDATE EQU CVTMAP+56 01318000 CVTBTERM EQU CVTMAP+52 01319000 CVTSYSAD EQU CVTMAP+48 01320000 CVTXTLER EQU CVTMAP+44 01321000 CVTILK2 EQU CVTMAP+40 01322000 CVTILK1 EQU CVTMAP+36 01323000 CVTPRLTV EQU CVTMAP+32 01324000 CVTPCNVT EQU CVTMAP+28 01325000 CVT0VL00 EQU CVTMAP+24 01326000 CVTXAPG EQU CVTMAP+20 01327000 CVTBUF EQU CVTMAP+16 01328000 CVTJOB EQU CVTMAP+12 01329000 CVTLINK EQU CVTMAP+8 01330000 CVT0EF00 EQU CVTMAP+4 01331000 CVTTCBP EQU CVTMAP 01332000 AMDEXCP EQU AMDSTAT+44 01333000 AMDNCAS EQU AMDSTAT+40 01334000 AMDNCIS EQU AMDSTAT+36 01335000 AMDASPA EQU AMDSTAT+32 01336000 AMDRETR EQU AMDSTAT+28 01337000 AMDUPR EQU AMDSTAT+24 01338000 AMDIREC EQU AMDSTAT+20 01339000 AMDDELR EQU AMDSTAT+16 01340000 AMDNLR EQU AMDSTAT+12 01341000 AMDNEXT EQU AMDSTAT+10 01342000 AMDNIL EQU AMDSTAT+8 01343000 AMDSTSP EQU AMDSTAT 01344000 @NM00015 EQU IDAAMDSB+41 01345000 @NM00014 EQU AMDATTR3 01346000 AMDLM EQU AMDATTR3 01347000 AMDWAIT EQU AMDATTR3 01348000 AMDBIND EQU AMDATTR3 01349000 AMDFAULT EQU AMDATTR3 01350000 AMDUNQ EQU AMDATTR3 01351000 AMDPARDB EQU IDAAMDSB+36 01352000 AMDMAXRR EQU AMDSSRBA 01353000 AMDNSLOT EQU AMDHLRBA 01354000 AMDCINV EQU IDAAMDSB+20 01355000 AMDFSCI EQU IDAAMDSB+16 01356000 AMDFSCA EQU IDAAMDSB+14 01357000 AMDCIPCA EQU IDAAMDSB+12 01358000 AMDPCTCI EQU IDAAMDSB+11 01359000 AMDPCTCA EQU IDAAMDSB+10 01360000 AMDAXRKP EQU AMDNEST 01361000 AMDLEN EQU IDAAMDSB+2 01362000 AMDSPAN EQU AMDATTR 01363000 AMDRRDS EQU AMDATTR 01364000 AMDRANGE EQU AMDATTR 01365000 AMDORDER EQU AMDATTR 01366000 AMDREPL EQU AMDATTR 01367000 AMDSDT EQU AMDATTR 01368000 AMDWCK EQU AMDATTR 01369000 AMDDST EQU AMDATTR 01370000 AMDSBID EQU IDAAMDSB 01371000 CMFXHRBA EQU CMFXECTS+16 01372000 CMFXLRBA EQU CMFXECTS+12 01373000 CMFXNOTT EQU CMFXECTS+10 01374000 CMFXEDHH EQU CMFXEDA+2 01375000 CMFXEDCC EQU CMFXEDA 01376000 CMFXSTHH EQU CMFXSTA+2 01377000 CMFXSTCC EQU CMFXSTA 01378000 CMFXEXSS EQU CMFXECTS 01379000 CMFLEND EQU CMFOVLAY+14 01380000 CMFBYTAU EQU CMFOVLAY+4 01381000 CMFBYTRK EQU CMFOVLAY 01382000 CMFLSSDS EQU GVO+35 01383000 @NM00013 EQU CMFLITEX 01384000 CMFLNOPF EQU CMFLITEX 01385000 CMFLSSDT EQU CMFLITEX 01386000 CMFLNTKA EQU GVO+32 01387000 CMFLNBTK EQU GVO+30 01388000 CMFLPHYB EQU GVO+26 01389000 CMFLHABA EQU GVO+22 01390000 CMFLHUBA EQU GVO+18 01391000 CMFLHKBA EQU GVO+14 01392000 @NM00012 EQU CMFLVLFL 01393000 CMFLVLOV EQU CMFLVLFL 01394000 CMFLVLCN EQU CMFLVLFL 01395000 CMFLVLPR EQU CMFLVLFL 01396000 CMFLFLSQ EQU GVO+10 01397000 CMFLVOL EQU GVO+4 01398000 CMFLDEVT EQU GVO 01399000 DS1END EQU IECSDSL1+140 01400000 DS1PTRDS EQU IECSDSL1+135 01401000 DS1EXT3 EQU IECSDSL1+125 01402000 DS1EXT2 EQU IECSDSL1+115 01403000 @NM00011 EQU IECSDSL1+103 01404000 DS1TRBAL EQU IECSDSL1+101 01405000 DS1LSTAR EQU IECSDSL1+98 01406000 DS1SCALO EQU IECSDSL1+94 01407000 DS1OPTCD EQU IECSDSL1+85 01408000 DS1RECFM EQU IECSDSL1+84 01409000 @NM00010 EQU IECSDSL1+75 01410000 DS1SYSCD EQU IECSDSL1+62 01411000 @NM00009 EQU IECSDSL1+61 01412000 DS1NOBDB EQU IECSDSL1+60 01413000 DS1VOLSQ EQU IECSDSL1+51 01414000 @NM00008 EQU IECSDSF1 01415000 CTGFLDWA EQU CTGFL+4 01416000 CTGFLDTS EQU CTGFLDRE 01417000 @NM00007 EQU CTGFLDRE 01418000 CTGPSWD EQU CTGJSCB 01419000 @NM00005 EQU CTGFBFLG 01420000 CTGNGDSN EQU CTGFBFLG 01421000 CTGGDGB EQU CTGFBFLG 01422000 CTGKEEP EQU CTGFBFLG 01423000 CTGPAR EQU CTGFBFLG 01424000 CTGFDBK EQU CTGNEWNM 01425000 CTGTYPE EQU CTGPL+18 01426000 @NM00004 EQU CTGDSORG 01427000 CTGOPTNS EQU CTGDSORG 01428000 CTGCVOL EQU CTGCAT 01429000 CTGFVT EQU CTGENT 01430000 @NM00003 EQU CTGOPTN4 01431000 CTGBYPMT EQU CTGOPTN4 01432000 CTGCOIN EQU CTGOPTN4 01433000 @NM00002 EQU CTGOPTN4 01434000 CTGDOCAT EQU CTGOPTN4 01435000 CTGLBASE EQU CTGOPTN4 01436000 CTGNUM EQU CTGOPTN3 01437000 CTGSRH EQU CTGOPTN3 01438000 CTGGDGL EQU CTGOPTN3 01439000 CTGSUPLT EQU CTGOPTN3 01440000 @NM00001 EQU CTGOPTN2 01441000 CTGSCR EQU CTGOPTN2 01442000 CTGOVRID EQU CTGOPTN2 01443000 CTGDISC EQU CTGOPTN2 01444000 CTGGTNXT EQU CTGOPTN2 01445000 CTGRCATN EQU CTGVMNT 01446000 CTGGTALL EQU CTGREL 01447000 CTGNSVS EQU CTGEXT 01448000 CTGGENLD EQU CTGOPTN1 01449000 CTGCNAME EQU CTGOPTN1 01450000 CTGREAD EQU CTGOPTN1 01451000 CTGUPD EQU CTGOPTN1 01452000 CTGCI EQU CTGOPTN1 01453000 CTGMAST EQU CTGOPTN1 01454000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01455000 @ENDDATA EQU * 01456000 END IGC0102G,(C'PLS0435',0701,77175) 01457000