TITLE 'BLSCSETT -- IPCS DATA ACCESS SERVICES MODCB EXECUTOR *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCSETT CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCSETT 78.062' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSCGETS R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 * CBPTR=GPR01P; /* ESTABLISH ADDRESSIBILITY TO 0022 00024000 * DMCB */ 00025000 LR CBPTR,GPR01P 0022 00026000 * RFY 0023 00027000 * GPR01P UNRSTD; 0023 00028000 * MODNAME=LMODNMC; /* MARK AUTOMATIC AREA */ 00029000 MVC MODNAME(8),@CC00919 0024 00030000 * SUBCODE=F0C; /* SUB-ROUTINE RETURN CODE */ 00031000 SLR @10,@10 0025 00032000 ST @10,SUBCODE 0025 00033000 * DMCBRTC=F0C; /* WE ARE SUCCESSFUL UNTIL WE 0026 00034000 * FAIL */ 00035000 ST @10,DMCBRTC(,CBPTR) 0026 00036000 EJECT 00037000 * 0027 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* IF THE DMCB IS NOT OPEN THEN REJECT THE REQUEST */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 0027 00044000 * IF DMCBOPN=LHEX0C THEN 0027 00045000 CLI DMCBOPN(CBPTR),X'00' 0027 00046000 BNE @RF00027 0027 00047000 * DO; /* DMCB NOT OPEN */ 00048000 * DMCBREJ=F0C; 0029 00049000 MVI DMCBREJ(CBPTR),X'00' 0029 00050000 * DMCBRTC=INVRQ; 0030 00051000 MVC DMCBRTC(4,CBPTR),@CF00037 0030 00052000 * RETURN; 0031 00053000 @EL00001 L @13,4(,@13) 0031 00054000 @EF00001 L @00,@SIZDATD 0031 00055000 LR @01,@11 0031 00056000 BLSCFRES R,LV=(0),A=(1) 00057000 @ER00001 LM @14,@12,12(@13) 0031 00058000 BR @14 0031 00059000 * END; /* DMCB NOT OPEN */ 00060000 * 0032 00061000 * /*****************************************************************/ 00062000 * /* */ 00063000 * /* IF THE DMCB REPRESENTS A QSAM DATA SET THEN NOTHING SHOULD BE */ 00064000 * /* DONE */ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 0033 00068000 * IF DMCBVSF=OFF THEN 0033 00069000 @RF00027 TM DMCBVSF(CBPTR),B'00000001' 0033 00070000 BZ @RT00033 0033 00071000 * RETURN; 0034 00072000 * 0034 00073000 * /*****************************************************************/ 00074000 * /* */ 00075000 * /* INITIALIZE THE PLACEHOLDER. THE FIRST KEYWORD ELEMENT WILL BE */ 00076000 * /* THE SECOND PARAMETER IN THE LIST. THE HEADER WILL ONLY BE */ 00077000 * /* BUILT IF THERE IS AT LEAST ONE MODIFICATION TO BE MADE TO THE */ 00078000 * /* RPL */ 00079000 * /* */ 00080000 * /*****************************************************************/ 00081000 * 0035 00082000 * RFY 0035 00083000 * ELEM BASED(ADDR(ELEMS(PLACEHDR))); 0035 00084000 * PLACEHDR=F1C; 0036 00085000 * 0036 00086000 LA PLACEHDR,1 0036 00087000 * /*****************************************************************/ 00088000 * /* */ 00089000 * /* CHECK THE SIX ITEMS IN THE DMCB (BUFP, BLEN, KEYP, KEYL, */ 00090000 * /* RECLEN, AND OPTS) WHICH CAUSE MODIFICATION TO THE DMCB */ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0037 00094000 * IF DMCBBFPC=OFF THEN /* DID BUFFER POINTER CHANGE */ 00095000 TM DMCBBFPC(CBPTR),B'10000000' 0037 00096000 BNZ @RF00037 0037 00097000 * CALL MOD(AREA,DMCBBUFP); 0038 00098000 LA @10,@CH00119 0038 00099000 ST @10,@AL00001 0038 00100000 LA @10,DMCBBUFP(,CBPTR) 0038 00101000 ST @10,@AL00001+4 0038 00102000 LA @01,@AL00001 0038 00103000 BAL @14,MOD 0038 00104000 * IF DMCBBLEN>=F0C THEN /* DID THE BUFFER LENGTH CHANGE */ 00105000 @RF00037 L @10,DMCBBLEN(,CBPTR) 0039 00106000 LTR @10,@10 0039 00107000 BM @RF00039 0039 00108000 * CALL MOD(AREALEN,DMCBBLEN); 0040 00109000 LA @10,@CH00876 0040 00110000 ST @10,@AL00001 0040 00111000 LA @10,DMCBBLEN(,CBPTR) 0040 00112000 ST @10,@AL00001+4 0040 00113000 LA @01,@AL00001 0040 00114000 BAL @14,MOD 0040 00115000 * IF DMCBOPTS^=DMCBLOPT /* HAVE OPTIONS CHANGED */ 00116000 * &DMCBKYD=OFF&DMCBRNO=ON THEN/* TO RELATIVE RECORD */ 00117000 @RF00039 CLC DMCBOPTS(1,CBPTR),DMCBLOPT(CBPTR) 0041 00118000 BE @RF00041 0041 00119000 TM DMCBRNO(CBPTR),B'01000000' 0041 00120000 BNO @RF00041 0041 00121000 TM DMCBKYD(CBPTR),B'10000000' 0041 00122000 BNZ @RF00041 0041 00123000 * CALL MOD(ARG,ADDR(DMCBRBA)); /* USE RBA FIELD FOR ARGUMENT */ 00124000 LA @10,@CH00878 0042 00125000 ST @10,@AL00001 0042 00126000 LA @10,DMCBRBA(,CBPTR) 0042 00127000 ST @10,@AFTEMPS 0042 00128000 LA @10,@AFTEMPS 0042 00129000 ST @10,@AL00001+4 0042 00130000 LA @01,@AL00001 0042 00131000 BAL @14,MOD 0042 00132000 * ELSE 0043 00133000 * DO; /* NOT RELATIVE RECORD FILE */ 00134000 B @RC00041 0043 00135000 @RF00041 DS 0H 0044 00136000 * IF DMCBKPC=OFF THEN /* DID KEY POINTER CHANGE */ 00137000 TM DMCBKPC(CBPTR),B'10000000' 0044 00138000 BNZ @RF00044 0044 00139000 * CALL MOD(ARG,DMCBKEYP); 0045 00140000 LA @10,@CH00878 0045 00141000 ST @10,@AL00001 0045 00142000 LA @10,DMCBKEYP(,CBPTR) 0045 00143000 ST @10,@AL00001+4 0045 00144000 LA @01,@AL00001 0045 00145000 BAL @14,MOD 0045 00146000 * IF DMCBKEYL>=F0C THEN /* DID THE KEYLENGTH CHANGE */ 00147000 @RF00044 L @10,DMCBKEYL(,CBPTR) 0046 00148000 LTR @10,@10 0046 00149000 BM @RF00046 0046 00150000 * CALL MOD(KEYL,DMCBKEYL); 0047 00151000 LA @10,@CH00880 0047 00152000 ST @10,@AL00001 0047 00153000 LA @10,DMCBKEYL(,CBPTR) 0047 00154000 ST @10,@AL00001+4 0047 00155000 LA @01,@AL00001 0047 00156000 BAL @14,MOD 0047 00157000 * END; /* NOT RELATIVE RECORD FILE */ 00158000 @RF00046 DS 0H 0049 00159000 * IF DMCBORL>=F0C THEN /* DID THE OUTPUT RECORD LENGTH 00160000 * CHANGE */ 00161000 @RC00041 L @10,DMCBORL(,CBPTR) 0049 00162000 LTR @10,@10 0049 00163000 BM @RF00049 0049 00164000 * CALL MOD(RECLEN,DMCBORL); 0050 00165000 LA @10,@CH00882 0050 00166000 ST @10,@AL00001 0050 00167000 LA @10,DMCBORL(,CBPTR) 0050 00168000 ST @10,@AL00001+4 0050 00169000 LA @01,@AL00001 0050 00170000 BAL @14,MOD 0050 00171000 * IF DMCBLRQ=DMCBOPR /* FIRST REQUEST AFTER OPEN ? */ 00172000 * |DMCBOPTS^=DMCBLOPT THEN /* DID THE OPTIONS CHANGE */ 00173000 @RF00049 CLI DMCBLRQ(CBPTR),1 0051 00174000 BE @RT00051 0051 00175000 CLC DMCBOPTS(1,CBPTR),DMCBLOPT(CBPTR) 0051 00176000 BE @RF00051 0051 00177000 @RT00051 DS 0H 0052 00178000 * CALL OPTMOD; 0052 00179000 * 0052 00180000 BAL @14,OPTMOD 0052 00181000 * /*****************************************************************/ 00182000 * /* */ 00183000 * /* NOW THAT ALL KEYWORDS HAVE BEEN CHECKED FOR CHANGE A HEADER */ 00184000 * /* ENTRY SHOULD BE MADE IF ANY CHANGES WERE DETECTED */ 00185000 * /* */ 00186000 * /*****************************************************************/ 00187000 * 0053 00188000 * IF PLACEHDR>=F2C THEN /* HAVE ANY CHANGES BEEN MADE */ 00189000 @RF00051 C PLACEHDR,@CF00072 0053 00190000 BL @RF00053 0053 00191000 * DO; /* CHANGES HAVE BEEN MADE */ 00192000 * MODPLAST(PLACEHDR)=ON; /* FLAG THE LAST ENTRY */ 00193000 LR @10,PLACEHDR 0055 00194000 SLA @10,2 0055 00195000 LA @04,MODPLAST-4(@10) 0055 00196000 OI 0(@04),B'10000000' 0055 00197000 * MODPPTR(F1C)=ADDR(MODLIST); /* INSERT PTR TO HEADER */ 00198000 LA @10,MODLIST 0056 00199000 ST @10,MODPPTR 0056 00200000 * RFY 0057 00201000 * MODC BASED(ADDR(MODLIST)); 0057 00202000 * MODBTC='C0'X; /* INDICATE THAT RPL IS TO BE 0058 00203000 * MODIFIED */ 00204000 MVI MODBTC(@10),X'C0' 0058 00205000 * MODFTC='02'X; /* INDICATE MODCB FUNCTION */ 00206000 MVI MODFTC(@10),X'02' 0059 00207000 * MODBLAD=ADDR(DMCBRPL); /* POINT TO THE RPL IN THE DMCB */ 00208000 * 0060 00209000 LA @04,DMCBRPL(,CBPTR) 0060 00210000 ST @04,MODBLAD(,@10) 0060 00211000 * /*************************************************************/ 00212000 * /* */ 00213000 * /* PASS CONTROL TO THE VSAM CONTROL BLOCKS ROUTINE */ 00214000 * /* */ 00215000 * /*************************************************************/ 00216000 * 0061 00217000 * RFY 0061 00218000 * GPR01P RSTD; 0061 00219000 * GPR01P=ADDR(MODPLIST); 0062 00220000 LA GPR01P,MODPLIST 0062 00221000 * CALL IDA019C1; /* CALL THE VSAM CONTROL BLOCK 0063 00222000 * ROUTINE LOCATED BY THE CVT */ 00223000 L @10,CVTPTR 0063 00224000 L @10,CVTCBSP(,@10) 0063 00225000 L @15,CBSCBP(,@10) 0063 00226000 BALR @14,@15 0063 00227000 * RFY 0064 00228000 * GPR01P UNRSTD; 0064 00229000 * RFY 0065 00230000 * (GPR00F, 0065 00231000 * GPR15F) RSTD; 0065 00232000 * IF GPR15F^=F0C THEN /* WAS MODCB SUCCESSFUL */ 00233000 LTR GPR15F,GPR15F 0066 00234000 BZ @RF00066 0066 00235000 * DO; /* MODCB ERROR */ 00236000 * DMCBRTC=INVRQ; /* INVALID REQUEST */ 00237000 MVC DMCBRTC(4,CBPTR),@CF00037 0068 00238000 * DMCBREJ=F11C; 0069 00239000 MVI DMCBREJ(CBPTR),X'0B' 0069 00240000 * DMCBRPLF=GPR00F; /* STORE MODCB ERROR CODE AS RPL 00241000 * FDBACK */ 00242000 ST GPR00F,DMCBRPLF(,CBPTR) 0070 00243000 * END; /* MODCB ERROR */ 00244000 * RFY 0072 00245000 * (GPR00F, 0072 00246000 * GPR15F) UNRSTD; 0072 00247000 @RF00066 DS 0H 0073 00248000 * END; /* CHANGES HAVE BEEN MADE */ 00249000 * RETURN CODE(DMCBRTC); 0074 00250000 @RF00053 L @10,DMCBRTC(,CBPTR) 0074 00251000 L @13,4(,@13) 0074 00252000 L @00,@SIZDATD 0074 00253000 LR @01,@11 0074 00254000 BLSCFRES R,LV=(0),A=(1) 00255000 LR @15,@10 0074 00256000 L @14,12(,@13) 0074 00257000 LM @00,@12,20(@13) 0074 00258000 BR @14 0074 00259000 EJECT 00260000 *OPTMOD: 0075 00261000 * PROCEDURE; /* MODIFY THE RPL OPTIONS */ 00262000 * 0075 00263000 OPTMOD STM @14,@01,12(@13) 0075 00264000 STM @03,@12,32(@13) 0075 00265000 * /*****************************************************************/ 00266000 * /* */ 00267000 * /* PROCEDURE TO MODIFY THE RPL OPTIONS */ 00268000 * /* */ 00269000 * /*****************************************************************/ 00270000 * 0076 00271000 * PLACEHDR=PLACEHDR+F1C; /* INCREMENT PLACEHDR */ 00272000 AL PLACEHDR,@CF00046 0076 00273000 * ELEMKWTC=OPTCD; /* INDICATE OPTCD KEYWORD */ 00274000 LR @10,PLACEHDR 0077 00275000 SLA @10,3 0077 00276000 LA @10,ELEMS-8(@10) 0077 00277000 MVC ELEMKWTC(2,@10),@CH00884 0077 00278000 * ELEMBLEN=F0C; /* INDICATE LENGTH OF VALUE FIELD*/ 00279000 SLR @04,@04 0078 00280000 STH @04,ELEMBLEN(,@10) 0078 00281000 * ELEMBSTR=''B; /* ZERO OUT VALUE */ 00282000 XC ELEMBSTR(4,@10),ELEMBSTR(@10) 0079 00283000 * IF DMCBUPD=ON THEN /* IS THIS AN UPDATE REQUEST */ 00284000 TM DMCBUPD(CBPTR),B'00010000' 0080 00285000 BNO @RF00080 0080 00286000 * ELEMBSTR(UPD:UPD)=ON; 0081 00287000 OI ELEMBSTR+1(@10),B'01000000' 0081 00288000 * ELSE 0082 00289000 * ELEMBSTR(NSP:NSP)=ON; /* REMEMBER POSITION */ 00290000 B @RC00080 0082 00291000 @RF00080 LR @10,PLACEHDR 0082 00292000 SLA @10,3 0082 00293000 LA @10,ELEMS-8(@10) 0082 00294000 OI ELEMBSTR+1(@10),B'00100000' 0082 00295000 * IF DMCBBWD=ON THEN /* IS BACKWARD PROCESSING DESIRED*/ 00296000 @RC00080 TM DMCBBWD(CBPTR),B'00001000' 0083 00297000 BNO @RF00083 0083 00298000 * ELEMBSTR(BWD:BWD)=ON; 0084 00299000 LR @10,PLACEHDR 0084 00300000 SLA @10,3 0084 00301000 LA @10,ELEMS-8(@10) 0084 00302000 OI ELEMBSTR+2(@10),B'00100000' 0084 00303000 * IF DMCBLRD=ON THEN /* IS POINT TO LAST RECORD 0085 00304000 * DESIRED */ 00305000 @RF00083 TM DMCBLRD(CBPTR),B'00000100' 0085 00306000 BNO @RF00085 0085 00307000 * ELEMBSTR(LRD:LRD)=ON; 0086 00308000 LR @10,PLACEHDR 0086 00309000 SLA @10,3 0086 00310000 LA @10,ELEMS-8(@10) 0086 00311000 OI ELEMBSTR+2(@10),B'00001000' 0086 00312000 * IF DMCBKYD=ON THEN /* KEYED TYPE ACCESS */ 00313000 @RF00085 TM DMCBKYD(CBPTR),B'10000000' 0087 00314000 BNO @RF00087 0087 00315000 * DO; /* KEYED ACCESS */ 00316000 * ELEMBSTR(DIR:DIR)=ON; /* DIRECT ACCESS */ 00317000 LR @10,PLACEHDR 0089 00318000 SLA @10,3 0089 00319000 LA @10,ELEMS-8(@10) 0089 00320000 OI ELEMBSTR(@10),B'00001000' 0089 00321000 * IF DMCBAPX=ON THEN /* TEST FOR APPROXIMATE KEY */ 00322000 TM DMCBAPX(CBPTR),B'00100000' 0090 00323000 BNO @RF00090 0090 00324000 * ELEMBSTR(KGE:KGE)=ON; /* APPROX KEY */ 00325000 OI ELEMBSTR+1(@10),B'00001000' 0091 00326000 * ELSE 0092 00327000 * ELEMBSTR(KEQ:KEQ)=ON; /* EXACT KEY */ 00328000 B @RC00090 0092 00329000 @RF00090 LR @10,PLACEHDR 0092 00330000 SLA @10,3 0092 00331000 LA @10,ELEMS-8(@10) 0092 00332000 OI ELEMBSTR+1(@10),B'00010000' 0092 00333000 * IF DMCBGKY=ON THEN /* TEST FOR GENERIC KEY */ 00334000 @RC00090 TM DMCBGKY(CBPTR),B'01000000' 0093 00335000 BNO @RF00093 0093 00336000 * ELEMBSTR(GRC:GRC)=ON; /* GENERIC KEY */ 00337000 LR @10,PLACEHDR 0094 00338000 SLA @10,3 0094 00339000 LA @10,ELEMS-8(@10) 0094 00340000 OI ELEMBSTR+1(@10),B'00000010' 0094 00341000 * ELSE 0095 00342000 * ELEMBSTR(FKS:FKS)=ON; /* FULL KEY */ 00343000 B @RC00093 0095 00344000 @RF00093 LR @10,PLACEHDR 0095 00345000 SLA @10,3 0095 00346000 LA @10,ELEMS-8(@10) 0095 00347000 OI ELEMBSTR+1(@10),B'00000100' 0095 00348000 * END; /* KEYED TYPE ACCESS */ 00349000 * ELSE 0097 00350000 * DO; /* NOT KEYED ACCESS */ 00351000 B @RC00087 0097 00352000 @RF00087 DS 0H 0098 00353000 * IF DMCBRNO=ON THEN /* RELATIVE RECORD ACCESS */ 00354000 TM DMCBRNO(CBPTR),B'01000000' 0098 00355000 BNO @RF00098 0098 00356000 * ELEMBSTR(DIR:DIR)=ON; /* INDICATE DIRECT */ 00357000 LR @10,PLACEHDR 0099 00358000 SLA @10,3 0099 00359000 LA @10,ELEMS-8(@10) 0099 00360000 OI ELEMBSTR(@10),B'00001000' 0099 00361000 * ELSE 0100 00362000 * ELEMBSTR(SEQ:SEQ)=ON; /* SEQUENTIAL */ 00363000 B @RC00098 0100 00364000 @RF00098 LR @10,PLACEHDR 0100 00365000 SLA @10,3 0100 00366000 LA @10,ELEMS-8(@10) 0100 00367000 OI ELEMBSTR(@10),B'00010000' 0100 00368000 * END; /* NOT KEYED ACCESS */ 00369000 @RC00098 DS 0H 0102 00370000 * MODPPTR(PLACEHDR)=ADDR(ELEM); /* PLACE THIS ELEMENT IN THE 0102 00371000 * MODCB PARAMETER LIST */ 00372000 @RC00087 LR @10,PLACEHDR 0102 00373000 SLA @10,2 0102 00374000 LR @04,PLACEHDR 0102 00375000 SLA @04,3 0102 00376000 LA @04,ELEMS-8(@04) 0102 00377000 ST @04,MODPPTR-4(@10) 0102 00378000 * END OPTMOD; 0103 00379000 @EL00002 DS 0H 0103 00380000 @EF00002 DS 0H 0103 00381000 @ER00002 LM @14,@01,12(@13) 0103 00382000 LM @03,@12,32(@13) 0103 00383000 BR @14 0103 00384000 EJECT 00385000 *MOD: 0104 00386000 * PROCEDURE(KEYWORD,VALUE); /* MODIFY RPL PARAMETER */ 00387000 * 0104 00388000 MOD STM @14,@01,12(@13) 0104 00389000 STM @03,@12,32(@13) 0104 00390000 MVC @PC00003(8),0(@01) 0104 00391000 * /*****************************************************************/ 00392000 * /* */ 00393000 * /* MOD BUILDS AN ELEMENT IN THE MODCB PARAMETER LIST */ 00394000 * /* */ 00395000 * /*****************************************************************/ 00396000 * 0105 00397000 * DECLARE 0105 00398000 * KEYWORD FIXED(15), 0105 00399000 * VALUE FIXED(31); 0105 00400000 * PLACEHDR=PLACEHDR+F1C; /* INCREMENT NUMBER OF ELEMENTS */ 00401000 AL PLACEHDR,@CF00046 0106 00402000 * ELEMKWTC=KEYWORD; /* INDICATE THE PROPER KEYWORD 0107 00403000 * FOR FOR THIS ELEMENT */ 00404000 LR @10,PLACEHDR 0107 00405000 SLA @10,3 0107 00406000 LA @10,ELEMS-8(@10) 0107 00407000 L @03,@PC00003 0107 00408000 LH @03,KEYWORD(,@03) 0107 00409000 STH @03,ELEMKWTC(,@10) 0107 00410000 * ELEMBLEN=F0C; /* INDICATE LENGTH OF VALUE FIELD*/ 00411000 SLR @03,@03 0108 00412000 STH @03,ELEMBLEN(,@10) 0108 00413000 * ELEMPTR=VALUE; /* PUT VALUE IN PARAMETER LIST 0109 00414000 * ELEMENT */ 00415000 L @03,@PC00003+4 0109 00416000 L @15,VALUE(,@03) 0109 00417000 ST @15,ELEMPTR(,@10) 0109 00418000 * MODPPTR(PLACEHDR)=ADDR(ELEM); /* PLACE THIS ELEMENT IN MODCB 0110 00419000 * PARAMETER LIST */ 00420000 LR @14,PLACEHDR 0110 00421000 SLA @14,2 0110 00422000 ST @10,MODPPTR-4(@14) 0110 00423000 * VALUE=VALUE|'80000000'X; /* INDICATE THAT THE VALUE HAS 0111 00424000 * BEEN PLACED IN THE RPL */ 00425000 O @15,@CF00942 0111 00426000 ST @15,VALUE(,@03) 0111 00427000 * RETURN; 0112 00428000 @EL00003 DS 0H 0112 00429000 @EF00003 DS 0H 0112 00430000 @ER00003 LM @14,@01,12(@13) 0112 00431000 LM @03,@12,32(@13) 0112 00432000 BR @14 0112 00433000 * END MOD; 0113 00434000 EJECT 00435000 * 0114 00436000 * /*****************************************************************/ 00437000 * /* */ 00438000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00439000 * /* */ 00440000 * /*****************************************************************/ 00441000 * 0114 00442000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00443000 * GPR00F FIXED(31) REG(0), 0114 00444000 * GPR15F FIXED(31) REG(15), 0114 00445000 * GPR01P PTR(31) REG(1); 0114 00446000 * DECLARE /* COMMON VARIABLES */ 00447000 * I256C CHAR(256) BASED, 0115 00448000 * I031F FIXED(31) BASED, 0115 00449000 * I031P PTR(31) BASED, 0115 00450000 * I015F FIXED(15) BASED, 0115 00451000 * I015P PTR(15) BASED, 0115 00452000 * I008P PTR(8) BASED, 0115 00453000 * I001C CHAR(1) BASED; 0115 00454000 * DCL 0116 00455000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00456000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0116 00457000 * END BLSCSETT 0117 00458000 * 0117 00459000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00460000 */*%INCLUDE SYSLIB (CVT ) */ 00461000 */*%INCLUDE SYSLIB (IDAMODC ) */ 00462000 */*%INCLUDE SYSLIB (IDAELEM ) */ 00463000 * 0117 00464000 * ; 0117 00465000 @DATA DS 0H 00466000 @CH00119 DC H'44' 00467000 @CH00876 DC H'45' 00468000 @CH00878 DC H'46' 00469000 @CH00880 DC H'48' 00470000 @CH00884 DC H'52' 00471000 @CH00882 DC H'53' 00472000 @DATD DSECT 00473000 DS 0F 00474000 @SA00001 DS 18F 00475000 @PC00003 DS 2F 00476000 @AL00001 DS 2A 00477000 @AFTEMPS DS 1F 00478000 BLSCSETT CSECT 00479000 DS 0F 00480000 @CF00046 DC F'1' 00481000 @CF00072 DC F'2' 00482000 @CF00037 DC F'4' 00483000 @CF00942 DC XL4'80000000' 00484000 @DATD DSECT 00485000 DS 0D 00486000 MODLIST DS CL8 00487000 MODSTAT DS CL12 00488000 ORG MODSTAT 00489000 MODNAME DS CL8 00490000 SUBCODE DS FL4 00491000 ORG MODSTAT+12 00492000 DS CL4 00493000 ELEMS DS 6CL8 00494000 MODPLIST DS CL4 00495000 ORG MODPLIST+0 00496000 MODPPTR DS AL4 00497000 ORG MODPPTR+0 00498000 @NM00003 DS BL1 00499000 ORG @NM00003+0 00500000 MODPLAST DS BL1 00501000 @NM00004 EQU @NM00003+0 00502000 ORG MODPPTR+1 00503000 MODPP24 DS AL3 00504000 ORG MODPLIST+28 00505000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00506000 @ENDDATD EQU * 00507000 BLSCSETT CSECT 00508000 DS 0F 00509000 @SIZDATD DC AL1(0) 00510000 DC AL3(@ENDDATD-@DATD) 00511000 DS 0D 00512000 @CC00919 DC C'BLSCSETT' 00513000 DASPATCH DS CL80 00514000 ORG DASPATCH 00515000 DASPATA DC 20A(0) 00516000 ORG DASPATCH+80 00517000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00518000 @01 EQU 01 00519000 @02 EQU 02 00520000 @03 EQU 03 00521000 @04 EQU 04 00522000 @05 EQU 05 00523000 @06 EQU 06 00524000 @07 EQU 07 00525000 @08 EQU 08 00526000 @09 EQU 09 00527000 @10 EQU 10 00528000 @11 EQU 11 00529000 @12 EQU 12 00530000 @13 EQU 13 00531000 @14 EQU 14 00532000 @15 EQU 15 00533000 PLACEHDR EQU @02 00534000 CBPTR EQU @05 00535000 GPR01P EQU @01 00536000 GPR00F EQU @00 00537000 GPR15F EQU @15 00538000 CVTPTR EQU 16 00539000 DMCB EQU 0 00540000 DMCBRTC EQU DMCB+12 00541000 DMCBFTY EQU DMCB+20 00542000 DMCBVSF EQU DMCBFTY 00543000 DMCBOPN EQU DMCB+21 00544000 DMCBRMOD EQU DMCB+23 00545000 DMCBOUT EQU DMCBRMOD 00546000 DMCBOPTS EQU DMCB+24 00547000 DMCBKYD EQU DMCBOPTS 00548000 DMCBGKY EQU DMCBOPTS 00549000 DMCBRNO EQU DMCBGKY 00550000 DMCBAPX EQU DMCBOPTS 00551000 DMCBUPD EQU DMCBOPTS 00552000 DMCBBWD EQU DMCBOPTS 00553000 DMCBLRD EQU DMCBOPTS 00554000 DMCBLRQ EQU DMCB+25 00555000 DMCBLOPT EQU DMCB+27 00556000 DMCBMFLG EQU DMCB+28 00557000 DMCBREJ EQU DMCB+29 00558000 DMCBBUFP EQU DMCB+32 00559000 DMCBBFPC EQU DMCBBUFP 00560000 DMCBBLEN EQU DMCB+36 00561000 DMCBORL EQU DMCB+40 00562000 DMCBKEYP EQU DMCB+44 00563000 DMCBKPC EQU DMCBKEYP 00564000 DMCBKEYL EQU DMCB+48 00565000 DMCBRBA EQU DMCB+56 00566000 DMCBFRE EQU DMCB+88 00567000 DMCBEOB EQU DMCB+92 00568000 DMCBACBE EQU DMCB+124 00569000 DMCBRPLF EQU DMCB+128 00570000 DMCBSPEC EQU DMCB+380 00571000 DMCBAMS EQU DMCB+416 00572000 DMCBAUDT EQU DMCB+568 00573000 DMCBLSCP EQU DMCBAUDT+16 00574000 CVTMAP EQU 0 00575000 CVTDAR EQU CVTMAP+72 00576000 CVTFLGS1 EQU CVTDAR 00577000 CVTDCB EQU CVTMAP+116 00578000 CVTIOQET EQU CVTMAP+120 00579000 CVTIERLC EQU CVTMAP+144 00580000 CVTHEAD EQU CVTMAP+160 00581000 CVTSV76C EQU CVTHEAD 00582000 CVTOPTA EQU CVTMAP+182 00583000 CVTOPTB EQU CVTMAP+183 00584000 CVTGTF EQU CVTMAP+236 00585000 CVTGTFST EQU CVTGTF 00586000 CVTGTFS EQU CVTGTFST 00587000 CVTSTATE EQU CVTGTFST 00588000 CVTTMODE EQU CVTGTFST 00589000 CVTFORM EQU CVTGTFST 00590000 CVTAQAVT EQU CVTMAP+240 00591000 CVTTCMFG EQU CVTAQAVT 00592000 CVTVOLM2 EQU CVTMAP+244 00593000 CVTTATA EQU CVTVOLM2 00594000 CVTTSKS EQU CVTTATA 00595000 CVTVOLF2 EQU CVTTSKS 00596000 CVTTAT EQU CVTTATA+1 00597000 CVTATER EQU CVTMAP+248 00598000 CVTEXT1 EQU CVTMAP+252 00599000 CVTCBSP EQU CVTMAP+256 00600000 CVTPURG EQU CVTMAP+260 00601000 CVTQMSG EQU CVTMAP+268 00602000 CVTDMSR EQU CVTMAP+272 00603000 CVTRSV37 EQU CVTDMSR 00604000 CVTDMSRF EQU CVTRSV37 00605000 CVTERPV EQU CVTMAP+316 00606000 CVTINTLA EQU CVTMAP+320 00607000 CVTAPF EQU CVTMAP+324 00608000 CVTEXT2 EQU CVTMAP+328 00609000 CVTHJES EQU CVTMAP+332 00610000 CVTPGSIA EQU CVTMAP+348 00611000 CVTA1F1 EQU CVTMAP+356 00612000 CVTSYSK EQU CVTMAP+357 00613000 CVTVOLM1 EQU CVTMAP+380 00614000 CVTVOLF1 EQU CVTVOLM1 00615000 CVTATMCT EQU CVTMAP+388 00616000 CVTXTNT1 EQU 0 00617000 CVTXTNT2 EQU 0 00618000 CVTDSSV EQU CVTXTNT2 00619000 CVTFLGBT EQU CVTXTNT2+5 00620000 CVTQID EQU CVTXTNT2+24 00621000 CVTRV400 EQU CVTXTNT2+52 00622000 CVTRV409 EQU CVTXTNT2+53 00623000 CVTATCVT EQU CVTXTNT2+64 00624000 CVTRV429 EQU CVTXTNT2+84 00625000 CVTRV438 EQU CVTXTNT2+85 00626000 CVTRV457 EQU CVTXTNT2+112 00627000 CVTRV466 EQU CVTXTNT2+113 00628000 CVTFIX EQU 0 00629000 CVTRELNO EQU CVTFIX+252 00630000 AMCBS EQU 0 00631000 IDA019C1 EQU 0 00632000 MODC EQU 0 00633000 MODBTC EQU MODC 00634000 MODFTC EQU MODC+1 00635000 MODBLAD EQU MODC+4 00636000 ELEM EQU 0 00637000 ELEMKWTC EQU ELEM 00638000 ELEMBLEN EQU ELEM+2 00639000 ELEMCSTR EQU ELEM+4 00640000 ELEMFIX EQU ELEMCSTR 00641000 ELEMPTR EQU ELEMFIX 00642000 ELEMBSTR EQU ELEMPTR 00643000 DMCBRQC EQU 0 00644000 I001C EQU 0 00645000 I008P EQU 0 00646000 I015F EQU 0 00647000 I015P EQU 0 00648000 I031F EQU 0 00649000 I031P EQU 0 00650000 I256C EQU 0 00651000 KEYWORD EQU 0 00652000 VALUE EQU 0 00653000 DMCBVSM EQU DMCBAMS 00654000 DMCBRPL EQU DMCBVSM 00655000 DMCBQSM EQU DMCBAMS 00656000 CVTS01 EQU CVTPGSIA 00657000 CVTLPDIA EQU CVTS01+12 00658000 CVTDIRST EQU CVTLPDIA 00659000 CVTSLIDA EQU CVTS01+24 00660000 CVTCTLFG EQU CVTS01+50 00661000 CVTRV210 EQU CVTS01+424 00662000 CVTRV219 EQU CVTS01+425 00663000 CVTRV228 EQU CVTS01+426 00664000 CVTRV237 EQU CVTS01+427 00665000 CVTMFRTR EQU CVTS01+452 00666000 CVTRV262 EQU CVTS01+468 00667000 CVTRV271 EQU CVTS01+469 00668000 CVTRV280 EQU CVTS01+470 00669000 CVTRV289 EQU CVTS01+471 00670000 CVTGSDA EQU CVTS01+600 00671000 CBSCBP EQU AMCBS+12 00672000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00673000 CVTRV628 EQU CVTS01+728 00674000 CVTRV627 EQU CVTS01+724 00675000 CVTRV626 EQU CVTS01+720 00676000 CVTRV625 EQU CVTS01+716 00677000 CVTRV624 EQU CVTS01+712 00678000 CVTRV623 EQU CVTS01+708 00679000 CVTRV622 EQU CVTS01+704 00680000 CVTRV621 EQU CVTS01+700 00681000 CVTIHASU EQU CVTS01+696 00682000 CVTSUSP EQU CVTS01+692 00683000 CVTT6SVC EQU CVTS01+688 00684000 CVTCDAL EQU CVTS01+684 00685000 CVTTCTL EQU CVTS01+680 00686000 CVTRSUME EQU CVTS01+676 00687000 CVTJTERM EQU CVTS01+672 00688000 CVTASMRM EQU CVTS01+668 00689000 CVTTCASP EQU CVTS01+664 00690000 CVT0PT03 EQU CVTS01+660 00691000 CVT0PT0E EQU CVTS01+656 00692000 CVTRV609 EQU CVTS01+652 00693000 CVTCGK EQU CVTS01+648 00694000 CVTRAC EQU CVTS01+644 00695000 CVTRV606 EQU CVTS01+640 00696000 CVTRV605 EQU CVTS01+636 00697000 CVTRV604 EQU CVTS01+632 00698000 CVTEFF02 EQU CVTS01+628 00699000 CVTCBBR EQU CVTS01+624 00700000 CVTSSCR EQU CVTS01+620 00701000 CVTEVENT EQU CVTS01+616 00702000 CVTCRCA EQU CVTS01+612 00703000 CVTTPIO EQU CVTS01+608 00704000 CVTADV EQU CVTS01+604 00705000 CVTGSDAB EQU CVTGSDA 00706000 CVTQV3 EQU CVTS01+596 00707000 CVTQV2 EQU CVTS01+592 00708000 CVTQV1 EQU CVTS01+588 00709000 CVTRPT EQU CVTS01+584 00710000 CVTSSRB EQU CVTS01+580 00711000 CVTCSDRL EQU CVTS01+576 00712000 CVTEXP1 EQU CVTS01+572 00713000 CVTRMPMT EQU CVTS01+568 00714000 CVTRMPTT EQU CVTS01+564 00715000 CVTVPSA EQU CVTS01+560 00716000 CVTVSTOP EQU CVTS01+556 00717000 CVTGTFR8 EQU CVTS01+552 00718000 CVTQUIT EQU CVTS01+548 00719000 CVTVACR EQU CVTS01+544 00720000 CVTWTCB EQU CVTS01+540 00721000 CVTSTPRS EQU CVTS01+536 00722000 CVT0PT02 EQU CVTS01+532 00723000 CVTDARCM EQU CVTS01+528 00724000 CVTIRECM EQU CVTS01+524 00725000 CVTJRECM EQU CVTS01+520 00726000 CVTVEMS0 EQU CVTS01+516 00727000 CVTSPFRR EQU CVTS01+512 00728000 CVTRLSTG EQU CVTS01+508 00729000 CVT0TC0A EQU CVTS01+504 00730000 CVTGMBR EQU CVTS01+500 00731000 CVTLFRM EQU CVTS01+496 00732000 CVTRMBR EQU CVTS01+492 00733000 CVTVIOP EQU CVTS01+488 00734000 CVTRV307 EQU CVTS01+486 00735000 CVTRV306 EQU CVTS01+484 00736000 CVTRV305 EQU CVTS01+482 00737000 CVTRV304 EQU CVTS01+480 00738000 CVTRV303 EQU CVTS01+478 00739000 CVTRV302 EQU CVTS01+476 00740000 CVTTRCA EQU CVTS01+472 00741000 CVTRV297 EQU CVTRV289 00742000 CVTRV296 EQU CVTRV289 00743000 CVTRV295 EQU CVTRV289 00744000 CVTRV294 EQU CVTRV289 00745000 CVTRV293 EQU CVTRV289 00746000 CVTRV292 EQU CVTRV289 00747000 CVTRV291 EQU CVTRV289 00748000 CVTRV290 EQU CVTRV289 00749000 CVTRV288 EQU CVTRV280 00750000 CVTRV287 EQU CVTRV280 00751000 CVTRV286 EQU CVTRV280 00752000 CVTRV285 EQU CVTRV280 00753000 CVTRV284 EQU CVTRV280 00754000 CVTRV283 EQU CVTRV280 00755000 CVTRV282 EQU CVTRV280 00756000 CVTRV281 EQU CVTRV280 00757000 CVTRV279 EQU CVTRV271 00758000 CVTRV278 EQU CVTRV271 00759000 CVTRV277 EQU CVTRV271 00760000 CVTRV276 EQU CVTRV271 00761000 CVTRV275 EQU CVTRV271 00762000 CVTRV274 EQU CVTRV271 00763000 CVTRV273 EQU CVTRV271 00764000 CVTRV272 EQU CVTRV271 00765000 CVTRV270 EQU CVTRV262 00766000 CVTRV269 EQU CVTRV262 00767000 CVTRV268 EQU CVTRV262 00768000 CVTRV267 EQU CVTRV262 00769000 CVTRV266 EQU CVTRV262 00770000 CVTRV265 EQU CVTRV262 00771000 CVTRV264 EQU CVTRV262 00772000 CVTRV263 EQU CVTRV262 00773000 CVTVFP EQU CVTS01+464 00774000 CVTVSI EQU CVTS01+460 00775000 CVTVPSIB EQU CVTS01+456 00776000 CVTMFACT EQU CVTMFRTR 00777000 CVTMFCTL EQU CVTS01+448 00778000 CVTPVBP EQU CVTS01+444 00779000 CVTPWI EQU CVTS01+440 00780000 CVTRV254 EQU CVTS01+438 00781000 CVTRV253 EQU CVTS01+436 00782000 CVTRV252 EQU CVTS01+434 00783000 CVTRV251 EQU CVTS01+433 00784000 CVTRV250 EQU CVTS01+432 00785000 CVTRV249 EQU CVTS01+431 00786000 CVTRV248 EQU CVTS01+430 00787000 CVTRV247 EQU CVTS01+429 00788000 CVTRV246 EQU CVTS01+428 00789000 CVTRV245 EQU CVTRV237 00790000 CVTRV244 EQU CVTRV237 00791000 CVTRV243 EQU CVTRV237 00792000 CVTRV242 EQU CVTRV237 00793000 CVTRV241 EQU CVTRV237 00794000 CVTRV240 EQU CVTRV237 00795000 CVTRV239 EQU CVTRV237 00796000 CVTRV238 EQU CVTRV237 00797000 CVTRV236 EQU CVTRV228 00798000 CVTRV235 EQU CVTRV228 00799000 CVTRV234 EQU CVTRV228 00800000 CVTRV233 EQU CVTRV228 00801000 CVTRV232 EQU CVTRV228 00802000 CVTRV231 EQU CVTRV228 00803000 CVTRV230 EQU CVTRV228 00804000 CVTRV229 EQU CVTRV228 00805000 CVTRV227 EQU CVTRV219 00806000 CVTRV226 EQU CVTRV219 00807000 CVTRV225 EQU CVTRV219 00808000 CVTRV224 EQU CVTRV219 00809000 CVTRV223 EQU CVTRV219 00810000 CVTRV222 EQU CVTRV219 00811000 CVTRV221 EQU CVTRV219 00812000 CVTRV220 EQU CVTRV219 00813000 CVTRV218 EQU CVTRV210 00814000 CVTRV217 EQU CVTRV210 00815000 CVTRV216 EQU CVTRV210 00816000 CVTRV215 EQU CVTRV210 00817000 CVTRV214 EQU CVTRV210 00818000 CVTRV213 EQU CVTRV210 00819000 CVTRV212 EQU CVTRV210 00820000 CVTRV211 EQU CVTRV210 00821000 CVTLCCAT EQU CVTS01+420 00822000 CVTPCCAT EQU CVTS01+416 00823000 CVTIPCRP EQU CVTS01+412 00824000 CVTIPCRI EQU CVTS01+408 00825000 CVTIPCDS EQU CVTS01+404 00826000 CVTAIDVT EQU CVTS01+400 00827000 CVTSSAP EQU CVTS01+396 00828000 CVTEHCIR EQU CVTS01+392 00829000 CVTEHDEF EQU CVTS01+388 00830000 CVTDAIR EQU CVTS01+384 00831000 CVTPERFM EQU CVTS01+380 00832000 CVT044R2 EQU CVTS01+376 00833000 CVTFETCH EQU CVTS01+372 00834000 CVTRSTWD EQU CVTS01+368 00835000 CVTSPOST EQU CVTS01+364 00836000 CVTIOBP EQU CVTS01+360 00837000 CVTASMVT EQU CVTS01+356 00838000 CVTRECRQ EQU CVTS01+352 00839000 CVTWSAC EQU CVTS01+348 00840000 CVTRV149 EQU CVTS01+344 00841000 CVTWSAL EQU CVTS01+340 00842000 CVTSPSA EQU CVTS01+336 00843000 CVTGLMN EQU CVTS01+332 00844000 CVTVEAC0 EQU CVTS01+328 00845000 CVT062R1 EQU CVTS01+324 00846000 CVTRPOST EQU CVTS01+320 00847000 CVTDQIQE EQU CVTS01+316 00848000 CVTCSD EQU CVTS01+312 00849000 CVTLKRMA EQU CVTS01+308 00850000 CVTRSPIE EQU CVTS01+304 00851000 CVTRENQ EQU CVTS01+300 00852000 CVTLQCB EQU CVTS01+296 00853000 CVTFQCB EQU CVTS01+292 00854000 CVTQCS01 EQU CVTS01+288 00855000 CVTAPFT EQU CVTS01+284 00856000 CVTPARRL EQU CVTS01+280 00857000 CVTVWAIT EQU CVTS01+276 00858000 CVTGSPL EQU CVTS01+272 00859000 CVTLSMQ EQU CVTS01+268 00860000 CVTGSMQ EQU CVTS01+264 00861000 CVTEXPRO EQU CVTS01+260 00862000 CVTOPCTP EQU CVTS01+256 00863000 CVTSIC EQU CVTS01+252 00864000 CVTTPIOS EQU CVTS01+248 00865000 CVTRTMS EQU CVTS01+244 00866000 CVTSDBF EQU CVTS01+240 00867000 CVTSCBP EQU CVTS01+236 00868000 CVTSDMP EQU CVTS01+232 00869000 CVTSV60 EQU CVTS01+228 00870000 CVTRTMCT EQU CVTS01+224 00871000 CVTASCBL EQU CVTS01+220 00872000 CVTASCBH EQU CVTS01+216 00873000 CVTGDA EQU CVTS01+212 00874000 CVTASVT EQU CVTS01+208 00875000 CVTVVMDI EQU CVTS01+204 00876000 CVTAQTOP EQU CVTS01+200 00877000 CVTIOSCS EQU CVTS01+196 00878000 CVTSDRM EQU CVTS01+192 00879000 CVTOPTE EQU CVTS01+188 00880000 CVTSTXU EQU CVTS01+184 00881000 CVTQUIS EQU CVTS01+180 00882000 CVTPARS EQU CVTS01+176 00883000 CVTS1EE EQU CVTS01+172 00884000 CVTFRAS EQU CVTS01+168 00885000 CVTQSAS EQU CVTS01+164 00886000 CVTCRAS EQU CVTS01+160 00887000 CVTCRMN EQU CVTS01+156 00888000 CVTDELCP EQU CVTS01+152 00889000 CVTFRECL EQU CVTS01+148 00890000 CVTGETCL EQU CVTS01+144 00891000 CVTBLDCP EQU CVTS01+140 00892000 CVTAUTHL EQU CVTS01+136 00893000 CVTSCAN EQU CVTS01+132 00894000 CVTRV144 EQU CVTS01+130 00895000 CVTMAXMP EQU CVTS01+128 00896000 CVTSTCK EQU CVTS01+124 00897000 CVTRV139 EQU CVTS01+123 00898000 CVTDSSAC EQU CVTS01+122 00899000 CVTRV513 EQU CVTS01+121 00900000 CVTIOSPL EQU CVTS01+120 00901000 CVTPTGT EQU CVTS01+116 00902000 CVTCSPIE EQU CVTS01+112 00903000 CVTSMFEX EQU CVTS01+108 00904000 CVTOLT0A EQU CVTS01+104 00905000 CVTSRBRT EQU CVTS01+100 00906000 CVTPUTL EQU CVTS01+96 00907000 CVTASCRL EQU CVTS01+92 00908000 CVTASCRF EQU CVTS01+88 00909000 CVTRV326 EQU CVTS01+84 00910000 CVTRV325 EQU CVTS01+80 00911000 CVTRV324 EQU CVTS01+76 00912000 CVT0VL01 EQU CVTS01+72 00913000 CVTSHRVM EQU CVTS01+68 00914000 CVTRV332 EQU CVTS01+64 00915000 CVTTAS EQU CVTS01+60 00916000 CVTRSCN EQU CVTS01+56 00917000 CVTTRAC2 EQU CVTS01+54 00918000 CVTTRACE EQU CVTS01+52 00919000 CVTAPG EQU CVTS01+51 00920000 CVTSDTRC EQU CVTCTLFG 00921000 CVTGTRCE EQU CVTCTLFG 00922000 CVTNOMP EQU CVTCTLFG 00923000 CVTRSV79 EQU CVTCTLFG 00924000 CVTDSTAT EQU CVTCTLFG 00925000 CVTRSV78 EQU CVTCTLFG 00926000 CVTRV333 EQU CVTCTLFG 00927000 CVTRV323 EQU CVTCTLFG 00928000 CVTSPVLK EQU CVTS01+49 00929000 CVTRSV77 EQU CVTS01+48 00930000 CVTRV331 EQU CVTS01+44 00931000 CVTRV330 EQU CVTS01+40 00932000 CVTRV329 EQU CVTS01+36 00933000 CVTRV328 EQU CVTS01+32 00934000 CVTRV322 EQU CVTS01+28 00935000 CVTSLID EQU CVTSLIDA+1 00936000 CVTSYLK EQU CVTSLIDA 00937000 CVTRV321 EQU CVTS01+20 00938000 CVTRV320 EQU CVTS01+16 00939000 CVTLPDIR EQU CVTLPDIA+1 00940000 CVTRSV69 EQU CVTDIRST 00941000 CVTRSV68 EQU CVTDIRST 00942000 CVTRSV67 EQU CVTDIRST 00943000 CVTRSV66 EQU CVTDIRST 00944000 CVTRSV65 EQU CVTDIRST 00945000 CVTRSV64 EQU CVTDIRST 00946000 CVTRSV63 EQU CVTDIRST 00947000 CVTDICOM EQU CVTDIRST 00948000 CVTPVTP EQU CVTS01+8 00949000 CVTLPDSR EQU CVTS01+4 00950000 CVTGETL EQU CVTS01 00951000 DMCBRES7 EQU DMCBQSM+96 00952000 DMCBDCB EQU DMCBQSM 00953000 DMCBACB EQU DMCBVSM+76 00954000 ELEMXFLG EQU ELEMCSTR+4 00955000 @NM00005 EQU MODC+2 00956000 CVTLEVL EQU CVTRELNO+2 00957000 CVTNUMB EQU CVTRELNO 00958000 CVTMDL EQU CVTFIX+250 00959000 @NM00002 EQU CVTFIX+248 00960000 @NM00001 EQU CVTFIX 00961000 CVTRV482 EQU CVTXTNT2+128 00962000 CVTRV481 EQU CVTXTNT2+124 00963000 CVTRV480 EQU CVTXTNT2+120 00964000 CVTRV479 EQU CVTXTNT2+118 00965000 CVTRV478 EQU CVTXTNT2+117 00966000 CVTRV477 EQU CVTXTNT2+116 00967000 CVTRV476 EQU CVTXTNT2+115 00968000 CVTRV475 EQU CVTXTNT2+114 00969000 CVTRV474 EQU CVTRV466 00970000 CVTRV473 EQU CVTRV466 00971000 CVTRV472 EQU CVTRV466 00972000 CVTRV471 EQU CVTRV466 00973000 CVTRV470 EQU CVTRV466 00974000 CVTRV469 EQU CVTRV466 00975000 CVTRV468 EQU CVTRV466 00976000 CVTRV467 EQU CVTRV466 00977000 CVTRV465 EQU CVTRV457 00978000 CVTRV464 EQU CVTRV457 00979000 CVTRV463 EQU CVTRV457 00980000 CVTRV462 EQU CVTRV457 00981000 CVTRV461 EQU CVTRV457 00982000 CVTRV460 EQU CVTRV457 00983000 CVTRV459 EQU CVTRV457 00984000 CVTRV458 EQU CVTRV457 00985000 CVTRV456 EQU CVTXTNT2+108 00986000 CVTRV455 EQU CVTXTNT2+104 00987000 CVTRV454 EQU CVTXTNT2+100 00988000 CVTRV453 EQU CVTXTNT2+96 00989000 CVTRV452 EQU CVTXTNT2+94 00990000 CVTRV451 EQU CVTXTNT2+92 00991000 CVTRV450 EQU CVTXTNT2+90 00992000 CVTRV449 EQU CVTXTNT2+88 00993000 CVTRV448 EQU CVTXTNT2+87 00994000 CVTRV447 EQU CVTXTNT2+86 00995000 CVTRV446 EQU CVTRV438 00996000 CVTRV445 EQU CVTRV438 00997000 CVTRV444 EQU CVTRV438 00998000 CVTRV443 EQU CVTRV438 00999000 CVTRV442 EQU CVTRV438 01000000 CVTRV441 EQU CVTRV438 01001000 CVTRV440 EQU CVTRV438 01002000 CVTRV439 EQU CVTRV438 01003000 CVTRV437 EQU CVTRV429 01004000 CVTRV436 EQU CVTRV429 01005000 CVTRV435 EQU CVTRV429 01006000 CVTRV434 EQU CVTRV429 01007000 CVTRV433 EQU CVTRV429 01008000 CVTRV432 EQU CVTRV429 01009000 CVTRV431 EQU CVTRV429 01010000 CVTRV430 EQU CVTRV429 01011000 CVTRV428 EQU CVTXTNT2+80 01012000 CVTRV427 EQU CVTXTNT2+76 01013000 CVTRV426 EQU CVTXTNT2+72 01014000 CVTRV425 EQU CVTXTNT2+68 01015000 CVTATACT EQU CVTATCVT 01016000 CVTRV423 EQU CVTXTNT2+62 01017000 CVTRV422 EQU CVTXTNT2+60 01018000 CVTRV421 EQU CVTXTNT2+58 01019000 CVTRV420 EQU CVTXTNT2+56 01020000 CVTRV419 EQU CVTXTNT2+55 01021000 CVTRV418 EQU CVTXTNT2+54 01022000 CVTRV417 EQU CVTRV409 01023000 CVTRV416 EQU CVTRV409 01024000 CVTRV415 EQU CVTRV409 01025000 CVTRV414 EQU CVTRV409 01026000 CVTRV413 EQU CVTRV409 01027000 CVTRV412 EQU CVTRV409 01028000 CVTRV411 EQU CVTRV409 01029000 CVTRV410 EQU CVTRV409 01030000 CVTRV408 EQU CVTRV400 01031000 CVTRV407 EQU CVTRV400 01032000 CVTRV406 EQU CVTRV400 01033000 CVTRV405 EQU CVTRV400 01034000 CVTRV404 EQU CVTRV400 01035000 CVTRV403 EQU CVTRV400 01036000 CVTRV402 EQU CVTRV400 01037000 CVTRV401 EQU CVTRV400 01038000 CVTICB EQU CVTXTNT2+48 01039000 CVTSKTA EQU CVTXTNT2+44 01040000 CVTRSV99 EQU CVTXTNT2+40 01041000 CVTRSV98 EQU CVTXTNT2+36 01042000 CVTRSV97 EQU CVTXTNT2+34 01043000 CVTRSV96 EQU CVTXTNT2+32 01044000 CVTOLTEP EQU CVTXTNT2+28 01045000 CVTQIDA EQU CVTQID+1 01046000 CVTRSV95 EQU CVTQID 01047000 CVTRSV94 EQU CVTXTNT2+20 01048000 CVTRSV93 EQU CVTXTNT2+16 01049000 CVTRSV92 EQU CVTXTNT2+12 01050000 CVTDEBVR EQU CVTXTNT2+8 01051000 CVTRSV91 EQU CVTXTNT2+6 01052000 CVTRSV9H EQU CVTFLGBT 01053000 CVTRSV9G EQU CVTFLGBT 01054000 CVTRSV9F EQU CVTFLGBT 01055000 CVTRSV9E EQU CVTFLGBT 01056000 CVTRSV9D EQU CVTFLGBT 01057000 CVTRSV9C EQU CVTFLGBT 01058000 CVTVME EQU CVTFLGBT 01059000 CVTNPE EQU CVTFLGBT 01060000 CVTNUCLS EQU CVTXTNT2+4 01061000 CVTDSSVA EQU CVTDSSV+1 01062000 CVTRSV89 EQU CVTDSSV 01063000 CVTRSV88 EQU CVTXTNT1+8 01064000 CVTRSV87 EQU CVTXTNT1+4 01065000 CVTFACHN EQU CVTXTNT1 01066000 CVTRV488 EQU CVTMAP+412 01067000 CVTRV487 EQU CVTMAP+408 01068000 CVTRV486 EQU CVTMAP+404 01069000 CVTRV485 EQU CVTMAP+400 01070000 CVTACTAP EQU CVTMAP+396 01071000 CVTAUTH EQU CVTMAP+392 01072000 CVTATMCA EQU CVTATMCT+1 01073000 CVTATMST EQU CVTATMCT 01074000 CVTRSV61 EQU CVTMAP+384 01075000 CVTVOLT1 EQU CVTVOLM1+1 01076000 CVTVOLI1 EQU CVTVOLF1 01077000 CVTSTOA EQU CVTMAP+376 01078000 CVTRSV58 EQU CVTMAP+374 01079000 CVTRSV57 EQU CVTMAP+372 01080000 CVTDDCE EQU CVTMAP+368 01081000 CVTPNWFR EQU CVTMAP+364 01082000 CVTSMF EQU CVTMAP+360 01083000 CVTSULK EQU CVTMAP+358 01084000 CVTSLKO EQU CVTSYSK 01085000 CVTSLKP EQU CVTSYSK 01086000 CVTSLKQ EQU CVTSYSK 01087000 CVTSLKR EQU CVTSYSK 01088000 CVTRSV56 EQU CVTSYSK 01089000 CVTRSV55 EQU CVTSYSK 01090000 CVTRSV54 EQU CVTSYSK 01091000 CVTRSV53 EQU CVTSYSK 01092000 CVTRSV52 EQU CVTA1F1 01093000 CVTRSV51 EQU CVTA1F1 01094000 CVTRSV50 EQU CVTA1F1 01095000 CVTRSV49 EQU CVTA1F1 01096000 CVTRSV48 EQU CVTA1F1 01097000 CVTRSV47 EQU CVTA1F1 01098000 CVTSRSW EQU CVTA1F1 01099000 CVTPFSW EQU CVTA1F1 01100000 CVTPCVT EQU CVTMAP+352 01101000 CVTRSV46 EQU CVTMAP+344 01102000 CVTRSV45 EQU CVTMAP+340 01103000 CVTRSV44 EQU CVTMAP+338 01104000 CVTRSV43 EQU CVTMAP+336 01105000 CVTHJESA EQU CVTHJES+1 01106000 CVTRSV42 EQU CVTHJES 01107000 CVTEXT2A EQU CVTEXT2+1 01108000 CVTRSV41 EQU CVTEXT2 01109000 CVTAPFA EQU CVTAPF+1 01110000 CVTRSV40 EQU CVTAPF 01111000 CVTRV518 EQU CVTINTLA 01112000 CVTRV517 EQU CVTERPV 01113000 CVTEORM EQU CVTMAP+312 01114000 CVTMCHPR EQU CVTMAP+308 01115000 CVTTZ EQU CVTMAP+304 01116000 CVTJEPS EQU CVTMAP+300 01117000 CVTJESCT EQU CVTMAP+296 01118000 CVTMODE EQU CVTMAP+292 01119000 CVTPTRV EQU CVTMAP+288 01120000 CVTREAL EQU CVTMAP+284 01121000 CVTRSV39 EQU CVTMAP+280 01122000 CVTRSV38 EQU CVTMAP+276 01123000 CVTDMSRA EQU CVTDMSR+1 01124000 CVTRV634 EQU CVTDMSRF 01125000 CVTRV633 EQU CVTDMSRF 01126000 CVTRV632 EQU CVTDMSRF 01127000 CVTRV631 EQU CVTDMSRF 01128000 CVTRV630 EQU CVTDMSRF 01129000 CVTRV629 EQU CVTDMSRF 01130000 CVTUDUMP EQU CVTDMSRF 01131000 CVTSDUMP EQU CVTDMSRF 01132000 CVTQMSGA EQU CVTQMSG+1 01133000 CVTRSV36 EQU CVTQMSG 01134000 CVTAMFF EQU CVTMAP+264 01135000 CVTPURGA EQU CVTPURG+1 01136000 CVTRSV35 EQU CVTPURG 01137000 CVTATERA EQU CVTATER+1 01138000 CVTSYST EQU CVTATER 01139000 CVTVOLT2 EQU CVTTAT 01140000 CVTVOLI2 EQU CVTVOLF2 01141000 CVTAQAVB EQU CVTAQAVT+1 01142000 CVTRSV34 EQU CVTTCMFG 01143000 CVTRSV33 EQU CVTTCMFG 01144000 CVTRSV32 EQU CVTTCMFG 01145000 CVTRSV31 EQU CVTTCMFG 01146000 CVTRSV30 EQU CVTTCMFG 01147000 CVTRSV29 EQU CVTTCMFG 01148000 CVTLDEV EQU CVTTCMFG 01149000 CVTTCRDY EQU CVTTCMFG 01150000 CVTGTFA EQU CVTGTF+1 01151000 CVTRSV27 EQU CVTGTFST 01152000 CVTRNIO EQU CVTGTFST 01153000 CVTUSR EQU CVTGTFST 01154000 CVTRV318 EQU CVTFORM 01155000 CVTRV317 EQU CVTTMODE 01156000 CVTRV316 EQU CVTSTATE 01157000 CVTRV315 EQU CVTGTFS 01158000 CVTGTFAV EQU CVTGTFS 01159000 CVT0SCR1 EQU CVTMAP+232 01160000 CVTRV515 EQU CVTMAP+228 01161000 CVTRMS EQU CVTMAP+224 01162000 CVTPATCH EQU CVTMAP+220 01163000 CVTTSCE EQU CVTMAP+216 01164000 CVTLNKSC EQU CVTMAP+214 01165000 CVTQABST EQU CVTMAP+212 01166000 CVTMDLDS EQU CVTMAP+208 01167000 CVTUSER EQU CVTMAP+204 01168000 CVTABEND EQU CVTMAP+200 01169000 CVTSMCA EQU CVTMAP+196 01170000 CVTRSV18 EQU CVTMAP+192 01171000 CVTQLPAQ EQU CVTMAP+188 01172000 CVTQCDSR EQU CVTMAP+184 01173000 CVTRSV17 EQU CVTOPTB 01174000 CVTRSV16 EQU CVTOPTB 01175000 CVTFP EQU CVTOPTB 01176000 CVTAPTHR EQU CVTOPTB 01177000 CVTNLOG EQU CVTOPTB 01178000 CVTTOD EQU CVTOPTB 01179000 CVTCTIMS EQU CVTOPTB 01180000 CVTPROT EQU CVTOPTB 01181000 CVTXPFP EQU CVTOPTA 01182000 CVTASCII EQU CVTOPTA 01183000 CVTRSV13 EQU CVTOPTA 01184000 CVTRSV12 EQU CVTOPTA 01185000 CVTNIP EQU CVTOPTA 01186000 CVTDDR EQU CVTOPTA 01187000 CVTAPR EQU CVTOPTA 01188000 CVTCCH EQU CVTOPTA 01189000 CVTSNCTR EQU CVTMAP+180 01190000 CVTQMWR EQU CVTMAP+176 01191000 CVTQOCR EQU CVTMAP+172 01192000 CVT1EF00 EQU CVTMAP+168 01193000 CVTMZ00 EQU CVTMAP+164 01194000 CVTSV76Q EQU CVTSV76C 01195000 CVTRSV11 EQU CVTMAP+156 01196000 CVT0PT01 EQU CVTMAP+152 01197000 CVTMSER EQU CVTMAP+148 01198000 CVTRV516 EQU CVTIERLC 01199000 CVTILCH EQU CVTMAP+140 01200000 CVT0DS EQU CVTMAP+136 01201000 CVTFBOSV EQU CVTMAP+132 01202000 CVTNUCB EQU CVTMAP+128 01203000 CVTIXAVL EQU CVTMAP+124 01204000 CVTSV76M EQU CVTIOQET 01205000 CVTDCBA EQU CVTMAP+117 01206000 CVTMVS2 EQU CVTDCB 01207000 CVT6DAT EQU CVTDCB 01208000 CVT4MPS EQU CVTDCB 01209000 CVTRSV09 EQU CVTDCB 01210000 CVT4MS1 EQU CVTDCB 01211000 CVT2SPS EQU CVTDCB 01212000 CVT1SSS EQU CVTDCB 01213000 CVTRSV08 EQU CVTDCB 01214000 CVTSTB EQU CVTMAP+112 01215000 CVTQTD00 EQU CVTMAP+108 01216000 CVTQTE00 EQU CVTMAP+104 01217000 CVTCUCB EQU CVTMAP+100 01218000 CVTSJQ EQU CVTMAP+96 01219000 CVTPBLDL EQU CVTMAP+92 01220000 CVTTPC EQU CVTMAP+88 01221000 CVTSVDCB EQU CVTMAP+84 01222000 CVTBRET EQU CVTMAP+82 01223000 CVTEXIT EQU CVTMAP+80 01224000 CVT0FN00 EQU CVTMAP+76 01225000 CVTDARA EQU CVTDAR+1 01226000 CVTRSV07 EQU CVTFLGS1 01227000 CVTRSV06 EQU CVTFLGS1 01228000 CVTRSV05 EQU CVTFLGS1 01229000 CVTRSV04 EQU CVTFLGS1 01230000 CVTRSV03 EQU CVTFLGS1 01231000 CVTRSV02 EQU CVTFLGS1 01232000 CVTRSV01 EQU CVTFLGS1 01233000 CVTDMPLK EQU CVTFLGS1 01234000 CVTXITP EQU CVTMAP+68 01235000 CVTZDTAB EQU CVTMAP+64 01236000 CVTMSLT EQU CVTMAP+60 01237000 CVTDATE EQU CVTMAP+56 01238000 CVTBTERM EQU CVTMAP+52 01239000 CVTSYSAD EQU CVTMAP+48 01240000 CVTXTLER EQU CVTMAP+44 01241000 CVTILK2 EQU CVTMAP+40 01242000 CVTILK1 EQU CVTMAP+36 01243000 CVTPRLTV EQU CVTMAP+32 01244000 CVTPCNVT EQU CVTMAP+28 01245000 CVT0VL00 EQU CVTMAP+24 01246000 CVTXAPG EQU CVTMAP+20 01247000 CVTBUF EQU CVTMAP+16 01248000 CVTJOB EQU CVTMAP+12 01249000 CVTLINK EQU CVTMAP+8 01250000 CVT0EF00 EQU CVTMAP+4 01251000 CVTTCBP EQU CVTMAP 01252000 CVT EQU CVTMAP 01253000 DMCBWRK EQU DMCB+648 01254000 DMCBRES8 EQU DMCB+640 01255000 DMCBMODN EQU DMCB+632 01256000 DMCBCARY EQU DMCBAUDT+20 01257000 DMCBCLC EQU DMCBAUDT+12 01258000 DMCBOPC EQU DMCBAUDT+8 01259000 DMCBFRC EQU DMCBAUDT+4 01260000 DMCBALC EQU DMCBAUDT 01261000 DMCBFR EQU DMCB+412 01262000 DMCBRES6 EQU DMCB+410 01263000 DMCBIRSC EQU DMCB+408 01264000 DMCBSUBC EQU DMCB+404 01265000 DMCBDRBP EQU DMCB+400 01266000 DMCBRSZM EQU DMCB+398 01267000 DMCBRSZA EQU DMCB+396 01268000 DMCBCISZ EQU DMCB+394 01269000 DMCBDCBL EQU DMCB+392 01270000 DMCBDCLR EQU DMCB+390 01271000 DMCBDCFM EQU DMCB+389 01272000 DMCBRES5 EQU DMCB+388 01273000 DMCBLBRT EQU DMCB+386 01274000 DMCBLBSQ EQU DMCB+384 01275000 DMCBLBPS EQU DMCB+383 01276000 DMCBLBTY EQU DMCB+382 01277000 DMCBRES4 EQU DMCB+381 01278000 DMCBSPRS EQU DMCBSPEC 01279000 DMCBSPRN EQU DMCBSPEC 01280000 DMCBSPCT EQU DMCBSPEC 01281000 DMCBSPRL EQU DMCBSPEC 01282000 DMCBSPSE EQU DMCB+376 01283000 DMCBSPPR EQU DMCB+372 01284000 DMCBSPTY EQU DMCB+369 01285000 DMCBODIS EQU DMCB+368 01286000 DMCBDISP EQU DMCB+367 01287000 DMCBSTAT EQU DMCB+366 01288000 DMCBRES3 EQU DMCB+364 01289000 DMCBMEMB EQU DMCB+356 01290000 DMCBMODL EQU DMCB+348 01291000 DMCBRES9 EQU DMCB+340 01292000 DMCBPID EQU DMCB+332 01293000 DMCBTYPE EQU DMCB+328 01294000 DMCBDSN EQU DMCB+284 01295000 DMCBUNIT EQU DMCB+276 01296000 DMCBDSOR EQU DMCB+274 01297000 DMCBVOL EQU DMCB+268 01298000 DMCBDDNM EQU DMCB+260 01299000 DMCBSYNM EQU DMCB+132 01300000 DMCBDCBE EQU DMCBACBE 01301000 DMCBARC EQU DMCB+120 01302000 DMCBCPC EQU DMCB+116 01303000 DMCBRET EQU DMCB+112 01304000 DMCBSTL EQU DMCB+96 01305000 DMCBRES2 EQU DMCB+85 01306000 DMCBSPID EQU DMCB+84 01307000 DMCBRESC EQU DMCB+80 01308000 DMCBZZ1P EQU DMCB+76 01309000 DMCBMSGS EQU DMCB+72 01310000 DMCBMSG0 EQU DMCB+68 01311000 DMCBRI EQU DMCB+64 01312000 DMCBRRL EQU DMCB+60 01313000 DMCBMSG EQU DMCB+52 01314000 DMCBRES1 EQU DMCB+31 01315000 DMCBACCM EQU DMCB+30 01316000 DMCBRESB EQU DMCBMFLG 01317000 DMCBFMOD EQU DMCBMFLG 01318000 DMCBLRM EQU DMCB+26 01319000 DMCBOPRS EQU DMCBOPTS 01320000 DMCBRMRS EQU DMCBRMOD 01321000 DMCBRM5 EQU DMCBRMOD 01322000 DMCBRM6 EQU DMCBRMOD 01323000 DMCBTMP EQU DMCBOUT 01324000 DMCBRQST EQU DMCB+22 01325000 DMCBRESA EQU DMCBOPN 01326000 DMCBSOUT EQU DMCBOPN 01327000 DMCBSIN EQU DMCBOPN 01328000 DMCBKSF EQU DMCBFTY 01329000 DMCBFTRS EQU DMCBFTY 01330000 DMCBSHF EQU DMCBFTY 01331000 DMCBIRL EQU DMCB+16 01332000 DMCBTVP EQU DMCB+8 01333000 DMCBNEXT EQU DMCB+4 01334000 DMCBID EQU DMCB 01335000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01336000 @RT00033 EQU @EL00001 01337000 @RC00093 EQU @RC00087 01338000 @ENDDATA EQU * 01339000 END BLSCSETT,(C'PLS2003',0701,78062) 01340000