XPVT TITLE 'BLSVPVT --SCAN PAGING VECTOR TABLE (PVT) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSVPVT CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSVPVT 78.069' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 0002 00019000 LA @10,4095(,@11) 0002 00020000 USING @DATD,@11 0002 00021000 USING @DATD+4095,@10 0002 00022000 ST @13,@SA00001+4 0002 00023000 LM @00,@01,20(@13) 0002 00024000 ST @11,8(,@13) 0002 00025000 LR @13,@11 0002 00026000 MVC @PC00001(12),0(@01) 0002 00027000 */********************************************************************/ 00028000 */* */ 00029000 */* BLSVPVT --SCAN PAGING VECTOR TABLE (PVT) */ 00030000 */* */ 00031000 */********************************************************************/ 00032000 * 0157 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* BLSV12--SCAN EXIT SETUP AND IMAGE RETRIEVAL */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 0157 00039000 * DO; /* BLSV12 */ 00040000 * 0157 00041000 * /***************************************************************/ 00042000 * /* */ 00043000 * /* BLSV1--SCAN EXIT SETUP */ 00044000 * /* */ 00045000 * /***************************************************************/ 00046000 * 0158 00047000 * DO; /* BLSV1 */ 00048000 * RESPECIFY 0159 00049000 * (RF) RESTRICTED; /* RETURN CODES */ 00050000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00051000 SLR RETC,RETC 0160 00052000 * SABAPTR=ADDR(SAPA); /* ->SABA (ALIAS FOR SAPA */ 00053000 L SABAPTR,@PC00001+4 0161 00054000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00055000 TM SABASF1(SABAPTR),B'10000000' 0162 00056000 BNO @RF00162 0162 00057000 * IF /* IMAGE RETRIEVAL REQUIRED */ 00058000 * SABASF9=ZZZ0| /* SCAN NOT COMPLETE */ 00059000 * (SABASFS=ZZZ1&ZZ2ASE<=SABASRC) THEN/* IMAGE USED FOR 0163 00060000 * MESSAGES */ 00061000 TM SABASF9(SABAPTR),B'01000000' 0163 00062000 BZ @RT00163 0163 00063000 TM SABASFS(SABAPTR),B'00010000' 0163 00064000 BNO @RF00163 0163 00065000 CLC ZZ2ASE(1,R9),SABASRC(SABAPTR) 0163 00066000 BNH @RT00163 0163 00067000 * GO TO LBLSCAN2; /* IMAGE RETRIEVAL */ 00068000 * ELSE /* NO IMAGE RETRIEVAL */ 00069000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00070000 B LBLSCAN8 0165 00071000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00072000 @RF00162 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0166 00073000 * SABACL=(LENGTH(ERRF)/8)*DIM(ERRF);/* LENGTH OF SABACT */ 00074000 * 0167 00075000 MVC SABACL(2,SABAPTR),@CH00038 0167 00076000 * /*************************************************************/ 00077000 * /* */ 00078000 * /* CLEAR ALL ERROR FLAGS */ 00079000 * /* */ 00080000 * /*************************************************************/ 00081000 * 0168 00082000 * DO ERRFNDX=1 TO DIM(ERRF); /* CLEAR ALL ERROR FLAGS */ 00083000 LA ERRFNDX,1 0168 00084000 @DL00168 DS 0H 0169 00085000 * ERRF(ERRFNDX)='00'X; /* ONE BYTE AT A TIME */ 00086000 LR @14,SABAPTR 0169 00087000 ALR @14,ERRFNDX 0169 00088000 MVI ERRF-1(@14),X'00' 0169 00089000 * END; /* CLEAR ALL ERROR FLAGS */ 00090000 AL ERRFNDX,@CF00051 0170 00091000 C ERRFNDX,@CF00038 0170 00092000 BNH @DL00168 0170 00093000 * IF SABALAD//8^=0 THEN /* UNALIGNED */ 00094000 * 0171 00095000 L @14,SABALAD(,SABAPTR) 0171 00096000 N @14,@CF00442 0171 00097000 LTR @14,@14 0171 00098000 BZ @RF00171 0171 00099000 * /***********************************************************/ 00100000 * /* */ 00101000 * /* UNALIGNED */ 00102000 * /* */ 00103000 * /***********************************************************/ 00104000 * 0172 00105000 * DO; /* UNALIGNED */ 00106000 * ERRFB(TST088)=ZZZ1; /* UNALIGNED STORAGE ERROR */ 00107000 OI ERRFB(SABAPTR),B'10000000' 0173 00108000 * SABASRC=ZZZFLAGS; /* SCAN RETURN CODE */ 00109000 MVI SABASRC(SABAPTR),X'0C' 0174 00110000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00111000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00112000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00113000 OI SABASF1(SABAPTR),B'11100000' 0177 00114000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00115000 B LBLSCAN8 0178 00116000 * END; /* UNALIGNED */ 00117000 * END; /* BLSV1 */ 00118000 * 0180 00119000 @RF00171 DS 0H 0181 00120000 * /***************************************************************/ 00121000 * /* */ 00122000 * /* BLSV2--RETRIEVE IMAGE OF BLOCK TO BE SCANNED */ 00123000 * /* */ 00124000 * /***************************************************************/ 00125000 * 0181 00126000 *LBLSCAN2: 0181 00127000 * DO; /* BLSV2 */ 00128000 LBLSCAN2 DS 0H 0182 00129000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE ES RECORD */ 00130000 L @14,ZZ2ESSYP(,R9) 0182 00131000 MVC ESAU(182),ESCO(@14) 0182 00132000 * ESAUAS=SABAAS; /* ADDRESS SPACE */ 00133000 MVC ESAUAS(16),SABAAS(SABAPTR) 0183 00134000 * ESAULAD=SABALAD; /* LOGICAL ADDRESS */ 00135000 L @14,SABALAD(,SABAPTR) 0184 00136000 ST @14,ESAULAD 0184 00137000 * ESAUDT=SABADT; /* DATA TYPE */ 00138000 MVC ESAUDT(34),SABADT(SABAPTR) 0185 00139000 * ESAUDLE=LENGTH(BUF); /* LENGTH */ 00140000 MVC ESAUDLE(4),@CF01647 0186 00141000 * CALL BLSRACCQ(ZZ2,ESAU,BUF);/* RETRIEVE STORAGE */ 00142000 ST R9,@AL00001 0187 00143000 LA @14,ESAU 0187 00144000 ST @14,@AL00001+4 0187 00145000 LA @14,BUF 0187 00146000 ST @14,@AL00001+8 0187 00147000 L @08,ZZ2RVTP(,R9) 0187 00148000 L @15,RVTACCQP(,@08) 0187 00149000 LA @01,@AL00001 0187 00150000 BALR @14,@15 0187 00151000 * IF ESAUFSM=ZZZ1 THEN /* STORAGE NOT AVAILABLE */ 00152000 * 0188 00153000 TM ESAUFSM,B'00100000' 0188 00154000 BNO @RF00188 0188 00155000 * /***********************************************************/ 00156000 * /* */ 00157000 * /* STORAGE NOT AVAILABLE */ 00158000 * /* */ 00159000 * /***********************************************************/ 00160000 * 0189 00161000 * DO; /* STORAGE NOT AVAILABLE */ 00162000 * IF ZZ1EVEP=ZZZ1 THEN /* EARLY TERMINATION REQUESTED */ 00163000 * 0190 00164000 L @14,ZZ2ZZ1P(,R9) 0190 00165000 TM ZZ1EVEP(@14),B'01000000' 0190 00166000 BNO @RF00190 0190 00167000 * /*******************************************************/ 00168000 * /* */ 00169000 * /* EARLY TERMINATION REQUESTED */ 00170000 * /* */ 00171000 * /*******************************************************/ 00172000 * 0191 00173000 * DO; /* EARLY TERMINATION REQUESTED */ 00174000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00175000 LA RETC,12 0192 00176000 * GO TO EXIT; /* COMMON EXIT PATH */ 00177000 B EXIT 0193 00178000 * END; /* EARLY TERMINATION REQUESTED */ 00179000 * ERRFB(TST087)=ZZZ1; /* STORAGE NOT AVAILABLE */ 00180000 @RF00190 OI ERRFB+1(SABAPTR),B'10000000' 0195 00181000 * SABASRC=MAX(SABASRC,ZZZFLAGW);/* SCAN RETURN CODE */ 00182000 SLR @14,@14 0196 00183000 IC @14,SABASRC(,SABAPTR) 0196 00184000 LA @08,4 0196 00185000 CR @14,@08 0196 00186000 BNL *+6 00187000 LR @14,@08 0196 00188000 STC @14,SABASRC(,SABAPTR) 0196 00189000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00190000 * SABASF9=ZZZ1; /* SCAN COMPLETE */ 00191000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00192000 OI SABASF1(SABAPTR),B'11100000' 0199 00193000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00194000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0200 00195000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00196000 B LBLSCAN8 0201 00197000 * END; /* STORAGE NOT AVAILABLE */ 00198000 * PVTPTR=ADDR(BUF); /* ->IMAGE */ 00199000 @RF00188 LA PVTPTR,BUF 0203 00200000 * FVAL(1)=PVTFPCBF; /* POINTER 1 */ 00201000 L @14,PVTFPCBF(,PVTPTR) 0204 00202000 ST @14,FVAL 0204 00203000 * FVAL(2)=PVTFPCBL; /* POINTER 2 */ 00204000 L @14,PVTFPCBL(,PVTPTR) 0205 00205000 ST @14,FVAL+4 0205 00206000 * FVAL(3)=PVTGFADF; /* POINTER 3 */ 00207000 L @14,PVTGFADF(,PVTPTR) 0206 00208000 ST @14,FVAL+8 0206 00209000 * FVAL(4)=PVTGFADL; /* POINTER 4 */ 00210000 L @14,PVTGFADL(,PVTPTR) 0207 00211000 ST @14,FVAL+12 0207 00212000 * FVAL(5)=PVTCIOQF; /* POINTER 5 */ 00213000 L @14,PVTCIOQF(,PVTPTR) 0208 00214000 ST @14,FVAL+16 0208 00215000 * FVAL(6)=PVTCIOQL; /* POINTER 6 */ 00216000 L @14,PVTCIOQL(,PVTPTR) 0209 00217000 ST @14,FVAL+20 0209 00218000 * IF SABASF9=ZZZ1 THEN /* SCAN COMPLETED */ 00219000 TM SABASF9(SABAPTR),B'01000000' 0210 00220000 BO @RT00210 0210 00221000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00222000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00223000 OI SABASF9(SABAPTR),B'01000000' 0212 00224000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00225000 TM SABASF1(SABAPTR),B'10000000' 0213 00226000 BO @RT00213 0213 00227000 * GO TO LBLSCAN7; /* ANALYZE LOCATOR DATA */ 00228000 * END; /* BLSV2 */ 00229000 * END; /* BLSV12 */ 00230000 * SABAF=ESAUD; /* SET STORAGE ATTRIBUTES */ 00231000 MVC SABAF(60,SABAPTR),ESAUD 0217 00232000 * DO; /* BLSVM0 MF(EXECUTE,TST089) */ 00233000 * IF PVTFPFN>=PVTLPFN THEN 0219 00234000 CLC PVTFPFN(2,PVTPTR),PVTLPFN(PVTPTR) 0219 00235000 BL @RF00219 0219 00236000 * DO; /* INITIAL ANALYSIS ERROR */ 00237000 * ERRFB(TST089)=ZZZ1; 0221 00238000 OI ERRFB+2(SABAPTR),B'10000000' 0221 00239000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST089)); 0222 00240000 SLR @14,@14 0222 00241000 IC @14,SABASRC(,SABAPTR) 0222 00242000 SLR @08,@08 0222 00243000 IC @08,MSGLEVEL+2 0222 00244000 CR @14,@08 0222 00245000 BNL *+6 00246000 LR @14,@08 0222 00247000 STC @14,SABASRC(,SABAPTR) 0222 00248000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00249000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00250000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00251000 OI SABASF1(SABAPTR),B'11100000' 0225 00252000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00253000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0226 00254000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00255000 B LBLSCAN8 0227 00256000 * END; /* INITIAL ANALYSIS ERROR */ 00257000 * END; /* BLSVM0 MF(EXECUTE,TST089) */ 00258000 @RF00219 DS 0H 0230 00259000 * DO; /* BLSVM0 MF(EXECUTE,TST090) */ 00260000 * IF PVTFVR>PVTLVR THEN 0231 00261000 CLC PVTFVR(2,PVTPTR),PVTLVR(PVTPTR) 0231 00262000 BNH @RF00231 0231 00263000 * DO; /* INITIAL ANALYSIS ERROR */ 00264000 * ERRFB(TST090)=ZZZ1; 0233 00265000 OI ERRFB+3(SABAPTR),B'10000000' 0233 00266000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST090)); 0234 00267000 SLR @14,@14 0234 00268000 IC @14,SABASRC(,SABAPTR) 0234 00269000 SLR @08,@08 0234 00270000 IC @08,MSGLEVEL+3 0234 00271000 CR @14,@08 0234 00272000 BNL *+6 00273000 LR @14,@08 0234 00274000 STC @14,SABASRC(,SABAPTR) 0234 00275000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00276000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00277000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00278000 OI SABASF1(SABAPTR),B'11100000' 0237 00279000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00280000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0238 00281000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00282000 B LBLSCAN8 0239 00283000 * END; /* INITIAL ANALYSIS ERROR */ 00284000 * END; /* BLSVM0 MF(EXECUTE,TST090) */ 00285000 @RF00231 DS 0H 0242 00286000 * DO; /* BLSVM0 MF(EXECUTE,TST091) */ 00287000 * IF PVTLPRIV>=PVTLCSA THEN 0243 00288000 CLC PVTLPRIV(2,PVTPTR),PVTLCSA(PVTPTR) 0243 00289000 BL @RF00243 0243 00290000 * DO; /* INITIAL ANALYSIS ERROR */ 00291000 * ERRFB(TST091)=ZZZ1; 0245 00292000 OI ERRFB+4(SABAPTR),B'10000000' 0245 00293000 * SABASRC=MAX(SABASRC,MSGLEVEL(TST091)); 0246 00294000 SLR @14,@14 0246 00295000 IC @14,SABASRC(,SABAPTR) 0246 00296000 SLR @08,@08 0246 00297000 IC @08,MSGLEVEL+4 0246 00298000 CR @14,@08 0246 00299000 BNL *+6 00300000 LR @14,@08 0246 00301000 STC @14,SABASRC(,SABAPTR) 0246 00302000 * SABASF1=ZZZ1; /* ANALYSIS STARTED */ 00303000 * SABASF9=ZZZ1; /* ANALYSIS COMPLETE */ 00304000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00305000 OI SABASF1(SABAPTR),B'11100000' 0249 00306000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00307000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0250 00308000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00309000 B LBLSCAN8 0251 00310000 * END; /* INITIAL ANALYSIS ERROR */ 00311000 * END; /* BLSVM0 MF(EXECUTE,TST091) */ 00312000 @RF00243 DS 0H 0254 00313000 *LBLSCAN7: /* LOCATOR ANALYSIS */ 00314000 * IF SABAAST^=ZZZASTCV THEN /* NOT VIRTUAL STORAGE */ 00315000 LBLSCAN7 CLC SABAAST(2,SABAPTR),@CC00083 0254 00316000 BNE @RT00254 0254 00317000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00318000 * 0255 00319000 * /*****************************************************************/ 00320000 * /* */ 00321000 * /* BLSV79--SCAN EXIT LOCATOR ANALYSIS, MESSAGE TRANSMISSION, AND */ 00322000 * /* EPILOG */ 00323000 * /* */ 00324000 * /*****************************************************************/ 00325000 * 0256 00326000 * DO; /* BLSV79 */ 00327000 * 0256 00328000 * /***************************************************************/ 00329000 * /* */ 00330000 * /* BLSV7--ANALYZE LOCATOR DATA */ 00331000 * /* */ 00332000 * /***************************************************************/ 00333000 * 0257 00334000 * DO; /* BLSV7 */ 00335000 * ERRFNDX=DIM(MSGPTR)+1; /* ERROR INDEX */ 00336000 LA ERRFNDX,6 0258 00337000 * SAAUAS=ZZ6DQA; /* ADDRESS SPACE */ 00338000 L @14,ZZ2AZZ6P(,R9) 0259 00339000 MVC SAAUAS(16),ZZ6DQA(@14) 0259 00340000 * SAAUDTY=ZZZDTYM; /* DATA TYPE CODE */ 00341000 MVI SAAUDTY,C'M' 0260 00342000 * SAAUDTD=ZZZSYM40; /* RESET DATA NAME */ 00343000 MVC SAAUDTD(31),@CC00183 0261 00344000 * SAAUDTD(1:LENGTH('PCB'))='PCB';/* DATA NAME */ 00345000 MVC SAAUDTD(3),@CC01623 0262 00346000 * CALL BLSRPCK2; /* POINTER TEST 1 */ 00347000 BAL @14,BLSRPCK2 0263 00348000 * CALL BLSRPCK2; /* POINTER TEST 2 */ 00349000 BAL @14,BLSRPCK2 0264 00350000 * CALL BLSRPCK2; /* POINTER TEST 3 */ 00351000 BAL @14,BLSRPCK2 0265 00352000 * CALL BLSRPCK2; /* POINTER TEST 4 */ 00353000 BAL @14,BLSRPCK2 0266 00354000 * CALL BLSRPCK2; /* POINTER TEST 5 */ 00355000 BAL @14,BLSRPCK2 0267 00356000 * CALL BLSRPCK2; /* POINTER TEST 6 */ 00357000 BAL @14,BLSRPCK2 0268 00358000 * END; /* BLSV7 */ 00359000 * 0269 00360000 * /***************************************************************/ 00361000 * /* */ 00362000 * /* BLSV8--TRANSMIT SCAN MESSAGE(S) */ 00363000 * /* */ 00364000 * /***************************************************************/ 00365000 * 0270 00366000 *LBLSCAN8: 0270 00367000 * DO; /* BLSV8 */ 00368000 LBLSCAN8 DS 0H 0271 00369000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00370000 OI SABASF1(SABAPTR),B'10000000' 0271 00371000 * IF SABASRC=ZZZFLAGI|SABASRC=ZZ2ASE THEN 0276 00400000 LR @14,SABAPTR 0276 00401000 ALR @14,ERRFNDX 0276 00402000 TM ERRFB-1(@14),B'10000000' 0276 00403000 BNO @RF00276 0276 00404000 SLR @14,@14 0276 00405000 IC @14,MSGLEVEL-1(ERRFNDX) 0276 00406000 SLR @08,@08 0276 00407000 IC @08,ZZ2ASE(,R9) 0276 00408000 CR @14,@08 0276 00409000 BL @RF00276 0276 00410000 * CALL BLSUPUTV(ZZ2,MSGPTR(ERRFNDX)->VRBA); 0277 00411000 ST R9,@AL00001 0277 00412000 LR @14,ERRFNDX 0277 00413000 SLA @14,2 0277 00414000 L @14,MSGPTR-4(@14) 0277 00415000 ST @14,@AL00001+4 0277 00416000 L @08,ZZ2BVTP(,R9) 0277 00417000 L @15,BVTPUTVP(,@08) 0277 00418000 LA @01,@AL00001 0277 00419000 BALR @14,@15 0277 00420000 * END; /* PROCESS UNIQUE MESSAGES */ 00421000 @RF00276 AL ERRFNDX,@CF00051 0278 00422000 C ERRFNDX,@CF00158 0278 00423000 BNH @DL00275 0278 00424000 * IF ZZ2ASE<=8&SABASFS=ZZZ1 THEN 0279 00425000 * 0279 00426000 CLI ZZ2ASE(R9),8 0279 00427000 BH @RF00279 0279 00428000 TM SABASFS(SABAPTR),B'00010000' 0279 00429000 BNO @RF00279 0279 00430000 * /***********************************************************/ 00431000 * /* */ 00432000 * /* DIAGNOSE DAMAGED POINTER(S) */ 00433000 * /* */ 00434000 * /***********************************************************/ 00435000 * 0280 00436000 * DO ERRFNDX=DIM(MSGPTR)+1 TO DIM(MSGPTR)+DIM(FVAL); 0280 00437000 LA ERRFNDX,6 0280 00438000 @DL00280 DS 0H 0281 00439000 * IF ERRFB(ERRFNDX)=ZZZ1 THEN/* DAMAGED POINTER */ 00440000 * 0281 00441000 LR @14,SABAPTR 0281 00442000 ALR @14,ERRFNDX 0281 00443000 TM ERRFB-1(@14),B'10000000' 0281 00444000 BNO @RF00281 0281 00445000 * /*******************************************************/ 00446000 * /* */ 00447000 * /* DAMAGED POINTER */ 00448000 * /* */ 00449000 * /*******************************************************/ 00450000 * 0282 00451000 * DO; /* DAMAGED POINTER */ 00452000 * FNAMENDX=ERRFNDX-DIM(MSGPTR);/* FNAME/FVAL INDEX */ 00453000 LR FNAMENDX,ERRFNDX 0283 00454000 SL FNAMENDX,@CF00158 0283 00455000 * MV99B=MV99S; /* MESSAGE MV99 LITERAL TEXT */ 00456000 MVC MV99B(60),MV99S 0284 00457000 * MV99BTD=FNAME(FNAMENDX);/* NAME OF DAMAGED POINTER */ 00458000 LR @14,FNAMENDX 0285 00459000 SLA @14,3 0285 00460000 LA @08,FNAME-8(@14) 0285 00461000 MVC MV99BTD(8),0(@08) 0285 00462000 * DO; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00463000 * POINTER)TO(CHARACTER)SET(MV99B 00464000 * TF)REMARK(CONTENTS OF DAMAGED 00465000 * POINTER)TR(ZZ1TRHEX) */ 00466000 * 0286 00467000 * /***************************************************/ 00468000 * /* */ 00469000 * /* CONTENTS OF DAMAGED POINTER */ 00470000 * /* */ 00471000 * /***************************************************/ 00472000 * 0287 00473000 * PTRPTR=FVAL(FNAMENDX);/* SOURCE TO BIT/POINTER 0287 00474000 * INTERMEDIATE */ 00475000 LR @14,FNAMENDX 0287 00476000 SLA @14,2 0287 00477000 L @14,FVAL-4(@14) 0287 00478000 ST @14,PTRPTR 0287 00479000 * UNPK(MV99BTF(1:LENGTH(MV99BTF)-1),PTRBIT);/* 0288 00480000 * BIT=>ZONED HEXADECIMAL */ 00481000 UNPK MV99BTF(7),PTRBIT(4) 0288 00482000 * MV99BTF(LENGTH(MV99BTF):LENGTH(MV99BTF))=PTRBIT(25:32 00483000 * ); /* FINAL ZONED HEXADECIMAL DIGIT */ 00484000 MVC MV99BTF+7(1),PTRBIT+3 0289 00485000 * TR(MV99BTF,ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC */ 00486000 L @14,ZZ2ZZ1P(,R9) 0290 00487000 TR MV99BTF(8),ZZ1TRHEX(@14) 0290 00488000 * END; /* BLRCNVPC(FVAL(FNAMENDX)) FROM( 00489000 * POINTER)TO(CHARACTER)SET(MV99B 00490000 * TF)REMARK(CONTENTS OF DAMAGED 00491000 * POINTER)TR(ZZ1TRHEX) */ 00492000 * CALL BLSUMPKN(ZZ2,MV99B,LENGTH(MV99BTA)+LENGTH(MV99BTB) 00493000 * ); /* COMPRESS MESSAGE MV99 */ 00494000 ST R9,@AL00001 0292 00495000 LA @14,MV99B 0292 00496000 ST @14,@AL00001+4 0292 00497000 LA @14,@CF00037 0292 00498000 ST @14,@AL00001+8 0292 00499000 L @08,ZZ2BVTP(,R9) 0292 00500000 L @15,BVTMPKNP(,@08) 0292 00501000 LA @01,@AL00001 0292 00502000 BALR @14,@15 0292 00503000 * CALL BLSUPUTV(ZZ2,MV99B);/* DISPLAY MESSAGE MV99 */ 00504000 ST R9,@AL00001 0293 00505000 LA @14,MV99B 0293 00506000 ST @14,@AL00001+4 0293 00507000 L @08,ZZ2BVTP(,R9) 0293 00508000 L @15,BVTPUTVP(,@08) 0293 00509000 LA @01,@AL00001 0293 00510000 BALR @14,@15 0293 00511000 * END; /* DAMAGED POINTER */ 00512000 * END; /* DIAGNOSE DAMAGED POINTERS */ 00513000 @RF00281 AL ERRFNDX,@CF00051 0295 00514000 C ERRFNDX,@CF00038 0295 00515000 BNH @DL00280 0295 00516000 * END; /* BLSV8 */ 00517000 * 0296 00518000 @RF00279 DS 0H 0297 00519000 * /***************************************************************/ 00520000 * /* */ 00521000 * /* BLSV9--SCAN EPILOG */ 00522000 * /* */ 00523000 * /***************************************************************/ 00524000 * 0297 00525000 *EXIT: 0297 00526000 * RETURN CODE(RETC); 0297 00527000 EXIT L @13,4(,@13) 0297 00528000 L @00,@SIZDATD 0297 00529000 LR @01,@11 0297 00530000 BLSUFRES R,LV=(0),A=(1) 00531000 LR @15,@05 0297 00532000 L @14,12(,@13) 0297 00533000 LM @00,@12,20(@13) 0297 00534000 BR @14 0297 00535000 * END; /* BLSV79 */ 00536000 EJECT 00537000 * 0299 00538000 */*------------------------------------------------------------------*/ 00539000 */* BLSRPCK2--EVALUATE AN OPTIONAL LOCATOR */ 00540000 */*------------------------------------------------------------------*/ 00541000 * 0299 00542000 *BLSRPCK2: /* EVALUATE AN OPTIONAL LOCATOR */ 00543000 * PROCEDURE; 0299 00544000 BLSRPCK2 STM @14,@03,@SA00002 0299 00545000 STM @05,@12,@SA00002+24 0299 00546000 * DECLARE 0300 00547000 * 1 PCHK POINTER DEFINED(SAAULAD),/* LOCATOR VALIDATION DATA */ 00548000 * 2 PCHK24IG BIT(8), /* IGNORED IN 24-BIT ADDRESS */ 00549000 * 2 PCHK24 POINTER(24); /* 24-BIT INTERPRETATION */ 00550000 * ERLF=ERRF(ERRFNDX); /* ERROR FLAGS */ 00551000 LR @14,SABAPTR 0301 00552000 ALR @14,ERRFNDX 0301 00553000 MVC ERLF(1),ERRF-1(@14) 0301 00554000 * IF ERLFD=ZZZ1 THEN /* LOCATOR TEST COMPLETE */ 00555000 TM ERLFD,B'01000000' 0302 00556000 BO @RT00302 0302 00557000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 00558000 * SAAULAD=FVAL(ERRFNDX-DIM(MSGPTR));/* INSERT VALUE */ 00559000 LR @14,ERRFNDX 0304 00560000 SLA @14,2 0304 00561000 L @14,FVAL-24(@14) 0304 00562000 ST @14,SAAULAD 0304 00563000 * IF PCHK24=0 THEN /* NULL LOCATOR */ 00564000 L @14,PCHK24-1 0305 00565000 LA @14,0(,@14) 0305 00566000 LTR @14,@14 0305 00567000 BNZ @RF00305 0305 00568000 * ERLFN=ZZZ1; /* NULL LOCATOR */ 00569000 OI ERLFN,B'00100000' 0306 00570000 * ELSE /* LOCATOR NOT NULL */ 00571000 * 0307 00572000 * /***************************************************************/ 00573000 * /* */ 00574000 * /* LOCATOR NOT NULL */ 00575000 * /* */ 00576000 * /***************************************************************/ 00577000 * 0307 00578000 * DO; /* LOCATOR NOT NULL */ 00579000 B @RC00305 0307 00580000 @RF00305 DS 0H 0308 00581000 * PCHK24IG='00'X; /* ELIMINATE EXTRANEOUS BITS */ 00582000 MVI PCHK24IG,X'00' 0308 00583000 * CALL BLSRSAG(ZZ2,SAAU,SABA);/* PROCESS THE SA RECORD */ 00584000 ST R9,@AL00001 0309 00585000 LA @14,SAAU 0309 00586000 ST @14,@AL00001+4 0309 00587000 ST SABAPTR,@AL00001+8 0309 00588000 L @08,ZZ2RVTP(,R9) 0309 00589000 L @15,RVTRSAGP(,@08) 0309 00590000 LA @01,@AL00001 0309 00591000 BALR @14,@15 0309 00592000 * IF SAAUSF1=ZZZ0 THEN /* SCAN STARTED */ 00593000 * 0310 00594000 TM SAAUSF1,B'10000000' 0310 00595000 BNZ @RF00310 0310 00596000 * /***********************************************************/ 00597000 * /* */ 00598000 * /* LOCATOR TEST INCOMPLETE */ 00599000 * /* */ 00600000 * /***********************************************************/ 00601000 * 0311 00602000 * DO; /* LOCATOR TEST INCOMPLETE */ 00603000 * SABASF9=ZZZ0; /* SCAN NOT COMPLETE */ 00604000 NI SABASF9(SABAPTR),B'10111111' 0312 00605000 * GO TO PCHKEXIT; /* COMMON EXIT PATH */ 00606000 B PCHKEXIT 0313 00607000 * END; /* LOCATOR TEST INCOMPLETE */ 00608000 * IF SAAUSRC>ZZZFLAGE THEN /* LOCATOR ERROR */ 00609000 * 0315 00610000 @RF00310 CLI SAAUSRC,8 0315 00611000 BNH @RF00315 0315 00612000 * /***********************************************************/ 00613000 * /* */ 00614000 * /* LOCATOR ERROR */ 00615000 * /* */ 00616000 * /***********************************************************/ 00617000 * 0316 00618000 * DO; /* LOCATOR ERROR */ 00619000 * SABASRC=ZZZFLAGE; /* SCAN RETURN CODE */ 00620000 MVI SABASRC(SABAPTR),X'08' 0317 00621000 * SABASFS=ZZZ1; /* STORAGE REQUIRED FOR 0318 00622000 * MESSAGE(S) */ 00623000 OI SABASFS(SABAPTR),B'00010000' 0318 00624000 * ERLFB=ZZZ1; /* LOCATOR ERROR */ 00625000 OI ERLFB,B'10000000' 0319 00626000 * END; /* LOCATOR ERROR */ 00627000 * END; /* LOCATOR NOT NULL */ 00628000 @RF00315 DS 0H 0322 00629000 * ERLFD=ZZZ1; /* LOCATOR TEST COMPLETE */ 00630000 @RC00305 OI ERLFD,B'01000000' 0322 00631000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00632000 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0323 00633000 *PCHKEXIT: /* COMMON EXIT PATH */ 00634000 * ERRF(ERRFNDX)=ERLF; /* ERROR FLAGS */ 00635000 PCHKEXIT LR @14,SABAPTR 0324 00636000 ALR @14,ERRFNDX 0324 00637000 MVC ERRF-1(1,@14),ERLF 0324 00638000 * ERRFNDX=ERRFNDX+1; /* ERROR INDEX */ 00639000 AL ERRFNDX,@CF00051 0325 00640000 * RETURN; 0326 00641000 @EL00002 DS 0H 0326 00642000 @EF00002 DS 0H 0326 00643000 @ER00002 LM @14,@03,@SA00002 0326 00644000 LM @05,@12,@SA00002+24 0326 00645000 BR @14 0326 00646000 * END BLSRPCK2; 0327 00647000 * 0327 00648000 */*BLSVPEND--SCAN EXIT */ 00649000 */*BLSRPEND--DEBUGGING MODULE */ 00650000 */*BLSUPEND--MVS IPCS MODULE */ 00651000 * 0328 00652000 * DECLARE /* DATA FOR AHB MACROS */ 00653000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 00654000 * POINTER DATA */ 00655000 * PTRPTR POINTER DEFINED(PTRBIT);/* DATA CONVERSION WORK AREA FOR 00656000 * POINTER DATA */ 00657000 * DECLARE /* COMMON VARIABLES */ 00658000 * I256C CHAR(256) BASED, 0329 00659000 * I031F FIXED(31) BASED, 0329 00660000 * I031P PTR(31) BASED, 0329 00661000 * I015F FIXED(15) BASED, 0329 00662000 * I015P PTR(15) BASED, 0329 00663000 * I008P PTR(8) BASED, 0329 00664000 * I001C CHAR(1) BASED; 0329 00665000 * GENERATE NODEFS NOREFS DATA; 0330 00666000 * END BLSVPVT /* BLRPEND(BLSVPVT) */ 00667000 * 0331 00668000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00669000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00670000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00671000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00672000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00673000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00674000 */*%INCLUDE SYSLIB (IKJECT ) */ 00675000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00676000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00677000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00678000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00679000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00680000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00681000 * 0331 00682000 * ; 0331 00683000 @EL00001 L @13,4(,@13) 0331 00684000 @EF00001 L @00,@SIZDATD 0331 00685000 LR @01,@11 0331 00686000 BLSUFRES R,LV=(0),A=(1) 00687000 @ER00001 LM @14,@12,12(@13) 0331 00688000 BR @14 0331 00689000 @DATA DS 0H 00690000 @DATD DSECT 00691000 DS 0F 00692000 @SA00001 DS 18F 00693000 @PC00001 DS 3F 00694000 @SA00002 DS 14F 00695000 @AL00001 DS 3A 00696000 BLSVPVT CSECT 00697000 DS 0F 00698000 @CF00051 DC F'1' 00699000 @CF00158 DC F'5' 00700000 @CF00442 DC F'7' 00701000 @CF00038 DC F'11' 00702000 @CH00038 EQU @CF00038+2 00703000 @CF00037 DC F'12' 00704000 @CF01647 DC F'1936' 00705000 @DATD DSECT 00706000 DS 0D 00707000 ESAU DS CL694 00708000 ORG ESAU 00709000 ESAURID DS CL2 00710000 @NM00031 DS BL6 00711000 @NM00032 DS CL8 00712000 @NM00033 DS BL8 00713000 ESAURDX DS FL4 00714000 ESAUSYM DS CL31 00715000 ESAUELK DS 0C 00716000 ESAURV1 DS CL1 00717000 ESAUAS DS CL16 00718000 ORG ESAUAS 00719000 ESAUAS0 DS 0C 00720000 ESAUAST DS CL2 00721000 @NM00034 DS BL2 00722000 ESAUAS1 DS FL4 00723000 ESAUAS2 DS FL4 00724000 @NM00035 DS BL4 00725000 ESAUAS9 DS 0C 00726000 ORG ESAU+76 00727000 ESAULAD DS AL4 00728000 ESAUD DS CL60 00729000 ORG ESAUD 00730000 ESAUD00 DS 0C 00731000 ESAUDOF DS FL4 00732000 ESAUDLE DS FL4 00733000 ESAUDOB DS FL1 00734000 ESAUDLB DS FL1 00735000 ESAUDT DS CL34 00736000 ORG ESAUDT 00737000 ESAUDT0 DS 0C 00738000 ESAUDTY DS CL1 00739000 @NM00036 DS BL1 00740000 ESAUDTD DS CL31 00741000 ESAUDTE DS CL1 00742000 ESAUDT9 DS 0C 00743000 ORG ESAUD+44 00744000 ESAUDIM DS FL4 00745000 ESAUDIL DS FL4 00746000 ESAUDF DS BL4 00747000 ORG ESAUDF 00748000 ESAUDFA DS BL1 00749000 @NM00037 EQU ESAUDF+0 00750000 ORG ESAUD+56 00751000 @NM00038 DS BL4 00752000 ESAUD99 DS 0C 00753000 ORG ESAU+140 00754000 ESAUMAD DS AL4 00755000 @NM00039 DS BL16 00756000 ESAUKEY DS BL1 00757000 ESAUF DS BL3 00758000 ORG ESAUF 00759000 ESAUFS DS BL1 00760000 ORG ESAUFS 00761000 ESAUFSC DS BL1 00762000 ESAUFS2 EQU ESAUFS+0 00763000 ESAUFSM EQU ESAUFS+0 00764000 ESAUFSA EQU ESAUFS+0 00765000 ESAUFSP EQU ESAUFS+0 00766000 ESAUFSR EQU ESAUFS+0 00767000 ESAUFSX EQU ESAUFS+0 00768000 ESAUFSS EQU ESAUFS+0 00769000 ORG ESAUF+1 00770000 ESAUFC DS BL1 00771000 ORG ESAUFC 00772000 ESAUFCD DS BL1 00773000 @NM00040 EQU ESAUFC+0 00774000 ORG ESAUF+2 00775000 @NM00041 DS BL1 00776000 ORG ESAU+164 00777000 ESAUABS DS FL4 00778000 @NM00042 DS BL12 00779000 ESAUR DS CL514 00780000 ORG ESAUR 00781000 ESAURL DS FL2 00782000 ESAURT DS CL512 00783000 ORG ESAURT 00784000 ESAURT1 DS CL512 00785000 ORG ESAU+694 00786000 ESAU999 DS 0C 00787000 ORG ESAU+694 00788000 DS CL2 00789000 SAAU DS CL3072 00790000 ORG SAAU 00791000 SAAURID DS CL2 00792000 @NM00137 DS BL6 00793000 SAAURDX DS FL4 00794000 SAAUAS DS CL16 00795000 ORG SAAUAS 00796000 SAAUAS0 DS 0C 00797000 SAAUAST DS CL2 00798000 @NM00138 DS BL2 00799000 SAAUAS1 DS FL4 00800000 SAAUAS2 DS FL4 00801000 @NM00139 DS BL4 00802000 SAAUAS9 DS 0C 00803000 ORG SAAU+28 00804000 SAAULAD DS AL4 00805000 SAAUDT DS CL34 00806000 ORG SAAUDT 00807000 SAAUDT0 DS 0C 00808000 SAAUDTY DS CL1 00809000 @NM00140 DS BL1 00810000 SAAUDTD DS CL31 00811000 SAAUDTE DS CL1 00812000 SAAUDT9 DS 0C 00813000 ORG SAAU+66 00814000 SAAUELK DS 0C 00815000 @NM00141 DS BL2 00816000 SAAUF DS CL60 00817000 ORG SAAUF 00818000 SAAUF00 DS 0C 00819000 SAAUFOF DS FL4 00820000 SAAUFLE DS FL4 00821000 SAAUFOB DS FL1 00822000 SAAUFLB DS FL1 00823000 SAAUFT DS CL34 00824000 ORG SAAUFT 00825000 SAAUFT0 DS 0C 00826000 SAAUFTY DS CL1 00827000 @NM00142 DS BL1 00828000 SAAUFTD DS CL31 00829000 SAAUFTE DS CL1 00830000 SAAUFT9 DS 0C 00831000 ORG SAAUF+44 00832000 SAAUFIM DS FL4 00833000 SAAUFIL DS FL4 00834000 SAAUFF DS BL4 00835000 ORG SAAUFF 00836000 SAAUFFA DS BL1 00837000 @NM00143 EQU SAAUFF+0 00838000 ORG SAAUF+56 00839000 @NM00144 DS BL4 00840000 SAAUF99 DS 0C 00841000 ORG SAAU+128 00842000 SAAUSF DS BL8 00843000 ORG SAAUSF 00844000 SAAUSF1 DS BL1 00845000 SAAUSF9 EQU SAAUSF+0 00846000 SAAUSFI EQU SAAUSF+0 00847000 SAAUSFS EQU SAAUSF+0 00848000 @NM00145 EQU SAAUSF+0 00849000 ORG SAAU+136 00850000 SAAUGMT DS BL8 00851000 SAAUPGV DS CL8 00852000 SAAUSRC DS FL1 00853000 @NM00146 DS 101BL1 00854000 SAAUC DS CL2818 00855000 ORG SAAUC 00856000 SAAUCL DS FL2 00857000 SAAUCT DS CL2816 00858000 ORG SAAUCT 00859000 SAAUCT1 DS CL2816 00860000 ORG SAAU+3072 00861000 SAAU999 DS 0C 00862000 ORG SAAU+3072 00863000 MV99B DS CL60 00864000 ORG MV99B 00865000 MV99BL DS FL2 00866000 @NM00148 DS BL2 00867000 MV99BT DS CL56 00868000 ORG MV99BT 00869000 MV99BTA DS CL9 00870000 MV99BTB DS CL3 00871000 MV99BTC DS CL8 00872000 MV99BTD DS CL8 00873000 MV99BTE DS CL1 00874000 MV99BTF DS CL8 00875000 MV99BTG DS CL19 00876000 ORG MV99B+60 00877000 ERLF DS BL1 00878000 ORG ERLF 00879000 ERLFB DS BL1 00880000 ERLFD EQU ERLF+0 00881000 ERLFN EQU ERLF+0 00882000 ERLFS EQU ERLF+0 00883000 @NM00150 EQU ERLF+0 00884000 ORG ERLF+1 00885000 DS CL3 00886000 BUF DS CL1936 00887000 PTRBIT DS BL4 00888000 FVAL DS 6A 00889000 BLSVPVT CSECT 00890000 DS 0F 00891000 @SIZDATD DC AL1(0) 00892000 DC AL3(@ENDDATD-@DATD) 00893000 DS 0D 00894000 @CC00183 DC C' ' 00895000 @CC01623 DC C'PCB' 00896000 @CC00083 DC C'CV' 00897000 MV01 DS CL46 00898000 ORG MV01 00899000 MV01L DC AL2(46) 00900000 @NM00056 DC X'0000' 00901000 MV01T DS CL42 00902000 ORG MV01T 00903000 MV01TA DC CL9'BLS22088I' 00904000 MV01TB DC CL3' ' 00905000 MV01TC DC CL30'PVT NOT ON DOUBLEWORD BOUNDARY' 00906000 ORG MV01+46 00907000 MV02 DS CL39 00908000 ORG MV02 00909000 MV02L DC AL2(39) 00910000 @NM00057 DC X'0000' 00911000 MV02T DS CL35 00912000 ORG MV02T 00913000 MV02TA DC CL9'BLS22087I' 00914000 MV02TB DC CL3' ' 00915000 MV02TC DC CL23'PVT STORAGE NOT IN DUMP' 00916000 ORG MV02+39 00917000 DS CL1 00918000 MV03 DS CL51 00919000 ORG MV03 00920000 MV03L DC AL2(51) 00921000 @NM00134 DC X'0000' 00922000 MV03T DS CL47 00923000 ORG MV03T 00924000 MV03TA DC CL9'BLS22089I' 00925000 MV03TB DC CL3' ' 00926000 MV03TC DC CL35'PVTFPFN GREATER OR EQUAL TO PVTLPFN' 00927000 ORG MV03+51 00928000 DS CL1 00929000 MV04 DS CL42 00930000 ORG MV04 00931000 MV04L DC AL2(42) 00932000 @NM00135 DC X'0000' 00933000 MV04T DS CL38 00934000 ORG MV04T 00935000 MV04TA DC CL9'BLS22090I' 00936000 MV04TB DC CL3' ' 00937000 MV04TC DC CL26'PVTFVR GREATER THAN PVTLVR' 00938000 ORG MV04+42 00939000 MV05 DS CL52 00940000 ORG MV05 00941000 MV05L DC AL2(52) 00942000 @NM00136 DC X'0000' 00943000 MV05T DS CL48 00944000 ORG MV05T 00945000 MV05TA DC CL9'BLS22091I' 00946000 MV05TB DC CL3' ' 00947000 MV05TC DC CL36'PVTLPRIV GREATER OR EQUAL TO PVTLCSA' 00948000 ORG MV05+52 00949000 MV99S DS CL60 00950000 ORG MV99S 00951000 MV99SL DC AL2(60) 00952000 @NM00147 DC X'0000' 00953000 MV99ST DS CL56 00954000 ORG MV99ST 00955000 MV99STA DC CL9'BLS22092I' 00956000 MV99STB DC CL3' ' 00957000 MV99STC DC CL8'LOCATOR ' 00958000 MV99STD DC CL8' ' 00959000 MV99STE DC CL1'=' 00960000 MV99STF DC CL8' ' 00961000 MV99STG DC CL19'. IT MAY BE DAMAGED' 00962000 ORG MV99S+60 00963000 FNAME DC CL8'PVTFPCBF' 00964000 DC CL8'PVTFPCBL' 00965000 DC CL8'PVTGFADF' 00966000 DC CL8'PVTGFADL' 00967000 DC CL8'PVTCIOQF' 00968000 DC CL8'PVTCIOQL' 00969000 MSGPTR DC AL4(MV01) 00970000 DC AL4(MV02) 00971000 DC AL4(MV03) 00972000 DC AL4(MV04) 00973000 DC AL4(MV05) 00974000 MSGLEVEL DC AL1(12) 00975000 DC AL1(4) 00976000 DC AL1(12) 00977000 DC AL1(12) 00978000 DC AL1(12) 00979000 @DATD DSECT 00980000 SPACE 2 00981000 *********************************************************************** 00982000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00983000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00984000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00985000 *********************************************************************** 00986000 SPACE 00987000 BLSVPVT CSECT 00988000 ORG 00989000 DS 0D 00990000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSVPVT+19)/20+7)/8)CL8'BLSVPVT' 00991000 @DATD DSECT 00992000 DS 0H 00993000 @DATD DSECT 00994000 SPACE 2 00995000 *********************************************************************** 00996000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00997000 *********************************************************************** 00998000 SPACE 00999000 DS 0D 01000000 @DATD DSECT 01001000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01002000 @ENDDATD EQU * 01003000 BLSVPVT CSECT 01004000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01005000 @01 EQU 01 01006000 @02 EQU 02 01007000 @03 EQU 03 01008000 @04 EQU 04 01009000 @05 EQU 05 01010000 @06 EQU 06 01011000 @07 EQU 07 01012000 @08 EQU 08 01013000 @09 EQU 09 01014000 @10 EQU 10 01015000 @11 EQU 11 01016000 @12 EQU 12 01017000 @13 EQU 13 01018000 @14 EQU 14 01019000 @15 EQU 15 01020000 FNAMENDX EQU @06 01021000 ERRFNDX EQU @04 01022000 PVTPTR EQU @04 01023000 RETC EQU @05 01024000 SABAPTR EQU @03 01025000 R9 EQU @09 01026000 R0 EQU @00 01027000 R1 EQU @01 01028000 R2 EQU @02 01029000 R3 EQU @03 01030000 R4 EQU @04 01031000 R5 EQU @05 01032000 RB EQU @11 01033000 RD EQU @13 01034000 RE EQU @14 01035000 RF EQU @15 01036000 RA EQU @10 01037000 RC EQU @12 01038000 R6 EQU @06 01039000 R7 EQU @07 01040000 R8 EQU @08 01041000 SABA EQU 0 01042000 SABAAS EQU SABA+12 01043000 SABAAST EQU SABAAS 01044000 SABALAD EQU SABA+28 01045000 SABADT EQU SABA+32 01046000 SABAF EQU SABA+68 01047000 SABAFT EQU SABAF+10 01048000 SABAFF EQU SABAF+52 01049000 SABASF EQU SABA+128 01050000 SABASF1 EQU SABASF 01051000 SABASF9 EQU SABASF 01052000 SABASFI EQU SABASF 01053000 SABASFS EQU SABASF 01054000 SABAGMT EQU SABA+136 01055000 SABASRC EQU SABA+152 01056000 SABAC EQU SABA+254 01057000 SABACL EQU SABAC 01058000 SABACT EQU SABAC+2 01059000 ESCO EQU 0 01060000 ESCOAS EQU ESCO+60 01061000 ESCOD EQU ESCO+80 01062000 ESCODT EQU ESCOD+10 01063000 ESCODF EQU ESCOD+52 01064000 ESCOF EQU ESCO+161 01065000 ESCOFS EQU ESCOF 01066000 ESCOFC EQU ESCOF+1 01067000 ESCOR EQU ESCO+180 01068000 ESCORT EQU ESCOR+2 01069000 VRBA EQU 0 01070000 VRBAT EQU VRBA+4 01071000 ZZ1 EQU 0 01072000 ZZ1ATTN EQU ZZ1+360 01073000 ZZ1EVE EQU ZZ1ATTN+4 01074000 ZZ1EVEP EQU ZZ1EVE 01075000 ZZ1F EQU ZZ1+368 01076000 ZZ1TRHEX EQU ZZ1+568 01077000 ZZ1N EQU ZZ1+1116 01078000 ZZ2 EQU 0 01079000 ZZ2AMD EQU ZZ2 01080000 @NM00070 EQU ZZ2AMD+7 01081000 ZZ2PRT EQU ZZ2+138 01082000 ZZ2PRTT EQU ZZ2PRT+4 01083000 ZZ2PRTT1 EQU ZZ2PRTT+1 01084000 ZZ2A EQU ZZ2+272 01085000 ZZ2ASE EQU ZZ2A+2 01086000 ZZ2AF EQU ZZ2A+16 01087000 ZZ2APID EQU ZZ2A+64 01088000 ZZ2AD EQU ZZ2A+74 01089000 ZZ2ADD EQU ZZ2AD 01090000 ZZ2ADDT EQU ZZ2ADD+2 01091000 ZZ2ADM EQU ZZ2AD+46 01092000 ZZ2ADMT EQU ZZ2ADM+2 01093000 ZZ2ADP EQU ZZ2AD+56 01094000 ZZ2ADPT EQU ZZ2ADP+2 01095000 ZZ2AZZ6P EQU ZZ2A+140 01096000 ZZ2AQAS EQU ZZ2A+144 01097000 ZZ2AQD EQU ZZ2A+160 01098000 ZZ2AQDT EQU ZZ2AQD+10 01099000 ZZ2AQDF EQU ZZ2AQD+52 01100000 ZZ2STG EQU ZZ2+960 01101000 ZZ2TOD EQU ZZ2+968 01102000 ZZ2ALLOP EQU ZZ2+992 01103000 ZZ2FREEP EQU ZZ2+996 01104000 ZZ2FF19P EQU ZZ2+1000 01105000 ZZ2FRE1P EQU ZZ2+1004 01106000 ZZ2FF18P EQU ZZ2+1008 01107000 ZZ2DYNAP EQU ZZ2+1012 01108000 ZZ2ZZ2CP EQU ZZ2+1016 01109000 ZZ2ZZ2DP EQU ZZ2+1020 01110000 ZZ2STAIP EQU ZZ2+1024 01111000 ZZ2FF02P EQU ZZ2+1028 01112000 ZZ2GETLP EQU ZZ2+1032 01113000 ZZ2PARSP EQU ZZ2+1036 01114000 ZZ2PTGTP EQU ZZ2+1040 01115000 ZZ2PUTLP EQU ZZ2+1044 01116000 ZZ2SCANP EQU ZZ2+1048 01117000 ZZ2STCKP EQU ZZ2+1052 01118000 ZZ2TRMOP EQU ZZ2+1064 01119000 ZZ2TRMVP EQU ZZ2+1068 01120000 ZZ2PUTNP EQU ZZ2+1084 01121000 ZZ2TRMNP EQU ZZ2+1088 01122000 ZZ2ZZ1P EQU ZZ2+1264 01123000 ZZ2BVTP EQU ZZ2+1280 01124000 ZZ2RVTP EQU ZZ2+1284 01125000 ZZ2CPPL EQU ZZ2+1292 01126000 ZZ2CPPLC EQU ZZ2CPPL 01127000 ZZ2ESSYP EQU ZZ2+1328 01128000 ZZ2ITR EQU ZZ2+2840 01129000 ZZ2ITRE EQU ZZ2ITR+16 01130000 ZZ2ITSE EQU ZZ2+2864 01131000 ZZ2ES EQU ZZ2+2872 01132000 ZZ2AMDX EQU ZZ2+7160 01133000 ZZ2AXO EQU ZZ2+7934 01134000 ZZ2AXOT EQU ZZ2AXO+2 01135000 CMD EQU 0 01136000 CMDT EQU CMD+4 01137000 PSCB EQU 0 01138000 PSCBATR1 EQU PSCB+16 01139000 ECT EQU 0 01140000 ECTSWS EQU ECT+28 01141000 ECTSWS2 EQU ECT+40 01142000 ECTSWS21 EQU ECTSWS2 01143000 UPT EQU 0 01144000 UPTSWS EQU UPT+12 01145000 SA EQU 0 01146000 SA1 EQU SA 01147000 SAR EQU SA+12 01148000 SAR1 EQU SAR+12 01149000 BLSUMPKN EQU 0 01150000 BLSUPUTV EQU 0 01151000 BVT EQU 0 01152000 BVTPUTLP EQU BVT+4 01153000 BVTPUTOP EQU BVT+12 01154000 BVTPUTTP EQU BVT+16 01155000 BVTPUTVP EQU BVT+20 01156000 BVTPUTAP EQU BVT+24 01157000 BVTPRTTP EQU BVT+28 01158000 BVTPRTAP EQU BVT+32 01159000 BVTPUTDP EQU BVT+36 01160000 BVTMONP EQU BVT+40 01161000 BVTMON2P EQU BVT+44 01162000 BVTVSARP EQU BVT+48 01163000 BVTVSENP EQU BVT+64 01164000 BVTVSERP EQU BVT+68 01165000 BVTVSGEP EQU BVT+72 01166000 BVTVSGUP EQU BVT+76 01167000 BVTVSPOP EQU BVT+80 01168000 BVTVSPUP EQU BVT+84 01169000 BVTMPKNP EQU BVT+104 01170000 BVTMONLP EQU BVT+108 01171000 BVTPUTCP EQU BVT+132 01172000 BVTMPK1P EQU BVT+136 01173000 BVTZZ2RP EQU BVT+140 01174000 BVTPGMRP EQU BVT+144 01175000 BVTMONAP EQU BVT+148 01176000 BVTBLDDP EQU BVT+152 01177000 BVTBLDLP EQU BVT+156 01178000 BVTPGMCP EQU BVT+160 01179000 BVTPGMDP EQU BVT+164 01180000 BVTPGMLP EQU BVT+168 01181000 BVTMONCP EQU BVT+180 01182000 BVTMONDP EQU BVT+184 01183000 BVTMONTP EQU BVT+188 01184000 BVTPARIP EQU BVT+192 01185000 BVTPARUP EQU BVT+196 01186000 BVTPRTNP EQU BVT+204 01187000 BVTVSCRP EQU BVT+208 01188000 BVTVSMRP EQU BVT+212 01189000 BVTMONXP EQU BVT+216 01190000 BVTTRMAP EQU BVT+228 01191000 ZZ6 EQU 0 01192000 ZZ6D EQU ZZ6+128 01193000 ZZ6DD EQU ZZ6D+8 01194000 ZZ6DDT EQU ZZ6DD+4 01195000 ZZ6DQA EQU ZZ6D+68 01196000 ZZ6DF EQU ZZ6D+92 01197000 ZZ6B EQU ZZ6+768 01198000 BLSRACCQ EQU 0 01199000 BLSRSAG EQU 0 01200000 BLSRSAPC EQU 0 01201000 RVT EQU 0 01202000 RVTADDRP EQU RVT 01203000 RVTT01P EQU RVT+4 01204000 RVTTAP EQU RVT+8 01205000 RVTTBP EQU RVT+12 01206000 RVTTCP EQU RVT+16 01207000 RVTTFP EQU RVT+24 01208000 RVTTYP EQU RVT+40 01209000 RVTT02P EQU RVT+48 01210000 RVTT03P EQU RVT+52 01211000 RVTT04P EQU RVT+56 01212000 RVTACCLP EQU RVT+60 01213000 RVTRACCP EQU RVT+64 01214000 RVTTLP EQU RVT+68 01215000 RVTTMP EQU RVT+72 01216000 RVTTUP EQU RVT+80 01217000 RVTESGEP EQU RVT+84 01218000 RVTESGUP EQU RVT+88 01219000 RVTESARP EQU RVT+92 01220000 RVTRAARP EQU RVT+96 01221000 RVTRAGEP EQU RVT+100 01222000 RVTADDPP EQU RVT+104 01223000 RVTACCQP EQU RVT+108 01224000 RVTSAGUP EQU RVT+124 01225000 RVTSAGEP EQU RVT+128 01226000 RVTESCKP EQU RVT+132 01227000 RVTMSGAP EQU RVT+136 01228000 RVTMSGDP EQU RVT+140 01229000 RVTADDTP EQU RVT+160 01230000 RVTADDUP EQU RVT+164 01231000 RVTADD1P EQU RVT+176 01232000 RVTADD2P EQU RVT+180 01233000 RVTRSAGP EQU RVT+184 01234000 RVTMSGBP EQU RVT+188 01235000 RVTADDSP EQU RVT+192 01236000 RVTADD3P EQU RVT+196 01237000 RVTT05P EQU RVT+200 01238000 RVTPADSP EQU RVT+204 01239000 RVTTRP EQU RVT+228 01240000 RVTADD4P EQU RVT+232 01241000 RVTSAPCP EQU RVT+236 01242000 RVTSAARP EQU RVT+240 01243000 RVTSAGNP EQU RVT+244 01244000 RVTT06P EQU RVT+248 01245000 RVTSAGCP EQU RVT+252 01246000 RVTSAGQP EQU RVT+256 01247000 RVTESGCP EQU RVT+260 01248000 RVTESGQP EQU RVT+264 01249000 RVTDUCKP EQU RVT+276 01250000 RVTDUCCP EQU RVT+280 01251000 PVT EQU 0 01252000 PVTFLAG1 EQU PVT 01253000 PVTFPFN EQU PVT+16 01254000 PVTLPFN EQU PVT+18 01255000 PVTFVR EQU PVT+20 01256000 PVTLVR EQU PVT+22 01257000 PVTLPRIV EQU PVT+24 01258000 PVTLCSA EQU PVT+26 01259000 PVTQS EQU PVT+304 01260000 PVTWSAX EQU PVT+344 01261000 PVTPCBQS EQU PVT+1852 01262000 PVTFPCBF EQU PVTPCBQS+16 01263000 PVTFPCBL EQU PVTPCBQS+20 01264000 PVTGFADF EQU PVTPCBQS+24 01265000 PVTGFADL EQU PVTPCBQS+28 01266000 PVTCIOQF EQU PVTPCBQS+32 01267000 PVTCIOQL EQU PVTPCBQS+36 01268000 BLSRACC EQU 0 01269000 BLSRACCL EQU 0 01270000 BLSRADDP EQU 0 01271000 BLSRADDR EQU 0 01272000 BLSRADDS EQU 0 01273000 BLSRADDT EQU 0 01274000 BLSRADDU EQU 0 01275000 BLSRADD1 EQU 0 01276000 BLSRADD2 EQU 0 01277000 BLSRADD3 EQU 0 01278000 BLSRADD4 EQU 0 01279000 BLSRDUCC EQU 0 01280000 BLSRDUCK EQU 0 01281000 BLSRESAR EQU 0 01282000 BLSRESCK EQU 0 01283000 BLSRESGC EQU 0 01284000 BLSRESGE EQU 0 01285000 BLSRESGQ EQU 0 01286000 BLSRESGU EQU 0 01287000 BLSRMSGA EQU 0 01288000 BLSRMSGB EQU 0 01289000 BLSRMSGD EQU 0 01290000 BLSRPADS EQU 0 01291000 BLSRRAAR EQU 0 01292000 BLSRRAGE EQU 0 01293000 BLSRSAAR EQU 0 01294000 BLSRSAGC EQU 0 01295000 BLSRSAGE EQU 0 01296000 BLSRSAGN EQU 0 01297000 BLSRSAGQ EQU 0 01298000 BLSRSAGU EQU 0 01299000 BLSTA EQU 0 01300000 BLSTB EQU 0 01301000 BLSTC EQU 0 01302000 BLSTF EQU 0 01303000 BLSTL EQU 0 01304000 BLSTM EQU 0 01305000 BLSTR EQU 0 01306000 BLSTU EQU 0 01307000 BLSTY EQU 0 01308000 BLST01 EQU 0 01309000 BLST02 EQU 0 01310000 BLST03 EQU 0 01311000 BLST04 EQU 0 01312000 BLST05 EQU 0 01313000 BLST06 EQU 0 01314000 BLSUALLO EQU 0 01315000 BLSUBLDD EQU 0 01316000 BLSUBLDL EQU 0 01317000 BLSUDYNA EQU 0 01318000 BLSUFREE EQU 0 01319000 BLSUFRE1 EQU 0 01320000 BLSUMON EQU 0 01321000 BLSUMONA EQU 0 01322000 BLSUMONC EQU 0 01323000 BLSUMOND EQU 0 01324000 BLSUMONL EQU 0 01325000 BLSUMONT EQU 0 01326000 BLSUMONX EQU 0 01327000 BLSUMON2 EQU 0 01328000 BLSUMPK1 EQU 0 01329000 BLSUPARI EQU 0 01330000 BLSUPARU EQU 0 01331000 BLSUPGMC EQU 0 01332000 BLSUPGMD EQU 0 01333000 BLSUPGML EQU 0 01334000 BLSUPGMR EQU 0 01335000 BLSUPRTA EQU 0 01336000 BLSUPRTN EQU 0 01337000 BLSUPRTT EQU 0 01338000 BLSUPUTA EQU 0 01339000 BLSUPUTC EQU 0 01340000 BLSUPUTD EQU 0 01341000 BLSUPUTL EQU 0 01342000 BLSUPUTN EQU 0 01343000 BLSUPUTO EQU 0 01344000 BLSUPUTT EQU 0 01345000 BLSUSTAI EQU 0 01346000 BLSUTRMA EQU 0 01347000 BLSUTRMN EQU 0 01348000 BLSUTRMO EQU 0 01349000 BLSUTRMV EQU 0 01350000 BLSUVSAR EQU 0 01351000 BLSUVSCR EQU 0 01352000 BLSUVSEN EQU 0 01353000 BLSUVSER EQU 0 01354000 BLSUVSGE EQU 0 01355000 BLSUVSGU EQU 0 01356000 BLSUVSMR EQU 0 01357000 BLSUVSPO EQU 0 01358000 BLSUVSPU EQU 0 01359000 BLSUZZ2C EQU 0 01360000 BLSUZZ2D EQU 0 01361000 BLSUZZ2R EQU 0 01362000 IKJEFF02 EQU 0 01363000 IKJEFF18 EQU 0 01364000 IKJEFF19 EQU 0 01365000 IKJGETL EQU 0 01366000 IKJPARS EQU 0 01367000 IKJPTGT EQU 0 01368000 IKJPUTL EQU 0 01369000 IKJSCAN EQU 0 01370000 IKJSTCK EQU 0 01371000 I001C EQU 0 01372000 I008P EQU 0 01373000 I015F EQU 0 01374000 I015P EQU 0 01375000 I031F EQU 0 01376000 I031P EQU 0 01377000 I256C EQU 0 01378000 PZ2 EQU 0 01379000 SAPA EQU 0 01380000 SAPAAS EQU SAPA+12 01381000 SAPADT EQU SAPA+32 01382000 SAPAF EQU SAPA+68 01383000 SAPAFT EQU SAPAF+10 01384000 SAPAFF EQU SAPAF+52 01385000 SAPASF EQU SAPA+128 01386000 SAPAC EQU SAPA+254 01387000 SAPACT EQU SAPAC+2 01388000 SABK EQU 0 01389000 SABKAS EQU SABK+12 01390000 SABKDT EQU SABK+32 01391000 SABKF EQU SABK+68 01392000 SABKFT EQU SABKF+10 01393000 SABKFF EQU SABKF+52 01394000 SABKSF EQU SABK+128 01395000 SABKC EQU SABK+254 01396000 SABKCT EQU SABKC+2 01397000 CPPL EQU ZZ2CPPL 01398000 CPPLUPT EQU CPPL+4 01399000 CPPLPSCB EQU CPPL+8 01400000 CPPLECT EQU CPPL+12 01401000 ERRF EQU SABACT 01402000 ERRFB EQU ERRF 01403000 PTRPTR EQU PTRBIT 01404000 PCHK EQU SAAULAD 01405000 PCHK24IG EQU PCHK 01406000 PCHK24 EQU PCHK+1 01407000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01408000 @NM00149 EQU ERRF 01409000 ERRFS EQU ERRF 01410000 ERRFN EQU ERRF 01411000 ERRFD EQU ERRF 01412000 CPPLCBUF EQU CPPL 01413000 SABK999 EQU SABK+3072 01414000 SABKCT1 EQU SABKCT 01415000 SABKCL EQU SABKC 01416000 @NM00030 EQU SABK+153 01417000 SABKSRC EQU SABK+152 01418000 SABKPGV EQU SABK+144 01419000 SABKGMT EQU SABK+136 01420000 @NM00029 EQU SABKSF 01421000 SABKSFS EQU SABKSF 01422000 SABKSFI EQU SABKSF 01423000 SABKSF9 EQU SABKSF 01424000 SABKSF1 EQU SABKSF 01425000 SABKF99 EQU SABKF+60 01426000 @NM00028 EQU SABKF+56 01427000 @NM00027 EQU SABKFF 01428000 SABKFFA EQU SABKFF 01429000 SABKFIL EQU SABKF+48 01430000 SABKFIM EQU SABKF+44 01431000 SABKFT9 EQU SABKFT+34 01432000 SABKFTE EQU SABKFT+33 01433000 SABKFTD EQU SABKFT+2 01434000 @NM00026 EQU SABKFT+1 01435000 SABKFTY EQU SABKFT 01436000 SABKFT0 EQU SABKFT 01437000 SABKFLB EQU SABKF+9 01438000 SABKFOB EQU SABKF+8 01439000 SABKFLE EQU SABKF+4 01440000 SABKFOF EQU SABKF 01441000 SABKF00 EQU SABKF 01442000 @NM00025 EQU SABK+66 01443000 SABKELK EQU SABK+66 01444000 SABKDT9 EQU SABKDT+34 01445000 SABKDTE EQU SABKDT+33 01446000 SABKDTD EQU SABKDT+2 01447000 @NM00024 EQU SABKDT+1 01448000 SABKDTY EQU SABKDT 01449000 SABKDT0 EQU SABKDT 01450000 SABKLAD EQU SABK+28 01451000 SABKAS9 EQU SABKAS+16 01452000 @NM00023 EQU SABKAS+12 01453000 SABKAS2 EQU SABKAS+8 01454000 SABKAS1 EQU SABKAS+4 01455000 @NM00022 EQU SABKAS+2 01456000 SABKAST EQU SABKAS 01457000 SABKAS0 EQU SABKAS 01458000 SABKRDX EQU SABK+8 01459000 @NM00021 EQU SABK+2 01460000 SABKRID EQU SABK 01461000 SAPA999 EQU SAPA+3072 01462000 SAPACT1 EQU SAPACT 01463000 SAPACL EQU SAPAC 01464000 @NM00010 EQU SAPA+153 01465000 SAPASRC EQU SAPA+152 01466000 SAPAPGV EQU SAPA+144 01467000 SAPAGMT EQU SAPA+136 01468000 @NM00009 EQU SAPASF 01469000 SAPASFS EQU SAPASF 01470000 SAPASFI EQU SAPASF 01471000 SAPASF9 EQU SAPASF 01472000 SAPASF1 EQU SAPASF 01473000 SAPAF99 EQU SAPAF+60 01474000 @NM00008 EQU SAPAF+56 01475000 @NM00007 EQU SAPAFF 01476000 SAPAFFA EQU SAPAFF 01477000 SAPAFIL EQU SAPAF+48 01478000 SAPAFIM EQU SAPAF+44 01479000 SAPAFT9 EQU SAPAFT+34 01480000 SAPAFTE EQU SAPAFT+33 01481000 SAPAFTD EQU SAPAFT+2 01482000 @NM00006 EQU SAPAFT+1 01483000 SAPAFTY EQU SAPAFT 01484000 SAPAFT0 EQU SAPAFT 01485000 SAPAFLB EQU SAPAF+9 01486000 SAPAFOB EQU SAPAF+8 01487000 SAPAFLE EQU SAPAF+4 01488000 SAPAFOF EQU SAPAF 01489000 SAPAF00 EQU SAPAF 01490000 @NM00005 EQU SAPA+66 01491000 SAPAELK EQU SAPA+66 01492000 SAPADT9 EQU SAPADT+34 01493000 SAPADTE EQU SAPADT+33 01494000 SAPADTD EQU SAPADT+2 01495000 @NM00004 EQU SAPADT+1 01496000 SAPADTY EQU SAPADT 01497000 SAPADT0 EQU SAPADT 01498000 SAPALAD EQU SAPA+28 01499000 SAPAAS9 EQU SAPAAS+16 01500000 @NM00003 EQU SAPAAS+12 01501000 SAPAAS2 EQU SAPAAS+8 01502000 SAPAAS1 EQU SAPAAS+4 01503000 @NM00002 EQU SAPAAS+2 01504000 SAPAAST EQU SAPAAS 01505000 SAPAAS0 EQU SAPAAS 01506000 SAPARDX EQU SAPA+8 01507000 @NM00001 EQU SAPA+2 01508000 SAPARID EQU SAPA 01509000 PVTEND EQU PVT+1936 01510000 PVTVCONS EQU PVT+1896 01511000 PVTPRSB EQU PVT+1892 01512000 PVTPCBQR EQU PVTPCBQS 01513000 PVTLPAFX EQU PVT+1850 01514000 PVTLSQAF EQU PVT+1848 01515000 PVTLPAR EQU PVT+1844 01516000 PVTLPAI EQU PVT+1840 01517000 PVTLPAFC EQU PVT+1838 01518000 PVTCHUIC EQU PVT+1836 01519000 PVTCOMFX EQU PVT+1834 01520000 PVTSQAFX EQU PVT+1832 01521000 PVTCNTFX EQU PVT+1830 01522000 PVTDEFFX EQU PVT+1828 01523000 PVTFIXOK EQU PVT+1826 01524000 PVTPEROK EQU PVT+1824 01525000 PVTMAXFX EQU PVT+1822 01526000 PVTPERFX EQU PVT+1820 01527000 PVTRSRB EQU PVT+1776 01528000 PVTRESV5 EQU PVT+1773 01529000 PVTSRBS EQU PVT+1772 01530000 PVTSSRB EQU PVT+1768 01531000 PVTACA EQU PVTWSAX+1400 01532000 PVTSAVE EQU PVTWSAX+1328 01533000 PVTWSA18 EQU PVTWSAX+1256 01534000 PVTWSA17 EQU PVTWSAX+1184 01535000 PVTWSA16 EQU PVTWSAX+1112 01536000 PVTWSA15 EQU PVTWSAX+1040 01537000 PVTWSA14 EQU PVTWSAX+968 01538000 PVTWSA13 EQU PVTWSAX+896 01539000 PVTWSA12 EQU PVTWSAX+824 01540000 PVTWSA11 EQU PVTWSAX+752 01541000 PVTWSA10 EQU PVTWSAX+672 01542000 PVTWSA9 EQU PVTWSAX+592 01543000 PVTWSA8 EQU PVTWSAX+504 01544000 PVTWSA7 EQU PVTWSAX+432 01545000 PVTWSA6 EQU PVTWSAX+360 01546000 PVTWSA5 EQU PVTWSAX+288 01547000 PVTWSA4 EQU PVTWSAX+216 01548000 PVTWSA3 EQU PVTWSAX+144 01549000 PVTWSA2 EQU PVTWSAX+72 01550000 PVTWSA1 EQU PVTWSAX 01551000 PVTPFTQR EQU PVTQS+20 01552000 PVTRSBQL EQU PVTQS+18 01553000 PVTRSBQF EQU PVTQS+16 01554000 PVTSQAQL EQU PVTQS+14 01555000 PVTSQAQF EQU PVTQS+12 01556000 PVTCFQL EQU PVTQS+10 01557000 PVTCFQF EQU PVTQS+8 01558000 PVTRSRVL EQU PVTQS+6 01559000 PVTRSRVF EQU PVTQS+4 01560000 PVTAFQL EQU PVTQS+2 01561000 PVTAFQF EQU PVTQS 01562000 PVTSPFR EQU PVT+302 01563000 PVTCFMCT EQU PVT+300 01564000 PVTSPREC EQU PVT+296 01565000 PVTCAREC EQU PVT+292 01566000 PVTCAOUT EQU PVT+288 01567000 PVTCAIN EQU PVT+284 01568000 PVTNSWPS EQU PVT+280 01569000 PVTNPREC EQU PVT+276 01570000 PVTSPOUT EQU PVT+272 01571000 PVTSPIN EQU PVT+268 01572000 PVTVAMR EQU PVT+264 01573000 PVTVAMO EQU PVT+260 01574000 PVTVAMI EQU PVT+256 01575000 PVTNPOUT EQU PVT+252 01576000 PVTNPIN EQU PVT+248 01577000 PVTPRSET EQU PVT+244 01578000 PVTFRSLT EQU PVT+240 01579000 PVTPAGIO EQU PVT+236 01580000 PVTSWPIO EQU PVT+232 01581000 PVTPSWPP EQU PVT+228 01582000 PVTPPREF EQU PVT+224 01583000 PVTPOPBR EQU PVT+220 01584000 PVTPRELF EQU PVT+216 01585000 PVTPRELV EQU PVT+212 01586000 PVTPFREE EQU PVT+208 01587000 PVTPRELS EQU PVT+204 01588000 PVTPOUT EQU PVT+200 01589000 PVTPFXLD EQU PVT+196 01590000 PVTPITAS EQU PVT+192 01591000 PVTPSRBP EQU PVT+188 01592000 PVTPDSEG EQU PVT+184 01593000 PVTPCSGB EQU PVT+180 01594000 PVTPCSEG EQU PVT+176 01595000 PVTPINV EQU PVT+172 01596000 PVTPSWPC EQU PVT+168 01597000 PVTPSOUT EQU PVT+164 01598000 PVTPSWIN EQU PVT+160 01599000 PVTPRCV EQU PVT+156 01600000 PVTPRCFI EQU PVT+152 01601000 PVTPRCF EQU PVT+148 01602000 PVTPVRC EQU PVT+144 01603000 PVTPVRIN EQU PVT+140 01604000 PVTPVRLS EQU PVT+136 01605000 PVTPVEQR EQU PVT+132 01606000 PVTPPIOI EQU PVT+128 01607000 PVTPVRPO EQU PVT+124 01608000 PVTPRFR EQU PVT+120 01609000 PVTPFP2 EQU PVT+116 01610000 PVTPFP EQU PVT+112 01611000 PVTPFTE EQU PVT+108 01612000 PVTPCB EQU PVT+104 01613000 PVTREP2 EQU PVT+100 01614000 PVTPIOCP EQU PVT+96 01615000 PVTPIOP EQU PVT+92 01616000 PVTPGFAD EQU PVT+88 01617000 PVTPGFA EQU PVT+84 01618000 PVTPSQA EQU PVT+80 01619000 PVTPSINT EQU PVT+76 01620000 PVTPSIB EQU PVT+72 01621000 PVTSRBID EQU PVT+68 01622000 PVTPCIWA EQU PVT+64 01623000 PVTHQSA EQU PVT+62 01624000 PVTLQSA EQU PVT+60 01625000 PVTOROOT EQU PVT+56 01626000 PVTPRCA EQU PVT+52 01627000 PVTREUS EQU PVT+48 01628000 PVTRESV4 EQU PVT+47 01629000 PVTVRDFC EQU PVT+46 01630000 PVTRSUS EQU PVT+44 01631000 PVTVROOT EQU PVT+40 01632000 PVTPCBLO EQU PVT+38 01633000 PVTPCBCT EQU PVT+36 01634000 PVTDFRS EQU PVT+34 01635000 PVTRSQA EQU PVT+32 01636000 PVTPTLB EQU PVT+31 01637000 PVTPCBNO EQU PVT+30 01638000 PVTSRBNO EQU PVT+29 01639000 PVTSQDC EQU PVT+28 01640000 PVTPFTP EQU PVT+12 01641000 PVTSSPIN EQU PVT+11 01642000 PVTPCBS EQU PVT+10 01643000 PVTPOOL EQU PVT+8 01644000 PVTAFCOK EQU PVT+6 01645000 PVTAFCLO EQU PVT+4 01646000 PVTAFC EQU PVT+2 01647000 PVTFLAG2 EQU PVT+1 01648000 PVTDUMP EQU PVTFLAG1 01649000 PVTSIT EQU PVTFLAG1 01650000 PVTLSI EQU PVTFLAG1 01651000 PVTRESV1 EQU PVTFLAG1 01652000 PVTPCBLT EQU PVTFLAG1 01653000 PVTSRBIU EQU PVTFLAG1 01654000 PVTBGMS EQU PVTFLAG1 01655000 PVTPMSG EQU PVTFLAG1 01656000 RVT99999 EQU RVT+384 01657000 RVT0096P EQU RVT+380 01658000 RVT0095P EQU RVT+376 01659000 RVT0094P EQU RVT+372 01660000 RVT0093P EQU RVT+368 01661000 RVT0092P EQU RVT+364 01662000 RVT0091P EQU RVT+360 01663000 RVT0090P EQU RVT+356 01664000 RVT0089P EQU RVT+352 01665000 RVT0088P EQU RVT+348 01666000 RVT0087P EQU RVT+344 01667000 RVT0086P EQU RVT+340 01668000 RVT0085P EQU RVT+336 01669000 RVT0084P EQU RVT+332 01670000 RVT0083P EQU RVT+328 01671000 RVT0082P EQU RVT+324 01672000 RVT0081P EQU RVT+320 01673000 RVT0080P EQU RVT+316 01674000 RVT0079P EQU RVT+312 01675000 RVT0078P EQU RVT+308 01676000 RVT0077P EQU RVT+304 01677000 RVT0076P EQU RVT+300 01678000 RVT0075P EQU RVT+296 01679000 RVT0074P EQU RVT+292 01680000 RVT0073P EQU RVT+288 01681000 RVT0072P EQU RVT+284 01682000 RVTDTUTP EQU RVT+272 01683000 RVTDTMTP EQU RVT+268 01684000 RVT0057P EQU RVT+224 01685000 RVT0056P EQU RVT+220 01686000 RVT0055P EQU RVT+216 01687000 RVT0054P EQU RVT+212 01688000 RVT0053P EQU RVT+208 01689000 RVT0044P EQU RVT+172 01690000 RVT0043P EQU RVT+168 01691000 RVT0040P EQU RVT+156 01692000 RVT0039P EQU RVT+152 01693000 RVT0038P EQU RVT+148 01694000 RVT0037P EQU RVT+144 01695000 RVT0031P EQU RVT+120 01696000 RVT0030P EQU RVT+116 01697000 RVT0029P EQU RVT+112 01698000 RVT0020P EQU RVT+76 01699000 RVT0012P EQU RVT+44 01700000 RVT0010P EQU RVT+36 01701000 RVT0009P EQU RVT+32 01702000 RVT0008P EQU RVT+28 01703000 RVT0006P EQU RVT+20 01704000 ZZ69999 EQU ZZ6+1792 01705000 ZZ6BRB EQU ZZ6B+12 01706000 ZZ6BRC EQU ZZ6B+8 01707000 @NM00133 EQU ZZ6B+6 01708000 ZZ6BFL EQU ZZ6B+4 01709000 ZZ6BDA EQU ZZ6B 01710000 @NM00132 EQU ZZ6+540 01711000 ZZ6BUFI EQU ZZ6+536 01712000 ZZ6BUFP EQU ZZ6+532 01713000 ZZ6FILE EQU ZZ6+524 01714000 ZZ6BUFB EQU ZZ6+520 01715000 ZZ6BUFL EQU ZZ6+518 01716000 ZZ6BUFN EQU ZZ6+516 01717000 ZZ6ZZ6P EQU ZZ6+512 01718000 @NM00131 EQU ZZ6+256 01719000 ZZ6D999 EQU ZZ6D+128 01720000 @NM00130 EQU ZZ6D+116 01721000 ZZ6DCAP EQU ZZ6D+112 01722000 ZZ6DPRP EQU ZZ6D+108 01723000 ZZ6DDA2 EQU ZZ6D+104 01724000 ZZ6DDA1 EQU ZZ6D+100 01725000 @NM00129 EQU ZZ6DF 01726000 ZZ6DFSU EQU ZZ6DF 01727000 ZZ6DFST EQU ZZ6DF 01728000 ZZ6DFAB EQU ZZ6DF 01729000 ZZ6DFMP EQU ZZ6DF 01730000 ZZ6DFDU EQU ZZ6DF 01731000 ZZ6DFBS EQU ZZ6DF 01732000 ZZ6DQ2 EQU ZZ6D+88 01733000 ZZ6DQ1 EQU ZZ6D+84 01734000 ZZ6DQA9 EQU ZZ6DQA+16 01735000 @NM00128 EQU ZZ6DQA+12 01736000 ZZ6DQA2 EQU ZZ6DQA+8 01737000 ZZ6DQA1 EQU ZZ6DQA+4 01738000 @NM00127 EQU ZZ6DQA+2 01739000 ZZ6DQAT EQU ZZ6DQA 01740000 ZZ6DQA0 EQU ZZ6DQA 01741000 ZZ6DRDX EQU ZZ6D+64 01742000 ZZ6DELK EQU ZZ6D+64 01743000 ZZ6DMEM EQU ZZ6D+56 01744000 ZZ6DDT1 EQU ZZ6DDT 01745000 ZZ6DDO EQU ZZ6DD+2 01746000 ZZ6DDL EQU ZZ6DD 01747000 @NM00126 EQU ZZ6D+2 01748000 ZZ6DRID EQU ZZ6D 01749000 ZZ6RDCB EQU ZZ6 01750000 ZZ60000 EQU ZZ6 01751000 BVT99999 EQU BVT+256 01752000 BVT0064P EQU BVT+252 01753000 BVT0063P EQU BVT+248 01754000 BVT0062P EQU BVT+244 01755000 BVT0061P EQU BVT+240 01756000 BVT0060P EQU BVT+236 01757000 BVT0059P EQU BVT+232 01758000 BVT0057P EQU BVT+224 01759000 BVT0056P EQU BVT+220 01760000 BVTSTBLP EQU BVT+200 01761000 BVT0045P EQU BVT+176 01762000 BVT0044P EQU BVT+172 01763000 BVT0033P EQU BVT+128 01764000 BVT0032P EQU BVT+124 01765000 BVT0031P EQU BVT+120 01766000 BVT0030P EQU BVT+116 01767000 BVT0029P EQU BVT+112 01768000 BVT0026P EQU BVT+100 01769000 BVT0025P EQU BVT+96 01770000 BVT0024P EQU BVT+92 01771000 BVT0023P EQU BVT+88 01772000 BVT0016P EQU BVT+60 01773000 BVT0015P EQU BVT+56 01774000 BVT0014P EQU BVT+52 01775000 BVT0003P EQU BVT+8 01776000 BVT0001P EQU BVT 01777000 SA99 EQU SA+72 01778000 SARC EQU SAR+56 01779000 SARB EQU SAR+52 01780000 SARA EQU SAR+48 01781000 SAR9 EQU SAR+44 01782000 SAR8 EQU SAR+40 01783000 SAR7 EQU SAR+36 01784000 SAR6 EQU SAR+32 01785000 SAR5 EQU SAR+28 01786000 SAR4 EQU SAR+24 01787000 SAR3 EQU SAR+20 01788000 SAR2 EQU SAR+16 01789000 SAR0 EQU SAR+8 01790000 SARF EQU SAR+4 01791000 SARE EQU SAR 01792000 SAFWD EQU SA+8 01793000 SABAK EQU SA+4 01794000 SA1L EQU SA1+1 01795000 SA1P EQU SA1 01796000 UPTPREFL EQU UPT+23 01797000 UPTPREFX EQU UPT+16 01798000 @NM00125 EQU UPT+15 01799000 UPTLDEL EQU UPT+14 01800000 UPTCDEL EQU UPT+13 01801000 UPTWTP EQU UPTSWS 01802000 UPTMODE EQU UPTSWS 01803000 UPTALD EQU UPTSWS 01804000 UPTPAUS EQU UPTSWS 01805000 UPTNCOM EQU UPTSWS 01806000 UPTMID EQU UPTSWS 01807000 UPTNPRM EQU UPTSWS 01808000 UPTRCVR EQU UPTSWS 01809000 UPTUSER EQU UPT+2 01810000 @NM00124 EQU UPT 01811000 @NM00123 EQU ECT+52 01812000 @NM00122 EQU ECT+48 01813000 @NM00121 EQU ECT+44 01814000 @NM00120 EQU ECTSWS2+1 01815000 @NM00119 EQU ECTSWS21 01816000 ECTTABND EQU ECTSWS21 01817000 ECTDEFCS EQU ECTSWS21 01818000 ECTBKPB EQU ECT+36 01819000 ECTUSER EQU ECT+32 01820000 ECTDDNUM EQU ECT+29 01821000 ECTATTN EQU ECTSWS 01822000 ECTBKGRD EQU ECTSWS 01823000 ECTNNOT EQU ECTSWS 01824000 ECTNMAL EQU ECTSWS 01825000 ECTLOGF EQU ECTSWS 01826000 ECTATRM EQU ECTSWS 01827000 @NM00118 EQU ECTSWS 01828000 ECTNOPD EQU ECTSWS 01829000 ECTSCMD EQU ECT+20 01830000 ECTPCMD EQU ECT+12 01831000 ECTSMSG EQU ECT+9 01832000 ECTMSGF EQU ECT+8 01833000 ECTIOWA EQU ECT+4 01834000 ECTRTCD EQU ECT+1 01835000 ECTRCDF EQU ECT 01836000 PSCBU EQU PSCB+64 01837000 PSCBRSZ EQU PSCB+60 01838000 PSCBLINE EQU PSCB+59 01839000 PSCBCHAR EQU PSCB+58 01840000 PSCBUPTL EQU PSCB+56 01841000 PSCBUPT EQU PSCB+52 01842000 PSCBRLGB EQU PSCB+48 01843000 PSCBDEST EQU PSCB+40 01844000 @NM00117 EQU PSCB+36 01845000 @NM00116 EQU PSCB+32 01846000 @NM00115 EQU PSCB+28 01847000 PSCBLTI2 EQU PSCB+24 01848000 PSCBLTIM EQU PSCB+20 01849000 PSCBATR2 EQU PSCB+18 01850000 @NM00114 EQU PSCBATR1 01851000 @NM00113 EQU PSCBATR1 01852000 @NM00112 EQU PSCBATR1 01853000 PSCBATTN EQU PSCBATR1 01854000 PSCBVMNT EQU PSCBATR1 01855000 PSCBJCL EQU PSCBATR1 01856000 PSCBACCT EQU PSCBATR1 01857000 PSCBCTRL EQU PSCBATR1 01858000 PSCBGPNM EQU PSCB+8 01859000 PSCBUSRL EQU PSCB+7 01860000 PSCBUSER EQU PSCB 01861000 CMDT1 EQU CMDT 01862000 CMDO EQU CMD+2 01863000 CMDL EQU CMD 01864000 ZZ299999 EQU ZZ2+8192 01865000 ZZ2AXOT1 EQU ZZ2AXOT 01866000 ZZ2AXOL EQU ZZ2AXO 01867000 @NM00111 EQU ZZ2+7288 01868000 @NM00110 EQU ZZ2AMDX+4 01869000 ZZ2AMDXC EQU ZZ2AMDX 01870000 ZZ2HSD EQU ZZ2+3056 01871000 @NM00109 EQU ZZ2ES 01872000 @NM00108 EQU ZZ2+2868 01873000 ZZ2ITSEC EQU ZZ2ITSE+1 01874000 @NM00107 EQU ZZ2ITSE 01875000 ZZ2ITSEP EQU ZZ2ITSE 01876000 ZZ2ITSEW EQU ZZ2ITSE 01877000 @NM00106 EQU ZZ2ITR+20 01878000 ZZ2ITREC EQU ZZ2ITRE+1 01879000 @NM00105 EQU ZZ2ITRE 01880000 ZZ2ITREP EQU ZZ2ITRE 01881000 ZZ2ITREW EQU ZZ2ITRE 01882000 @NM00104 EQU ZZ2ITR+9 01883000 ZZ2ITRRC EQU ZZ2ITR+8 01884000 ZZ2ITR2P EQU ZZ2ITR+4 01885000 ZZ2ITRPP EQU ZZ2ITR 01886000 @NM00103 EQU ZZ2+1544 01887000 ZZ2PGM EQU ZZ2+1536 01888000 @NM00102 EQU ZZ2+1526 01889000 ZZ2CW EQU ZZ2+1524 01890000 @NM00101 EQU ZZ2+1504 01891000 @NM00100 EQU ZZ2+1352 01892000 ZZ2FFSYP EQU ZZ2+1348 01893000 ZZ2SASYP EQU ZZ2+1344 01894000 ZZ2RDSYP EQU ZZ2+1340 01895000 ZZ2RASYP EQU ZZ2+1336 01896000 ZZ2PHSYP EQU ZZ2+1332 01897000 ZZ200SYP EQU ZZ2+1324 01898000 ZZ2SCWP EQU ZZ2+1320 01899000 ZZ2TTLP EQU ZZ2+1316 01900000 ZZ2LOADP EQU ZZ2+1312 01901000 ZZ2VRESP EQU ZZ2+1308 01902000 ZZ2CPPLE EQU ZZ2CPPL+12 01903000 ZZ2CPPLP EQU ZZ2CPPL+8 01904000 ZZ2CPPLU EQU ZZ2CPPL+4 01905000 ZZ2VRSAP EQU ZZ2+1288 01906000 ZZ2DVTP EQU ZZ2+1276 01907000 @NM00099 EQU ZZ2+1272 01908000 @NM00098 EQU ZZ2+1268 01909000 ZZ2RPLP EQU ZZ2+1260 01910000 ZZ2TCBP EQU ZZ2+1256 01911000 @NM00097 EQU ZZ2+1252 01912000 ZZ2ZZ2P EQU ZZ2+1248 01913000 @NM00096 EQU ZZ2+1112 01914000 ZZ2FPDRP EQU ZZ2+1108 01915000 ZZ2FDSDP EQU ZZ2+1104 01916000 ZZ2APDRP EQU ZZ2+1100 01917000 ZZ2ADSDP EQU ZZ2+1096 01918000 ZZ2ENQ0P EQU ZZ2+1092 01919000 @NM00095 EQU ZZ2+1080 01920000 ZZ2MSG0P EQU ZZ2+1076 01921000 ZZ2FT25P EQU ZZ2+1072 01922000 ZZ2MSGSP EQU ZZ2+1060 01923000 ZZ2ALOCP EQU ZZ2+1056 01924000 @NM00094 EQU ZZ2+976 01925000 ZZ2STGN EQU ZZ2STG+4 01926000 ZZ2STGP EQU ZZ2STG 01927000 @NM00093 EQU ZZ2+952 01928000 ZZ2SCMDE EQU ZZ2+944 01929000 ZZ2SCMDN EQU ZZ2+936 01930000 ZZ2IDENT EQU ZZ2+928 01931000 ZZ2A9999 EQU ZZ2A+656 01932000 @NM00092 EQU ZZ2A+224 01933000 @NM00091 EQU ZZ2A+220 01934000 ZZ2AQD99 EQU ZZ2AQD+60 01935000 @NM00090 EQU ZZ2AQD+56 01936000 @NM00089 EQU ZZ2AQDF 01937000 ZZ2AQDFA EQU ZZ2AQDF 01938000 ZZ2AQDIL EQU ZZ2AQD+48 01939000 ZZ2AQDIM EQU ZZ2AQD+44 01940000 ZZ2AQDT9 EQU ZZ2AQDT+34 01941000 ZZ2AQDTE EQU ZZ2AQDT+33 01942000 ZZ2AQDTD EQU ZZ2AQDT+2 01943000 @NM00088 EQU ZZ2AQDT+1 01944000 ZZ2AQDTY EQU ZZ2AQDT 01945000 ZZ2AQDT0 EQU ZZ2AQDT 01946000 ZZ2AQDLB EQU ZZ2AQD+9 01947000 ZZ2AQDOB EQU ZZ2AQD+8 01948000 ZZ2AQDLE EQU ZZ2AQD+4 01949000 ZZ2AQDOF EQU ZZ2AQD 01950000 ZZ2AQD00 EQU ZZ2AQD 01951000 ZZ2AQAS9 EQU ZZ2AQAS+16 01952000 @NM00087 EQU ZZ2AQAS+12 01953000 ZZ2AQAS2 EQU ZZ2AQAS+8 01954000 ZZ2AQAS1 EQU ZZ2AQAS+4 01955000 @NM00086 EQU ZZ2AQAS+2 01956000 ZZ2AQAST EQU ZZ2AQAS 01957000 ZZ2AQAS0 EQU ZZ2AQAS 01958000 ZZ2ADPTA EQU ZZ2ADPT 01959000 ZZ2ADPL EQU ZZ2ADP 01960000 ZZ2ADMTA EQU ZZ2ADMT 01961000 ZZ2ADML EQU ZZ2ADM 01962000 ZZ2ADDTA EQU ZZ2ADDT 01963000 ZZ2ADDL EQU ZZ2ADD 01964000 @NM00085 EQU ZZ2A+72 01965000 ZZ2APIDB EQU ZZ2APID+3 01966000 ZZ2APIDA EQU ZZ2APID 01967000 @NM00084 EQU ZZ2A+24 01968000 @NM00083 EQU ZZ2AF+5 01969000 ZZ2AFX EQU ZZ2AF+5 01970000 @NM00082 EQU ZZ2AF+3 01971000 ZZ2AFS EQU ZZ2AF+2 01972000 ZZ2AFD EQU ZZ2AF+2 01973000 ZZ2AFQ EQU ZZ2AF+2 01974000 ZZ2AF$ EQU ZZ2AF+2 01975000 @NM00081 EQU ZZ2AF+2 01976000 ZZ2AFM EQU ZZ2AF+2 01977000 @NM00080 EQU ZZ2AF+2 01978000 @NM00079 EQU ZZ2AF+1 01979000 ZZ2AFV EQU ZZ2AF+1 01980000 @NM00078 EQU ZZ2AF+1 01981000 ZZ2AFC EQU ZZ2AF+1 01982000 @NM00077 EQU ZZ2AF 01983000 ZZ2AFFS EQU ZZ2AF 01984000 ZZ2AFT EQU ZZ2AF 01985000 ZZ2AFP EQU ZZ2AF 01986000 @NM00076 EQU ZZ2A+8 01987000 ZZ2ALINE EQU ZZ2A+4 01988000 @NM00075 EQU ZZ2A+3 01989000 ZZ2ACH EQU ZZ2A 01990000 @NM00074 EQU ZZ2+264 01991000 @NM00073 EQU ZZ2+263 01992000 ZZ2PRTT0 EQU ZZ2PRTT 01993000 ZZ2PRTO EQU ZZ2PRT+2 01994000 ZZ2PRTL EQU ZZ2PRT 01995000 @NM00072 EQU ZZ2AMD+56 01996000 ZZ2AMDXP EQU ZZ2AMD+52 01997000 ZZ2AMDD EQU ZZ2AMD+48 01998000 ZZ2AMDL EQU ZZ2AMD+44 01999000 ZZ2AMDU EQU ZZ2AMD+28 02000000 ZZ2AMDF EQU ZZ2AMD+24 02001000 ZZ2AMDS EQU ZZ2AMD+20 02002000 ZZ2AMDC EQU ZZ2AMD+16 02003000 ZZ2AMDP EQU ZZ2AMD+12 02004000 ZZ2AMDB EQU ZZ2AMD+8 02005000 @NM00071 EQU @NM00070 02006000 ZZ2AMD2 EQU @NM00070 02007000 ZZ2AMD1 EQU @NM00070 02008000 ZZ2AMD0 EQU ZZ2AMD+6 02009000 ZZ2AMDA EQU ZZ2AMD+4 02010000 ZZ2AMDT EQU ZZ2AMD 02011000 ZZ199999 EQU ZZ1+3072 02012000 @NM00069 EQU ZZ1+2160 02013000 ZZ1TRTAS EQU ZZ1+1904 02014000 ZZ1TRUPC EQU ZZ1+1648 02015000 ZZ1TRCTX EQU ZZ1+1392 02016000 ZZ1NASID EQU ZZ1N+274 02017000 ZZ1NSTRL EQU ZZ1N+272 02018000 ZZ1NOFF EQU ZZ1N+268 02019000 ZZ1NBDY EQU ZZ1N+264 02020000 ZZ1NADE EQU ZZ1N+260 02021000 ZZ1NADB EQU ZZ1N+256 02022000 ZZ1NSTR EQU ZZ1N 02023000 @NM00068 EQU ZZ1+1080 02024000 ZZ1TREBC EQU ZZ1+824 02025000 @NM00067 EQU ZZ1+377 02026000 ZZ1USTAE EQU ZZ1+376 02027000 @NM00066 EQU ZZ1F+1 02028000 @NM00065 EQU ZZ1F 02029000 ZZ1FM EQU ZZ1F 02030000 ZZ1FX EQU ZZ1F 02031000 ZZ1FU EQU ZZ1F 02032000 ZZ1EVEC EQU ZZ1EVE+1 02033000 @NM00064 EQU ZZ1EVE 02034000 ZZ1EVEW EQU ZZ1EVE 02035000 ZZ1ACMP EQU ZZ1ATTN 02036000 @NM00063 EQU ZZ1+144 02037000 ZZ1FPP EQU ZZ1+140 02038000 ZZ1ZZ6P EQU ZZ1+136 02039000 @NM00062 EQU ZZ1+84 02040000 ZZ1PLINE EQU ZZ1+80 02041000 ZZ1PGSZ EQU ZZ1+76 02042000 ZZ1PCNT EQU ZZ1+72 02043000 @NM00061 EQU ZZ1+68 02044000 ZZ1TPAGE EQU ZZ1+64 02045000 ZZ1TLINE EQU ZZ1+60 02046000 @NM00060 EQU ZZ1+52 02047000 ZZ1DMCBP EQU ZZ1+48 02048000 ZZ1DSDP EQU ZZ1+44 02049000 ZZ1PDRP EQU ZZ1+40 02050000 ZZ1ZZ2P EQU ZZ1+36 02051000 ZZ1327WP EQU ZZ1+32 02052000 ZZ1ACBP EQU ZZ1+28 02053000 @NM00059 EQU ZZ1+24 02054000 ZZ1PDCBP EQU ZZ1+20 02055000 ZZ1BLRBL EQU ZZ1+16 02056000 @NM00058 EQU ZZ1+12 02057000 ZZ1PNULL EQU ZZ1+8 02058000 ZZ1NULL EQU ZZ1+4 02059000 ZZ1IDE EQU ZZ1 02060000 VRBAT1 EQU VRBAT 02061000 @NM00055 EQU VRBA+2 02062000 VRBAL EQU VRBA 02063000 ESCO999 EQU ESCO+182 02064000 ESCORT1 EQU ESCORT 02065000 ESCORL EQU ESCOR 02066000 @NM00054 EQU ESCO+168 02067000 ESCOABS EQU ESCO+164 02068000 @NM00053 EQU ESCOF+2 02069000 @NM00052 EQU ESCOFC 02070000 ESCOFCD EQU ESCOFC 02071000 ESCOFSS EQU ESCOFS 02072000 ESCOFSX EQU ESCOFS 02073000 ESCOFSR EQU ESCOFS 02074000 ESCOFSP EQU ESCOFS 02075000 ESCOFSA EQU ESCOFS 02076000 ESCOFSM EQU ESCOFS 02077000 ESCOFS2 EQU ESCOFS 02078000 ESCOFSC EQU ESCOFS 02079000 ESCOKEY EQU ESCO+160 02080000 @NM00051 EQU ESCO+144 02081000 ESCOMAD EQU ESCO+140 02082000 ESCOD99 EQU ESCOD+60 02083000 @NM00050 EQU ESCOD+56 02084000 @NM00049 EQU ESCODF 02085000 ESCODFA EQU ESCODF 02086000 ESCODIL EQU ESCOD+48 02087000 ESCODIM EQU ESCOD+44 02088000 ESCODT9 EQU ESCODT+34 02089000 ESCODTE EQU ESCODT+33 02090000 ESCODTD EQU ESCODT+2 02091000 @NM00048 EQU ESCODT+1 02092000 ESCODTY EQU ESCODT 02093000 ESCODT0 EQU ESCODT 02094000 ESCODLB EQU ESCOD+9 02095000 ESCODOB EQU ESCOD+8 02096000 ESCODLE EQU ESCOD+4 02097000 ESCODOF EQU ESCOD 02098000 ESCOD00 EQU ESCOD 02099000 ESCOLAD EQU ESCO+76 02100000 ESCOAS9 EQU ESCOAS+16 02101000 @NM00047 EQU ESCOAS+12 02102000 ESCOAS2 EQU ESCOAS+8 02103000 ESCOAS1 EQU ESCOAS+4 02104000 @NM00046 EQU ESCOAS+2 02105000 ESCOAST EQU ESCOAS 02106000 ESCOAS0 EQU ESCOAS 02107000 ESCORV1 EQU ESCO+59 02108000 ESCOELK EQU ESCO+59 02109000 ESCOSYM EQU ESCO+28 02110000 ESCORDX EQU ESCO+24 02111000 @NM00045 EQU ESCO+16 02112000 @NM00044 EQU ESCO+8 02113000 @NM00043 EQU ESCO+2 02114000 ESCORID EQU ESCO 02115000 SABA999 EQU SABA+3072 02116000 SABACT1 EQU SABACT 02117000 @NM00020 EQU SABA+153 02118000 SABAPGV EQU SABA+144 02119000 @NM00019 EQU SABASF 02120000 SABAF99 EQU SABAF+60 02121000 @NM00018 EQU SABAF+56 02122000 @NM00017 EQU SABAFF 02123000 SABAFFA EQU SABAFF 02124000 SABAFIL EQU SABAF+48 02125000 SABAFIM EQU SABAF+44 02126000 SABAFT9 EQU SABAFT+34 02127000 SABAFTE EQU SABAFT+33 02128000 SABAFTD EQU SABAFT+2 02129000 @NM00016 EQU SABAFT+1 02130000 SABAFTY EQU SABAFT 02131000 SABAFT0 EQU SABAFT 02132000 SABAFLB EQU SABAF+9 02133000 SABAFOB EQU SABAF+8 02134000 SABAFLE EQU SABAF+4 02135000 SABAFOF EQU SABAF 02136000 SABAF00 EQU SABAF 02137000 @NM00015 EQU SABA+66 02138000 SABAELK EQU SABA+66 02139000 SABADT9 EQU SABADT+34 02140000 SABADTE EQU SABADT+33 02141000 SABADTD EQU SABADT+2 02142000 @NM00014 EQU SABADT+1 02143000 SABADTY EQU SABADT 02144000 SABADT0 EQU SABADT 02145000 SABAAS9 EQU SABAAS+16 02146000 @NM00013 EQU SABAAS+12 02147000 SABAAS2 EQU SABAAS+8 02148000 SABAAS1 EQU SABAAS+4 02149000 @NM00012 EQU SABAAS+2 02150000 SABAAS0 EQU SABAAS 02151000 SABARDX EQU SABA+8 02152000 @NM00011 EQU SABA+2 02153000 SABARID EQU SABA 02154000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02155000 @RT00163 EQU LBLSCAN2 02156000 @RF00163 EQU LBLSCAN8 02157000 @RT00210 EQU LBLSCAN8 02158000 @RT00213 EQU LBLSCAN7 02159000 @RT00254 EQU LBLSCAN8 02160000 @RT00272 EQU EXIT 02161000 @RT00302 EQU PCHKEXIT 02162000 @ENDDATA EQU * 02163000 END BLSVPVT,(C'PLS2016',0701,78069) 02164000