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