XCVT TITLE 'BLSVCVT--SCAN COMMUNICATIONS VECTOR TABLE (CVT) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSVCVT CSECT , 01S0002 00006000 @MAINENT DS 0H 01S0002 00007000 USING *,@15 01S0002 00008000 B @PROLOG 01S0002 00009000 DC AL1(16) 01S0002 00010000 DC C'BLSVCVT 78.069' 01S0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 01S0002 00013000 BALR @12,0 01S0002 00014000 @PSTART DS 0H 01S0002 00015000 USING @PSTART,@12 01S0002 00016000 L @00,@SIZDATD 01S0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 01S0002 00019000 LA @10,4095(,@11) 01S0002 00020000 USING @DATD,@11 01S0002 00021000 USING @DATD+4095,@10 01S0002 00022000 ST @13,@SA00001+4 01S0002 00023000 LM @00,@01,20(@13) 01S0002 00024000 ST @11,8(,@13) 01S0002 00025000 LR @13,@11 01S0002 00026000 MVC @PC00001(12),0(@01) 01S0002 00027000 */********************************************************************/ 00028000 */* */ 00029000 */* BLSVCVT--SCAN COMMUNICATIONS VECTOR TABLE (CVT) */ 00030000 */* */ 00031000 */********************************************************************/ 00032000 * 01S0186 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* BLSV1--SCAN EXIT SETUP */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 01S0186 00039000 * DO; /* BLSV1 */ 00040000 * RESPECIFY 01S0187 00041000 * (RF) RESTRICTED; /* RETURN CODES */ 00042000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00043000 SLR RETC,RETC 01S0188 00044000 * SABAPTR=ADDR(SAPA); /* ->SABA (ALIAS FOR SAPA */ 00045000 L SABAPTR,@PC00001+4 01S0189 00046000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00047000 TM SABASF1(SABAPTR),B'10000000' 01S0190 00048000 BNO @RF00190 01S0190 00049000 * IF /* IMAGE RETRIEVAL REQUIRED */ 00050000 * SABASF9=ZZZ0| /* SCAN NOT COMPLETE */ 00051000 * (SABASFS=ZZZ1&ZZ2ASE<=SABASRC) THEN/* IMAGE USED FOR 00052000 * MESSAGES */ 00053000 TM SABASF9(SABAPTR),B'01000000' 01S0191 00054000 BZ @RT00191 01S0191 00055000 TM SABASFS(SABAPTR),B'00010000' 01S0191 00056000 BNO @RF00191 01S0191 00057000 CLC ZZ2ASE(1,R9),SABASRC(SABAPTR) 01S0191 00058000 BNH @RT00191 01S0191 00059000 * GO TO LBLSCAN2; /* IMAGE RETRIEVAL */ 00060000 * ELSE /* NO IMAGE RETRIEVAL */ 00061000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00062000 B LBLSCAN8 01S0193 00063000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00064000 @RF00190 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0194 00065000 * SABACL=(LENGTH(ERRF)/8)*DIM(ERRF);/* LENGTH OF SABACT */ 00066000 * 01S0195 00067000 MVC SABACL(2,SABAPTR),@CH02233 01S0195 00068000 * /***************************************************************/ 00069000 * /* */ 00070000 * /* CLEAR ALL ERROR FLAGS */ 00071000 * /* */ 00072000 * /***************************************************************/ 00073000 * 01S0196 00074000 * DO ERRFNDX=1 TO DIM(ERRF); /* CLEAR ALL ERROR FLAGS */ 00075000 LA ERRFNDX,1 01S0196 00076000 @DL00196 DS 0H 01S0197 00077000 * ERRF(ERRFNDX)='00'X; /* ONE BYTE AT A TIME */ 00078000 LR @14,SABAPTR 01S0197 00079000 ALR @14,ERRFNDX 01S0197 00080000 MVI ERRF-1(@14),X'00' 01S0197 00081000 * END; /* CLEAR ALL ERROR FLAGS */ 00082000 AH ERRFNDX,@CH00051 01S0198 00083000 CH ERRFNDX,@CH02233 01S0198 00084000 BNH @DL00196 01S0198 00085000 * IF SABALAD//8^=0 THEN /* UNALIGNED */ 00086000 * 01S0199 00087000 L @14,SABALAD(,SABAPTR) 01S0199 00088000 N @14,@CF00442 01S0199 00089000 LTR @14,@14 01S0199 00090000 BZ @RF00199 01S0199 00091000 * /*************************************************************/ 00092000 * /* */ 00093000 * /* UNALIGNED */ 00094000 * /* */ 00095000 * /*************************************************************/ 00096000 * 01S0200 00097000 * DO; /* UNALIGNED */ 00098000 * ERRFB(TST032)=ZZZ1; /* UNALIGNED STORAGE ERROR */ 00099000 OI ERRFB(SABAPTR),B'10000000' 01S0201 00100000 * SABASRC=ZZZFLAGS; /* SCAN RETURN CODE */ 00101000 MVI SABASRC(SABAPTR),X'0C' 01S0202 00102000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00103000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00104000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00105000 OI SABASF1(SABAPTR),B'11100000' 01S0205 00106000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00107000 B LBLSCAN8 01S0206 00108000 * END; /* UNALIGNED */ 00109000 * END; /* BLSV1 */ 00110000 @RF00199 DS 0H 01S0209 00111000 * DO; /* BLSVM0 MF(EXECUTE,TST033) */ 00112000 * IF SABALAD<'00001000'X THEN 01S0210 00113000 CLC SABALAD(4,SABAPTR),@CF02277 01S0210 00114000 BNL @RF00210 01S0210 00115000 * DO; /* INITIAL ANALYSIS ERROR */ 00116000 * ERRFB(TST033)=ZZZ1; 01S0212 00117000 OI ERRFB+2(SABAPTR),B'10000000' 01S0212 00118000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST033)); 01S0213 00119000 SLR @14,@14 01S0213 00120000 IC @14,SABASRC(,SABAPTR) 01S0213 00121000 SLR @08,@08 01S0213 00122000 IC @08,MSGLEVEL+2 01S0213 00123000 CR @14,@08 01S0213 00124000 BNL *+6 00125000 LR @14,@08 01S0213 00126000 STC @14,SABASRC(,SABAPTR) 01S0213 00127000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00128000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00129000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00130000 OI SABASF1(SABAPTR),B'11100000' 01S0216 00131000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00132000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0217 00133000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00134000 B LBLSCAN8 01S0218 00135000 * END; /* INITIAL ANALYSIS ERROR */ 00136000 * END; /* BLSVM0 MF(EXECUTE,TST033) */ 00137000 @RF00210 DS 0H 01S0221 00138000 * DO; /* BLSVM0 MF(EXECUTE,TST034) */ 00139000 * IF SABALAD>'000FFFFF'X THEN 01S0222 00140000 CLC SABALAD(4,SABAPTR),@CF02279 01S0222 00141000 BNH @RF00222 01S0222 00142000 * DO; /* INITIAL ANALYSIS ERROR */ 00143000 * ERRFB(TST034)=ZZZ1; 01S0224 00144000 OI ERRFB+3(SABAPTR),B'10000000' 01S0224 00145000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST034)); 01S0225 00146000 SLR @14,@14 01S0225 00147000 IC @14,SABASRC(,SABAPTR) 01S0225 00148000 SLR @08,@08 01S0225 00149000 IC @08,MSGLEVEL+3 01S0225 00150000 CR @14,@08 01S0225 00151000 BNL *+6 00152000 LR @14,@08 01S0225 00153000 STC @14,SABASRC(,SABAPTR) 01S0225 00154000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00155000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00156000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00157000 OI SABASF1(SABAPTR),B'11100000' 01S0228 00158000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00159000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0229 00160000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00161000 B LBLSCAN8 01S0230 00162000 * END; /* INITIAL ANALYSIS ERROR */ 00163000 * END; /* BLSVM0 MF(EXECUTE,TST034) */ 00164000 * 01S0232 00165000 @RF00222 DS 0H 01S0233 00166000 * /*****************************************************************/ 00167000 * /* */ 00168000 * /* BLSV2--RETRIEVE IMAGE OF BLOCK TO BE SCANNED */ 00169000 * /* */ 00170000 * /*****************************************************************/ 00171000 * 01S0233 00172000 *LBLSCAN2: 01S0233 00173000 * DO; /* BLSV2 */ 00174000 LBLSCAN2 DS 0H 01S0234 00175000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE ES RECORD */ 00176000 L @14,ZZ2ESSYP(,R9) 01S0234 00177000 MVC ESAU(182),ESCO(@14) 01S0234 00178000 * ESAUAS=SABAAS; /* ADDRESS SPACE */ 00179000 MVC ESAUAS(16),SABAAS(SABAPTR) 01S0235 00180000 * ESAULAD=SABALAD; /* LOGICAL ADDRESS */ 00181000 MVC ESAULAD(4),SABALAD(SABAPTR) 01S0236 00182000 * ESAUDT=SABADT; /* DATA TYPE */ 00183000 MVC ESAUDT(34),SABADT(SABAPTR) 01S0237 00184000 * ESAUDOF=-8; /* DATA OFFSET */ 00185000 MVC ESAUDOF(4),@CF02281 01S0238 00186000 * ESAUDLE=LENGTH(BUF); /* LENGTH */ 00187000 MVC ESAUDLE(4),@CF02272 01S0239 00188000 * CALL BLSRACCQ(ZZ2,ESAU,BUF); /* RETRIEVE STORAGE */ 00189000 ST R9,@AL00001 01S0240 00190000 LA @14,ESAU 01S0240 00191000 ST @14,@AL00001+4 01S0240 00192000 LA @14,BUF 01S0240 00193000 ST @14,@AL00001+8 01S0240 00194000 L @08,ZZ2RVTP(,R9) 01S0240 00195000 L @15,RVTACCQP(,@08) 01S0240 00196000 LA @01,@AL00001 01S0240 00197000 BALR @14,@15 01S0240 00198000 * IF ESAUFSM=ZZZ1 THEN /* STORAGE NOT AVAILABLE */ 00199000 * 01S0241 00200000 TM ESAUFSM,B'00100000' 01S0241 00201000 BNO @RF00241 01S0241 00202000 * /*************************************************************/ 00203000 * /* */ 00204000 * /* STORAGE NOT AVAILABLE */ 00205000 * /* */ 00206000 * /*************************************************************/ 00207000 * 01S0242 00208000 * DO; /* STORAGE NOT AVAILABLE */ 00209000 * IF ZZ1EVEP=ZZZ1 THEN /* EARLY TERMINATION REQUESTED */ 00210000 * 01S0243 00211000 L @14,ZZ2ZZ1P(,R9) 01S0243 00212000 TM ZZ1EVEP(@14),B'01000000' 01S0243 00213000 BNO @RF00243 01S0243 00214000 * /*********************************************************/ 00215000 * /* */ 00216000 * /* EARLY TERMINATION REQUESTED */ 00217000 * /* */ 00218000 * /*********************************************************/ 00219000 * 01S0244 00220000 * DO; /* EARLY TERMINATION REQUESTED */ 00221000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00222000 LA RETC,12 01S0245 00223000 * GO TO EXIT; /* COMMON EXIT PATH */ 00224000 B EXIT 01S0246 00225000 * END; /* EARLY TERMINATION REQUESTED */ 00226000 * ERRFB(TST031)=ZZZ1; /* STORAGE NOT AVAILABLE */ 00227000 @RF00243 OI ERRFB+1(SABAPTR),B'10000000' 01S0248 00228000 * SABASRC=MAX(SABASRC,ZZZFLAGW);/* SCAN RETURN CODE */ 00229000 SLR @14,@14 01S0249 00230000 IC @14,SABASRC(,SABAPTR) 01S0249 00231000 LA @08,4 01S0249 00232000 CR @14,@08 01S0249 00233000 BNL *+6 00234000 LR @14,@08 01S0249 00235000 STC @14,SABASRC(,SABAPTR) 01S0249 00236000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00237000 * SABASF9=ZZZ1; /* SCAN COMPLETE */ 00238000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00239000 OI SABASF1(SABAPTR),B'11100000' 01S0252 00240000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00241000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0253 00242000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00243000 B LBLSCAN8 01S0254 00244000 * END; /* STORAGE NOT AVAILABLE */ 00245000 * CVTPTR=ADDR(BUF)-ESAUDOF; /* ->IMAGE */ 00246000 @RF00241 LA CVTPTR,BUF 01S0256 00247000 SL CVTPTR,ESAUDOF 01S0256 00248000 * FVAL(1)=CVTLINK; /* POINTER 1 */ 00249000 MVC FVAL(4),CVTLINK(CVTPTR) 01S0257 00250000 * FVAL(2)=CVTSVDCB; /* POINTER 2 */ 00251000 MVC FVAL+4(4),CVTSVDCB(CVTPTR) 01S0258 00252000 * FVAL(3)=CVTDCBA; /* POINTER 3 */ 00253000 SLR @14,@14 01S0259 00254000 ICM @14,7,CVTDCBA(CVTPTR) 01S0259 00255000 ST @14,FVAL+8 01S0259 00256000 * FVAL(4)=CVTABEND; /* POINTER 4 */ 00257000 MVC FVAL+12(4),CVTABEND(CVTPTR) 01S0260 00258000 * FVAL(5)=CVTPVTP; /* POINTER 5 */ 00259000 MVC FVAL+16(4),CVTPVTP(CVTPTR) 01S0261 00260000 * FVAL(6)=CVTWTCB; /* POINTER 6 */ 00261000 MVC FVAL+20(4),CVTWTCB(CVTPTR) 01S0262 00262000 * FVAL(7)=CVTJESCT; /* POINTER 7 */ 00263000 MVC FVAL+24(4),CVTJESCT(CVTPTR) 01S0263 00264000 * FVAL(8)=CVTLPDIR; /* POINTER 8 */ 00265000 SLR @14,@14 01S0264 00266000 ICM @14,7,CVTLPDIR(CVTPTR) 01S0264 00267000 ST @14,FVAL+28 01S0264 00268000 * FVAL(9)=CVTASVT; /* POINTER 9 */ 00269000 MVC FVAL+32(4),CVTASVT(CVTPTR) 01S0265 00270000 * FVAL(10)=CVTGDA; /* POINTER 10 */ 00271000 MVC FVAL+36(4),CVTGDA(CVTPTR) 01S0266 00272000 * FVAL(11)=CVTASCBH; /* POINTER 11 */ 00273000 MVC FVAL+40(4),CVTASCBH(CVTPTR) 01S0267 00274000 * FVAL(12)=CVTASCBL; /* POINTER 12 */ 00275000 MVC FVAL+44(4),CVTASCBL(CVTPTR) 01S0268 00276000 * FVAL(13)=CVTRTMCT; /* POINTER 13 */ 00277000 MVC FVAL+48(4),CVTRTMCT(CVTPTR) 01S0269 00278000 * FVAL(14)=CVTOPCTP; /* POINTER 14 */ 00279000 MVC FVAL+52(4),CVTOPCTP(CVTPTR) 01S0270 00280000 * FVAL(15)=CVTFQCB; /* POINTER 15 */ 00281000 MVC FVAL+56(4),CVTFQCB(CVTPTR) 01S0271 00282000 * FVAL(16)=CVTLQCB; /* POINTER 16 */ 00283000 MVC FVAL+60(4),CVTLQCB(CVTPTR) 01S0272 00284000 * FVAL(17)=CVTCSD; /* POINTER 17 */ 00285000 MVC FVAL+64(4),CVTCSD(CVTPTR) 01S0273 00286000 * FVAL(18)=CVTSPSA; /* POINTER 18 */ 00287000 MVC FVAL+68(4),CVTSPSA(CVTPTR) 01S0274 00288000 * FVAL(19)=CVTPCCAT; /* POINTER 19 */ 00289000 MVC FVAL+72(4),CVTPCCAT(CVTPTR) 01S0275 00290000 * FVAL(20)=CVTLCCAT; /* POINTER 20 */ 00291000 MVC FVAL+76(4),CVTLCCAT(CVTPTR) 01S0276 00292000 * IF SABASF9=ZZZ1 THEN /* SCAN COMPLETED */ 00293000 TM SABASF9(SABAPTR),B'01000000' 01S0277 00294000 BO @RT00277 01S0277 00295000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00296000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00297000 OI SABASF9(SABAPTR),B'01000000' 01S0279 00298000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00299000 TM SABASF1(SABAPTR),B'10000000' 01S0280 00300000 BO @RT00280 01S0280 00301000 * GO TO LBLSCAN7; /* ANALYZE LOCATOR DATA */ 00302000 * END; /* BLSV2 */ 00303000 * SABAF=ESAUD; /* STORAGE CHARACTERISTICS */ 00304000 MVC SABAF(60,SABAPTR),ESAUD 01S0283 00305000 * DO; /* BLSVM0 MF(EXECUTE,TST035) */ 00306000 * IF(ESAUAST=ZZZASTCR|ESAUAST=ZZZASTCV)&ESAUFSA='1'B&ESAULAD^= 00307000 * ESAUABS+8 THEN 01S0285 00308000 CLC ESAUAST(2),@CC00081 01S0285 00309000 BE @GL00004 01S0285 00310000 CLC ESAUAST(2),@CC00083 01S0285 00311000 BNE @RF00285 01S0285 00312000 @GL00004 TM ESAUFSA,B'00010000' 01S0285 00313000 BNO @RF00285 01S0285 00314000 LA @14,8 01S0285 00315000 AL @14,ESAUABS 01S0285 00316000 CL @14,ESAULAD 01S0285 00317000 BE @RF00285 01S0285 00318000 * DO; /* INITIAL ANALYSIS ERROR */ 00319000 * ERRFB(TST035)=ZZZ1; 01S0287 00320000 OI ERRFB+4(SABAPTR),B'10000000' 01S0287 00321000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST035)); 01S0288 00322000 SLR @14,@14 01S0288 00323000 IC @14,SABASRC(,SABAPTR) 01S0288 00324000 SLR @08,@08 01S0288 00325000 IC @08,MSGLEVEL+4 01S0288 00326000 CR @14,@08 01S0288 00327000 BNL *+6 00328000 LR @14,@08 01S0288 00329000 STC @14,SABASRC(,SABAPTR) 01S0288 00330000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00331000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00332000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00333000 OI SABASF1(SABAPTR),B'11100000' 01S0291 00334000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00335000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0292 00336000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00337000 B LBLSCAN8 01S0293 00338000 * END; /* INITIAL ANALYSIS ERROR */ 00339000 * END; /* BLSVM0 MF(EXECUTE,TST035) */ 00340000 @RF00285 DS 0H 01S0296 00341000 * DO; /* BLSVM0 MF(EXECUTE,TST036) */ 00342000 * IF CVTTCBP^='00000218'X THEN 01S0297 00343000 CLC CVTTCBP(4,CVTPTR),@CF02284 01S0297 00344000 BE @RF00297 01S0297 00345000 * DO; /* INITIAL ANALYSIS ERROR */ 00346000 * ERRFB(TST036)=ZZZ1; 01S0299 00347000 OI ERRFB+5(SABAPTR),B'10000000' 01S0299 00348000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST036)); 01S0300 00349000 SLR @14,@14 01S0300 00350000 IC @14,SABASRC(,SABAPTR) 01S0300 00351000 SLR @08,@08 01S0300 00352000 IC @08,MSGLEVEL+5 01S0300 00353000 CR @14,@08 01S0300 00354000 BNL *+6 00355000 LR @14,@08 01S0300 00356000 STC @14,SABASRC(,SABAPTR) 01S0300 00357000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00358000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00359000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00360000 OI SABASF1(SABAPTR),B'11100000' 01S0303 00361000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00362000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0304 00363000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00364000 B LBLSCAN8 01S0305 00365000 * END; /* INITIAL ANALYSIS ERROR */ 00366000 * END; /* BLSVM0 MF(EXECUTE,TST036) */ 00367000 @RF00297 DS 0H 01S0308 00368000 * DO; /* BLSVM0 MF(EXECUTE,TST045) */ 00369000 * IF CVTILK1=CVTILK2 THEN 01S0321 00397000 CLC CVTILK1(4,CVTPTR),CVTILK2(CVTPTR) 01S0321 00398000 BL @RF00321 01S0321 00399000 * DO; /* INITIAL ANALYSIS ERROR */ 00400000 * ERRFB(TST046)=ZZZ1; 01S0323 00401000 OI ERRFB+7(SABAPTR),B'10000000' 01S0323 00402000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST046)); 01S0324 00403000 SLR @14,@14 01S0324 00404000 IC @14,SABASRC(,SABAPTR) 01S0324 00405000 SLR @08,@08 01S0324 00406000 IC @08,MSGLEVEL+7 01S0324 00407000 CR @14,@08 01S0324 00408000 BNL *+6 00409000 LR @14,@08 01S0324 00410000 STC @14,SABASRC(,SABAPTR) 01S0324 00411000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00412000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00413000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00414000 OI SABASF1(SABAPTR),B'11100000' 01S0327 00415000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00416000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0328 00417000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00418000 B LBLSCAN8 01S0329 00419000 * END; /* INITIAL ANALYSIS ERROR */ 00420000 * END; /* BLSVM0 MF(EXECUTE,TST046) */ 00421000 @RF00321 DS 0H 01S0332 00422000 * DO; /* BLSVM0 MF(EXECUTE,TST047) */ 00423000 * IF CVTILK2>=CVTPTR THEN 01S0333 00424000 C CVTPTR,CVTILK2(,CVTPTR) 01S0333 00425000 BH @RF00333 01S0333 00426000 * DO; /* INITIAL ANALYSIS ERROR */ 00427000 * ERRFB(TST047)=ZZZ1; 01S0335 00428000 OI ERRFB+8(SABAPTR),B'10000000' 01S0335 00429000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST047)); 01S0336 00430000 SLR @14,@14 01S0336 00431000 IC @14,SABASRC(,SABAPTR) 01S0336 00432000 SLR @08,@08 01S0336 00433000 IC @08,MSGLEVEL+8 01S0336 00434000 CR @14,@08 01S0336 00435000 BNL *+6 00436000 LR @14,@08 01S0336 00437000 STC @14,SABASRC(,SABAPTR) 01S0336 00438000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00439000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00440000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00441000 OI SABASF1(SABAPTR),B'11100000' 01S0339 00442000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00443000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0340 00444000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00445000 B LBLSCAN8 01S0341 00446000 * END; /* INITIAL ANALYSIS ERROR */ 00447000 * END; /* BLSVM0 MF(EXECUTE,TST047) */ 00448000 @RF00333 DS 0H 01S0344 00449000 * DO; /* BLSVM0 MF(EXECUTE,TST037) */ 00450000 * IF CVTEXIT^='0A03'X THEN 01S0345 00451000 CLC CVTEXIT(2,CVTPTR),@CB02285 01S0345 00452000 BE @RF00345 01S0345 00453000 * DO; /* INITIAL ANALYSIS ERROR */ 00454000 * ERRFB(TST037)=ZZZ1; 01S0347 00455000 OI ERRFB+9(SABAPTR),B'10000000' 01S0347 00456000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST037)); 01S0348 00457000 SLR @14,@14 01S0348 00458000 IC @14,SABASRC(,SABAPTR) 01S0348 00459000 SLR @08,@08 01S0348 00460000 IC @08,MSGLEVEL+9 01S0348 00461000 CR @14,@08 01S0348 00462000 BNL *+6 00463000 LR @14,@08 01S0348 00464000 STC @14,SABASRC(,SABAPTR) 01S0348 00465000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00466000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00467000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00468000 OI SABASF1(SABAPTR),B'11100000' 01S0351 00469000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00470000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0352 00471000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00472000 B LBLSCAN8 01S0353 00473000 * END; /* INITIAL ANALYSIS ERROR */ 00474000 * END; /* BLSVM0 MF(EXECUTE,TST037) */ 00475000 @RF00345 DS 0H 01S0356 00476000 * DO; /* BLSVM0 MF(EXECUTE,TST038) */ 00477000 * IF CVTBRET^='07FE'X THEN 01S0357 00478000 CLC CVTBRET(2,CVTPTR),@CB02286 01S0357 00479000 BE @RF00357 01S0357 00480000 * DO; /* INITIAL ANALYSIS ERROR */ 00481000 * ERRFB(TST038)=ZZZ1; 01S0359 00482000 OI ERRFB+10(SABAPTR),B'10000000' 01S0359 00483000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST038)); 01S0360 00484000 SLR @14,@14 01S0360 00485000 IC @14,SABASRC(,SABAPTR) 01S0360 00486000 SLR @08,@08 01S0360 00487000 IC @08,MSGLEVEL+10 01S0360 00488000 CR @14,@08 01S0360 00489000 BNL *+6 00490000 LR @14,@08 01S0360 00491000 STC @14,SABASRC(,SABAPTR) 01S0360 00492000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00493000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00494000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00495000 OI SABASF1(SABAPTR),B'11100000' 01S0363 00496000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00497000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0364 00498000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00499000 B LBLSCAN8 01S0365 00500000 * END; /* INITIAL ANALYSIS ERROR */ 00501000 * END; /* BLSVM0 MF(EXECUTE,TST038) */ 00502000 @RF00357 DS 0H 01S0368 00503000 * DO; /* BLSVM0 MF(EXECUTE,TST039) */ 00504000 * IF CVT4MS1='0'B THEN 01S0369 00505000 TM CVT4MS1(CVTPTR),B'00010000' 01S0369 00506000 BNZ @RF00369 01S0369 00507000 * DO; /* INITIAL ANALYSIS ERROR */ 00508000 * ERRFB(TST039)=ZZZ1; 01S0371 00509000 OI ERRFB+11(SABAPTR),B'10000000' 01S0371 00510000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST039)); 01S0372 00511000 SLR @14,@14 01S0372 00512000 IC @14,SABASRC(,SABAPTR) 01S0372 00513000 SLR @08,@08 01S0372 00514000 IC @08,MSGLEVEL+11 01S0372 00515000 CR @14,@08 01S0372 00516000 BNL *+6 00517000 LR @14,@08 01S0372 00518000 STC @14,SABASRC(,SABAPTR) 01S0372 00519000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00520000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00521000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00522000 OI SABASF1(SABAPTR),B'11100000' 01S0375 00523000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00524000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0376 00525000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00526000 B LBLSCAN8 01S0377 00527000 * END; /* INITIAL ANALYSIS ERROR */ 00528000 * END; /* BLSVM0 MF(EXECUTE,TST039) */ 00529000 @RF00369 DS 0H 01S0380 00530000 * DO; /* BLSVM0 MF(EXECUTE,TST040) */ 00531000 * IF CVT6DAT='0'B THEN 01S0381 00532000 TM CVT6DAT(CVTPTR),B'00000010' 01S0381 00533000 BNZ @RF00381 01S0381 00534000 * DO; /* INITIAL ANALYSIS ERROR */ 00535000 * ERRFB(TST040)=ZZZ1; 01S0383 00536000 OI ERRFB+12(SABAPTR),B'10000000' 01S0383 00537000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST040)); 01S0384 00538000 SLR @14,@14 01S0384 00539000 IC @14,SABASRC(,SABAPTR) 01S0384 00540000 SLR @08,@08 01S0384 00541000 IC @08,MSGLEVEL+12 01S0384 00542000 CR @14,@08 01S0384 00543000 BNL *+6 00544000 LR @14,@08 01S0384 00545000 STC @14,SABASRC(,SABAPTR) 01S0384 00546000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00547000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00548000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00549000 OI SABASF1(SABAPTR),B'11100000' 01S0387 00550000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00551000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0388 00552000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00553000 B LBLSCAN8 01S0389 00554000 * END; /* INITIAL ANALYSIS ERROR */ 00555000 * END; /* BLSVM0 MF(EXECUTE,TST040) */ 00556000 @RF00381 DS 0H 01S0392 00557000 * DO; /* BLSVM0 MF(EXECUTE,TST041) */ 00558000 * IF CVTMVS2='0'B THEN 01S0393 00559000 TM CVTMVS2(CVTPTR),B'00000001' 01S0393 00560000 BNZ @RF00393 01S0393 00561000 * DO; /* INITIAL ANALYSIS ERROR */ 00562000 * ERRFB(TST041)=ZZZ1; 01S0395 00563000 OI ERRFB+13(SABAPTR),B'10000000' 01S0395 00564000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST041)); 01S0396 00565000 SLR @14,@14 01S0396 00566000 IC @14,SABASRC(,SABAPTR) 01S0396 00567000 SLR @08,@08 01S0396 00568000 IC @08,MSGLEVEL+13 01S0396 00569000 CR @14,@08 01S0396 00570000 BNL *+6 00571000 LR @14,@08 01S0396 00572000 STC @14,SABASRC(,SABAPTR) 01S0396 00573000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00574000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00575000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00576000 OI SABASF1(SABAPTR),B'11100000' 01S0399 00577000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00578000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0400 00579000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00580000 B LBLSCAN8 01S0401 00581000 * END; /* INITIAL ANALYSIS ERROR */ 00582000 * END; /* BLSVM0 MF(EXECUTE,TST041) */ 00583000 @RF00393 DS 0H 01S0404 00584000 * DO; /* BLSVM0 MF(EXECUTE,TST042) */ 00585000 * IF CVTQABST^='0A0D'X THEN 01S0405 00586000 CLC CVTQABST(2,CVTPTR),@CB02287 01S0405 00587000 BE @RF00405 01S0405 00588000 * DO; /* INITIAL ANALYSIS ERROR */ 00589000 * ERRFB(TST042)=ZZZ1; 01S0407 00590000 OI ERRFB+14(SABAPTR),B'10000000' 01S0407 00591000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST042)); 01S0408 00592000 SLR @14,@14 01S0408 00593000 IC @14,SABASRC(,SABAPTR) 01S0408 00594000 SLR @08,@08 01S0408 00595000 IC @08,MSGLEVEL+14 01S0408 00596000 CR @14,@08 01S0408 00597000 BNL *+6 00598000 LR @14,@08 01S0408 00599000 STC @14,SABASRC(,SABAPTR) 01S0408 00600000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00601000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00602000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00603000 OI SABASF1(SABAPTR),B'11100000' 01S0411 00604000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00605000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0412 00606000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00607000 B LBLSCAN8 01S0413 00608000 * END; /* INITIAL ANALYSIS ERROR */ 00609000 * END; /* BLSVM0 MF(EXECUTE,TST042) */ 00610000 @RF00405 DS 0H 01S0416 00611000 * DO; /* BLSVM0 MF(EXECUTE,TST043) */ 00612000 * IF CVTLNKSC^='0A06'X THEN 01S0417 00613000 CLC CVTLNKSC(2,CVTPTR),@CB02288 01S0417 00614000 BE @RF00417 01S0417 00615000 * DO; /* INITIAL ANALYSIS ERROR */ 00616000 * ERRFB(TST043)=ZZZ1; 01S0419 00617000 OI ERRFB+15(SABAPTR),B'10000000' 01S0419 00618000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST043)); 01S0420 00619000 SLR @14,@14 01S0420 00620000 IC @14,SABASRC(,SABAPTR) 01S0420 00621000 SLR @08,@08 01S0420 00622000 IC @08,MSGLEVEL+15 01S0420 00623000 CR @14,@08 01S0420 00624000 BNL *+6 00625000 LR @14,@08 01S0420 00626000 STC @14,SABASRC(,SABAPTR) 01S0420 00627000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00628000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00629000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00630000 OI SABASF1(SABAPTR),B'11100000' 01S0423 00631000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00632000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0424 00633000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00634000 B LBLSCAN8 01S0425 00635000 * END; /* INITIAL ANALYSIS ERROR */ 00636000 * END; /* BLSVM0 MF(EXECUTE,TST043) */ 00637000 @RF00417 DS 0H 01S0428 00638000 *LBLSCAN7: /* ANALYZE LOCATOR DATA */ 00639000 * IF SABAAST^=ZZZASTCV THEN /* NOT A VIRTUAL STORAGE CVT */ 00640000 * 01S0428 00641000 LBLSCAN7 CLC SABAAST(2,SABAPTR),@CC00083 01S0428 00642000 BE @RF00428 01S0428 00643000 * /***************************************************************/ 00644000 * /* */ 00645000 * /* NOT A VIRTUAL STORAGE CVT */ 00646000 * /* */ 00647000 * /***************************************************************/ 00648000 * 01S0429 00649000 * DO; /* NOT A VIRTUAL STORAGE CVT */ 00650000 * IF /* STORAGE CLASS NOT SUPPORTED */ 00651000 * SABAAST^=ZZZASTCR& /* NOT REAL STORAGE */ 00652000 * SABAAST^=ZZZASTA THEN /* NOT ABSOLUTE STORAGE */ 00653000 CLC SABAAST(2,SABAPTR),@CC00081 01S0430 00654000 BE @RF00430 01S0430 00655000 CLC SABAAST(2,SABAPTR),@CC00077 01S0430 00656000 BNE @RT00430 01S0430 00657000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00658000 * DO; /* BLSVM2 MF(EXECUTE,TSTJESCT) */ 00659000 @RF00430 DS 0H 01S0433 00660000 * ERRFD(DIM(MSGPTR)+TSTJESCT)=ZZZ1;/* TEST COMPLETED */ 00661000 * ERRFS(DIM(MSGPTR)+TSTJESCT)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00662000 OI ERRFD+22(SABAPTR),B'01010000' 01S0434 00663000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00664000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0435 00665000 * END; /* BLSVM2 MF(EXECUTE,TSTJESCT) */ 00666000 * DO; /* BLSVM2 MF(EXECUTE,TSTLPDIR) */ 00667000 * ERRFD(DIM(MSGPTR)+TSTLPDIR)=ZZZ1;/* TEST COMPLETED */ 00668000 * ERRFS(DIM(MSGPTR)+TSTLPDIR)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00669000 OI ERRFD+23(SABAPTR),B'01010000' 01S0439 00670000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00671000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0440 00672000 * END; /* BLSVM2 MF(EXECUTE,TSTLPDIR) */ 00673000 * DO; /* BLSVM2 MF(EXECUTE,TSTASVT) */ 00674000 * ERRFD(DIM(MSGPTR)+TSTASVT)=ZZZ1;/* TEST COMPLETED */ 00675000 * ERRFS(DIM(MSGPTR)+TSTASVT)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00676000 OI ERRFD+24(SABAPTR),B'01010000' 01S0444 00677000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00678000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0445 00679000 * END; /* BLSVM2 MF(EXECUTE,TSTASVT) */ 00680000 * DO; /* BLSVM2 MF(EXECUTE,TSTGDA) */ 00681000 * ERRFD(DIM(MSGPTR)+TSTGDA)=ZZZ1;/* TEST COMPLETED */ 00682000 * ERRFS(DIM(MSGPTR)+TSTGDA)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00683000 OI ERRFD+25(SABAPTR),B'01010000' 01S0449 00684000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00685000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0450 00686000 * END; /* BLSVM2 MF(EXECUTE,TSTGDA) */ 00687000 * DO; /* BLSVM2 MF(EXECUTE,TSTASCBH) */ 00688000 * ERRFD(DIM(MSGPTR)+TSTASCBH)=ZZZ1;/* TEST COMPLETED */ 00689000 * ERRFS(DIM(MSGPTR)+TSTASCBH)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00690000 OI ERRFD+26(SABAPTR),B'01010000' 01S0454 00691000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00692000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0455 00693000 * END; /* BLSVM2 MF(EXECUTE,TSTASCBH) */ 00694000 * DO; /* BLSVM2 MF(EXECUTE,TSTASCBL) */ 00695000 * ERRFD(DIM(MSGPTR)+TSTASCBL)=ZZZ1;/* TEST COMPLETED */ 00696000 * ERRFS(DIM(MSGPTR)+TSTASCBL)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00697000 OI ERRFD+27(SABAPTR),B'01010000' 01S0459 00698000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00699000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0460 00700000 * END; /* BLSVM2 MF(EXECUTE,TSTASCBL) */ 00701000 * DO; /* BLSVM2 MF(EXECUTE,TSTRTMCT) */ 00702000 * ERRFD(DIM(MSGPTR)+TSTRTMCT)=ZZZ1;/* TEST COMPLETED */ 00703000 * ERRFS(DIM(MSGPTR)+TSTRTMCT)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00704000 OI ERRFD+28(SABAPTR),B'01010000' 01S0464 00705000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00706000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0465 00707000 * END; /* BLSVM2 MF(EXECUTE,TSTRTMCT) */ 00708000 * DO; /* BLSVM2 MF(EXECUTE,TSTOPCTP) */ 00709000 * ERRFD(DIM(MSGPTR)+TSTOPCTP)=ZZZ1;/* TEST COMPLETED */ 00710000 * ERRFS(DIM(MSGPTR)+TSTOPCTP)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00711000 OI ERRFD+29(SABAPTR),B'01010000' 01S0469 00712000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00713000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0470 00714000 * END; /* BLSVM2 MF(EXECUTE,TSTOPCTP) */ 00715000 * DO; /* BLSVM2 MF(EXECUTE,TSTFQCB) */ 00716000 * ERRFD(DIM(MSGPTR)+TSTFQCB)=ZZZ1;/* TEST COMPLETED */ 00717000 * ERRFS(DIM(MSGPTR)+TSTFQCB)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00718000 OI ERRFD+30(SABAPTR),B'01010000' 01S0474 00719000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00720000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0475 00721000 * END; /* BLSVM2 MF(EXECUTE,TSTFQCB) */ 00722000 * DO; /* BLSVM2 MF(EXECUTE,TSTLQCB) */ 00723000 * ERRFD(DIM(MSGPTR)+TSTLQCB)=ZZZ1;/* TEST COMPLETED */ 00724000 * ERRFS(DIM(MSGPTR)+TSTLQCB)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00725000 OI ERRFD+31(SABAPTR),B'01010000' 01S0479 00726000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00727000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0480 00728000 * END; /* BLSVM2 MF(EXECUTE,TSTLQCB) */ 00729000 * DO; /* BLSVM2 MF(EXECUTE,TSTCSD) */ 00730000 * ERRFD(DIM(MSGPTR)+TSTCSD)=ZZZ1;/* TEST COMPLETED */ 00731000 * ERRFS(DIM(MSGPTR)+TSTCSD)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00732000 OI ERRFD+32(SABAPTR),B'01010000' 01S0484 00733000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00734000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0485 00735000 * END; /* BLSVM2 MF(EXECUTE,TSTCSD) */ 00736000 * DO; /* BLSVM2 MF(EXECUTE,TSTSPSA) */ 00737000 * ERRFD(DIM(MSGPTR)+TSTSPSA)=ZZZ1;/* TEST COMPLETED */ 00738000 * ERRFS(DIM(MSGPTR)+TSTSPSA)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00739000 OI ERRFD+33(SABAPTR),B'01010000' 01S0489 00740000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00741000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0490 00742000 * END; /* BLSVM2 MF(EXECUTE,TSTSPSA) */ 00743000 * DO; /* BLSVM2 MF(EXECUTE,TSTPCCAT) */ 00744000 * ERRFD(DIM(MSGPTR)+TSTPCCAT)=ZZZ1;/* TEST COMPLETED */ 00745000 * ERRFS(DIM(MSGPTR)+TSTPCCAT)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00746000 OI ERRFD+34(SABAPTR),B'01010000' 01S0494 00747000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00748000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0495 00749000 * END; /* BLSVM2 MF(EXECUTE,TSTPCCAT) */ 00750000 * DO; /* BLSVM2 MF(EXECUTE,TSTLCCAT) */ 00751000 * ERRFD(DIM(MSGPTR)+TSTLCCAT)=ZZZ1;/* TEST COMPLETED */ 00752000 * ERRFS(DIM(MSGPTR)+TSTLCCAT)=ZZZ1;/* SPECIAL TEST PERFORMED */ 00753000 OI ERRFD+35(SABAPTR),B'01010000' 01S0499 00754000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00755000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0500 00756000 * END; /* BLSVM2 MF(EXECUTE,TSTLCCAT) */ 00757000 * END; /* NOT A VIRTUAL STORAGE CVT */ 00758000 * 01S0502 00759000 * /*****************************************************************/ 00760000 * /* */ 00761000 * /* BLSV79--SCAN EXIT LOCATOR ANALYSIS, MESSAGE TRANSMISSION, AND */ 00762000 * /* EPILOG */ 00763000 * /* */ 00764000 * /*****************************************************************/ 00765000 * 01S0503 00766000 * DO; /* BLSV79 */ 00767000 * 01S0503 00768000 @RF00428 DS 0H 01S0504 00769000 * /***************************************************************/ 00770000 * /* */ 00771000 * /* BLSV7--ANALYZE LOCATOR DATA */ 00772000 * /* */ 00773000 * /***************************************************************/ 00774000 * 01S0504 00775000 * DO; /* BLSV7 */ 00776000 * ERRFNDX=DIM(MSGPTR)+1; /* ERROR INDEX */ 00777000 LA ERRFNDX,17 01S0505 00778000 * SAAUAS=SABAAS; /* ADDRESS SPACE */ 00779000 MVC SAAUAS(16),SABAAS(SABAPTR) 01S0506 00780000 * SAAUDTY=ZZZDTYM; /* DATA TYPE CODE */ 00781000 MVI SAAUDTY,C'M' 01S0507 00782000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00783000 MVC SAAUDTD(31),@CC00183 01S0508 00784000 * SAAUDTD(1:LENGTH('DCB'))='DCB';/* DATA NAME */ 00785000 MVC SAAUDTD(3),@CC02290 01S0509 00786000 * CALL BLSRPCK1; /* POINTER TEST 1 */ 00787000 BAL @14,BLSRPCK1 01S0510 00788000 * CALL BLSRPCK1; /* POINTER TEST 2 */ 00789000 BAL @14,BLSRPCK1 01S0511 00790000 * CALL BLSRPCK1; /* POINTER TEST 3 */ 00791000 BAL @14,BLSRPCK1 01S0512 00792000 * SAAUDTD(1:LENGTH('SCVT'))='SCVT';/* DATA NAME */ 00793000 MVC SAAUDTD(4),@CC02292 01S0513 00794000 * CALL BLSRPCK1; /* POINTER TEST 4 */ 00795000 BAL @14,BLSRPCK1 01S0514 00796000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00797000 MVC SAAUDTD(31),@CC00183 01S0515 00798000 * SAAUDTD(1:LENGTH('PVT'))='PVT';/* DATA NAME */ 00799000 MVC SAAUDTD(3),@CC02293 01S0516 00800000 * CALL BLSRPCK1; /* POINTER TEST 5 */ 00801000 BAL @14,BLSRPCK1 01S0517 00802000 * SAAUDTD(1:LENGTH('TCB'))='TCB';/* DATA NAME */ 00803000 MVC SAAUDTD(3),@CC02294 01S0518 00804000 * CALL BLSRPCK1; /* POINTER TEST 6 */ 00805000 BAL @14,BLSRPCK1 01S0519 00806000 * SAAUAS=ZZ6DQA; /* ADDRESS SPACE */ 00807000 L @14,ZZ2AZZ6P(,R9) 01S0520 00808000 MVC SAAUAS(16),ZZ6DQA(@14) 01S0520 00809000 * SAAUDTD(1:LENGTH('JESCT'))='JESCT';/* DATA NAME */ 00810000 MVC SAAUDTD(5),@CC02295 01S0521 00811000 * CALL BLSRPCK1; /* POINTER TEST 7 */ 00812000 BAL @14,BLSRPCK1 01S0522 00813000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00814000 MVC SAAUDTD(31),@CC00183 01S0523 00815000 * SAAUDTD(1:LENGTH('LPDE'))='LPDE';/* DATA NAME */ 00816000 MVC SAAUDTD(4),@CC02296 01S0524 00817000 * CALL BLSRPCK2; /* POINTER TEST 8 */ 00818000 BAL @14,BLSRPCK2 01S0525 00819000 * SAAUDTD(1:LENGTH('ASVT'))='ASVT';/* DATA NAME */ 00820000 MVC SAAUDTD(4),@CC02298 01S0526 00821000 * CALL BLSRPCK1; /* POINTER TEST 9 */ 00822000 BAL @14,BLSRPCK1 01S0527 00823000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00824000 MVC SAAUDTD(31),@CC00183 01S0528 00825000 * SAAUDTD(1:LENGTH('GDA'))='GDA';/* DATA NAME */ 00826000 MVC SAAUDTD(3),@CC02299 01S0529 00827000 * CALL BLSRPCK1; /* POINTER TEST 10 */ 00828000 BAL @14,BLSRPCK1 01S0530 00829000 * SAAUDTD(1:LENGTH('ASCB'))='ASCB';/* DATA NAME */ 00830000 MVC SAAUDTD(4),@CC02300 01S0531 00831000 * CALL BLSRPCK2; /* POINTER TEST 11 */ 00832000 BAL @14,BLSRPCK2 01S0532 00833000 * CALL BLSRPCK2; /* POINTER TEST 12 */ 00834000 BAL @14,BLSRPCK2 01S0533 00835000 * SAAUDTD(1:LENGTH('RTCT'))='RTCT';/* DATA NAME */ 00836000 MVC SAAUDTD(4),@CC02301 01S0534 00837000 * CALL BLSRPCK2; /* POINTER TEST 13 */ 00838000 BAL @14,BLSRPCK2 01S0535 00839000 * SAAUDTD(1:LENGTH('RMCT'))='RMCT';/* DATA NAME */ 00840000 MVC SAAUDTD(4),@CC02302 01S0536 00841000 * CALL BLSRPCK2; /* POINTER TEST 14 */ 00842000 BAL @14,BLSRPCK2 01S0537 00843000 * SAAUDTD(1:LENGTH('QCBMAJOR'))='QCBMAJOR';/* DATA NAME */ 00844000 MVC SAAUDTD(8),@CC02303 01S0538 00845000 * CALL BLSRPCK2; /* POINTER TEST 15 */ 00846000 BAL @14,BLSRPCK2 01S0539 00847000 * CALL BLSRPCK2; /* POINTER TEST 16 */ 00848000 BAL @14,BLSRPCK2 01S0540 00849000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00850000 MVC SAAUDTD(31),@CC00183 01S0541 00851000 * SAAUDTD(1:LENGTH('CSD'))='CSD';/* DATA NAME */ 00852000 MVC SAAUDTD(3),@CC02304 01S0542 00853000 * CALL BLSRPCK2; /* POINTER TEST 17 */ 00854000 BAL @14,BLSRPCK2 01S0543 00855000 * SAAUDTD(1:LENGTH('WSAVTG'))='WSAVTG';/* DATA NAME */ 00856000 MVC SAAUDTD(6),@CC02305 01S0544 00857000 * CALL BLSRPCK2; /* POINTER TEST 18 */ 00858000 BAL @14,BLSRPCK2 01S0545 00859000 * SAAUDTD(1:LENGTH('PCCAVT'))='PCCAVT';/* DATA NAME */ 00860000 MVC SAAUDTD(6),@CC02306 01S0546 00861000 * CALL BLSRPCK1; /* POINTER TEST 19 */ 00862000 BAL @14,BLSRPCK1 01S0547 00863000 * SAAUDTD(1:LENGTH('LCCAVT'))='LCCAVT';/* DATA NAME */ 00864000 MVC SAAUDTD(6),@CC02307 01S0548 00865000 * CALL BLSRPCK1; /* POINTER TEST 20 */ 00866000 BAL @14,BLSRPCK1 01S0549 00867000 * END; /* BLSV7 */ 00868000 * 01S0550 00869000 * /***************************************************************/ 00870000 * /* */ 00871000 * /* BLSV8--TRANSMIT SCAN MESSAGE(S) */ 00872000 * /* */ 00873000 * /***************************************************************/ 00874000 * 01S0551 00875000 *LBLSCAN8: 01S0551 00876000 * DO; /* BLSV8 */ 00877000 LBLSCAN8 DS 0H 01S0552 00878000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00879000 OI SABASF1(SABAPTR),B'10000000' 01S0552 00880000 * IF SABASRC=ZZZFLAGI|SABASRC=ZZ2ASE THEN 01S0557 00909000 LR @14,SABAPTR 01S0557 00910000 ALR @14,ERRFNDX 01S0557 00911000 TM ERRFB-1(@14),B'10000000' 01S0557 00912000 BNO @RF00557 01S0557 00913000 SLR @14,@14 01S0557 00914000 IC @14,MSGLEVEL-1(ERRFNDX) 01S0557 00915000 SLR @08,@08 01S0557 00916000 IC @08,ZZ2ASE(,R9) 01S0557 00917000 CR @14,@08 01S0557 00918000 BL @RF00557 01S0557 00919000 * CALL BLSUPUTV(ZZ2,MSGPTR(ERRFNDX)->VRBA); 01S0558 00920000 ST R9,@AL00001 01S0558 00921000 LR @14,ERRFNDX 01S0558 00922000 SLA @14,2 01S0558 00923000 L @14,MSGPTR-4(@14) 01S0558 00924000 ST @14,@AL00001+4 01S0558 00925000 L @08,ZZ2BVTP(,R9) 01S0558 00926000 L @15,BVTPUTVP(,@08) 01S0558 00927000 LA @01,@AL00001 01S0558 00928000 BALR @14,@15 01S0558 00929000 * END; /* PROCESS UNIQUE MESSAGES */ 00930000 @RF00557 AH ERRFNDX,@CH00051 01S0559 00931000 CH ERRFNDX,@CH00062 01S0559 00932000 BNH @DL00556 01S0559 00933000 * IF ZZ2ASE<=8&SABASFS=ZZZ1 THEN 01S0560 00934000 * 01S0560 00935000 CLI ZZ2ASE(R9),8 01S0560 00936000 BH @RF00560 01S0560 00937000 TM SABASFS(SABAPTR),B'00010000' 01S0560 00938000 BNO @RF00560 01S0560 00939000 * /***********************************************************/ 00940000 * /* */ 00941000 * /* DIAGNOSE DAMAGED POINTER(S) */ 00942000 * /* */ 00943000 * /***********************************************************/ 00944000 * 01S0561 00945000 * DO ERRFNDX=DIM(MSGPTR)+1 TO DIM(MSGPTR)+DIM(FVAL); 01S0561 00946000 LA ERRFNDX,17 01S0561 00947000 @DL00561 DS 0H 01S0562 00948000 * IF ERRFB(ERRFNDX)=ZZZ1 THEN/* DAMAGED POINTER */ 00949000 * 01S0562 00950000 LR @14,SABAPTR 01S0562 00951000 ALR @14,ERRFNDX 01S0562 00952000 TM ERRFB-1(@14),B'10000000' 01S0562 00953000 BNO @RF00562 01S0562 00954000 * /*******************************************************/ 00955000 * /* */ 00956000 * /* DAMAGED POINTER */ 00957000 * /* */ 00958000 * /*******************************************************/ 00959000 * 01S0563 00960000 * DO; /* DAMAGED POINTER */ 00961000 * FNAMENDX=ERRFNDX-DIM(MSGPTR);/* FNAME/FVAL INDEX */ 00962000 LR FNAMENDX,ERRFNDX 01S0564 00963000 SH FNAMENDX,@CH00062 01S0564 00964000 * MV99B=MV99S; /* MESSAGE MV99 LITERAL TEXT */ 00965000 MVC MV99B(60),MV99S 01S0565 00966000 * MV99BTD=FNAME(FNAMENDX);/* NAME OF DAMAGED POINTER */ 00967000 LR @14,FNAMENDX 01S0566 00968000 SLA @14,3 01S0566 00969000 LA @08,FNAME-8(@14) 01S0566 00970000 MVC MV99BTD(8),0(@08) 01S0566 00971000 * DO; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00972000 * POINTER)TO(CHARACTER)SET(MV99B 00973000 * TF)REMARK(CONTENTS OF DAMAGED 00974000 * POINTER)TR(ZZ1TRHEX) */ 00975000 * 01S0567 00976000 * /***************************************************/ 00977000 * /* */ 00978000 * /* CONTENTS OF DAMAGED POINTER */ 00979000 * /* */ 00980000 * /***************************************************/ 00981000 * 01S0568 00982000 * PTRPTR=FVAL(FNAMENDX);/* SOURCE TO BIT/POINTER 00983000 * INTERMEDIATE */ 00984000 LR @14,FNAMENDX 01S0568 00985000 SLA @14,2 01S0568 00986000 L @14,FVAL-4(@14) 01S0568 00987000 ST @14,PTRPTR 01S0568 00988000 * UNPK(MV99BTF(1:LENGTH(MV99BTF)-1),PTRBIT);/* 01S0569 00989000 * BIT=>ZONED HEXADECIMAL */ 00990000 UNPK MV99BTF(7),PTRBIT(4) 01S0569 00991000 * MV99BTF(LENGTH(MV99BTF):LENGTH(MV99BTF))=PTRBIT(25:32 00992000 * ); /* FINAL ZONED HEXADECIMAL DIGIT */ 00993000 MVC MV99BTF+7(1),PTRBIT+3 01S0570 00994000 * TR(MV99BTF,ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC */ 00995000 L @14,ZZ2ZZ1P(,R9) 01S0571 00996000 TR MV99BTF(8),ZZ1TRHEX(@14) 01S0571 00997000 * END; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00998000 * POINTER)TO(CHARACTER)SET(MV99B 00999000 * TF)REMARK(CONTENTS OF DAMAGED 01000000 * POINTER)TR(ZZ1TRHEX) */ 01001000 * CALL BLSUMPKN(ZZ2,MV99B,LENGTH(MV99BTA)+LENGTH(MV99BTB) 01002000 * ); /* COMPRESS MESSAGE MV99 */ 01003000 ST R9,@AL00001 01S0573 01004000 LA @14,MV99B 01S0573 01005000 ST @14,@AL00001+4 01S0573 01006000 LA @14,@CF00037 01S0573 01007000 ST @14,@AL00001+8 01S0573 01008000 L @08,ZZ2BVTP(,R9) 01S0573 01009000 L @15,BVTMPKNP(,@08) 01S0573 01010000 LA @01,@AL00001 01S0573 01011000 BALR @14,@15 01S0573 01012000 * CALL BLSUPUTV(ZZ2,MV99B);/* DISPLAY MESSAGE MV99 */ 01013000 ST R9,@AL00001 01S0574 01014000 LA @14,MV99B 01S0574 01015000 ST @14,@AL00001+4 01S0574 01016000 L @08,ZZ2BVTP(,R9) 01S0574 01017000 L @15,BVTPUTVP(,@08) 01S0574 01018000 LA @01,@AL00001 01S0574 01019000 BALR @14,@15 01S0574 01020000 * END; /* DAMAGED POINTER */ 01021000 * END; /* DIAGNOSE DAMAGED POINTERS */ 01022000 @RF00562 AH ERRFNDX,@CH00051 01S0576 01023000 CH ERRFNDX,@CH02233 01S0576 01024000 BNH @DL00561 01S0576 01025000 * END; /* BLSV8 */ 01026000 * 01S0577 01027000 @RF00560 DS 0H 01S0578 01028000 * /***************************************************************/ 01029000 * /* */ 01030000 * /* BLSV9--SCAN EPILOG */ 01031000 * /* */ 01032000 * /***************************************************************/ 01033000 * 01S0578 01034000 *EXIT: 01S0578 01035000 * RETURN CODE(RETC); 01S0578 01036000 EXIT L @13,4(,@13) 01S0578 01037000 L @00,@SIZDATD 01S0578 01038000 LR @01,@11 01S0578 01039000 BLSUFRES R,LV=(0),A=(1) 01040000 LR @15,@05 01S0578 01041000 L @14,12(,@13) 01S0578 01042000 LM @00,@12,20(@13) 01S0578 01043000 BR @14 01S0578 01044000 * END; /* BLSV79 */ 01045000 EJECT 01046000 * 01S0580 01047000 */*------------------------------------------------------------------*/ 01048000 */* BLSRPCK1--EVALUATE A REQUIRED LOCATOR */ 01049000 */*------------------------------------------------------------------*/ 01050000 * 01S0580 01051000 *BLSRPCK1: /* EVALUATE A REQUIRED LOCATOR */ 01052000 * PROCEDURE; 01S0580 01053000 BLSRPCK1 STM @14,@03,@SA00002 01S0580 01054000 STM @05,@12,@SA00002+24 01S0580 01055000 * DECLARE 01S0581 01056000 * 1 PCHK POINTER DEFINED(SAAULAD),/* LOCATOR VALIDATION DATA */ 01057000 * 2 PCHK24IG BIT(8), /* IGNORED IN 24-BIT ADDRESS */ 01058000 * 2 PCHK24 POINTER(24); /* 24-BIT INTERPRETATION */ 01059000 * ERLF=ERRF(ERRFNDX); /* ERROR FLAGS */ 01060000 LR @14,SABAPTR 01S0582 01061000 ALR @14,ERRFNDX 01S0582 01062000 MVC ERLF(1),ERRF-1(@14) 01S0582 01063000 * IF ERLFD=ZZZ1 THEN /* LOCATOR TEST COMPLETE */ 01064000 TM ERLFD,B'01000000' 01S0583 01065000 BO @RT00583 01S0583 01066000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 01067000 * SAAULAD=FVAL(ERRFNDX-DIM(MSGPTR));/* INSERT VALUE */ 01068000 LR @14,ERRFNDX 01S0585 01069000 SLA @14,2 01S0585 01070000 L @14,FVAL-68(@14) 01S0585 01071000 ST @14,SAAULAD 01S0585 01072000 * IF PCHK24=0 THEN /* NULL LOCATOR */ 01073000 * 01S0586 01074000 ICM @14,7,PCHK24 01S0586 01075000 BNZ @RF00586 01S0586 01076000 * /***************************************************************/ 01077000 * /* */ 01078000 * /* NULL LOCATOR */ 01079000 * /* */ 01080000 * /***************************************************************/ 01081000 * 01S0587 01082000 * DO; /* NULL LOCATOR */ 01083000 * SABASRC=ZZZFLAGE; /* SCAN RETURN CODE */ 01084000 MVI SABASRC(SABAPTR),X'08' 01S0588 01085000 * SABASFS=ZZZ1; /* STORAGE REQUIRED FOR 01S0589 01086000 * MESSAGE(S) */ 01087000 OI SABASFS(SABAPTR),B'00010000' 01S0589 01088000 * ERLFB=ZZZ1; /* ERROR FLAG */ 01089000 * ERLFN=ZZZ1; /* NULL LOCATOR */ 01090000 * ERLFD=ZZZ1; /* LOCATOR TEST COMPLETE */ 01091000 OI ERLFB,B'11100000' 01S0592 01092000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 01093000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0593 01094000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 01095000 B PCHKEXIT 01S0594 01096000 * END; /* NULL LOCATOR */ 01097000 SPACE 1 01098000 * 01S0596 01099000 */*------------------------------------------------------------------*/ 01100000 */* BLSRPCK2--EVALUATE AN OPTIONAL LOCATOR */ 01101000 */*------------------------------------------------------------------*/ 01102000 * 01S0596 01103000 *BLSRPCK2: /* EVALUATE AN OPTIONAL LOCATOR */ 01104000 * ENTRY; 01S0596 01105000 B @EC00596 01S0596 01106000 BLSRPCK2 STM @14,@03,@SA00002 01S0596 01107000 STM @05,@12,@SA00002+24 01S0596 01108000 @EC00596 DS 0H 01S0597 01109000 * ERLF=ERRF(ERRFNDX); /* ERROR FLAGS */ 01110000 LR @14,SABAPTR 01S0597 01111000 ALR @14,ERRFNDX 01S0597 01112000 MVC ERLF(1),ERRF-1(@14) 01S0597 01113000 * IF ERLFD=ZZZ1 THEN /* LOCATOR TEST COMPLETE */ 01114000 TM ERLFD,B'01000000' 01S0598 01115000 BO @RT00598 01S0598 01116000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 01117000 * SAAULAD=FVAL(ERRFNDX-DIM(MSGPTR));/* INSERT VALUE */ 01118000 LR @14,ERRFNDX 01S0600 01119000 SLA @14,2 01S0600 01120000 L @14,FVAL-68(@14) 01S0600 01121000 ST @14,SAAULAD 01S0600 01122000 * IF PCHK24=0 THEN /* NULL LOCATOR */ 01123000 ICM @14,7,PCHK24 01S0601 01124000 BNZ @RF00601 01S0601 01125000 * ERLFN=ZZZ1; /* NULL LOCATOR */ 01126000 OI ERLFN,B'00100000' 01S0602 01127000 * ELSE /* LOCATOR NOT NULL */ 01128000 * 01S0603 01129000 * /***************************************************************/ 01130000 * /* */ 01131000 * /* LOCATOR NOT NULL */ 01132000 * /* */ 01133000 * /***************************************************************/ 01134000 * 01S0603 01135000 * DO; /* LOCATOR NOT NULL */ 01136000 B @RC00601 01S0603 01137000 @RF00601 DS 0H 01S0604 01138000 * PCHK24IG='00'X; /* ELIMINATE EXTRANEOUS BITS */ 01139000 MVI PCHK24IG,X'00' 01S0604 01140000 * CALL BLSRSAG(ZZ2,SAAU,SABA);/* PROCESS THE SA RECORD */ 01141000 ST R9,@AL00001 01S0605 01142000 LA @14,SAAU 01S0605 01143000 ST @14,@AL00001+4 01S0605 01144000 ST SABAPTR,@AL00001+8 01S0605 01145000 L @08,ZZ2RVTP(,R9) 01S0605 01146000 L @15,RVTRSAGP(,@08) 01S0605 01147000 LA @01,@AL00001 01S0605 01148000 BALR @14,@15 01S0605 01149000 * IF SAAUSF1=ZZZ0 THEN /* SCAN STARTED */ 01150000 * 01S0606 01151000 TM SAAUSF1,B'10000000' 01S0606 01152000 BNZ @RF00606 01S0606 01153000 * /***********************************************************/ 01154000 * /* */ 01155000 * /* LOCATOR TEST INCOMPLETE */ 01156000 * /* */ 01157000 * /***********************************************************/ 01158000 * 01S0607 01159000 * DO; /* LOCATOR TEST INCOMPLETE */ 01160000 * SABASF9=ZZZ0; /* SCAN NOT COMPLETE */ 01161000 NI SABASF9(SABAPTR),B'10111111' 01S0608 01162000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 01163000 B PCHKEXIT 01S0609 01164000 * END; /* LOCATOR TEST INCOMPLETE */ 01165000 * IF SAAUSRC>ZZZFLAGE THEN /* LOCATOR ERROR */ 01166000 * 01S0611 01167000 @RF00606 CLI SAAUSRC,8 01S0611 01168000 BNH @RF00611 01S0611 01169000 * /***********************************************************/ 01170000 * /* */ 01171000 * /* LOCATOR ERROR */ 01172000 * /* */ 01173000 * /***********************************************************/ 01174000 * 01S0612 01175000 * DO; /* LOCATOR ERROR */ 01176000 * SABASRC=ZZZFLAGE; /* SCAN RETURN CODE */ 01177000 MVI SABASRC(SABAPTR),X'08' 01S0613 01178000 * SABASFS=ZZZ1; /* STORAGE REQUIRED FOR 01S0614 01179000 * MESSAGE(S) */ 01180000 OI SABASFS(SABAPTR),B'00010000' 01S0614 01181000 * ERLFB=ZZZ1; /* LOCATOR ERROR */ 01182000 OI ERLFB,B'10000000' 01S0615 01183000 * END; /* LOCATOR ERROR */ 01184000 * END; /* LOCATOR NOT NULL */ 01185000 @RF00611 DS 0H 01S0618 01186000 * ERLFD=ZZZ1; /* LOCATOR TEST COMPLETE */ 01187000 @RC00601 OI ERLFD,B'01000000' 01S0618 01188000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 01189000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 01S0619 01190000 *PCHKEXIT: /* COMMON EXIT PATH */ 01191000 * ERRF(ERRFNDX)=ERLF; /* ERROR FLAGS */ 01192000 PCHKEXIT LR @14,SABAPTR 01S0620 01193000 ALR @14,ERRFNDX 01S0620 01194000 MVC ERRF-1(1,@14),ERLF 01S0620 01195000 * ERRFNDX=ERRFNDX+1; /* ERROR INDEX */ 01196000 AH ERRFNDX,@CH00051 01S0621 01197000 * RETURN; 01S0622 01198000 @EL00002 DS 0H 01S0622 01199000 @EF00002 DS 0H 01S0622 01200000 @ER00002 LM @14,@03,@SA00002 01S0622 01201000 LM @05,@12,@SA00002+24 01S0622 01202000 BR @14 01S0622 01203000 * END BLSRPCK1; 01S0623 01204000 * 01S0623 01205000 */*BLSVPEND--SCAN EXIT */ 01206000 */*BLSRPEND--DEBUGGING MODULE */ 01207000 */*BLSUPEND--MVS IPCS MODULE */ 01208000 * 01S0624 01209000 * DECLARE /* DATA FOR AHB MACROS */ 01210000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 01211000 * POINTER DATA */ 01212000 * PTRPTR POINTER DEFINED(PTRBIT);/* DATA CONVERSION WORK AREA FOR 01213000 * POINTER DATA */ 01214000 * DECLARE /* COMMON VARIABLES */ 01215000 * I256C CHAR(256) BASED, 01S0625 01216000 * I031F FIXED(31) BASED, 01S0625 01217000 * I031P PTR(31) BASED, 01S0625 01218000 * I015F FIXED(15) BASED, 01S0625 01219000 * I015P PTR(15) BASED, 01S0625 01220000 * I008P PTR(8) BASED, 01S0625 01221000 * I001C CHAR(1) BASED; 01S0625 01222000 * GENERATE NODEFS NOREFS DATA; 01S0626 01223000 * END BLSVCVT /* BLRPEND(BLSVCVT) */ 01224000 * 01S0627 01225000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01226000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01227000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01228000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01229000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01230000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01231000 */*%INCLUDE SYSLIB (IKJECT ) */ 01232000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01233000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01234000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01235000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01236000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01237000 */*%INCLUDE SYSLIB (CVT ) */ 01238000 * 01S0627 01239000 * ; 01S0627 01240000 @EL00001 L @13,4(,@13) 01S0627 01241000 @EF00001 L @00,@SIZDATD 01S0627 01242000 LR @01,@11 01S0627 01243000 BLSUFRES R,LV=(0),A=(1) 01244000 @ER00001 LM @14,@12,12(@13) 01S0627 01245000 BR @14 01S0627 01246000 @DATA DS 0H 01247000 @CH00051 DC H'1' 01248000 @CH00062 DC H'16' 01249000 @CH02233 DC H'36' 01250000 @DATD DSECT 01251000 DS 0F 01252000 @SA00001 DS 18F 01253000 @PC00001 DS 3F 01254000 @SA00002 DS 14F 01255000 @AL00001 DS 3A 01256000 BLSVCVT CSECT 01257000 DS 0F 01258000 @CF00442 DC F'7' 01259000 @CF00037 DC F'12' 01260000 @CF02272 DC F'1232' 01261000 @CF00099 DC F'4096' 01262000 @CF02281 DC F'-8' 01263000 @CF02277 DC XL4'00001000' 01264000 @CF02279 DC XL4'000FFFFF' 01265000 @CF02284 DC XL4'00000218' 01266000 @DATD DSECT 01267000 DS 0D 01268000 ESAU DS CL694 01269000 ORG ESAU 01270000 ESAURID DS CL2 01271000 @NM00031 DS BL6 01272000 @NM00032 DS CL8 01273000 @NM00033 DS BL8 01274000 ESAURDX DS FL4 01275000 ESAUSYM DS CL31 01276000 ESAUELK DS 0C 01277000 ESAURV1 DS CL1 01278000 ESAUAS DS CL16 01279000 ORG ESAUAS 01280000 ESAUAS0 DS 0C 01281000 ESAUAST DS CL2 01282000 @NM00034 DS BL2 01283000 ESAUAS1 DS FL4 01284000 ESAUAS2 DS FL4 01285000 @NM00035 DS BL4 01286000 ESAUAS9 DS 0C 01287000 ORG ESAU+76 01288000 ESAULAD DS AL4 01289000 ESAUD DS CL60 01290000 ORG ESAUD 01291000 ESAUD00 DS 0C 01292000 ESAUDOF DS FL4 01293000 ESAUDLE DS FL4 01294000 ESAUDOB DS FL1 01295000 ESAUDLB DS FL1 01296000 ESAUDT DS CL34 01297000 ORG ESAUDT 01298000 ESAUDT0 DS 0C 01299000 ESAUDTY DS CL1 01300000 @NM00036 DS BL1 01301000 ESAUDTD DS CL31 01302000 ESAUDTE DS CL1 01303000 ESAUDT9 DS 0C 01304000 ORG ESAUD+44 01305000 ESAUDIM DS FL4 01306000 ESAUDIL DS FL4 01307000 ESAUDF DS BL4 01308000 ORG ESAUDF 01309000 ESAUDFA DS BL1 01310000 @NM00037 EQU ESAUDF+0 01311000 ORG ESAUD+56 01312000 @NM00038 DS BL4 01313000 ESAUD99 DS 0C 01314000 ORG ESAU+140 01315000 ESAUMAD DS AL4 01316000 @NM00039 DS BL16 01317000 ESAUKEY DS BL1 01318000 ESAUF DS BL3 01319000 ORG ESAUF 01320000 ESAUFS DS BL1 01321000 ORG ESAUFS 01322000 ESAUFSC DS BL1 01323000 ESAUFS2 EQU ESAUFS+0 01324000 ESAUFSM EQU ESAUFS+0 01325000 ESAUFSA EQU ESAUFS+0 01326000 ESAUFSP EQU ESAUFS+0 01327000 ESAUFSR EQU ESAUFS+0 01328000 ESAUFSX EQU ESAUFS+0 01329000 ESAUFSS EQU ESAUFS+0 01330000 ORG ESAUF+1 01331000 ESAUFC DS BL1 01332000 ORG ESAUFC 01333000 ESAUFCD DS BL1 01334000 @NM00040 EQU ESAUFC+0 01335000 ORG ESAUF+2 01336000 @NM00041 DS BL1 01337000 ORG ESAU+164 01338000 ESAUABS DS FL4 01339000 @NM00042 DS BL12 01340000 ESAUR DS CL514 01341000 ORG ESAUR 01342000 ESAURL DS FL2 01343000 ESAURT DS CL512 01344000 ORG ESAURT 01345000 ESAURT1 DS CL512 01346000 ORG ESAU+694 01347000 ESAU999 DS 0C 01348000 ORG ESAU+694 01349000 DS CL2 01350000 SAAU DS CL3072 01351000 ORG SAAU 01352000 SAAURID DS CL2 01353000 @NM00150 DS BL6 01354000 SAAURDX DS FL4 01355000 SAAUAS DS CL16 01356000 ORG SAAUAS 01357000 SAAUAS0 DS 0C 01358000 SAAUAST DS CL2 01359000 @NM00151 DS BL2 01360000 SAAUAS1 DS FL4 01361000 SAAUAS2 DS FL4 01362000 @NM00152 DS BL4 01363000 SAAUAS9 DS 0C 01364000 ORG SAAU+28 01365000 SAAULAD DS AL4 01366000 SAAUDT DS CL34 01367000 ORG SAAUDT 01368000 SAAUDT0 DS 0C 01369000 SAAUDTY DS CL1 01370000 @NM00153 DS BL1 01371000 SAAUDTD DS CL31 01372000 SAAUDTE DS CL1 01373000 SAAUDT9 DS 0C 01374000 ORG SAAU+66 01375000 SAAUELK DS 0C 01376000 @NM00154 DS BL2 01377000 SAAUF DS CL60 01378000 ORG SAAUF 01379000 SAAUF00 DS 0C 01380000 SAAUFOF DS FL4 01381000 SAAUFLE DS FL4 01382000 SAAUFOB DS FL1 01383000 SAAUFLB DS FL1 01384000 SAAUFT DS CL34 01385000 ORG SAAUFT 01386000 SAAUFT0 DS 0C 01387000 SAAUFTY DS CL1 01388000 @NM00155 DS BL1 01389000 SAAUFTD DS CL31 01390000 SAAUFTE DS CL1 01391000 SAAUFT9 DS 0C 01392000 ORG SAAUF+44 01393000 SAAUFIM DS FL4 01394000 SAAUFIL DS FL4 01395000 SAAUFF DS BL4 01396000 ORG SAAUFF 01397000 SAAUFFA DS BL1 01398000 @NM00156 EQU SAAUFF+0 01399000 ORG SAAUF+56 01400000 @NM00157 DS BL4 01401000 SAAUF99 DS 0C 01402000 ORG SAAU+128 01403000 SAAUSF DS BL8 01404000 ORG SAAUSF 01405000 SAAUSF1 DS BL1 01406000 SAAUSF9 EQU SAAUSF+0 01407000 SAAUSFI EQU SAAUSF+0 01408000 SAAUSFS EQU SAAUSF+0 01409000 @NM00158 EQU SAAUSF+0 01410000 ORG SAAU+136 01411000 SAAUGMT DS BL8 01412000 SAAUPGV DS CL8 01413000 SAAUSRC DS FL1 01414000 @NM00159 DS 101BL1 01415000 SAAUC DS CL2818 01416000 ORG SAAUC 01417000 SAAUCL DS FL2 01418000 SAAUCT DS CL2816 01419000 ORG SAAUCT 01420000 SAAUCT1 DS CL2816 01421000 ORG SAAU+3072 01422000 SAAU999 DS 0C 01423000 ORG SAAU+3072 01424000 MV99B DS CL60 01425000 ORG MV99B 01426000 MV99BL DS FL2 01427000 @NM00161 DS BL2 01428000 MV99BT DS CL56 01429000 ORG MV99BT 01430000 MV99BTA DS CL9 01431000 MV99BTB DS CL3 01432000 MV99BTC DS CL8 01433000 MV99BTD DS CL8 01434000 MV99BTE DS CL1 01435000 MV99BTF DS CL8 01436000 MV99BTG DS CL19 01437000 ORG MV99B+60 01438000 ERLF DS BL1 01439000 ORG ERLF 01440000 ERLFB DS BL1 01441000 ERLFD EQU ERLF+0 01442000 ERLFN EQU ERLF+0 01443000 ERLFS EQU ERLF+0 01444000 @NM00163 EQU ERLF+0 01445000 ORG ERLF+1 01446000 DS CL3 01447000 BUF DS CL1232 01448000 PTRBIT DS BL4 01449000 FVAL DS 20A 01450000 BLSVCVT CSECT 01451000 DS 0F 01452000 @SIZDATD DC AL1(0) 01453000 DC AL3(@ENDDATD-@DATD) 01454000 DS 0D 01455000 @CC00183 DC C' ' 01456000 @CC02303 DC C'QCBMAJOR' 01457000 @CC02305 DC C'WSAVTG' 01458000 @CC02306 DC C'PCCAVT' 01459000 @CC02307 DC C'LCCAVT' 01460000 @CC02295 DC C'JESCT' 01461000 @CC02292 DC C'SCVT' 01462000 @CC02296 DC C'LPDE' 01463000 @CC02298 DC C'ASVT' 01464000 @CC02300 DC C'ASCB' 01465000 @CC02301 DC C'RTCT' 01466000 @CC02302 DC C'RMCT' 01467000 @CC02290 DC C'DCB' 01468000 @CC02293 DC C'PVT' 01469000 @CC02294 DC C'TCB' 01470000 @CC02299 DC C'GDA' 01471000 @CC02304 DC C'CSD' 01472000 @CC00077 DC C'A ' 01473000 @CC00081 DC C'CR' 01474000 @CC00083 DC C'CV' 01475000 @CB02285 DC X'0A03' 01476000 @CB02286 DC X'07FE' 01477000 @CB02287 DC X'0A0D' 01478000 @CB02288 DC X'0A06' 01479000 DS CL1 01480000 MV01 DS CL46 01481000 ORG MV01 01482000 MV01L DC AL2(46) 01483000 @NM00056 DC X'0000' 01484000 MV01T DS CL42 01485000 ORG MV01T 01486000 MV01TA DC CL9'BLS22032I' 01487000 MV01TB DC CL3' ' 01488000 MV01TC DC CL30'CVT NOT ON DOUBLEWORD BOUNDARY' 01489000 ORG MV01+46 01490000 MV02 DS CL39 01491000 ORG MV02 01492000 MV02L DC AL2(39) 01493000 @NM00057 DC X'0000' 01494000 MV02T DS CL35 01495000 ORG MV02T 01496000 MV02TA DC CL9'BLS22031I' 01497000 MV02TB DC CL3' ' 01498000 MV02TC DC CL23'CVT STORAGE NOT IN DUMP' 01499000 ORG MV02+39 01500000 DS CL1 01501000 MV03 DS CL63 01502000 ORG MV03 01503000 MV03L DC AL2(63) 01504000 @NM00136 DC X'0000' 01505000 MV03T DS CL59 01506000 ORG MV03T 01507000 MV03TA DC CL9'BLS22033I' 01508000 MV03TB DC CL3' ' 01509000 MV03TC DC CL47'CVT ADDRESS SHOULD NOT BE LESS THAN X''00001000''' 01510000 ORG MV03+63 01511000 DS CL1 01512000 MV04 DS CL66 01513000 ORG MV04 01514000 MV04L DC AL2(66) 01515000 @NM00137 DC X'0000' 01516000 MV04T DS CL62 01517000 ORG MV04T 01518000 MV04TA DC CL9'BLS22034I' 01519000 MV04TB DC CL3' ' 01520000 MV04TC DC CL50'CVT ADDRESS SHOULD NOT BE GREATER THAN X''000FFFFF'C01521000 '' 01522000 ORG MV04+66 01523000 MV05 DS CL40 01524000 ORG MV05 01525000 MV05L DC AL2(40) 01526000 @NM00138 DC X'0000' 01527000 MV05T DS CL36 01528000 ORG MV05T 01529000 MV05TA DC CL9'BLS22035I' 01530000 MV05TB DC CL3' ' 01531000 MV05TC DC CL24'ABSOLUTE ADDRESS UNEQUAL' 01532000 ORG MV05+40 01533000 MV06 DS CL52 01534000 ORG MV06 01535000 MV06L DC AL2(52) 01536000 @NM00139 DC X'0000' 01537000 MV06T DS CL48 01538000 ORG MV06T 01539000 MV06TA DC CL9'BLS22036I' 01540000 MV06TB DC CL3' ' 01541000 MV06TC DC CL36'CVTTCBP DOES NOT CONTAIN X''00000218''' 01542000 ORG MV06+52 01543000 MV07 DS CL41 01544000 ORG MV07 01545000 MV07L DC AL2(41) 01546000 @NM00140 DC X'0000' 01547000 MV07T DS CL37 01548000 ORG MV07T 01549000 MV07TA DC CL9'BLS22045I' 01550000 MV07TB DC CL3' ' 01551000 MV07TC DC CL25'CVTILK1 IS LESS THAN 4096' 01552000 ORG MV07+41 01553000 DS CL1 01554000 MV08 DS CL47 01555000 ORG MV08 01556000 MV08L DC AL2(47) 01557000 @NM00141 DC X'0000' 01558000 MV08T DS CL43 01559000 ORG MV08T 01560000 MV08TA DC CL9'BLS22046I' 01561000 MV08TB DC CL3' ' 01562000 MV08TC DC CL31'CVTILK1 IS GREATER THAN CVTILK2' 01563000 ORG MV08+47 01564000 DS CL1 01565000 MV09 DS CL61 01566000 ORG MV09 01567000 MV09L DC AL2(61) 01568000 @NM00142 DC X'0000' 01569000 MV09T DS CL57 01570000 ORG MV09T 01571000 MV09TA DC CL9'BLS22047I' 01572000 MV09TB DC CL3' ' 01573000 MV09TC DC CL45'CVTILK2 IS GREATER THAN OR EQUAL TO ADDR(CVT)' 01574000 ORG MV09+61 01575000 DS CL1 01576000 MV10 DS CL48 01577000 ORG MV10 01578000 MV10L DC AL2(48) 01579000 @NM00143 DC X'0000' 01580000 MV10T DS CL44 01581000 ORG MV10T 01582000 MV10TA DC CL9'BLS22037I' 01583000 MV10TB DC CL3' ' 01584000 MV10TC DC CL32'CVTEXIT DOES NOT CONTAIN X''0A03''' 01585000 ORG MV10+48 01586000 MV11 DS CL48 01587000 ORG MV11 01588000 MV11L DC AL2(48) 01589000 @NM00144 DC X'0000' 01590000 MV11T DS CL44 01591000 ORG MV11T 01592000 MV11TA DC CL9'BLS22038I' 01593000 MV11TB DC CL3' ' 01594000 MV11TC DC CL32'CVTBRET DOES NOT CONTAIN X''07FE''' 01595000 ORG MV11+48 01596000 MV12 DS CL45 01597000 ORG MV12 01598000 MV12L DC AL2(45) 01599000 @NM00145 DC X'0000' 01600000 MV12T DS CL41 01601000 ORG MV12T 01602000 MV12TA DC CL9'BLS22039I' 01603000 MV12TB DC CL3' ' 01604000 MV12TC DC CL29'CVT4MS1 DOES NOT CONTAIN B''1''' 01605000 ORG MV12+45 01606000 DS CL1 01607000 MV13 DS CL45 01608000 ORG MV13 01609000 MV13L DC AL2(45) 01610000 @NM00146 DC X'0000' 01611000 MV13T DS CL41 01612000 ORG MV13T 01613000 MV13TA DC CL9'BLS22040I' 01614000 MV13TB DC CL3' ' 01615000 MV13TC DC CL29'CVT6DAT DOES NOT CONTAIN B''1''' 01616000 ORG MV13+45 01617000 DS CL1 01618000 MV14 DS CL45 01619000 ORG MV14 01620000 MV14L DC AL2(45) 01621000 @NM00147 DC X'0000' 01622000 MV14T DS CL41 01623000 ORG MV14T 01624000 MV14TA DC CL9'BLS22041I' 01625000 MV14TB DC CL3' ' 01626000 MV14TC DC CL29'CVTMVS2 DOES NOT CONTAIN B''1''' 01627000 ORG MV14+45 01628000 DS CL1 01629000 MV15 DS CL49 01630000 ORG MV15 01631000 MV15L DC AL2(49) 01632000 @NM00148 DC X'0000' 01633000 MV15T DS CL45 01634000 ORG MV15T 01635000 MV15TA DC CL9'BLS22042I' 01636000 MV15TB DC CL3' ' 01637000 MV15TC DC CL33'CVTQABST DOES NOT CONTAIN X''0A0D''' 01638000 ORG MV15+49 01639000 DS CL1 01640000 MV16 DS CL49 01641000 ORG MV16 01642000 MV16L DC AL2(49) 01643000 @NM00149 DC X'0000' 01644000 MV16T DS CL45 01645000 ORG MV16T 01646000 MV16TA DC CL9'BLS22043I' 01647000 MV16TB DC CL3' ' 01648000 MV16TC DC CL33'CVTLNKSC DOES NOT CONTAIN X''0A06''' 01649000 ORG MV16+49 01650000 DS CL1 01651000 MV99S DS CL60 01652000 ORG MV99S 01653000 MV99SL DC AL2(60) 01654000 @NM00160 DC X'0000' 01655000 MV99ST DS CL56 01656000 ORG MV99ST 01657000 MV99STA DC CL9'BLS22044I' 01658000 MV99STB DC CL3' ' 01659000 MV99STC DC CL8'LOCATOR ' 01660000 MV99STD DC CL8' ' 01661000 MV99STE DC CL1'=' 01662000 MV99STF DC CL8' ' 01663000 MV99STG DC CL19'. IT MAY BE DAMAGED' 01664000 ORG MV99S+60 01665000 FNAME DC CL8'CVTLINK' 01666000 DC CL8'CVTSVDCB' 01667000 DC CL8'CVTDCBA' 01668000 DC CL8'CVTABEND' 01669000 DC CL8'CVTPVTP' 01670000 DC CL8'CVTWTCB' 01671000 DC CL8'CVTJESCT' 01672000 DC CL8'CVTLPDIR' 01673000 DC CL8'CVTASVT' 01674000 DC CL8'CVTGDA' 01675000 DC CL8'CVTASCBH' 01676000 DC CL8'CVTASCBL' 01677000 DC CL8'CVTRTMCT' 01678000 DC CL8'CVTOPCTP' 01679000 DC CL8'CVTFQCB' 01680000 DC CL8'CVTLQCB' 01681000 DC CL8'CVTCSD' 01682000 DC CL8'CVTSPSA' 01683000 DC CL8'CVTPCCAT' 01684000 DC CL8'CVTLCCAT' 01685000 DS CL2 01686000 MSGPTR DC AL4(MV01) 01687000 DC AL4(MV02) 01688000 DC AL4(MV03) 01689000 DC AL4(MV04) 01690000 DC AL4(MV05) 01691000 DC AL4(MV06) 01692000 DC AL4(MV07) 01693000 DC AL4(MV08) 01694000 DC AL4(MV09) 01695000 DC AL4(MV10) 01696000 DC AL4(MV11) 01697000 DC AL4(MV12) 01698000 DC AL4(MV13) 01699000 DC AL4(MV14) 01700000 DC AL4(MV15) 01701000 DC AL4(MV16) 01702000 MSGLEVEL DC AL1(12) 01703000 DC AL1(4) 01704000 DC AL1(12) 01705000 DC AL1(12) 01706000 DC AL1(12) 01707000 DC AL1(12) 01708000 DC AL1(12) 01709000 DC AL1(12) 01710000 DC AL1(12) 01711000 DC AL1(12) 01712000 DC AL1(12) 01713000 DC AL1(12) 01714000 DC AL1(12) 01715000 DC AL1(12) 01716000 DC AL1(12) 01717000 DC AL1(12) 01718000 @DATD DSECT 01719000 SPACE 2 01720000 *********************************************************************** 01721000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01722000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01723000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01724000 *********************************************************************** 01725000 SPACE 01726000 BLSVCVT CSECT 01727000 ORG 01728000 DS 0D 01729000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSVCVT+19)/20+7)/8)CL8'BLSVCVT' 01730000 @DATD DSECT 01731000 DS 0H 01732000 @DATD DSECT 01733000 SPACE 2 01734000 *********************************************************************** 01735000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01736000 *********************************************************************** 01737000 SPACE 01738000 DS 0D 01739000 @DATD DSECT 01740000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01741000 @ENDDATD EQU * 01742000 BLSVCVT CSECT 01743000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01744000 @01 EQU 01 01745000 @02 EQU 02 01746000 @03 EQU 03 01747000 @04 EQU 04 01748000 @05 EQU 05 01749000 @06 EQU 06 01750000 @07 EQU 07 01751000 @08 EQU 08 01752000 @09 EQU 09 01753000 @10 EQU 10 01754000 @11 EQU 11 01755000 @12 EQU 12 01756000 @13 EQU 13 01757000 @14 EQU 14 01758000 @15 EQU 15 01759000 FNAMENDX EQU @06 01760000 ERRFNDX EQU @04 01761000 CVTPTR EQU @04 01762000 RETC EQU @05 01763000 SABAPTR EQU @03 01764000 R9 EQU @09 01765000 R0 EQU @00 01766000 R1 EQU @01 01767000 R2 EQU @02 01768000 R3 EQU @03 01769000 R4 EQU @04 01770000 R5 EQU @05 01771000 RB EQU @11 01772000 RD EQU @13 01773000 RE EQU @14 01774000 RF EQU @15 01775000 RA EQU @10 01776000 RC EQU @12 01777000 R6 EQU @06 01778000 R7 EQU @07 01779000 R8 EQU @08 01780000 SABA EQU 0 01781000 SABAAS EQU SABA+12 01782000 SABAAST EQU SABAAS 01783000 SABALAD EQU SABA+28 01784000 SABADT EQU SABA+32 01785000 SABAF EQU SABA+68 01786000 SABAFT EQU SABAF+10 01787000 SABAFF EQU SABAF+52 01788000 SABASF EQU SABA+128 01789000 SABASF1 EQU SABASF 01790000 SABASF9 EQU SABASF 01791000 SABASFI EQU SABASF 01792000 SABASFS EQU SABASF 01793000 SABAGMT EQU SABA+136 01794000 SABASRC EQU SABA+152 01795000 SABAC EQU SABA+254 01796000 SABACL EQU SABAC 01797000 SABACT EQU SABAC+2 01798000 ESCO EQU 0 01799000 ESCOAS EQU ESCO+60 01800000 ESCOD EQU ESCO+80 01801000 ESCODT EQU ESCOD+10 01802000 ESCODF EQU ESCOD+52 01803000 ESCOF EQU ESCO+161 01804000 ESCOFS EQU ESCOF 01805000 ESCOFC EQU ESCOF+1 01806000 ESCOR EQU ESCO+180 01807000 ESCORT EQU ESCOR+2 01808000 VRBA EQU 0 01809000 VRBAT EQU VRBA+4 01810000 ZZ1 EQU 0 01811000 ZZ1ATTN EQU ZZ1+360 01812000 ZZ1EVE EQU ZZ1ATTN+4 01813000 ZZ1EVEP EQU ZZ1EVE 01814000 ZZ1F EQU ZZ1+368 01815000 ZZ1TRHEX EQU ZZ1+568 01816000 ZZ1N EQU ZZ1+1116 01817000 ZZ2 EQU 0 01818000 ZZ2AMD EQU ZZ2 01819000 @NM00070 EQU ZZ2AMD+7 01820000 ZZ2PRT EQU ZZ2+138 01821000 ZZ2PRTT EQU ZZ2PRT+4 01822000 ZZ2PRTT1 EQU ZZ2PRTT+1 01823000 ZZ2A EQU ZZ2+272 01824000 ZZ2ASE EQU ZZ2A+2 01825000 ZZ2AF EQU ZZ2A+16 01826000 ZZ2APID EQU ZZ2A+64 01827000 ZZ2AD EQU ZZ2A+74 01828000 ZZ2ADD EQU ZZ2AD 01829000 ZZ2ADDT EQU ZZ2ADD+2 01830000 ZZ2ADM EQU ZZ2AD+46 01831000 ZZ2ADMT EQU ZZ2ADM+2 01832000 ZZ2ADP EQU ZZ2AD+56 01833000 ZZ2ADPT EQU ZZ2ADP+2 01834000 ZZ2AZZ6P EQU ZZ2A+140 01835000 ZZ2AQAS EQU ZZ2A+144 01836000 ZZ2AQD EQU ZZ2A+160 01837000 ZZ2AQDT EQU ZZ2AQD+10 01838000 ZZ2AQDF EQU ZZ2AQD+52 01839000 ZZ2STG EQU ZZ2+960 01840000 ZZ2TOD EQU ZZ2+968 01841000 ZZ2ALLOP EQU ZZ2+992 01842000 ZZ2FREEP EQU ZZ2+996 01843000 ZZ2FF19P EQU ZZ2+1000 01844000 ZZ2FRE1P EQU ZZ2+1004 01845000 ZZ2FF18P EQU ZZ2+1008 01846000 ZZ2DYNAP EQU ZZ2+1012 01847000 ZZ2ZZ2CP EQU ZZ2+1016 01848000 ZZ2ZZ2DP EQU ZZ2+1020 01849000 ZZ2STAIP EQU ZZ2+1024 01850000 ZZ2FF02P EQU ZZ2+1028 01851000 ZZ2GETLP EQU ZZ2+1032 01852000 ZZ2PARSP EQU ZZ2+1036 01853000 ZZ2PTGTP EQU ZZ2+1040 01854000 ZZ2PUTLP EQU ZZ2+1044 01855000 ZZ2SCANP EQU ZZ2+1048 01856000 ZZ2STCKP EQU ZZ2+1052 01857000 ZZ2TRMOP EQU ZZ2+1064 01858000 ZZ2TRMVP EQU ZZ2+1068 01859000 ZZ2PUTNP EQU ZZ2+1084 01860000 ZZ2TRMNP EQU ZZ2+1088 01861000 ZZ2ZZ1P EQU ZZ2+1264 01862000 ZZ2BVTP EQU ZZ2+1280 01863000 ZZ2RVTP EQU ZZ2+1284 01864000 ZZ2CPPL EQU ZZ2+1292 01865000 ZZ2CPPLC EQU ZZ2CPPL 01866000 ZZ2ESSYP EQU ZZ2+1328 01867000 ZZ2ITR EQU ZZ2+2840 01868000 ZZ2ITRE EQU ZZ2ITR+16 01869000 ZZ2ITSE EQU ZZ2+2864 01870000 ZZ2ES EQU ZZ2+2872 01871000 ZZ2AMDX EQU ZZ2+7160 01872000 ZZ2AXO EQU ZZ2+7934 01873000 ZZ2AXOT EQU ZZ2AXO+2 01874000 CMD EQU 0 01875000 CMDT EQU CMD+4 01876000 PSCB EQU 0 01877000 PSCBATR1 EQU PSCB+16 01878000 ECT EQU 0 01879000 ECTSWS EQU ECT+28 01880000 ECTSWS2 EQU ECT+40 01881000 ECTSWS21 EQU ECTSWS2 01882000 UPT EQU 0 01883000 UPTSWS EQU UPT+12 01884000 SA EQU 0 01885000 SA1 EQU SA 01886000 SAR EQU SA+12 01887000 SAR1 EQU SAR+12 01888000 BLSUMPKN EQU 0 01889000 BLSUPUTV EQU 0 01890000 BVT EQU 0 01891000 BVTPUTLP EQU BVT+4 01892000 BVTPUTOP EQU BVT+12 01893000 BVTPUTTP EQU BVT+16 01894000 BVTPUTVP EQU BVT+20 01895000 BVTPUTAP EQU BVT+24 01896000 BVTPRTTP EQU BVT+28 01897000 BVTPRTAP EQU BVT+32 01898000 BVTPUTDP EQU BVT+36 01899000 BVTMONP EQU BVT+40 01900000 BVTMON2P EQU BVT+44 01901000 BVTVSARP EQU BVT+48 01902000 BVTVSENP EQU BVT+64 01903000 BVTVSERP EQU BVT+68 01904000 BVTVSGEP EQU BVT+72 01905000 BVTVSGUP EQU BVT+76 01906000 BVTVSPOP EQU BVT+80 01907000 BVTVSPUP EQU BVT+84 01908000 BVTMPKNP EQU BVT+104 01909000 BVTMONLP EQU BVT+108 01910000 BVTPUTCP EQU BVT+132 01911000 BVTMPK1P EQU BVT+136 01912000 BVTZZ2RP EQU BVT+140 01913000 BVTPGMRP EQU BVT+144 01914000 BVTMONAP EQU BVT+148 01915000 BVTBLDDP EQU BVT+152 01916000 BVTBLDLP EQU BVT+156 01917000 BVTPGMCP EQU BVT+160 01918000 BVTPGMDP EQU BVT+164 01919000 BVTPGMLP EQU BVT+168 01920000 BVTMONCP EQU BVT+180 01921000 BVTMONDP EQU BVT+184 01922000 BVTMONTP EQU BVT+188 01923000 BVTPARIP EQU BVT+192 01924000 BVTPARUP EQU BVT+196 01925000 BVTPRTNP EQU BVT+204 01926000 BVTVSCRP EQU BVT+208 01927000 BVTVSMRP EQU BVT+212 01928000 BVTMONXP EQU BVT+216 01929000 BVTTRMAP EQU BVT+228 01930000 ZZ6 EQU 0 01931000 ZZ6D EQU ZZ6+128 01932000 ZZ6DD EQU ZZ6D+8 01933000 ZZ6DDT EQU ZZ6DD+4 01934000 ZZ6DQA EQU ZZ6D+68 01935000 ZZ6DF EQU ZZ6D+92 01936000 ZZ6B EQU ZZ6+768 01937000 BLSRACCQ EQU 0 01938000 BLSRSAG EQU 0 01939000 BLSRSAPC EQU 0 01940000 RVT EQU 0 01941000 RVTADDRP EQU RVT 01942000 RVTT01P EQU RVT+4 01943000 RVTTAP EQU RVT+8 01944000 RVTTBP EQU RVT+12 01945000 RVTTCP EQU RVT+16 01946000 RVTTFP EQU RVT+24 01947000 RVTTYP EQU RVT+40 01948000 RVTT02P EQU RVT+48 01949000 RVTT03P EQU RVT+52 01950000 RVTT04P EQU RVT+56 01951000 RVTACCLP EQU RVT+60 01952000 RVTRACCP EQU RVT+64 01953000 RVTTLP EQU RVT+68 01954000 RVTTMP EQU RVT+72 01955000 RVTTUP EQU RVT+80 01956000 RVTESGEP EQU RVT+84 01957000 RVTESGUP EQU RVT+88 01958000 RVTESARP EQU RVT+92 01959000 RVTRAARP EQU RVT+96 01960000 RVTRAGEP EQU RVT+100 01961000 RVTADDPP EQU RVT+104 01962000 RVTACCQP EQU RVT+108 01963000 RVTSAGUP EQU RVT+124 01964000 RVTSAGEP EQU RVT+128 01965000 RVTESCKP EQU RVT+132 01966000 RVTMSGAP EQU RVT+136 01967000 RVTMSGDP EQU RVT+140 01968000 RVTADDTP EQU RVT+160 01969000 RVTADDUP EQU RVT+164 01970000 RVTADD1P EQU RVT+176 01971000 RVTADD2P EQU RVT+180 01972000 RVTRSAGP EQU RVT+184 01973000 RVTMSGBP EQU RVT+188 01974000 RVTADDSP EQU RVT+192 01975000 RVTADD3P EQU RVT+196 01976000 RVTT05P EQU RVT+200 01977000 RVTPADSP EQU RVT+204 01978000 RVTTRP EQU RVT+228 01979000 RVTADD4P EQU RVT+232 01980000 RVTSAPCP EQU RVT+236 01981000 RVTSAARP EQU RVT+240 01982000 RVTSAGNP EQU RVT+244 01983000 RVTT06P EQU RVT+248 01984000 RVTSAGCP EQU RVT+252 01985000 RVTSAGQP EQU RVT+256 01986000 RVTESGCP EQU RVT+260 01987000 RVTESGQP EQU RVT+264 01988000 RVTDUCKP EQU RVT+276 01989000 RVTDUCCP EQU RVT+280 01990000 CVTMAP EQU 0 01991000 CVTTCBP EQU CVTMAP 01992000 CVTLINK EQU CVTMAP+8 01993000 CVTILK1 EQU CVTMAP+36 01994000 CVTILK2 EQU CVTMAP+40 01995000 CVTDAR EQU CVTMAP+72 01996000 CVTFLGS1 EQU CVTDAR 01997000 CVTEXIT EQU CVTMAP+80 01998000 CVTBRET EQU CVTMAP+82 01999000 CVTSVDCB EQU CVTMAP+84 02000000 CVTDCB EQU CVTMAP+116 02001000 CVT4MS1 EQU CVTDCB 02002000 CVT6DAT EQU CVTDCB 02003000 CVTMVS2 EQU CVTDCB 02004000 CVTDCBA EQU CVTMAP+117 02005000 CVTIOQET EQU CVTMAP+120 02006000 CVTIERLC EQU CVTMAP+144 02007000 CVTHEAD EQU CVTMAP+160 02008000 CVTSV76C EQU CVTHEAD 02009000 CVTOPTA EQU CVTMAP+182 02010000 CVTOPTB EQU CVTMAP+183 02011000 CVTABEND EQU CVTMAP+200 02012000 CVTQABST EQU CVTMAP+212 02013000 CVTLNKSC EQU CVTMAP+214 02014000 CVTGTF EQU CVTMAP+236 02015000 CVTGTFST EQU CVTGTF 02016000 CVTGTFS EQU CVTGTFST 02017000 CVTSTATE EQU CVTGTFST 02018000 CVTTMODE EQU CVTGTFST 02019000 CVTFORM EQU CVTGTFST 02020000 CVTAQAVT EQU CVTMAP+240 02021000 CVTTCMFG EQU CVTAQAVT 02022000 CVTVOLM2 EQU CVTMAP+244 02023000 CVTTATA EQU CVTVOLM2 02024000 CVTTSKS EQU CVTTATA 02025000 CVTVOLF2 EQU CVTTSKS 02026000 CVTTAT EQU CVTTATA+1 02027000 CVTATER EQU CVTMAP+248 02028000 CVTEXT1 EQU CVTMAP+252 02029000 CVTPURG EQU CVTMAP+260 02030000 CVTQMSG EQU CVTMAP+268 02031000 CVTDMSR EQU CVTMAP+272 02032000 CVTRSV37 EQU CVTDMSR 02033000 CVTDMSRF EQU CVTRSV37 02034000 CVTJESCT EQU CVTMAP+296 02035000 CVTERPV EQU CVTMAP+316 02036000 CVTINTLA EQU CVTMAP+320 02037000 CVTAPF EQU CVTMAP+324 02038000 CVTEXT2 EQU CVTMAP+328 02039000 CVTHJES EQU CVTMAP+332 02040000 CVTPGSIA EQU CVTMAP+348 02041000 CVTA1F1 EQU CVTMAP+356 02042000 CVTSYSK EQU CVTMAP+357 02043000 CVTVOLM1 EQU CVTMAP+380 02044000 CVTVOLF1 EQU CVTVOLM1 02045000 CVTATMCT EQU CVTMAP+388 02046000 CVTXTNT1 EQU 0 02047000 CVTXTNT2 EQU 0 02048000 CVTDSSV EQU CVTXTNT2 02049000 CVTFLGBT EQU CVTXTNT2+5 02050000 CVTQID EQU CVTXTNT2+24 02051000 CVTRV400 EQU CVTXTNT2+52 02052000 CVTRV409 EQU CVTXTNT2+53 02053000 CVTATCVT EQU CVTXTNT2+64 02054000 CVTRV429 EQU CVTXTNT2+84 02055000 CVTRV438 EQU CVTXTNT2+85 02056000 CVTRV457 EQU CVTXTNT2+112 02057000 CVTRV466 EQU CVTXTNT2+113 02058000 CVTFIX EQU 0 02059000 CVTRELNO EQU CVTFIX+252 02060000 BLSRACC EQU 0 02061000 BLSRACCL EQU 0 02062000 BLSRADDP EQU 0 02063000 BLSRADDR EQU 0 02064000 BLSRADDS EQU 0 02065000 BLSRADDT EQU 0 02066000 BLSRADDU EQU 0 02067000 BLSRADD1 EQU 0 02068000 BLSRADD2 EQU 0 02069000 BLSRADD3 EQU 0 02070000 BLSRADD4 EQU 0 02071000 BLSRDUCC EQU 0 02072000 BLSRDUCK EQU 0 02073000 BLSRESAR EQU 0 02074000 BLSRESCK EQU 0 02075000 BLSRESGC EQU 0 02076000 BLSRESGE EQU 0 02077000 BLSRESGQ EQU 0 02078000 BLSRESGU EQU 0 02079000 BLSRMSGA EQU 0 02080000 BLSRMSGB EQU 0 02081000 BLSRMSGD EQU 0 02082000 BLSRPADS EQU 0 02083000 BLSRRAAR EQU 0 02084000 BLSRRAGE EQU 0 02085000 BLSRSAAR EQU 0 02086000 BLSRSAGC EQU 0 02087000 BLSRSAGE EQU 0 02088000 BLSRSAGN EQU 0 02089000 BLSRSAGQ EQU 0 02090000 BLSRSAGU EQU 0 02091000 BLSTA EQU 0 02092000 BLSTB EQU 0 02093000 BLSTC EQU 0 02094000 BLSTF EQU 0 02095000 BLSTL EQU 0 02096000 BLSTM EQU 0 02097000 BLSTR EQU 0 02098000 BLSTU EQU 0 02099000 BLSTY EQU 0 02100000 BLST01 EQU 0 02101000 BLST02 EQU 0 02102000 BLST03 EQU 0 02103000 BLST04 EQU 0 02104000 BLST05 EQU 0 02105000 BLST06 EQU 0 02106000 BLSUALLO EQU 0 02107000 BLSUBLDD EQU 0 02108000 BLSUBLDL EQU 0 02109000 BLSUDYNA EQU 0 02110000 BLSUFREE EQU 0 02111000 BLSUFRE1 EQU 0 02112000 BLSUMON EQU 0 02113000 BLSUMONA EQU 0 02114000 BLSUMONC EQU 0 02115000 BLSUMOND EQU 0 02116000 BLSUMONL EQU 0 02117000 BLSUMONT EQU 0 02118000 BLSUMONX EQU 0 02119000 BLSUMON2 EQU 0 02120000 BLSUMPK1 EQU 0 02121000 BLSUPARI EQU 0 02122000 BLSUPARU EQU 0 02123000 BLSUPGMC EQU 0 02124000 BLSUPGMD EQU 0 02125000 BLSUPGML EQU 0 02126000 BLSUPGMR EQU 0 02127000 BLSUPRTA EQU 0 02128000 BLSUPRTN EQU 0 02129000 BLSUPRTT EQU 0 02130000 BLSUPUTA EQU 0 02131000 BLSUPUTC EQU 0 02132000 BLSUPUTD EQU 0 02133000 BLSUPUTL EQU 0 02134000 BLSUPUTN EQU 0 02135000 BLSUPUTO EQU 0 02136000 BLSUPUTT EQU 0 02137000 BLSUSTAI EQU 0 02138000 BLSUTRMA EQU 0 02139000 BLSUTRMN EQU 0 02140000 BLSUTRMO EQU 0 02141000 BLSUTRMV EQU 0 02142000 BLSUVSAR EQU 0 02143000 BLSUVSCR EQU 0 02144000 BLSUVSEN EQU 0 02145000 BLSUVSER EQU 0 02146000 BLSUVSGE EQU 0 02147000 BLSUVSGU EQU 0 02148000 BLSUVSMR EQU 0 02149000 BLSUVSPO EQU 0 02150000 BLSUVSPU EQU 0 02151000 BLSUZZ2C EQU 0 02152000 BLSUZZ2D EQU 0 02153000 BLSUZZ2R EQU 0 02154000 IKJEFF02 EQU 0 02155000 IKJEFF18 EQU 0 02156000 IKJEFF19 EQU 0 02157000 IKJGETL EQU 0 02158000 IKJPARS EQU 0 02159000 IKJPTGT EQU 0 02160000 IKJPUTL EQU 0 02161000 IKJSCAN EQU 0 02162000 IKJSTCK EQU 0 02163000 I001C EQU 0 02164000 I008P EQU 0 02165000 I015F EQU 0 02166000 I015P EQU 0 02167000 I031F EQU 0 02168000 I031P EQU 0 02169000 I256C EQU 0 02170000 PZ2 EQU 0 02171000 SAPA EQU 0 02172000 SAPAAS EQU SAPA+12 02173000 SAPADT EQU SAPA+32 02174000 SAPAF EQU SAPA+68 02175000 SAPAFT EQU SAPAF+10 02176000 SAPAFF EQU SAPAF+52 02177000 SAPASF EQU SAPA+128 02178000 SAPAC EQU SAPA+254 02179000 SAPACT EQU SAPAC+2 02180000 SABK EQU 0 02181000 SABKAS EQU SABK+12 02182000 SABKDT EQU SABK+32 02183000 SABKF EQU SABK+68 02184000 SABKFT EQU SABKF+10 02185000 SABKFF EQU SABKF+52 02186000 SABKSF EQU SABK+128 02187000 SABKC EQU SABK+254 02188000 SABKCT EQU SABKC+2 02189000 CPPL EQU ZZ2CPPL 02190000 CPPLUPT EQU CPPL+4 02191000 CPPLPSCB EQU CPPL+8 02192000 CPPLECT EQU CPPL+12 02193000 CVTS01 EQU CVTPGSIA 02194000 CVTPVTP EQU CVTS01+8 02195000 CVTLPDIA EQU CVTS01+12 02196000 CVTDIRST EQU CVTLPDIA 02197000 CVTLPDIR EQU CVTLPDIA+1 02198000 CVTSLIDA EQU CVTS01+24 02199000 CVTCTLFG EQU CVTS01+50 02200000 CVTASVT EQU CVTS01+208 02201000 CVTGDA EQU CVTS01+212 02202000 CVTASCBH EQU CVTS01+216 02203000 CVTASCBL EQU CVTS01+220 02204000 CVTRTMCT EQU CVTS01+224 02205000 CVTOPCTP EQU CVTS01+256 02206000 CVTFQCB EQU CVTS01+292 02207000 CVTLQCB EQU CVTS01+296 02208000 CVTCSD EQU CVTS01+312 02209000 CVTSPSA EQU CVTS01+336 02210000 CVTPCCAT EQU CVTS01+416 02211000 CVTLCCAT EQU CVTS01+420 02212000 CVTRV210 EQU CVTS01+424 02213000 CVTRV219 EQU CVTS01+425 02214000 CVTRV228 EQU CVTS01+426 02215000 CVTRV237 EQU CVTS01+427 02216000 CVTMFRTR EQU CVTS01+452 02217000 CVTRV262 EQU CVTS01+468 02218000 CVTRV271 EQU CVTS01+469 02219000 CVTRV280 EQU CVTS01+470 02220000 CVTRV289 EQU CVTS01+471 02221000 CVTWTCB EQU CVTS01+540 02222000 CVTGSDA EQU CVTS01+600 02223000 ERRF EQU SABACT 02224000 ERRFB EQU ERRF 02225000 ERRFD EQU ERRF 02226000 ERRFS EQU ERRF 02227000 PTRPTR EQU PTRBIT 02228000 PCHK EQU SAAULAD 02229000 PCHK24IG EQU PCHK 02230000 PCHK24 EQU PCHK+1 02231000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02232000 @NM00162 EQU ERRF 02233000 ERRFN EQU ERRF 02234000 CVTRV628 EQU CVTS01+728 02235000 CVTRV627 EQU CVTS01+724 02236000 CVTRV626 EQU CVTS01+720 02237000 CVTRV625 EQU CVTS01+716 02238000 CVTRV624 EQU CVTS01+712 02239000 CVTRV623 EQU CVTS01+708 02240000 CVTRV622 EQU CVTS01+704 02241000 CVTRV621 EQU CVTS01+700 02242000 CVTIHASU EQU CVTS01+696 02243000 CVTSUSP EQU CVTS01+692 02244000 CVTT6SVC EQU CVTS01+688 02245000 CVTCDAL EQU CVTS01+684 02246000 CVTTCTL EQU CVTS01+680 02247000 CVTRSUME EQU CVTS01+676 02248000 CVTJTERM EQU CVTS01+672 02249000 CVTASMRM EQU CVTS01+668 02250000 CVTTCASP EQU CVTS01+664 02251000 CVT0PT03 EQU CVTS01+660 02252000 CVT0PT0E EQU CVTS01+656 02253000 CVTRV609 EQU CVTS01+652 02254000 CVTCGK EQU CVTS01+648 02255000 CVTRAC EQU CVTS01+644 02256000 CVTRV606 EQU CVTS01+640 02257000 CVTRV605 EQU CVTS01+636 02258000 CVTRV604 EQU CVTS01+632 02259000 CVTEFF02 EQU CVTS01+628 02260000 CVTCBBR EQU CVTS01+624 02261000 CVTSSCR EQU CVTS01+620 02262000 CVTEVENT EQU CVTS01+616 02263000 CVTCRCA EQU CVTS01+612 02264000 CVTTPIO EQU CVTS01+608 02265000 CVTADV EQU CVTS01+604 02266000 CVTGSDAB EQU CVTGSDA 02267000 CVTQV3 EQU CVTS01+596 02268000 CVTQV2 EQU CVTS01+592 02269000 CVTQV1 EQU CVTS01+588 02270000 CVTRPT EQU CVTS01+584 02271000 CVTSSRB EQU CVTS01+580 02272000 CVTCSDRL EQU CVTS01+576 02273000 CVTEXP1 EQU CVTS01+572 02274000 CVTRMPMT EQU CVTS01+568 02275000 CVTRMPTT EQU CVTS01+564 02276000 CVTVPSA EQU CVTS01+560 02277000 CVTVSTOP EQU CVTS01+556 02278000 CVTGTFR8 EQU CVTS01+552 02279000 CVTQUIT EQU CVTS01+548 02280000 CVTVACR EQU CVTS01+544 02281000 CVTSTPRS EQU CVTS01+536 02282000 CVT0PT02 EQU CVTS01+532 02283000 CVTDARCM EQU CVTS01+528 02284000 CVTIRECM EQU CVTS01+524 02285000 CVTJRECM EQU CVTS01+520 02286000 CVTVEMS0 EQU CVTS01+516 02287000 CVTSPFRR EQU CVTS01+512 02288000 CVTRLSTG EQU CVTS01+508 02289000 CVT0TC0A EQU CVTS01+504 02290000 CVTGMBR EQU CVTS01+500 02291000 CVTLFRM EQU CVTS01+496 02292000 CVTRMBR EQU CVTS01+492 02293000 CVTVIOP EQU CVTS01+488 02294000 CVTRV307 EQU CVTS01+486 02295000 CVTRV306 EQU CVTS01+484 02296000 CVTRV305 EQU CVTS01+482 02297000 CVTRV304 EQU CVTS01+480 02298000 CVTRV303 EQU CVTS01+478 02299000 CVTRV302 EQU CVTS01+476 02300000 CVTTRCA EQU CVTS01+472 02301000 CVTRV297 EQU CVTRV289 02302000 CVTRV296 EQU CVTRV289 02303000 CVTRV295 EQU CVTRV289 02304000 CVTRV294 EQU CVTRV289 02305000 CVTRV293 EQU CVTRV289 02306000 CVTRV292 EQU CVTRV289 02307000 CVTRV291 EQU CVTRV289 02308000 CVTRV290 EQU CVTRV289 02309000 CVTRV288 EQU CVTRV280 02310000 CVTRV287 EQU CVTRV280 02311000 CVTRV286 EQU CVTRV280 02312000 CVTRV285 EQU CVTRV280 02313000 CVTRV284 EQU CVTRV280 02314000 CVTRV283 EQU CVTRV280 02315000 CVTRV282 EQU CVTRV280 02316000 CVTRV281 EQU CVTRV280 02317000 CVTRV279 EQU CVTRV271 02318000 CVTRV278 EQU CVTRV271 02319000 CVTRV277 EQU CVTRV271 02320000 CVTRV276 EQU CVTRV271 02321000 CVTRV275 EQU CVTRV271 02322000 CVTRV274 EQU CVTRV271 02323000 CVTRV273 EQU CVTRV271 02324000 CVTRV272 EQU CVTRV271 02325000 CVTRV270 EQU CVTRV262 02326000 CVTRV269 EQU CVTRV262 02327000 CVTRV268 EQU CVTRV262 02328000 CVTRV267 EQU CVTRV262 02329000 CVTRV266 EQU CVTRV262 02330000 CVTRV265 EQU CVTRV262 02331000 CVTRV264 EQU CVTRV262 02332000 CVTRV263 EQU CVTRV262 02333000 CVTVFP EQU CVTS01+464 02334000 CVTVSI EQU CVTS01+460 02335000 CVTVPSIB EQU CVTS01+456 02336000 CVTMFACT EQU CVTMFRTR 02337000 CVTMFCTL EQU CVTS01+448 02338000 CVTPVBP EQU CVTS01+444 02339000 CVTPWI EQU CVTS01+440 02340000 CVTRV254 EQU CVTS01+438 02341000 CVTRV253 EQU CVTS01+436 02342000 CVTRV252 EQU CVTS01+434 02343000 CVTRV251 EQU CVTS01+433 02344000 CVTRV250 EQU CVTS01+432 02345000 CVTRV249 EQU CVTS01+431 02346000 CVTRV248 EQU CVTS01+430 02347000 CVTRV247 EQU CVTS01+429 02348000 CVTRV246 EQU CVTS01+428 02349000 CVTRV245 EQU CVTRV237 02350000 CVTRV244 EQU CVTRV237 02351000 CVTRV243 EQU CVTRV237 02352000 CVTRV242 EQU CVTRV237 02353000 CVTRV241 EQU CVTRV237 02354000 CVTRV240 EQU CVTRV237 02355000 CVTRV239 EQU CVTRV237 02356000 CVTRV238 EQU CVTRV237 02357000 CVTRV236 EQU CVTRV228 02358000 CVTRV235 EQU CVTRV228 02359000 CVTRV234 EQU CVTRV228 02360000 CVTRV233 EQU CVTRV228 02361000 CVTRV232 EQU CVTRV228 02362000 CVTRV231 EQU CVTRV228 02363000 CVTRV230 EQU CVTRV228 02364000 CVTRV229 EQU CVTRV228 02365000 CVTRV227 EQU CVTRV219 02366000 CVTRV226 EQU CVTRV219 02367000 CVTRV225 EQU CVTRV219 02368000 CVTRV224 EQU CVTRV219 02369000 CVTRV223 EQU CVTRV219 02370000 CVTRV222 EQU CVTRV219 02371000 CVTRV221 EQU CVTRV219 02372000 CVTRV220 EQU CVTRV219 02373000 CVTRV218 EQU CVTRV210 02374000 CVTRV217 EQU CVTRV210 02375000 CVTRV216 EQU CVTRV210 02376000 CVTRV215 EQU CVTRV210 02377000 CVTRV214 EQU CVTRV210 02378000 CVTRV213 EQU CVTRV210 02379000 CVTRV212 EQU CVTRV210 02380000 CVTRV211 EQU CVTRV210 02381000 CVTIPCRP EQU CVTS01+412 02382000 CVTIPCRI EQU CVTS01+408 02383000 CVTIPCDS EQU CVTS01+404 02384000 CVTAIDVT EQU CVTS01+400 02385000 CVTSSAP EQU CVTS01+396 02386000 CVTEHCIR EQU CVTS01+392 02387000 CVTEHDEF EQU CVTS01+388 02388000 CVTDAIR EQU CVTS01+384 02389000 CVTPERFM EQU CVTS01+380 02390000 CVT044R2 EQU CVTS01+376 02391000 CVTFETCH EQU CVTS01+372 02392000 CVTRSTWD EQU CVTS01+368 02393000 CVTSPOST EQU CVTS01+364 02394000 CVTIOBP EQU CVTS01+360 02395000 CVTASMVT EQU CVTS01+356 02396000 CVTRECRQ EQU CVTS01+352 02397000 CVTWSAC EQU CVTS01+348 02398000 CVTRV149 EQU CVTS01+344 02399000 CVTWSAL EQU CVTS01+340 02400000 CVTGLMN EQU CVTS01+332 02401000 CVTVEAC0 EQU CVTS01+328 02402000 CVT062R1 EQU CVTS01+324 02403000 CVTRPOST EQU CVTS01+320 02404000 CVTDQIQE EQU CVTS01+316 02405000 CVTLKRMA EQU CVTS01+308 02406000 CVTRSPIE EQU CVTS01+304 02407000 CVTRENQ EQU CVTS01+300 02408000 CVTQCS01 EQU CVTS01+288 02409000 CVTAPFT EQU CVTS01+284 02410000 CVTPARRL EQU CVTS01+280 02411000 CVTVWAIT EQU CVTS01+276 02412000 CVTGSPL EQU CVTS01+272 02413000 CVTLSMQ EQU CVTS01+268 02414000 CVTGSMQ EQU CVTS01+264 02415000 CVTEXPRO EQU CVTS01+260 02416000 CVTSIC EQU CVTS01+252 02417000 CVTTPIOS EQU CVTS01+248 02418000 CVTRTMS EQU CVTS01+244 02419000 CVTSDBF EQU CVTS01+240 02420000 CVTSCBP EQU CVTS01+236 02421000 CVTSDMP EQU CVTS01+232 02422000 CVTSV60 EQU CVTS01+228 02423000 CVTVVMDI EQU CVTS01+204 02424000 CVTAQTOP EQU CVTS01+200 02425000 CVTIOSCS EQU CVTS01+196 02426000 CVTSDRM EQU CVTS01+192 02427000 CVTOPTE EQU CVTS01+188 02428000 CVTSTXU EQU CVTS01+184 02429000 CVTQUIS EQU CVTS01+180 02430000 CVTPARS EQU CVTS01+176 02431000 CVTS1EE EQU CVTS01+172 02432000 CVTFRAS EQU CVTS01+168 02433000 CVTQSAS EQU CVTS01+164 02434000 CVTCRAS EQU CVTS01+160 02435000 CVTCRMN EQU CVTS01+156 02436000 CVTDELCP EQU CVTS01+152 02437000 CVTFRECL EQU CVTS01+148 02438000 CVTGETCL EQU CVTS01+144 02439000 CVTBLDCP EQU CVTS01+140 02440000 CVTAUTHL EQU CVTS01+136 02441000 CVTSCAN EQU CVTS01+132 02442000 CVTRV144 EQU CVTS01+130 02443000 CVTMAXMP EQU CVTS01+128 02444000 CVTSTCK EQU CVTS01+124 02445000 CVTRV139 EQU CVTS01+123 02446000 CVTDSSAC EQU CVTS01+122 02447000 CVTRV513 EQU CVTS01+121 02448000 CVTIOSPL EQU CVTS01+120 02449000 CVTPTGT EQU CVTS01+116 02450000 CVTCSPIE EQU CVTS01+112 02451000 CVTSMFEX EQU CVTS01+108 02452000 CVTOLT0A EQU CVTS01+104 02453000 CVTSRBRT EQU CVTS01+100 02454000 CVTPUTL EQU CVTS01+96 02455000 CVTASCRL EQU CVTS01+92 02456000 CVTASCRF EQU CVTS01+88 02457000 CVTRV326 EQU CVTS01+84 02458000 CVTRV325 EQU CVTS01+80 02459000 CVTRV324 EQU CVTS01+76 02460000 CVT0VL01 EQU CVTS01+72 02461000 CVTSHRVM EQU CVTS01+68 02462000 CVTRV332 EQU CVTS01+64 02463000 CVTTAS EQU CVTS01+60 02464000 CVTRSCN EQU CVTS01+56 02465000 CVTTRAC2 EQU CVTS01+54 02466000 CVTTRACE EQU CVTS01+52 02467000 CVTAPG EQU CVTS01+51 02468000 CVTSDTRC EQU CVTCTLFG 02469000 CVTGTRCE EQU CVTCTLFG 02470000 CVTNOMP EQU CVTCTLFG 02471000 CVTRSV79 EQU CVTCTLFG 02472000 CVTDSTAT EQU CVTCTLFG 02473000 CVTRSV78 EQU CVTCTLFG 02474000 CVTRV333 EQU CVTCTLFG 02475000 CVTRV323 EQU CVTCTLFG 02476000 CVTSPVLK EQU CVTS01+49 02477000 CVTRSV77 EQU CVTS01+48 02478000 CVTRV331 EQU CVTS01+44 02479000 CVTRV330 EQU CVTS01+40 02480000 CVTRV329 EQU CVTS01+36 02481000 CVTRV328 EQU CVTS01+32 02482000 CVTRV322 EQU CVTS01+28 02483000 CVTSLID EQU CVTSLIDA+1 02484000 CVTSYLK EQU CVTSLIDA 02485000 CVTRV321 EQU CVTS01+20 02486000 CVTRV320 EQU CVTS01+16 02487000 CVTRSV69 EQU CVTDIRST 02488000 CVTRSV68 EQU CVTDIRST 02489000 CVTRSV67 EQU CVTDIRST 02490000 CVTRSV66 EQU CVTDIRST 02491000 CVTRSV65 EQU CVTDIRST 02492000 CVTRSV64 EQU CVTDIRST 02493000 CVTRSV63 EQU CVTDIRST 02494000 CVTDICOM EQU CVTDIRST 02495000 CVTLPDSR EQU CVTS01+4 02496000 CVTGETL EQU CVTS01 02497000 CPPLCBUF EQU CPPL 02498000 SABK999 EQU SABK+3072 02499000 SABKCT1 EQU SABKCT 02500000 SABKCL EQU SABKC 02501000 @NM00030 EQU SABK+153 02502000 SABKSRC EQU SABK+152 02503000 SABKPGV EQU SABK+144 02504000 SABKGMT EQU SABK+136 02505000 @NM00029 EQU SABKSF 02506000 SABKSFS EQU SABKSF 02507000 SABKSFI EQU SABKSF 02508000 SABKSF9 EQU SABKSF 02509000 SABKSF1 EQU SABKSF 02510000 SABKF99 EQU SABKF+60 02511000 @NM00028 EQU SABKF+56 02512000 @NM00027 EQU SABKFF 02513000 SABKFFA EQU SABKFF 02514000 SABKFIL EQU SABKF+48 02515000 SABKFIM EQU SABKF+44 02516000 SABKFT9 EQU SABKFT+34 02517000 SABKFTE EQU SABKFT+33 02518000 SABKFTD EQU SABKFT+2 02519000 @NM00026 EQU SABKFT+1 02520000 SABKFTY EQU SABKFT 02521000 SABKFT0 EQU SABKFT 02522000 SABKFLB EQU SABKF+9 02523000 SABKFOB EQU SABKF+8 02524000 SABKFLE EQU SABKF+4 02525000 SABKFOF EQU SABKF 02526000 SABKF00 EQU SABKF 02527000 @NM00025 EQU SABK+66 02528000 SABKELK EQU SABK+66 02529000 SABKDT9 EQU SABKDT+34 02530000 SABKDTE EQU SABKDT+33 02531000 SABKDTD EQU SABKDT+2 02532000 @NM00024 EQU SABKDT+1 02533000 SABKDTY EQU SABKDT 02534000 SABKDT0 EQU SABKDT 02535000 SABKLAD EQU SABK+28 02536000 SABKAS9 EQU SABKAS+16 02537000 @NM00023 EQU SABKAS+12 02538000 SABKAS2 EQU SABKAS+8 02539000 SABKAS1 EQU SABKAS+4 02540000 @NM00022 EQU SABKAS+2 02541000 SABKAST EQU SABKAS 02542000 SABKAS0 EQU SABKAS 02543000 SABKRDX EQU SABK+8 02544000 @NM00021 EQU SABK+2 02545000 SABKRID EQU SABK 02546000 SAPA999 EQU SAPA+3072 02547000 SAPACT1 EQU SAPACT 02548000 SAPACL EQU SAPAC 02549000 @NM00010 EQU SAPA+153 02550000 SAPASRC EQU SAPA+152 02551000 SAPAPGV EQU SAPA+144 02552000 SAPAGMT EQU SAPA+136 02553000 @NM00009 EQU SAPASF 02554000 SAPASFS EQU SAPASF 02555000 SAPASFI EQU SAPASF 02556000 SAPASF9 EQU SAPASF 02557000 SAPASF1 EQU SAPASF 02558000 SAPAF99 EQU SAPAF+60 02559000 @NM00008 EQU SAPAF+56 02560000 @NM00007 EQU SAPAFF 02561000 SAPAFFA EQU SAPAFF 02562000 SAPAFIL EQU SAPAF+48 02563000 SAPAFIM EQU SAPAF+44 02564000 SAPAFT9 EQU SAPAFT+34 02565000 SAPAFTE EQU SAPAFT+33 02566000 SAPAFTD EQU SAPAFT+2 02567000 @NM00006 EQU SAPAFT+1 02568000 SAPAFTY EQU SAPAFT 02569000 SAPAFT0 EQU SAPAFT 02570000 SAPAFLB EQU SAPAF+9 02571000 SAPAFOB EQU SAPAF+8 02572000 SAPAFLE EQU SAPAF+4 02573000 SAPAFOF EQU SAPAF 02574000 SAPAF00 EQU SAPAF 02575000 @NM00005 EQU SAPA+66 02576000 SAPAELK EQU SAPA+66 02577000 SAPADT9 EQU SAPADT+34 02578000 SAPADTE EQU SAPADT+33 02579000 SAPADTD EQU SAPADT+2 02580000 @NM00004 EQU SAPADT+1 02581000 SAPADTY EQU SAPADT 02582000 SAPADT0 EQU SAPADT 02583000 SAPALAD EQU SAPA+28 02584000 SAPAAS9 EQU SAPAAS+16 02585000 @NM00003 EQU SAPAAS+12 02586000 SAPAAS2 EQU SAPAAS+8 02587000 SAPAAS1 EQU SAPAAS+4 02588000 @NM00002 EQU SAPAAS+2 02589000 SAPAAST EQU SAPAAS 02590000 SAPAAS0 EQU SAPAAS 02591000 SAPARDX EQU SAPA+8 02592000 @NM00001 EQU SAPA+2 02593000 SAPARID EQU SAPA 02594000 CVTLEVL EQU CVTRELNO+2 02595000 CVTNUMB EQU CVTRELNO 02596000 CVTMDL EQU CVTFIX+250 02597000 @NM00135 EQU CVTFIX+248 02598000 @NM00134 EQU CVTFIX 02599000 CVTRV482 EQU CVTXTNT2+128 02600000 CVTRV481 EQU CVTXTNT2+124 02601000 CVTRV480 EQU CVTXTNT2+120 02602000 CVTRV479 EQU CVTXTNT2+118 02603000 CVTRV478 EQU CVTXTNT2+117 02604000 CVTRV477 EQU CVTXTNT2+116 02605000 CVTRV476 EQU CVTXTNT2+115 02606000 CVTRV475 EQU CVTXTNT2+114 02607000 CVTRV474 EQU CVTRV466 02608000 CVTRV473 EQU CVTRV466 02609000 CVTRV472 EQU CVTRV466 02610000 CVTRV471 EQU CVTRV466 02611000 CVTRV470 EQU CVTRV466 02612000 CVTRV469 EQU CVTRV466 02613000 CVTRV468 EQU CVTRV466 02614000 CVTRV467 EQU CVTRV466 02615000 CVTRV465 EQU CVTRV457 02616000 CVTRV464 EQU CVTRV457 02617000 CVTRV463 EQU CVTRV457 02618000 CVTRV462 EQU CVTRV457 02619000 CVTRV461 EQU CVTRV457 02620000 CVTRV460 EQU CVTRV457 02621000 CVTRV459 EQU CVTRV457 02622000 CVTRV458 EQU CVTRV457 02623000 CVTRV456 EQU CVTXTNT2+108 02624000 CVTRV455 EQU CVTXTNT2+104 02625000 CVTRV454 EQU CVTXTNT2+100 02626000 CVTRV453 EQU CVTXTNT2+96 02627000 CVTRV452 EQU CVTXTNT2+94 02628000 CVTRV451 EQU CVTXTNT2+92 02629000 CVTRV450 EQU CVTXTNT2+90 02630000 CVTRV449 EQU CVTXTNT2+88 02631000 CVTRV448 EQU CVTXTNT2+87 02632000 CVTRV447 EQU CVTXTNT2+86 02633000 CVTRV446 EQU CVTRV438 02634000 CVTRV445 EQU CVTRV438 02635000 CVTRV444 EQU CVTRV438 02636000 CVTRV443 EQU CVTRV438 02637000 CVTRV442 EQU CVTRV438 02638000 CVTRV441 EQU CVTRV438 02639000 CVTRV440 EQU CVTRV438 02640000 CVTRV439 EQU CVTRV438 02641000 CVTRV437 EQU CVTRV429 02642000 CVTRV436 EQU CVTRV429 02643000 CVTRV435 EQU CVTRV429 02644000 CVTRV434 EQU CVTRV429 02645000 CVTRV433 EQU CVTRV429 02646000 CVTRV432 EQU CVTRV429 02647000 CVTRV431 EQU CVTRV429 02648000 CVTRV430 EQU CVTRV429 02649000 CVTRV428 EQU CVTXTNT2+80 02650000 CVTRV427 EQU CVTXTNT2+76 02651000 CVTRV426 EQU CVTXTNT2+72 02652000 CVTRV425 EQU CVTXTNT2+68 02653000 CVTATACT EQU CVTATCVT 02654000 CVTRV423 EQU CVTXTNT2+62 02655000 CVTRV422 EQU CVTXTNT2+60 02656000 CVTRV421 EQU CVTXTNT2+58 02657000 CVTRV420 EQU CVTXTNT2+56 02658000 CVTRV419 EQU CVTXTNT2+55 02659000 CVTRV418 EQU CVTXTNT2+54 02660000 CVTRV417 EQU CVTRV409 02661000 CVTRV416 EQU CVTRV409 02662000 CVTRV415 EQU CVTRV409 02663000 CVTRV414 EQU CVTRV409 02664000 CVTRV413 EQU CVTRV409 02665000 CVTRV412 EQU CVTRV409 02666000 CVTRV411 EQU CVTRV409 02667000 CVTRV410 EQU CVTRV409 02668000 CVTRV408 EQU CVTRV400 02669000 CVTRV407 EQU CVTRV400 02670000 CVTRV406 EQU CVTRV400 02671000 CVTRV405 EQU CVTRV400 02672000 CVTRV404 EQU CVTRV400 02673000 CVTRV403 EQU CVTRV400 02674000 CVTRV402 EQU CVTRV400 02675000 CVTRV401 EQU CVTRV400 02676000 CVTICB EQU CVTXTNT2+48 02677000 CVTSKTA EQU CVTXTNT2+44 02678000 CVTRSV99 EQU CVTXTNT2+40 02679000 CVTRSV98 EQU CVTXTNT2+36 02680000 CVTRSV97 EQU CVTXTNT2+34 02681000 CVTRSV96 EQU CVTXTNT2+32 02682000 CVTOLTEP EQU CVTXTNT2+28 02683000 CVTQIDA EQU CVTQID+1 02684000 CVTRSV95 EQU CVTQID 02685000 CVTRSV94 EQU CVTXTNT2+20 02686000 CVTRSV93 EQU CVTXTNT2+16 02687000 CVTRSV92 EQU CVTXTNT2+12 02688000 CVTDEBVR EQU CVTXTNT2+8 02689000 CVTRSV91 EQU CVTXTNT2+6 02690000 CVTRSV9H EQU CVTFLGBT 02691000 CVTRSV9G EQU CVTFLGBT 02692000 CVTRSV9F EQU CVTFLGBT 02693000 CVTRSV9E EQU CVTFLGBT 02694000 CVTRSV9D EQU CVTFLGBT 02695000 CVTRSV9C EQU CVTFLGBT 02696000 CVTVME EQU CVTFLGBT 02697000 CVTNPE EQU CVTFLGBT 02698000 CVTNUCLS EQU CVTXTNT2+4 02699000 CVTDSSVA EQU CVTDSSV+1 02700000 CVTRSV89 EQU CVTDSSV 02701000 CVTRSV88 EQU CVTXTNT1+8 02702000 CVTRSV87 EQU CVTXTNT1+4 02703000 CVTFACHN EQU CVTXTNT1 02704000 CVTRV488 EQU CVTMAP+412 02705000 CVTRV487 EQU CVTMAP+408 02706000 CVTRV486 EQU CVTMAP+404 02707000 CVTRV485 EQU CVTMAP+400 02708000 CVTACTAP EQU CVTMAP+396 02709000 CVTAUTH EQU CVTMAP+392 02710000 CVTATMCA EQU CVTATMCT+1 02711000 CVTATMST EQU CVTATMCT 02712000 CVTRSV61 EQU CVTMAP+384 02713000 CVTVOLT1 EQU CVTVOLM1+1 02714000 CVTVOLI1 EQU CVTVOLF1 02715000 CVTSTOA EQU CVTMAP+376 02716000 CVTRSV58 EQU CVTMAP+374 02717000 CVTRSV57 EQU CVTMAP+372 02718000 CVTDDCE EQU CVTMAP+368 02719000 CVTPNWFR EQU CVTMAP+364 02720000 CVTSMF EQU CVTMAP+360 02721000 CVTSULK EQU CVTMAP+358 02722000 CVTSLKO EQU CVTSYSK 02723000 CVTSLKP EQU CVTSYSK 02724000 CVTSLKQ EQU CVTSYSK 02725000 CVTSLKR EQU CVTSYSK 02726000 CVTRSV56 EQU CVTSYSK 02727000 CVTRSV55 EQU CVTSYSK 02728000 CVTRSV54 EQU CVTSYSK 02729000 CVTRSV53 EQU CVTSYSK 02730000 CVTRSV52 EQU CVTA1F1 02731000 CVTRSV51 EQU CVTA1F1 02732000 CVTRSV50 EQU CVTA1F1 02733000 CVTRSV49 EQU CVTA1F1 02734000 CVTRSV48 EQU CVTA1F1 02735000 CVTRSV47 EQU CVTA1F1 02736000 CVTSRSW EQU CVTA1F1 02737000 CVTPFSW EQU CVTA1F1 02738000 CVTPCVT EQU CVTMAP+352 02739000 CVTRSV46 EQU CVTMAP+344 02740000 CVTRSV45 EQU CVTMAP+340 02741000 CVTRSV44 EQU CVTMAP+338 02742000 CVTRSV43 EQU CVTMAP+336 02743000 CVTHJESA EQU CVTHJES+1 02744000 CVTRSV42 EQU CVTHJES 02745000 CVTEXT2A EQU CVTEXT2+1 02746000 CVTRSV41 EQU CVTEXT2 02747000 CVTAPFA EQU CVTAPF+1 02748000 CVTRSV40 EQU CVTAPF 02749000 CVTRV518 EQU CVTINTLA 02750000 CVTRV517 EQU CVTERPV 02751000 CVTEORM EQU CVTMAP+312 02752000 CVTMCHPR EQU CVTMAP+308 02753000 CVTTZ EQU CVTMAP+304 02754000 CVTJEPS EQU CVTMAP+300 02755000 CVTMODE EQU CVTMAP+292 02756000 CVTPTRV EQU CVTMAP+288 02757000 CVTREAL EQU CVTMAP+284 02758000 CVTRSV39 EQU CVTMAP+280 02759000 CVTRSV38 EQU CVTMAP+276 02760000 CVTDMSRA EQU CVTDMSR+1 02761000 CVTRV634 EQU CVTDMSRF 02762000 CVTRV633 EQU CVTDMSRF 02763000 CVTRV632 EQU CVTDMSRF 02764000 CVTRV631 EQU CVTDMSRF 02765000 CVTRV630 EQU CVTDMSRF 02766000 CVTRV629 EQU CVTDMSRF 02767000 CVTUDUMP EQU CVTDMSRF 02768000 CVTSDUMP EQU CVTDMSRF 02769000 CVTQMSGA EQU CVTQMSG+1 02770000 CVTRSV36 EQU CVTQMSG 02771000 CVTAMFF EQU CVTMAP+264 02772000 CVTPURGA EQU CVTPURG+1 02773000 CVTRSV35 EQU CVTPURG 02774000 CVTCBSP EQU CVTMAP+256 02775000 CVTATERA EQU CVTATER+1 02776000 CVTSYST EQU CVTATER 02777000 CVTVOLT2 EQU CVTTAT 02778000 CVTVOLI2 EQU CVTVOLF2 02779000 CVTAQAVB EQU CVTAQAVT+1 02780000 CVTRSV34 EQU CVTTCMFG 02781000 CVTRSV33 EQU CVTTCMFG 02782000 CVTRSV32 EQU CVTTCMFG 02783000 CVTRSV31 EQU CVTTCMFG 02784000 CVTRSV30 EQU CVTTCMFG 02785000 CVTRSV29 EQU CVTTCMFG 02786000 CVTLDEV EQU CVTTCMFG 02787000 CVTTCRDY EQU CVTTCMFG 02788000 CVTGTFA EQU CVTGTF+1 02789000 CVTRSV27 EQU CVTGTFST 02790000 CVTRNIO EQU CVTGTFST 02791000 CVTUSR EQU CVTGTFST 02792000 CVTRV318 EQU CVTFORM 02793000 CVTRV317 EQU CVTTMODE 02794000 CVTRV316 EQU CVTSTATE 02795000 CVTRV315 EQU CVTGTFS 02796000 CVTGTFAV EQU CVTGTFS 02797000 CVT0SCR1 EQU CVTMAP+232 02798000 CVTRV515 EQU CVTMAP+228 02799000 CVTRMS EQU CVTMAP+224 02800000 CVTPATCH EQU CVTMAP+220 02801000 CVTTSCE EQU CVTMAP+216 02802000 CVTMDLDS EQU CVTMAP+208 02803000 CVTUSER EQU CVTMAP+204 02804000 CVTSMCA EQU CVTMAP+196 02805000 CVTRSV18 EQU CVTMAP+192 02806000 CVTQLPAQ EQU CVTMAP+188 02807000 CVTQCDSR EQU CVTMAP+184 02808000 CVTRSV17 EQU CVTOPTB 02809000 CVTRSV16 EQU CVTOPTB 02810000 CVTFP EQU CVTOPTB 02811000 CVTAPTHR EQU CVTOPTB 02812000 CVTNLOG EQU CVTOPTB 02813000 CVTTOD EQU CVTOPTB 02814000 CVTCTIMS EQU CVTOPTB 02815000 CVTPROT EQU CVTOPTB 02816000 CVTXPFP EQU CVTOPTA 02817000 CVTASCII EQU CVTOPTA 02818000 CVTRSV13 EQU CVTOPTA 02819000 CVTRSV12 EQU CVTOPTA 02820000 CVTNIP EQU CVTOPTA 02821000 CVTDDR EQU CVTOPTA 02822000 CVTAPR EQU CVTOPTA 02823000 CVTCCH EQU CVTOPTA 02824000 CVTSNCTR EQU CVTMAP+180 02825000 CVTQMWR EQU CVTMAP+176 02826000 CVTQOCR EQU CVTMAP+172 02827000 CVT1EF00 EQU CVTMAP+168 02828000 CVTMZ00 EQU CVTMAP+164 02829000 CVTSV76Q EQU CVTSV76C 02830000 CVTRSV11 EQU CVTMAP+156 02831000 CVT0PT01 EQU CVTMAP+152 02832000 CVTMSER EQU CVTMAP+148 02833000 CVTRV516 EQU CVTIERLC 02834000 CVTILCH EQU CVTMAP+140 02835000 CVT0DS EQU CVTMAP+136 02836000 CVTFBOSV EQU CVTMAP+132 02837000 CVTNUCB EQU CVTMAP+128 02838000 CVTIXAVL EQU CVTMAP+124 02839000 CVTSV76M EQU CVTIOQET 02840000 CVT4MPS EQU CVTDCB 02841000 CVTRSV09 EQU CVTDCB 02842000 CVT2SPS EQU CVTDCB 02843000 CVT1SSS EQU CVTDCB 02844000 CVTRSV08 EQU CVTDCB 02845000 CVTSTB EQU CVTMAP+112 02846000 CVTQTD00 EQU CVTMAP+108 02847000 CVTQTE00 EQU CVTMAP+104 02848000 CVTCUCB EQU CVTMAP+100 02849000 CVTSJQ EQU CVTMAP+96 02850000 CVTPBLDL EQU CVTMAP+92 02851000 CVTTPC EQU CVTMAP+88 02852000 CVT0FN00 EQU CVTMAP+76 02853000 CVTDARA EQU CVTDAR+1 02854000 CVTRSV07 EQU CVTFLGS1 02855000 CVTRSV06 EQU CVTFLGS1 02856000 CVTRSV05 EQU CVTFLGS1 02857000 CVTRSV04 EQU CVTFLGS1 02858000 CVTRSV03 EQU CVTFLGS1 02859000 CVTRSV02 EQU CVTFLGS1 02860000 CVTRSV01 EQU CVTFLGS1 02861000 CVTDMPLK EQU CVTFLGS1 02862000 CVTXITP EQU CVTMAP+68 02863000 CVTZDTAB EQU CVTMAP+64 02864000 CVTMSLT EQU CVTMAP+60 02865000 CVTDATE EQU CVTMAP+56 02866000 CVTBTERM EQU CVTMAP+52 02867000 CVTSYSAD EQU CVTMAP+48 02868000 CVTXTLER EQU CVTMAP+44 02869000 CVTPRLTV EQU CVTMAP+32 02870000 CVTPCNVT EQU CVTMAP+28 02871000 CVT0VL00 EQU CVTMAP+24 02872000 CVTXAPG EQU CVTMAP+20 02873000 CVTBUF EQU CVTMAP+16 02874000 CVTJOB EQU CVTMAP+12 02875000 CVT0EF00 EQU CVTMAP+4 02876000 CVT EQU CVTMAP 02877000 RVT99999 EQU RVT+384 02878000 RVT0096P EQU RVT+380 02879000 RVT0095P EQU RVT+376 02880000 RVT0094P EQU RVT+372 02881000 RVT0093P EQU RVT+368 02882000 RVT0092P EQU RVT+364 02883000 RVT0091P EQU RVT+360 02884000 RVT0090P EQU RVT+356 02885000 RVT0089P EQU RVT+352 02886000 RVT0088P EQU RVT+348 02887000 RVT0087P EQU RVT+344 02888000 RVT0086P EQU RVT+340 02889000 RVT0085P EQU RVT+336 02890000 RVT0084P EQU RVT+332 02891000 RVT0083P EQU RVT+328 02892000 RVT0082P EQU RVT+324 02893000 RVT0081P EQU RVT+320 02894000 RVT0080P EQU RVT+316 02895000 RVT0079P EQU RVT+312 02896000 RVT0078P EQU RVT+308 02897000 RVT0077P EQU RVT+304 02898000 RVT0076P EQU RVT+300 02899000 RVT0075P EQU RVT+296 02900000 RVT0074P EQU RVT+292 02901000 RVT0073P EQU RVT+288 02902000 RVT0072P EQU RVT+284 02903000 RVTDTUTP EQU RVT+272 02904000 RVTDTMTP EQU RVT+268 02905000 RVT0057P EQU RVT+224 02906000 RVT0056P EQU RVT+220 02907000 RVT0055P EQU RVT+216 02908000 RVT0054P EQU RVT+212 02909000 RVT0053P EQU RVT+208 02910000 RVT0044P EQU RVT+172 02911000 RVT0043P EQU RVT+168 02912000 RVT0040P EQU RVT+156 02913000 RVT0039P EQU RVT+152 02914000 RVT0038P EQU RVT+148 02915000 RVT0037P EQU RVT+144 02916000 RVT0031P EQU RVT+120 02917000 RVT0030P EQU RVT+116 02918000 RVT0029P EQU RVT+112 02919000 RVT0020P EQU RVT+76 02920000 RVT0012P EQU RVT+44 02921000 RVT0010P EQU RVT+36 02922000 RVT0009P EQU RVT+32 02923000 RVT0008P EQU RVT+28 02924000 RVT0006P EQU RVT+20 02925000 ZZ69999 EQU ZZ6+1792 02926000 ZZ6BRB EQU ZZ6B+12 02927000 ZZ6BRC EQU ZZ6B+8 02928000 @NM00133 EQU ZZ6B+6 02929000 ZZ6BFL EQU ZZ6B+4 02930000 ZZ6BDA EQU ZZ6B 02931000 @NM00132 EQU ZZ6+540 02932000 ZZ6BUFI EQU ZZ6+536 02933000 ZZ6BUFP EQU ZZ6+532 02934000 ZZ6FILE EQU ZZ6+524 02935000 ZZ6BUFB EQU ZZ6+520 02936000 ZZ6BUFL EQU ZZ6+518 02937000 ZZ6BUFN EQU ZZ6+516 02938000 ZZ6ZZ6P EQU ZZ6+512 02939000 @NM00131 EQU ZZ6+256 02940000 ZZ6D999 EQU ZZ6D+128 02941000 @NM00130 EQU ZZ6D+116 02942000 ZZ6DCAP EQU ZZ6D+112 02943000 ZZ6DPRP EQU ZZ6D+108 02944000 ZZ6DDA2 EQU ZZ6D+104 02945000 ZZ6DDA1 EQU ZZ6D+100 02946000 @NM00129 EQU ZZ6DF 02947000 ZZ6DFSU EQU ZZ6DF 02948000 ZZ6DFST EQU ZZ6DF 02949000 ZZ6DFAB EQU ZZ6DF 02950000 ZZ6DFMP EQU ZZ6DF 02951000 ZZ6DFDU EQU ZZ6DF 02952000 ZZ6DFBS EQU ZZ6DF 02953000 ZZ6DQ2 EQU ZZ6D+88 02954000 ZZ6DQ1 EQU ZZ6D+84 02955000 ZZ6DQA9 EQU ZZ6DQA+16 02956000 @NM00128 EQU ZZ6DQA+12 02957000 ZZ6DQA2 EQU ZZ6DQA+8 02958000 ZZ6DQA1 EQU ZZ6DQA+4 02959000 @NM00127 EQU ZZ6DQA+2 02960000 ZZ6DQAT EQU ZZ6DQA 02961000 ZZ6DQA0 EQU ZZ6DQA 02962000 ZZ6DRDX EQU ZZ6D+64 02963000 ZZ6DELK EQU ZZ6D+64 02964000 ZZ6DMEM EQU ZZ6D+56 02965000 ZZ6DDT1 EQU ZZ6DDT 02966000 ZZ6DDO EQU ZZ6DD+2 02967000 ZZ6DDL EQU ZZ6DD 02968000 @NM00126 EQU ZZ6D+2 02969000 ZZ6DRID EQU ZZ6D 02970000 ZZ6RDCB EQU ZZ6 02971000 ZZ60000 EQU ZZ6 02972000 BVT99999 EQU BVT+256 02973000 BVT0064P EQU BVT+252 02974000 BVT0063P EQU BVT+248 02975000 BVT0062P EQU BVT+244 02976000 BVT0061P EQU BVT+240 02977000 BVT0060P EQU BVT+236 02978000 BVT0059P EQU BVT+232 02979000 BVT0057P EQU BVT+224 02980000 BVT0056P EQU BVT+220 02981000 BVTSTBLP EQU BVT+200 02982000 BVT0045P EQU BVT+176 02983000 BVT0044P EQU BVT+172 02984000 BVT0033P EQU BVT+128 02985000 BVT0032P EQU BVT+124 02986000 BVT0031P EQU BVT+120 02987000 BVT0030P EQU BVT+116 02988000 BVT0029P EQU BVT+112 02989000 BVT0026P EQU BVT+100 02990000 BVT0025P EQU BVT+96 02991000 BVT0024P EQU BVT+92 02992000 BVT0023P EQU BVT+88 02993000 BVT0016P EQU BVT+60 02994000 BVT0015P EQU BVT+56 02995000 BVT0014P EQU BVT+52 02996000 BVT0003P EQU BVT+8 02997000 BVT0001P EQU BVT 02998000 SA99 EQU SA+72 02999000 SARC EQU SAR+56 03000000 SARB EQU SAR+52 03001000 SARA EQU SAR+48 03002000 SAR9 EQU SAR+44 03003000 SAR8 EQU SAR+40 03004000 SAR7 EQU SAR+36 03005000 SAR6 EQU SAR+32 03006000 SAR5 EQU SAR+28 03007000 SAR4 EQU SAR+24 03008000 SAR3 EQU SAR+20 03009000 SAR2 EQU SAR+16 03010000 SAR0 EQU SAR+8 03011000 SARF EQU SAR+4 03012000 SARE EQU SAR 03013000 SAFWD EQU SA+8 03014000 SABAK EQU SA+4 03015000 SA1L EQU SA1+1 03016000 SA1P EQU SA1 03017000 UPTPREFL EQU UPT+23 03018000 UPTPREFX EQU UPT+16 03019000 @NM00125 EQU UPT+15 03020000 UPTLDEL EQU UPT+14 03021000 UPTCDEL EQU UPT+13 03022000 UPTWTP EQU UPTSWS 03023000 UPTMODE EQU UPTSWS 03024000 UPTALD EQU UPTSWS 03025000 UPTPAUS EQU UPTSWS 03026000 UPTNCOM EQU UPTSWS 03027000 UPTMID EQU UPTSWS 03028000 UPTNPRM EQU UPTSWS 03029000 UPTRCVR EQU UPTSWS 03030000 UPTUSER EQU UPT+2 03031000 @NM00124 EQU UPT 03032000 @NM00123 EQU ECT+52 03033000 @NM00122 EQU ECT+48 03034000 @NM00121 EQU ECT+44 03035000 @NM00120 EQU ECTSWS2+1 03036000 @NM00119 EQU ECTSWS21 03037000 ECTTABND EQU ECTSWS21 03038000 ECTDEFCS EQU ECTSWS21 03039000 ECTBKPB EQU ECT+36 03040000 ECTUSER EQU ECT+32 03041000 ECTDDNUM EQU ECT+29 03042000 ECTATTN EQU ECTSWS 03043000 ECTBKGRD EQU ECTSWS 03044000 ECTNNOT EQU ECTSWS 03045000 ECTNMAL EQU ECTSWS 03046000 ECTLOGF EQU ECTSWS 03047000 ECTATRM EQU ECTSWS 03048000 @NM00118 EQU ECTSWS 03049000 ECTNOPD EQU ECTSWS 03050000 ECTSCMD EQU ECT+20 03051000 ECTPCMD EQU ECT+12 03052000 ECTSMSG EQU ECT+9 03053000 ECTMSGF EQU ECT+8 03054000 ECTIOWA EQU ECT+4 03055000 ECTRTCD EQU ECT+1 03056000 ECTRCDF EQU ECT 03057000 PSCBU EQU PSCB+64 03058000 PSCBRSZ EQU PSCB+60 03059000 PSCBLINE EQU PSCB+59 03060000 PSCBCHAR EQU PSCB+58 03061000 PSCBUPTL EQU PSCB+56 03062000 PSCBUPT EQU PSCB+52 03063000 PSCBRLGB EQU PSCB+48 03064000 PSCBDEST EQU PSCB+40 03065000 @NM00117 EQU PSCB+36 03066000 @NM00116 EQU PSCB+32 03067000 @NM00115 EQU PSCB+28 03068000 PSCBLTI2 EQU PSCB+24 03069000 PSCBLTIM EQU PSCB+20 03070000 PSCBATR2 EQU PSCB+18 03071000 @NM00114 EQU PSCBATR1 03072000 @NM00113 EQU PSCBATR1 03073000 @NM00112 EQU PSCBATR1 03074000 PSCBATTN EQU PSCBATR1 03075000 PSCBVMNT EQU PSCBATR1 03076000 PSCBJCL EQU PSCBATR1 03077000 PSCBACCT EQU PSCBATR1 03078000 PSCBCTRL EQU PSCBATR1 03079000 PSCBGPNM EQU PSCB+8 03080000 PSCBUSRL EQU PSCB+7 03081000 PSCBUSER EQU PSCB 03082000 CMDT1 EQU CMDT 03083000 CMDO EQU CMD+2 03084000 CMDL EQU CMD 03085000 ZZ299999 EQU ZZ2+8192 03086000 ZZ2AXOT1 EQU ZZ2AXOT 03087000 ZZ2AXOL EQU ZZ2AXO 03088000 @NM00111 EQU ZZ2+7288 03089000 @NM00110 EQU ZZ2AMDX+4 03090000 ZZ2AMDXC EQU ZZ2AMDX 03091000 ZZ2HSD EQU ZZ2+3056 03092000 @NM00109 EQU ZZ2ES 03093000 @NM00108 EQU ZZ2+2868 03094000 ZZ2ITSEC EQU ZZ2ITSE+1 03095000 @NM00107 EQU ZZ2ITSE 03096000 ZZ2ITSEP EQU ZZ2ITSE 03097000 ZZ2ITSEW EQU ZZ2ITSE 03098000 @NM00106 EQU ZZ2ITR+20 03099000 ZZ2ITREC EQU ZZ2ITRE+1 03100000 @NM00105 EQU ZZ2ITRE 03101000 ZZ2ITREP EQU ZZ2ITRE 03102000 ZZ2ITREW EQU ZZ2ITRE 03103000 @NM00104 EQU ZZ2ITR+9 03104000 ZZ2ITRRC EQU ZZ2ITR+8 03105000 ZZ2ITR2P EQU ZZ2ITR+4 03106000 ZZ2ITRPP EQU ZZ2ITR 03107000 @NM00103 EQU ZZ2+1544 03108000 ZZ2PGM EQU ZZ2+1536 03109000 @NM00102 EQU ZZ2+1526 03110000 ZZ2CW EQU ZZ2+1524 03111000 @NM00101 EQU ZZ2+1504 03112000 @NM00100 EQU ZZ2+1352 03113000 ZZ2FFSYP EQU ZZ2+1348 03114000 ZZ2SASYP EQU ZZ2+1344 03115000 ZZ2RDSYP EQU ZZ2+1340 03116000 ZZ2RASYP EQU ZZ2+1336 03117000 ZZ2PHSYP EQU ZZ2+1332 03118000 ZZ200SYP EQU ZZ2+1324 03119000 ZZ2SCWP EQU ZZ2+1320 03120000 ZZ2TTLP EQU ZZ2+1316 03121000 ZZ2LOADP EQU ZZ2+1312 03122000 ZZ2VRESP EQU ZZ2+1308 03123000 ZZ2CPPLE EQU ZZ2CPPL+12 03124000 ZZ2CPPLP EQU ZZ2CPPL+8 03125000 ZZ2CPPLU EQU ZZ2CPPL+4 03126000 ZZ2VRSAP EQU ZZ2+1288 03127000 ZZ2DVTP EQU ZZ2+1276 03128000 @NM00099 EQU ZZ2+1272 03129000 @NM00098 EQU ZZ2+1268 03130000 ZZ2RPLP EQU ZZ2+1260 03131000 ZZ2TCBP EQU ZZ2+1256 03132000 @NM00097 EQU ZZ2+1252 03133000 ZZ2ZZ2P EQU ZZ2+1248 03134000 @NM00096 EQU ZZ2+1112 03135000 ZZ2FPDRP EQU ZZ2+1108 03136000 ZZ2FDSDP EQU ZZ2+1104 03137000 ZZ2APDRP EQU ZZ2+1100 03138000 ZZ2ADSDP EQU ZZ2+1096 03139000 ZZ2ENQ0P EQU ZZ2+1092 03140000 @NM00095 EQU ZZ2+1080 03141000 ZZ2MSG0P EQU ZZ2+1076 03142000 ZZ2FT25P EQU ZZ2+1072 03143000 ZZ2MSGSP EQU ZZ2+1060 03144000 ZZ2ALOCP EQU ZZ2+1056 03145000 @NM00094 EQU ZZ2+976 03146000 ZZ2STGN EQU ZZ2STG+4 03147000 ZZ2STGP EQU ZZ2STG 03148000 @NM00093 EQU ZZ2+952 03149000 ZZ2SCMDE EQU ZZ2+944 03150000 ZZ2SCMDN EQU ZZ2+936 03151000 ZZ2IDENT EQU ZZ2+928 03152000 ZZ2A9999 EQU ZZ2A+656 03153000 @NM00092 EQU ZZ2A+224 03154000 @NM00091 EQU ZZ2A+220 03155000 ZZ2AQD99 EQU ZZ2AQD+60 03156000 @NM00090 EQU ZZ2AQD+56 03157000 @NM00089 EQU ZZ2AQDF 03158000 ZZ2AQDFA EQU ZZ2AQDF 03159000 ZZ2AQDIL EQU ZZ2AQD+48 03160000 ZZ2AQDIM EQU ZZ2AQD+44 03161000 ZZ2AQDT9 EQU ZZ2AQDT+34 03162000 ZZ2AQDTE EQU ZZ2AQDT+33 03163000 ZZ2AQDTD EQU ZZ2AQDT+2 03164000 @NM00088 EQU ZZ2AQDT+1 03165000 ZZ2AQDTY EQU ZZ2AQDT 03166000 ZZ2AQDT0 EQU ZZ2AQDT 03167000 ZZ2AQDLB EQU ZZ2AQD+9 03168000 ZZ2AQDOB EQU ZZ2AQD+8 03169000 ZZ2AQDLE EQU ZZ2AQD+4 03170000 ZZ2AQDOF EQU ZZ2AQD 03171000 ZZ2AQD00 EQU ZZ2AQD 03172000 ZZ2AQAS9 EQU ZZ2AQAS+16 03173000 @NM00087 EQU ZZ2AQAS+12 03174000 ZZ2AQAS2 EQU ZZ2AQAS+8 03175000 ZZ2AQAS1 EQU ZZ2AQAS+4 03176000 @NM00086 EQU ZZ2AQAS+2 03177000 ZZ2AQAST EQU ZZ2AQAS 03178000 ZZ2AQAS0 EQU ZZ2AQAS 03179000 ZZ2ADPTA EQU ZZ2ADPT 03180000 ZZ2ADPL EQU ZZ2ADP 03181000 ZZ2ADMTA EQU ZZ2ADMT 03182000 ZZ2ADML EQU ZZ2ADM 03183000 ZZ2ADDTA EQU ZZ2ADDT 03184000 ZZ2ADDL EQU ZZ2ADD 03185000 @NM00085 EQU ZZ2A+72 03186000 ZZ2APIDB EQU ZZ2APID+3 03187000 ZZ2APIDA EQU ZZ2APID 03188000 @NM00084 EQU ZZ2A+24 03189000 @NM00083 EQU ZZ2AF+5 03190000 ZZ2AFX EQU ZZ2AF+5 03191000 @NM00082 EQU ZZ2AF+3 03192000 ZZ2AFS EQU ZZ2AF+2 03193000 ZZ2AFD EQU ZZ2AF+2 03194000 ZZ2AFQ EQU ZZ2AF+2 03195000 ZZ2AF$ EQU ZZ2AF+2 03196000 @NM00081 EQU ZZ2AF+2 03197000 ZZ2AFM EQU ZZ2AF+2 03198000 @NM00080 EQU ZZ2AF+2 03199000 @NM00079 EQU ZZ2AF+1 03200000 ZZ2AFV EQU ZZ2AF+1 03201000 @NM00078 EQU ZZ2AF+1 03202000 ZZ2AFC EQU ZZ2AF+1 03203000 @NM00077 EQU ZZ2AF 03204000 ZZ2AFFS EQU ZZ2AF 03205000 ZZ2AFT EQU ZZ2AF 03206000 ZZ2AFP EQU ZZ2AF 03207000 @NM00076 EQU ZZ2A+8 03208000 ZZ2ALINE EQU ZZ2A+4 03209000 @NM00075 EQU ZZ2A+3 03210000 ZZ2ACH EQU ZZ2A 03211000 @NM00074 EQU ZZ2+264 03212000 @NM00073 EQU ZZ2+263 03213000 ZZ2PRTT0 EQU ZZ2PRTT 03214000 ZZ2PRTO EQU ZZ2PRT+2 03215000 ZZ2PRTL EQU ZZ2PRT 03216000 @NM00072 EQU ZZ2AMD+56 03217000 ZZ2AMDXP EQU ZZ2AMD+52 03218000 ZZ2AMDD EQU ZZ2AMD+48 03219000 ZZ2AMDL EQU ZZ2AMD+44 03220000 ZZ2AMDU EQU ZZ2AMD+28 03221000 ZZ2AMDF EQU ZZ2AMD+24 03222000 ZZ2AMDS EQU ZZ2AMD+20 03223000 ZZ2AMDC EQU ZZ2AMD+16 03224000 ZZ2AMDP EQU ZZ2AMD+12 03225000 ZZ2AMDB EQU ZZ2AMD+8 03226000 @NM00071 EQU @NM00070 03227000 ZZ2AMD2 EQU @NM00070 03228000 ZZ2AMD1 EQU @NM00070 03229000 ZZ2AMD0 EQU ZZ2AMD+6 03230000 ZZ2AMDA EQU ZZ2AMD+4 03231000 ZZ2AMDT EQU ZZ2AMD 03232000 ZZ199999 EQU ZZ1+3072 03233000 @NM00069 EQU ZZ1+2160 03234000 ZZ1TRTAS EQU ZZ1+1904 03235000 ZZ1TRUPC EQU ZZ1+1648 03236000 ZZ1TRCTX EQU ZZ1+1392 03237000 ZZ1NASID EQU ZZ1N+274 03238000 ZZ1NSTRL EQU ZZ1N+272 03239000 ZZ1NOFF EQU ZZ1N+268 03240000 ZZ1NBDY EQU ZZ1N+264 03241000 ZZ1NADE EQU ZZ1N+260 03242000 ZZ1NADB EQU ZZ1N+256 03243000 ZZ1NSTR EQU ZZ1N 03244000 @NM00068 EQU ZZ1+1080 03245000 ZZ1TREBC EQU ZZ1+824 03246000 @NM00067 EQU ZZ1+377 03247000 ZZ1USTAE EQU ZZ1+376 03248000 @NM00066 EQU ZZ1F+1 03249000 @NM00065 EQU ZZ1F 03250000 ZZ1FM EQU ZZ1F 03251000 ZZ1FX EQU ZZ1F 03252000 ZZ1FU EQU ZZ1F 03253000 ZZ1EVEC EQU ZZ1EVE+1 03254000 @NM00064 EQU ZZ1EVE 03255000 ZZ1EVEW EQU ZZ1EVE 03256000 ZZ1ACMP EQU ZZ1ATTN 03257000 @NM00063 EQU ZZ1+144 03258000 ZZ1FPP EQU ZZ1+140 03259000 ZZ1ZZ6P EQU ZZ1+136 03260000 @NM00062 EQU ZZ1+84 03261000 ZZ1PLINE EQU ZZ1+80 03262000 ZZ1PGSZ EQU ZZ1+76 03263000 ZZ1PCNT EQU ZZ1+72 03264000 @NM00061 EQU ZZ1+68 03265000 ZZ1TPAGE EQU ZZ1+64 03266000 ZZ1TLINE EQU ZZ1+60 03267000 @NM00060 EQU ZZ1+52 03268000 ZZ1DMCBP EQU ZZ1+48 03269000 ZZ1DSDP EQU ZZ1+44 03270000 ZZ1PDRP EQU ZZ1+40 03271000 ZZ1ZZ2P EQU ZZ1+36 03272000 ZZ1327WP EQU ZZ1+32 03273000 ZZ1ACBP EQU ZZ1+28 03274000 @NM00059 EQU ZZ1+24 03275000 ZZ1PDCBP EQU ZZ1+20 03276000 ZZ1BLRBL EQU ZZ1+16 03277000 @NM00058 EQU ZZ1+12 03278000 ZZ1PNULL EQU ZZ1+8 03279000 ZZ1NULL EQU ZZ1+4 03280000 ZZ1IDE EQU ZZ1 03281000 VRBAT1 EQU VRBAT 03282000 @NM00055 EQU VRBA+2 03283000 VRBAL EQU VRBA 03284000 ESCO999 EQU ESCO+182 03285000 ESCORT1 EQU ESCORT 03286000 ESCORL EQU ESCOR 03287000 @NM00054 EQU ESCO+168 03288000 ESCOABS EQU ESCO+164 03289000 @NM00053 EQU ESCOF+2 03290000 @NM00052 EQU ESCOFC 03291000 ESCOFCD EQU ESCOFC 03292000 ESCOFSS EQU ESCOFS 03293000 ESCOFSX EQU ESCOFS 03294000 ESCOFSR EQU ESCOFS 03295000 ESCOFSP EQU ESCOFS 03296000 ESCOFSA EQU ESCOFS 03297000 ESCOFSM EQU ESCOFS 03298000 ESCOFS2 EQU ESCOFS 03299000 ESCOFSC EQU ESCOFS 03300000 ESCOKEY EQU ESCO+160 03301000 @NM00051 EQU ESCO+144 03302000 ESCOMAD EQU ESCO+140 03303000 ESCOD99 EQU ESCOD+60 03304000 @NM00050 EQU ESCOD+56 03305000 @NM00049 EQU ESCODF 03306000 ESCODFA EQU ESCODF 03307000 ESCODIL EQU ESCOD+48 03308000 ESCODIM EQU ESCOD+44 03309000 ESCODT9 EQU ESCODT+34 03310000 ESCODTE EQU ESCODT+33 03311000 ESCODTD EQU ESCODT+2 03312000 @NM00048 EQU ESCODT+1 03313000 ESCODTY EQU ESCODT 03314000 ESCODT0 EQU ESCODT 03315000 ESCODLB EQU ESCOD+9 03316000 ESCODOB EQU ESCOD+8 03317000 ESCODLE EQU ESCOD+4 03318000 ESCODOF EQU ESCOD 03319000 ESCOD00 EQU ESCOD 03320000 ESCOLAD EQU ESCO+76 03321000 ESCOAS9 EQU ESCOAS+16 03322000 @NM00047 EQU ESCOAS+12 03323000 ESCOAS2 EQU ESCOAS+8 03324000 ESCOAS1 EQU ESCOAS+4 03325000 @NM00046 EQU ESCOAS+2 03326000 ESCOAST EQU ESCOAS 03327000 ESCOAS0 EQU ESCOAS 03328000 ESCORV1 EQU ESCO+59 03329000 ESCOELK EQU ESCO+59 03330000 ESCOSYM EQU ESCO+28 03331000 ESCORDX EQU ESCO+24 03332000 @NM00045 EQU ESCO+16 03333000 @NM00044 EQU ESCO+8 03334000 @NM00043 EQU ESCO+2 03335000 ESCORID EQU ESCO 03336000 SABA999 EQU SABA+3072 03337000 SABACT1 EQU SABACT 03338000 @NM00020 EQU SABA+153 03339000 SABAPGV EQU SABA+144 03340000 @NM00019 EQU SABASF 03341000 SABAF99 EQU SABAF+60 03342000 @NM00018 EQU SABAF+56 03343000 @NM00017 EQU SABAFF 03344000 SABAFFA EQU SABAFF 03345000 SABAFIL EQU SABAF+48 03346000 SABAFIM EQU SABAF+44 03347000 SABAFT9 EQU SABAFT+34 03348000 SABAFTE EQU SABAFT+33 03349000 SABAFTD EQU SABAFT+2 03350000 @NM00016 EQU SABAFT+1 03351000 SABAFTY EQU SABAFT 03352000 SABAFT0 EQU SABAFT 03353000 SABAFLB EQU SABAF+9 03354000 SABAFOB EQU SABAF+8 03355000 SABAFLE EQU SABAF+4 03356000 SABAFOF EQU SABAF 03357000 SABAF00 EQU SABAF 03358000 @NM00015 EQU SABA+66 03359000 SABAELK EQU SABA+66 03360000 SABADT9 EQU SABADT+34 03361000 SABADTE EQU SABADT+33 03362000 SABADTD EQU SABADT+2 03363000 @NM00014 EQU SABADT+1 03364000 SABADTY EQU SABADT 03365000 SABADT0 EQU SABADT 03366000 SABAAS9 EQU SABAAS+16 03367000 @NM00013 EQU SABAAS+12 03368000 SABAAS2 EQU SABAAS+8 03369000 SABAAS1 EQU SABAAS+4 03370000 @NM00012 EQU SABAAS+2 03371000 SABAAS0 EQU SABAAS 03372000 SABARDX EQU SABA+8 03373000 @NM00011 EQU SABA+2 03374000 SABARID EQU SABA 03375000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03376000 @RT00191 EQU LBLSCAN2 03377000 @RF00191 EQU LBLSCAN8 03378000 @RT00277 EQU LBLSCAN8 03379000 @RT00280 EQU LBLSCAN7 03380000 @RT00430 EQU LBLSCAN8 03381000 @RT00553 EQU EXIT 03382000 @RT00583 EQU PCHKEXIT 03383000 @RF00586 EQU @EC00596 03384000 @RT00598 EQU PCHKEXIT 03385000 @ENDDATA EQU * 03386000 END BLSVCVT,(C'PLS1846',0701,78069) 03387000