FMOD TITLE 'BLSRFMOD--IPCS FINDMOD SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPGW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRFMOD CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRFMOD 78.057' 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 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 * FLAG='00'X; /* PROCESSING CONTROL FLAGS */ 00025000 MVI FLAG,X'00' 0241 00026000 * RETC=0; /* RETURN CODE */ 00027000 SLR RETC,RETC 0242 00028000 * RF=0; /* RETURN CODE */ 00029000 SLR RF,RF 0243 00030000 * BUFP=ADDR(BUFA); /* ->BUFB (ALIAS FOR BUFA) */ 00031000 LA BUFP,BUFA 0244 00032000 * MINRENTP=0; /* NO MINOR ENTRY POINT */ 00033000 SLR MINRENTP,MINRENTP 0245 00034000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INIT SYMBOL RECORD */ 00035000 MVC ESAU(182),ESCO 0246 00036000 * 0247 00037000 * /*****************************************************************/ 00038000 * /* */ 00039000 * /* CALL IKJPARS AND INSPECT OPERANDS */ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 0247 00043000 * DO; /* BLSRPARS DISPLAY VERIFICATION 00044000 * MF(E,PX) */ 00045000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00046000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00047000 * TE,PX)FLAG ROUTING */ 00048000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00049000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00050000 * ROUTING */ 00051000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00052000 ST R9,@AL00001 0250 00053000 L @14,PCPTR 0250 00054000 ST @14,@AL00001+4 0250 00055000 LA @14,PDAPTR 0250 00056000 ST @14,@AL00001+8 0250 00057000 L @10,ZZ2BVTP(,R9) 0250 00058000 L @15,BVTPARIP(,@10) 0250 00059000 LA @01,@AL00001 0250 00060000 BALR @14,@15 0250 00061000 * RESPECIFY 0251 00062000 * (GPR15F) RESTRICTED; 0251 00063000 * IF GPR15F^=ZZZFLAGI THEN 0252 00064000 * 0252 00065000 LTR GPR15F,GPR15F 0252 00066000 BZ @RF00252 0252 00067000 * /*********************************************************/ 00068000 * /* */ 00069000 * /* UNABLE TO PARSE */ 00070000 * /* */ 00071000 * /*********************************************************/ 00072000 * 0253 00073000 * DO; /* UNABLE TO PARSE */ 00074000 * RETC=GPR15F; /* RETURN CODE */ 00075000 LR RETC,GPR15F 0254 00076000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00077000 B EXITNORL 0255 00078000 * END; 0256 00079000 * RESPECIFY 0257 00080000 * (GPR15F) UNRESTRICTED; 0257 00081000 @RF00252 DS 0H 0258 00082000 * RESPECIFY 0258 00083000 * (PDRPTR) RESTRICTED; 0258 00084000 * PDRPTR=PDAPTR; /* ->PDL */ 00085000 L PDRPTR,PDAPTR 0259 00086000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0260 00087000 USING PD,PDRPTR 00088000 * IF PXTEST=PXTEST1 THEN 0261 00089000 CLC PXTEST(2),@CH00043 0261 00090000 BNE @RF00261 0261 00091000 * ZZ2AFX=ZZZ1; /* TEST */ 00092000 OI ZZ2AFX(R9),B'10000000' 0262 00093000 * ELSE 0263 00094000 * IF PXTEST=PXTEST0 THEN 0263 00095000 B @RC00261 0263 00096000 @RF00261 CLC PXTEST(2),@CH00068 0263 00097000 BNE @RF00263 0263 00098000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00099000 NI ZZ2AFX(R9),B'01111111' 0264 00100000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00101000 @RF00263 DS 0H 0265 00102000 @RC00261 ST R9,@AL00001 0265 00103000 ST PDRPTR,@AL00001+4 0265 00104000 LA @14,PXRO 0265 00105000 ST @14,@AL00001+8 0265 00106000 L @08,ZZ2BVTP(,R9) 0265 00107000 L @15,BVTPARUP(,@08) 0265 00108000 LA @01,@AL00001 0265 00109000 BALR @14,@15 0265 00110000 * RESPECIFY 0266 00111000 * (GPR15F) RESTRICTED; 0266 00112000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00113000 CR RETC,GPR15F 0267 00114000 BNL *+6 00115000 LR RETC,GPR15F 0267 00116000 * RESPECIFY 0268 00117000 * (GPR15F) UNRESTRICTED; 0268 00118000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00119000 C RETC,@CF00051 0269 00120000 BH @RT00269 0269 00121000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00122000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00123000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00124000 * ROUTING */ 00125000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00126000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00127000 * TE,PX)FLAG ROUTING */ 00128000 * CALL BLSRPADS(ZZ2,PDDSECT,PXDO);/* SET DISPLAY OPTIONS */ 00129000 ST R9,@AL00001 0273 00130000 ST PDRPTR,@AL00001+4 0273 00131000 LA @14,PXDO 0273 00132000 ST @14,@AL00001+8 0273 00133000 L @08,ZZ2RVTP(,R9) 0273 00134000 L @15,RVTPADSP(,@08) 0273 00135000 LA @01,@AL00001 0273 00136000 BALR @14,@15 0273 00137000 * IF PXVER=PXVER1 THEN 0274 00138000 CLC PXVER(2),@CH00043 0274 00139000 BNE @RF00274 0274 00140000 * ZZ2AFV=ZZZ1; /* VERIFY */ 00141000 OI ZZ2AFV(R9),B'00001000' 0275 00142000 * ELSE 0276 00143000 * IF PXVER=PXVER0 THEN 0276 00144000 B @RC00274 0276 00145000 @RF00274 CLC PXVER(2),@CH00068 0276 00146000 BNE @RF00276 0276 00147000 * ZZ2AFV=ZZZ0; /* NOVERIFY */ 00148000 NI ZZ2AFV(R9),B'11110111' 0277 00149000 * END; /* BLSRPARS DISPLAY VERIFICATION 00150000 * MF(E,PX) */ 00151000 @RF00276 DS 0H 0278 00152000 @RC00274 DS 0H 0279 00153000 * 0279 00154000 * /*****************************************************************/ 00155000 * /* */ 00156000 * /* SAVE REQUESTED MODULE NAME */ 00157000 * /* */ 00158000 * /*****************************************************************/ 00159000 * 0279 00160000 * OK='1'B; /* INIT FLAG */ 00161000 OI OK,B'01000000' 0279 00162000 * IF HEXCHAR=NHEX THEN 0280 00163000 CLC HEXCHAR(2),@CH00068 0280 00164000 BNE @RF00280 0280 00165000 * DO; /* IF HEX SPECIFIED */ 00166000 * IF PMODIL//2^=0 THEN 0282 00167000 LH @00,PMODIL 0282 00168000 SRDA @00,32 0282 00169000 D @00,@CF00068 0282 00170000 LTR @00,@00 0282 00171000 BZ @RF00282 0282 00172000 * OK='0'B; /* ODD NUMBER OF DIGITS */ 00173000 NI OK,B'10111111' 0283 00174000 * ELSE 0284 00175000 * DO; /* ELSE TEST FOR VALID */ 00176000 B @RC00282 0284 00177000 @RF00282 DS 0H 0285 00178000 * BUFTEST='0000000000000000';/* INIT TEST BUFFER */ 00179000 MVC BUFTEST(16),@CC01930 0285 00180000 * BUFTEST(17-PMODIL:16)=PMODI(1:PMODIL);/* MOVE DATA INTO 00181000 * BUFFER */ 00182000 LA @14,17 0286 00183000 SH @14,PMODIL 0286 00184000 LA @08,BUFTEST-1(@14) 0286 00185000 LCR @14,@14 0286 00186000 AL @14,@CF00054 0286 00187000 L @04,PMODIP 0286 00188000 EX @14,@SM01980 0286 00189000 * BUFTES2=BUFTEST; /* SECOND BUFFER */ 00190000 MVC BUFTES2(16),BUFTEST 0287 00191000 * TR(BUFTEST,ZZ1TRCTX); /* TRANSLATE EBCDIC TO ZONED HEX */ 00192000 L @14,ZZ2ZZ1P(,R9) 0288 00193000 TR BUFTEST(16),ZZ1TRCTX(@14) 0288 00194000 * TR(BUFTEST,ZZ1TRHEX); /* TRANSLATE ZONED HEX TO EBCDIC */ 00195000 TR BUFTEST(16),ZZ1TRHEX(@14) 0289 00196000 * IF BUFTEST^=BUFTES2 THEN 0290 00197000 CLC BUFTEST(16),BUFTES2 0290 00198000 BE @RF00290 0290 00199000 * OK='0'B; /* IF INVALID CHARACTERS, 0291 00200000 * INDICATE */ 00201000 NI OK,B'10111111' 0291 00202000 * END; 0292 00203000 @RF00290 DS 0H 0293 00204000 * END; 0293 00205000 @RC00282 DS 0H 0294 00206000 * IF OK='0'B|(HEXCHAR=NCHAR&PMODIL>8) THEN 0294 00207000 @RF00280 TM OK,B'01000000' 0294 00208000 BZ @RT00294 0294 00209000 CLC HEXCHAR(2),@CH00043 0294 00210000 BNE @RF00294 0294 00211000 CLC PMODIL(2),@CH00051 0294 00212000 BNH @RF00294 0294 00213000 @RT00294 DS 0H 0295 00214000 * DO; /* CHARACTER TYPE AND TOO LARGE */ 00215000 * CALL BLSUPUTV(ZZ2,M095); /* PUT OUT ERROR MESSAGE */ 00216000 ST R9,@AL00001 0296 00217000 LA @14,M095 0296 00218000 ST @14,@AL00001+4 0296 00219000 L @08,ZZ2BVTP(,R9) 0296 00220000 L @15,BVTPUTVP(,@08) 0296 00221000 LA @01,@AL00001 0296 00222000 BALR @14,@15 0296 00223000 * RETC=ZZZFLAGS; /* SEVERE ERROR */ 00224000 LA RETC,12 0297 00225000 * GO TO EXITRLSA; /* EXIT */ 00226000 B EXITRLSA 0298 00227000 * END; 0299 00228000 * PGMNAME=''; 0300 00229000 @RF00294 MVI PGMNAME,C' ' 0300 00230000 MVC PGMNAME+1(7),PGMNAME 0300 00231000 * IF HEXCHAR=NCHAR THEN /* CHARACTER NAME ENTERED */ 00232000 CLC HEXCHAR(2),@CH00043 0301 00233000 BNE @RF00301 0301 00234000 * PGMNAME(1:PMODIL)=PMODI(1:PMODIL);/* MOVE NAME */ 00235000 LH @14,PMODIL 0302 00236000 BCTR @14,0 0302 00237000 L @08,PMODIP 0302 00238000 EX @14,@SM01982 0302 00239000 * ELSE 0303 00240000 * DO; /* CONVERT HEX NAME ENTERED */ 00241000 B @RC00301 0303 00242000 @RF00301 DS 0H 0304 00243000 * BUFTEST='0000000000000000'; /* INIT BUFFER */ 00244000 MVC BUFTEST(16),@CC01930 0304 00245000 * BUFTEST(1:PMODIL)=PMODI(1:PMODIL);/* MOVE NAME INTO BUFFER */ 00246000 LH @14,PMODIL 0305 00247000 LR @08,@14 0305 00248000 BCTR @08,0 0305 00249000 L @04,PMODIP 0305 00250000 EX @08,@SM01984 0305 00251000 * DO; /* BLRCNVCX(BUFTEST) FROM(CHARACT 00252000 * ER)TO(BS)SET(BUFTES8)TR(ZZ1TRC 00253000 * TX) */ 00254000 * ZONED='0000000000000000'; /* PAD INTERMEDIATE */ 00255000 MVC ZONED(16),@CC01930 0307 00256000 * ZONED(1:+LENGTH(BUFTEST))=BUFTEST;/* LEFT ALIGN EBCDIC 0308 00257000 * DIGITS */ 00258000 MVC ZONED(16),BUFTEST 0308 00259000 * TR(ZONED,ZZ1TRCTX); /* EBCDIC=>ZONED HEXADECIMAL */ 00260000 L @08,ZZ2ZZ1P(,R9) 0309 00261000 TR ZONED(16),ZZ1TRCTX(@08) 0309 00262000 * PACK(CNVCH,ZONED(1:15)); /* ZONED HEXADECIMAL=>BIT */ 00263000 PACK CNVCH(8),ZONED(15) 0310 00264000 * MVN(CNVCH(8:8),ZONED(16:16));/* FINAL FOUR BITS */ 00265000 MVN CNVCH+7(1),ZONED+15 0311 00266000 * BUFTES8=CNVCH(1:+LENGTH(BUFTES8));/* BIT RESULT */ 00267000 MVC BUFTES8(8),CNVCH 0312 00268000 * END; /* BLRCNVCX(BUFTEST) FROM(CHARACT 00269000 * ER)TO(BS)SET(BUFTES8)TR(ZZ1TRC 00270000 * TX) */ 00271000 * PGMNAME(1:PMODIL/2)=BUFTES8(1:PMODIL/2);/* MOVE NAME */ 00272000 SRL @14,1 0314 00273000 BCTR @14,0 0314 00274000 EX @14,@SM01986 0314 00275000 * END; 0315 00276000 * 0315 00277000 * /*****************************************************************/ 00278000 * /* */ 00279000 * /* FIRST SEE IF THE MODULE IS ALREADY IN THE SYMBOL TABLE */ 00280000 * /* */ 00281000 * /*****************************************************************/ 00282000 * 0316 00283000 * ESAUSYM=PGMNAME; /* PROGRAM NAME */ 00284000 @RC00301 MVI ESAUSYM+8,C' ' 0316 00285000 MVC ESAUSYM+9(22),ESAUSYM+8 0316 00286000 MVC ESAUSYM(8),PGMNAME 0316 00287000 * CALL BLSRESGE(ZZ2,ESAU); /* SEARCH FOR EQUATE RECORD */ 00288000 ST R9,@AL00001 0317 00289000 LA @14,ESAU 0317 00290000 ST @14,@AL00001+4 0317 00291000 L @08,ZZ2RVTP(,R9) 0317 00292000 L @15,RVTESGEP(,@08) 0317 00293000 LA @01,@AL00001 0317 00294000 BALR @14,@15 0317 00295000 * IF RF=0&ESAUDTY='L' THEN /* MODULE FOUND PREVIOUSLY */ 00296000 * 0318 00297000 LTR RF,RF 0318 00298000 BNZ @RF00318 0318 00299000 CLI ESAUDTY,C'L' 0318 00300000 BNE @RF00318 0318 00301000 * /***************************************************************/ 00302000 * /* */ 00303000 * /* MODULE FOUND PREVIOUSLY */ 00304000 * /* */ 00305000 * /***************************************************************/ 00306000 * 0319 00307000 * DO; /* MODULE FOUND PREVIOUSLY */ 00308000 * IF ZZ2AFV='1'B THEN /* VERIFY */ 00309000 TM ZZ2AFV(R9),B'00001000' 0320 00310000 BNO @RF00320 0320 00311000 * CALL BLST01(ZZ2,ESAU); /* FORMAT IF REQUIRED */ 00312000 ST R9,@AL00001 0321 00313000 LA @14,ESAU 0321 00314000 ST @14,@AL00001+4 0321 00315000 L @08,ZZ2RVTP(,R9) 0321 00316000 L @15,RVTT01P(,@08) 0321 00317000 LA @01,@AL00001 0321 00318000 BALR @14,@15 0321 00319000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00320000 B EXITRLSA 0322 00321000 * END; 0323 00322000 * ESAUSYM='CVT'; /* SYMBOL */ 00323000 @RF00318 MVI ESAUSYM+3,C' ' 0324 00324000 MVC ESAUSYM+4(27),ESAUSYM+3 0324 00325000 MVC ESAUSYM(3),@CC01725 0324 00326000 * ESAUDT=DTCVT; /* DATA TYPE */ 00327000 MVC ESAUDT(34),DTCVT 0325 00328000 * CALL BLSRESGU(ZZ2,ESAU); /* DEFINE THE SYSTEM CVT */ 00329000 ST R9,@AL00001 0326 00330000 LA @14,ESAU 0326 00331000 ST @14,@AL00001+4 0326 00332000 L @08,ZZ2RVTP(,R9) 0326 00333000 L @15,RVTESGUP(,@08) 0326 00334000 LA @01,@AL00001 0326 00335000 BALR @14,@15 0326 00336000 * IF RF>ZZZFLAGS THEN /* CVT NOT DEFINED */ 00337000 C RF,@CF00033 0327 00338000 BH @RT00327 0327 00339000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00340000 * ESAUAS=ZZ6DQA; /* ADDRESS SPACE */ 00341000 L @14,ZZ2AZZ6P(,R9) 0329 00342000 MVC ESAUAS(16),ZZ6DQA(@14) 0329 00343000 * ESAURL=0; /* NO REMARK */ 00344000 SLR @14,@14 0330 00345000 STH @14,ESAURL 0330 00346000 * THECVTPT=ESAULAD; /* ->CVT */ 00347000 * 0331 00348000 L THECVTPT,ESAULAD 0331 00349000 * /*****************************************************************/ 00350000 * /* */ 00351000 * /* SEARCH CDES */ 00352000 * /* */ 00353000 * /*****************************************************************/ 00354000 * 0332 00355000 * ESAUSYM='CVTQLPAQ'; /* SYMBOL */ 00356000 MVI ESAUSYM+8,C' ' 0332 00357000 MVC ESAUSYM+9(22),ESAUSYM+8 0332 00358000 MVC ESAUSYM(8),@CC01939 0332 00359000 * ESAUDT=ESCODT; /* DATA TYPE */ 00360000 MVC ESAUDT(34),ESCODT 0333 00361000 * ESAUDTY='A'; /* POINTER DATA TYPE */ 00362000 MVI ESAUDTY,C'A' 0334 00363000 * ESAUDOF=ADDR(CVTQLPAQ)-ADDR(CVT);/* OFFSET */ 00364000 MVC ESAUDOF(4),@CF01970 0335 00365000 * ESAUDLE=4; /* WORD */ 00366000 MVC ESAUDLE(4),@CF00040 0336 00367000 * CALL BLSRACC(ZZ2,ESAU,ESAULAD); /* RETRIEVE CVT.CVTQLPAQ */ 00368000 ST R9,@AL00001 0337 00369000 LA @14,ESAU 0337 00370000 ST @14,@AL00001+4 0337 00371000 LA @14,ESAULAD 0337 00372000 ST @14,@AL00001+8 0337 00373000 L @08,ZZ2RVTP(,R9) 0337 00374000 L @15,RVTRACCP(,@08) 0337 00375000 LA @01,@AL00001 0337 00376000 BALR @14,@15 0337 00377000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00378000 SLR @14,@14 0338 00379000 CR RF,@14 0338 00380000 BNE @RT00338 0338 00381000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00382000 * ESAUSYM='CDEPTR'; /* SYMBOL */ 00383000 MVI ESAUSYM+6,C' ' 0340 00384000 MVC ESAUSYM+7(24),ESAUSYM+6 0340 00385000 MVC ESAUSYM(6),@CC01940 0340 00386000 * ESAUDOF=0; /* OFFSET */ 00387000 ST @14,ESAUDOF 0341 00388000 * CALL BLSRACC(ZZ2,ESAU,ESAULAD); /* RETRIEVE ADDRESS OF FIRST CDE */ 00389000 ST R9,@AL00001 0342 00390000 LA @14,ESAU 0342 00391000 ST @14,@AL00001+4 0342 00392000 LA @14,ESAULAD 0342 00393000 ST @14,@AL00001+8 0342 00394000 L @08,ZZ2RVTP(,R9) 0342 00395000 L @15,RVTRACCP(,@08) 0342 00396000 LA @01,@AL00001 0342 00397000 BALR @14,@15 0342 00398000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00399000 LTR RF,RF 0343 00400000 BNZ @RT00343 0343 00401000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00402000 * ESAUSYM='CDE'; /* SYMBOL */ 00403000 MVI ESAUSYM+3,C' ' 0345 00404000 MVC ESAUSYM+4(27),ESAUSYM+3 0345 00405000 MVC ESAUSYM(3),@CC01941 0345 00406000 * ESAUDLE=LENGTH(CDENTRY); /* LENGTH */ 00407000 MVC ESAUDLE(4),@CF00062 0346 00408000 * DO WHILE(ESAULAD^=0); /* SEARCH CDE CHAIN */ 00409000 B @DE00347 0347 00410000 @DL00347 DS 0H 0348 00411000 * CALL BLSRACC(ZZ2,ESAU,BUFB); /* RETRIEVE IMAGE OF CDE */ 00412000 ST R9,@AL00001 0348 00413000 LA @14,ESAU 0348 00414000 ST @14,@AL00001+4 0348 00415000 ST BUFP,@AL00001+8 0348 00416000 L @08,ZZ2RVTP(,R9) 0348 00417000 L @15,RVTRACCP(,@08) 0348 00418000 LA @01,@AL00001 0348 00419000 BALR @14,@15 0348 00420000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00421000 LTR RF,RF 0349 00422000 BNZ @RT00349 0349 00423000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00424000 * IF CDNAME=PGMNAME THEN /* CDE FOR REQUESTED PROGRAM */ 00425000 CLC CDNAME(8,BUFP),PGMNAME 0351 00426000 BE @RT00351 0351 00427000 * GO TO OUTLOOP; /* PROCESS THE CDE */ 00428000 * ESAULAD=CDCHAIN; /* ->NEXT CDE */ 00429000 L @14,CDCHAIN(,BUFP) 0353 00430000 ST @14,ESAULAD 0353 00431000 * END; 0354 00432000 * 0354 00433000 @DE00347 L @14,ESAULAD 0354 00434000 LTR @14,@14 0354 00435000 BNZ @DL00347 0354 00436000 * /*****************************************************************/ 00437000 * /* */ 00438000 * /* IF NOT FOUND IN CDES, SEARCH LPDES */ 00439000 * /* */ 00440000 * /*****************************************************************/ 00441000 * 0355 00442000 *REHASH: 0355 00443000 * HASHED=PGMNAME(1:4)&&PGMNAME(5:8);/* EXLUSIVE OR HALVES */ 00444000 REHASH ICM @14,15,PGMNAME 0355 00445000 ICM @08,15,PGMNAME+4 0355 00446000 XR @14,@08 0355 00447000 ST @14,HASHED 0355 00448000 * ESAUSYM='CVTVVMDI'; /* SYMBOL */ 00449000 MVI ESAUSYM+8,C' ' 0356 00450000 MVC ESAUSYM+9(22),ESAUSYM+8 0356 00451000 MVC ESAUSYM(8),@CC01945 0356 00452000 * ESAUDT=ESCODT; /* DATA TYPE */ 00453000 MVC ESAUDT(34),ESCODT 0357 00454000 * ESAUDTY='A'; /* POINTER DATA TYPE */ 00455000 MVI ESAUDTY,C'A' 0358 00456000 * ESAULAD=THECVTPT; /* ->CVT */ 00457000 ST THECVTPT,ESAULAD 0359 00458000 * ESAUDLE=4; /* WORD */ 00459000 MVC ESAUDLE(4),@CF00040 0360 00460000 * ESAUDOF=ADDR(CVTVVMDI)-ADDR(CVT);/* OFFSET */ 00461000 MVC ESAUDOF(4),@CF01971 0361 00462000 * CALL BLSRACC(ZZ2,ESAU,BUFB); /* RETRIEVE CVT.CVTVVMDI */ 00463000 ST R9,@AL00001 0362 00464000 LA @14,ESAU 0362 00465000 ST @14,@AL00001+4 0362 00466000 ST BUFP,@AL00001+8 0362 00467000 L @08,ZZ2RVTP(,R9) 0362 00468000 L @15,RVTRACCP(,@08) 0362 00469000 LA @01,@AL00001 0362 00470000 BALR @14,@15 0362 00471000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00472000 LTR RF,RF 0363 00473000 BNZ @RT00363 0363 00474000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00475000 * SAVEVMDI=FIRSTWRD; /* SAVE CVTVVMDI */ 00476000 L @14,FIRSTWRD(,BUFP) 0365 00477000 ST @14,SAVEVMDI 0365 00478000 * ESAUDOF=ADDR(CVTDIRST)-ADDR(CVT);/* OFFSET */ 00479000 MVC ESAUDOF(4),@CF01972 0366 00480000 * ESAUSYM='CVTDIRST'; /* SYMBOL */ 00481000 MVI ESAUSYM+8,C' ' 0367 00482000 MVC ESAUSYM+9(22),ESAUSYM+8 0367 00483000 MVC ESAUSYM(8),@CC01946 0367 00484000 * CALL BLSRACC(ZZ2,ESAU,BUFB); /* RETRIEVE CVT.CVTDIRST */ 00485000 ST R9,@AL00001 0368 00486000 LA @14,ESAU 0368 00487000 ST @14,@AL00001+4 0368 00488000 ST BUFP,@AL00001+8 0368 00489000 L @08,ZZ2RVTP(,R9) 0368 00490000 L @15,RVTRACCP(,@08) 0368 00491000 LA @01,@AL00001 0368 00492000 BALR @14,@15 0368 00493000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00494000 LTR RF,RF 0369 00495000 BNZ @RT00369 0369 00496000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00497000 * RESPECIFY 0371 00498000 * (R2, 0371 00499000 * R3) RESTRICTED; 0371 00500000 * R2=0; /* ZERO LOW REG */ 00501000 SLR R2,R2 0372 00502000 * R3=HASHED; /* PUT HASHED NAME IN HI REG */ 00503000 L R3,HASHED 0373 00504000 * GENERATE REFS(HASHED,SAVEVMDI) SETS(R2,R3) CODE(D R2,SAVEVMDI); 00505000 D R2,SAVEVMDI 00506000 * ESAULAD=((R2*(LENGTH(LPDE)))+(FIRSTWRD&ZEROFOXS))&ZEROFOXS;/* SET 00507000 * ADDRESS */ 00508000 L @14,@CF01906 0375 00509000 LA @08,40 0375 00510000 LR @01,R2 0375 00511000 MR @00,@08 0375 00512000 L @04,FIRSTWRD(,BUFP) 0375 00513000 NR @04,@14 0375 00514000 ALR @01,@04 0375 00515000 NR @01,@14 0375 00516000 ST @01,ESAULAD 0375 00517000 * RESPECIFY 0376 00518000 * (R2, 0376 00519000 * R3) UNRESTRICTED; 0376 00520000 * ESAUDOF=0; /* OFFSET */ 00521000 SLR @14,@14 0377 00522000 ST @14,ESAUDOF 0377 00523000 * ESAUDLE=LENGTH(LPDE); /* LENGTH */ 00524000 ST @08,ESAUDLE 0378 00525000 * ESAUSYM='LPDE'; /* NAME */ 00526000 MVI ESAUSYM+4,C' ' 0379 00527000 MVC ESAUSYM+5(26),ESAUSYM+4 0379 00528000 MVC ESAUSYM(4),@CC01947 0379 00529000 * DO WHILE(ESAULAD^=0); /* SEARCH LPDE CHAIN */ 00530000 B @DE00380 0380 00531000 @DL00380 DS 0H 0381 00532000 * CALL BLSRACC(ZZ2,ESAU,BUFB); /* RETRIEVE IMAGE OF LPDE */ 00533000 ST R9,@AL00001 0381 00534000 LA @14,ESAU 0381 00535000 ST @14,@AL00001+4 0381 00536000 ST BUFP,@AL00001+8 0381 00537000 L @08,ZZ2RVTP(,R9) 0381 00538000 L @15,RVTRACCP(,@08) 0381 00539000 LA @01,@AL00001 0381 00540000 BALR @14,@15 0381 00541000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00542000 LTR RF,RF 0382 00543000 BNZ @RT00382 0382 00544000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00545000 * IF LPDENAME=PGMNAME THEN /* REQUESTED PROGRAM NAME */ 00546000 CLC LPDENAME(8,BUFP),PGMNAME 0384 00547000 BE @RT00384 0384 00548000 * GO TO FONDLPDE; /* PROCESS LPDE FOR PROGRAM */ 00549000 * ESAULAD=LPDECHN; /* ->NEXT LPDE */ 00550000 L @14,LPDECHN(,BUFP) 0386 00551000 ST @14,ESAULAD 0386 00552000 * END; 0387 00553000 @DE00380 L @14,ESAULAD 0387 00554000 LTR @14,@14 0387 00555000 BNZ @DL00380 0387 00556000 * GO TO NOTFOUND; /* NOT FOUND */ 00557000 B NOTFOUND 0388 00558000 * 0389 00559000 * /*****************************************************************/ 00560000 * /* */ 00561000 * /* MATCHING LPDE FOUND */ 00562000 * /* */ 00563000 * /*****************************************************************/ 00564000 * 0389 00565000 *FONDLPDE: 0389 00566000 * ESAUSYM=ESCOSYM; /* INIT SYMBOL RECORD */ 00567000 FONDLPDE MVC ESAUSYM(31),ESCOSYM 0389 00568000 * ESAUSYM(1:4)='LPDE'; /* SYMBOL */ 00569000 MVC ESAUSYM(4),@CC01947 0390 00570000 * ESAUSYM(5:12)=LPDENAME; /* MOVE NAME */ 00571000 MVC ESAUSYM+4(8),LPDENAME(BUFP) 0391 00572000 * ESAUDTY='M'; /* STRUCTURE */ 00573000 MVI ESAUDTY,C'M' 0392 00574000 * ESAUDTD='LPDE'; /* DICT NAME */ 00575000 MVI ESAUDTD+4,C' ' 0393 00576000 MVC ESAUDTD+5(26),ESAUDTD+4 0393 00577000 MVC ESAUDTD(4),@CC01947 0393 00578000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00579000 ST R9,@AL00001 0394 00580000 LA @14,ESAU 0394 00581000 ST @14,@AL00001+4 0394 00582000 L @08,ZZ2RVTP(,R9) 0394 00583000 L @15,RVTESARP(,@08) 0394 00584000 LA @01,@AL00001 0394 00585000 BALR @14,@15 0394 00586000 * IF LPDEMIN='1'B THEN /* MINOR LPDE */ 00587000 * 0395 00588000 TM LPDEMIN(BUFP),B'00000100' 0395 00589000 BNO @RF00395 0395 00590000 * /***************************************************************/ 00591000 * /* */ 00592000 * /* MINOR LPDE */ 00593000 * /* */ 00594000 * /***************************************************************/ 00595000 * 0396 00596000 * DO; /* MINOR LPDE */ 00597000 * FLAGMINR='1'B; /* INDICATE MINOR */ 00598000 OI FLAGMINR,B'10000000' 0397 00599000 * MINRENTP=LPDENTP; /* ->MINOR ENTRY POINT */ 00600000 L MINRENTP,LPDENTP(,BUFP) 0398 00601000 * MINRNAME=LPDENAME; /* MINOR NAME */ 00602000 MVC MINRNAME(8),LPDENAME(BUFP) 0399 00603000 * PGMNAME=LPDEMJNM; /* REPLACE WITH MAJOR NAME */ 00604000 MVC PGMNAME(8),LPDEMJNM(BUFP) 0400 00605000 * IN81L=12; /* LENGTH OF INSERT */ 00606000 MVC IN81L(2),@CH00033 0401 00607000 * IN81O=ADDR(M016T2)-ADDR(M016T);/* SET SEGMENT OFFSET */ 00608000 MVC IN81O(2),@CH01973 0402 00609000 * IN81T1=LPDEMJNM; /* NEW NAME */ 00610000 MVC IN81T1(8),LPDEMJNM(BUFP) 0403 00611000 * OLDN=2; /* NUMBER OF SEGMENTS */ 00612000 MVC OLDN(4),@CF00068 0404 00613000 * OLDP(1)=ADDR(M016); /* 1ST SEG */ 00614000 LA @14,M016 0405 00615000 ST @14,OLDP 0405 00616000 * OLDP(2)=ADDR(IN81); /* 2ND SEG */ 00617000 LA @14,IN81 0406 00618000 ST @14,OLDP+4 0406 00619000 * CALL BLSUPUTO(ZZ2,OLD); 0407 00620000 ST R9,@AL00001 0407 00621000 LA @14,OLD 0407 00622000 ST @14,@AL00001+4 0407 00623000 L @08,ZZ2BVTP(,R9) 0407 00624000 L @15,BVTPUTOP(,@08) 0407 00625000 LA @01,@AL00001 0407 00626000 BALR @14,@15 0407 00627000 * GO TO REHASH; /* CONTINUE WITH MAJOR NAME */ 00628000 B REHASH 0408 00629000 * END; 0409 00630000 * 0410 00631000 * /*****************************************************************/ 00632000 * /* */ 00633000 * /* MAJOR LPDE FOUND */ 00634000 * /* */ 00635000 * /*****************************************************************/ 00636000 * 0410 00637000 * ESAUSYM=PGMNAME; /* SYMBOL */ 00638000 @RF00395 MVI ESAUSYM+8,C' ' 0410 00639000 MVC ESAUSYM+9(22),ESAUSYM+8 0410 00640000 MVC ESAUSYM(8),PGMNAME 0410 00641000 * ESAUDTY='L'; /* MODULE */ 00642000 MVI ESAUDTY,C'L' 0411 00643000 * ESAUDTD=PGMNAME; /* DICT */ 00644000 MVI ESAUDTD+8,C' ' 0412 00645000 MVC ESAUDTD+9(22),ESAUDTD+8 0412 00646000 MVC ESAUDTD(8),PGMNAME 0412 00647000 * ESAUDOF=0; 0413 00648000 SLR @14,@14 0413 00649000 ST @14,ESAUDOF 0413 00650000 * LPDEXTLN=LPDEXTLN&ZEROFOXS; /* LENGTH */ 00651000 L @14,LPDEXTLN(,BUFP) 0414 00652000 N @14,@CF01906 0414 00653000 ST @14,LPDEXTLN(,BUFP) 0414 00654000 * ESAUDLE=LPDEXTLN-(LPDENTP-LPDEXTAD);/* LENGTH IS FROM EP TO END */ 00655000 L @08,LPDENTP(,BUFP) 0415 00656000 LR @06,@08 0415 00657000 SL @06,LPDEXTAD(,BUFP) 0415 00658000 SLR @14,@06 0415 00659000 ST @14,ESAUDLE 0415 00660000 * ESAULAD=LPDENTP; /* ADDRESS */ 00661000 ST @08,ESAULAD 0416 00662000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00663000 ST R9,@AL00001 0417 00664000 LA @14,ESAU 0417 00665000 ST @14,@AL00001+4 0417 00666000 L @08,ZZ2RVTP(,R9) 0417 00667000 L @15,RVTESARP(,@08) 0417 00668000 LA @01,@AL00001 0417 00669000 BALR @14,@15 0417 00670000 * IF FLAGMINR='1'B THEN /* MINOR LPDE */ 00671000 * 0418 00672000 TM FLAGMINR,B'10000000' 0418 00673000 BNO @RF00418 0418 00674000 * /***************************************************************/ 00675000 * /* */ 00676000 * /* MINOR LPDE */ 00677000 * /* */ 00678000 * /***************************************************************/ 00679000 * 0419 00680000 * DO; /* MINOR LPDE */ 00681000 * ESAUSYM=MINRNAME; /* MINOR NAME */ 00682000 MVI ESAUSYM+8,C' ' 0420 00683000 MVC ESAUSYM+9(22),ESAUSYM+8 0420 00684000 MVC ESAUSYM(8),MINRNAME 0420 00685000 * ESAUDTD=ESAUSYM; /* DICT */ 00686000 MVC ESAUDTD(31),ESAUSYM 0421 00687000 * ESAULAD=MINRENTP; /* ->MINOR ENTRY POINT */ 00688000 ST MINRENTP,ESAULAD 0422 00689000 * ESAUDLE=LPDEXTLN-(ESAULAD-LPDEXTAD);/* LENGTH */ 00690000 L @14,ESAULAD 0423 00691000 SL @14,LPDEXTAD(,BUFP) 0423 00692000 LCR @14,@14 0423 00693000 AL @14,LPDEXTLN(,BUFP) 0423 00694000 ST @14,ESAUDLE 0423 00695000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00696000 ST R9,@AL00001 0424 00697000 LA @14,ESAU 0424 00698000 ST @14,@AL00001+4 0424 00699000 L @08,ZZ2RVTP(,R9) 0424 00700000 L @15,RVTESARP(,@08) 0424 00701000 LA @01,@AL00001 0424 00702000 BALR @14,@15 0424 00703000 * END; 0425 00704000 * IF ZZ2AFV='1'B THEN /* VERIFY */ 00705000 @RF00418 TM ZZ2AFV(R9),B'00001000' 0426 00706000 BNO @RF00426 0426 00707000 * CALL BLST01(ZZ2,ESAU); /* DUMP BLOCK */ 00708000 ST R9,@AL00001 0427 00709000 LA @14,ESAU 0427 00710000 ST @14,@AL00001+4 0427 00711000 L @08,ZZ2RVTP(,R9) 0427 00712000 L @15,RVTT01P(,@08) 0427 00713000 LA @01,@AL00001 0427 00714000 BALR @14,@15 0427 00715000 * RETC=0; /* SUCCESSFUL */ 00716000 @RF00426 SLR RETC,RETC 0428 00717000 * RF=0; 0429 00718000 SLR RF,RF 0429 00719000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00720000 B EXITRLSA 0430 00721000 * 0431 00722000 * /*****************************************************************/ 00723000 * /* */ 00724000 * /* MODULE NOT FOUND */ 00725000 * /* */ 00726000 * /*****************************************************************/ 00727000 * 0431 00728000 *NOTFOUND: 0431 00729000 * CALL BLSUPUTV(ZZ2,M015); /* TRANSMIT NOT FOUND MESSAGE */ 00730000 NOTFOUND ST R9,@AL00001 0431 00731000 LA @14,M015 0431 00732000 ST @14,@AL00001+4 0431 00733000 L @08,ZZ2BVTP(,R9) 0431 00734000 L @15,BVTPUTVP(,@08) 0431 00735000 LA @01,@AL00001 0431 00736000 BALR @14,@15 0431 00737000 * RETC=ZZZFLAGW; /* UNSUCCESSFUL SEARCH */ 00738000 LA RETC,4 0432 00739000 * GO TO EXITRLSA; 0433 00740000 B EXITRLSA 0433 00741000 * 0434 00742000 * /*****************************************************************/ 00743000 * /* */ 00744000 * /* MODULE FOUND VIA CDE */ 00745000 * /* */ 00746000 * /*****************************************************************/ 00747000 * 0434 00748000 *OUTLOOP: 0434 00749000 * MAJRENTP=CDENTPT; /* ->MAJOR ENTRY POINT */ 00750000 OUTLOOP L MAJRENTP,CDENTPT(,BUFP) 0434 00751000 * MAJRNAME=CDNAME; /* MAJOR NAME */ 00752000 MVC MAJRNAME(8),CDNAME(BUFP) 0435 00753000 * IF CDMIN='1'B THEN /* MINOR CDE */ 00754000 * 0436 00755000 TM CDMIN(BUFP),B'00000100' 0436 00756000 BNO @RF00436 0436 00757000 * /***************************************************************/ 00758000 * /* */ 00759000 * /* MINOR CDE */ 00760000 * /* */ 00761000 * /***************************************************************/ 00762000 * 0437 00763000 * DO; /* MINOR CDE */ 00764000 * FLAGMINR='1'B; /* MINOR CDE */ 00765000 OI FLAGMINR,B'10000000' 0438 00766000 * ESAUSYM=ESCOSYM; /* SYMBOL */ 00767000 MVC ESAUSYM(31),ESCOSYM 0439 00768000 * ESAUSYM(1:3)='CDE'; 0440 00769000 MVC ESAUSYM(3),@CC01941 0440 00770000 * ESAUSYM(4:11)=CDNAME; 0441 00771000 MVC ESAUSYM+3(8),CDNAME(BUFP) 0441 00772000 * ESAUDTY='M'; /* STRUCTURE */ 00773000 MVI ESAUDTY,C'M' 0442 00774000 * ESAUDTD='CDE'; /* DICT NAME */ 00775000 MVI ESAUDTD+3,C' ' 0443 00776000 MVC ESAUDTD+4(27),ESAUDTD+3 0443 00777000 MVC ESAUDTD(3),@CC01941 0443 00778000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00779000 ST R9,@AL00001 0444 00780000 LA @14,ESAU 0444 00781000 ST @14,@AL00001+4 0444 00782000 L @08,ZZ2RVTP(,R9) 0444 00783000 L @15,RVTESARP(,@08) 0444 00784000 LA @01,@AL00001 0444 00785000 BALR @14,@15 0444 00786000 * MINRENTP=CDENTPT; /* ->MINOR ENTRY POINT */ 00787000 L MINRENTP,CDENTPT(,BUFP) 0445 00788000 * MINRNAME=CDNAME; /* MINOR NAME */ 00789000 MVC MINRNAME(8),CDNAME(BUFP) 0446 00790000 * ESAULAD=CDXLMJP; /* ->MAJOR CDE */ 00791000 L @14,CDXLMJP(,BUFP) 0447 00792000 ST @14,ESAULAD 0447 00793000 * ESAUSYM='MAJOR CDE'; /* SYMBOL */ 00794000 MVI ESAUSYM+9,C' ' 0448 00795000 MVC ESAUSYM+10(21),ESAUSYM+9 0448 00796000 MVC ESAUSYM(9),@CC01952 0448 00797000 * CALL BLSRACC(ZZ2,ESAU,BUFB);/* RETRIEVE IMAGE OF CDE */ 00798000 ST R9,@AL00001 0449 00799000 LA @14,ESAU 0449 00800000 ST @14,@AL00001+4 0449 00801000 ST BUFP,@AL00001+8 0449 00802000 L @08,ZZ2RVTP(,R9) 0449 00803000 L @15,RVTRACCP(,@08) 0449 00804000 LA @01,@AL00001 0449 00805000 BALR @14,@15 0449 00806000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00807000 LTR RF,RF 0450 00808000 BNZ @RT00450 0450 00809000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00810000 * MAJRENTP=CDENTPT; /* ->MAJOR ENTRY POINT */ 00811000 L MAJRENTP,CDENTPT(,BUFP) 0452 00812000 * MAJRNAME=CDNAME; /* MAJOR NAME */ 00813000 MVC MAJRNAME(8),CDNAME(BUFP) 0453 00814000 * IN81L=12; /* LENGTH OF INSERT */ 00815000 MVC IN81L(2),@CH00033 0454 00816000 * IN81O=ADDR(M016T2)-ADDR(M016T); 0455 00817000 MVC IN81O(2),@CH01973 0455 00818000 * IN81T1=MAJRNAME; /* MAJOR NAME */ 00819000 MVC IN81T1(8),MAJRNAME 0456 00820000 * OLDN=2; 0457 00821000 MVC OLDN(4),@CF00068 0457 00822000 * OLDP(1)=ADDR(M016); /* 1ST SEG */ 00823000 LA @14,M016 0458 00824000 ST @14,OLDP 0458 00825000 * OLDP(2)=ADDR(IN81); /* 2ND SEG */ 00826000 LA @14,IN81 0459 00827000 ST @14,OLDP+4 0459 00828000 * CALL BLSUPUTO(ZZ2,OLD); /* TRANSMIT MESSAGE M016 */ 00829000 ST R9,@AL00001 0460 00830000 LA @14,OLD 0460 00831000 ST @14,@AL00001+4 0460 00832000 L @08,ZZ2BVTP(,R9) 0460 00833000 L @15,BVTPUTOP(,@08) 0460 00834000 LA @01,@AL00001 0460 00835000 BALR @14,@15 0460 00836000 * END; 0461 00837000 * ESAUSYM=ESCOSYM; /* SYMBOL */ 00838000 @RF00436 MVC ESAUSYM(31),ESCOSYM 0462 00839000 * ESAUSYM(1:3)='CDE'; 0463 00840000 MVC ESAUSYM(3),@CC01941 0463 00841000 * ESAUSYM(4:11)=CDNAME; 0464 00842000 MVC ESAUSYM+3(8),CDNAME(BUFP) 0464 00843000 * ESAUDTY='M'; /* STRUCTURE */ 00844000 MVI ESAUDTY,C'M' 0465 00845000 * ESAUDTD='CDE'; /* DICT NAME */ 00846000 MVI ESAUDTD+3,C' ' 0466 00847000 MVC ESAUDTD+4(27),ESAUDTD+3 0466 00848000 MVC ESAUDTD(3),@CC01941 0466 00849000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00850000 ST R9,@AL00001 0467 00851000 LA @14,ESAU 0467 00852000 ST @14,@AL00001+4 0467 00853000 L @08,ZZ2RVTP(,R9) 0467 00854000 L @15,RVTESARP(,@08) 0467 00855000 LA @01,@AL00001 0467 00856000 BALR @14,@15 0467 00857000 * 0468 00858000 * /*****************************************************************/ 00859000 * /* */ 00860000 * /* GIVEN MAJOR CDE, GET EXTENT LIST */ 00861000 * /* */ 00862000 * /*****************************************************************/ 00863000 * 0468 00864000 * ESAUSYM=ESCOSYM; /* SYMBOL */ 00865000 MVC ESAUSYM(31),ESCOSYM 0468 00866000 * ESAUSYM(1:2)='XL'; 0469 00867000 MVC ESAUSYM(2),@CC01954 0469 00868000 * ESAUSYM(3:10)=CDNAME; 0470 00869000 MVC ESAUSYM+2(8),CDNAME(BUFP) 0470 00870000 * ESAUDTD='XTLST'; /* DICT NAME */ 00871000 MVI ESAUDTD+5,C' ' 0471 00872000 MVC ESAUDTD+6(25),ESAUDTD+5 0471 00873000 MVC ESAUDTD(5),@CC01955 0471 00874000 * ESAULAD=CDXLMJP; /* EXTENT LIST ADDRESS */ 00875000 L @14,CDXLMJP(,BUFP) 0472 00876000 ST @14,ESAULAD 0472 00877000 * ESAUDLE=LENGTH(XTLST); /* LENGTH OF EXTENT LIST */ 00878000 MVC ESAUDLE(4),@CF00054 0473 00879000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00880000 ST R9,@AL00001 0474 00881000 LA @14,ESAU 0474 00882000 ST @14,@AL00001+4 0474 00883000 L @08,ZZ2RVTP(,R9) 0474 00884000 L @15,RVTESARP(,@08) 0474 00885000 LA @01,@AL00001 0474 00886000 BALR @14,@15 0474 00887000 * CALL BLSRACC(ZZ2,ESAU,BUFB); /* RETRIEVE IMAGE OF EXTENT LIST */ 00888000 ST R9,@AL00001 0475 00889000 LA @14,ESAU 0475 00890000 ST @14,@AL00001+4 0475 00891000 ST BUFP,@AL00001+8 0475 00892000 L @08,ZZ2RVTP(,R9) 0475 00893000 L @15,RVTRACCP(,@08) 0475 00894000 LA @01,@AL00001 0475 00895000 BALR @14,@15 0475 00896000 * IF RF^=0 THEN /* ERROR DURING RETRIEVAL */ 00897000 LTR RF,RF 0476 00898000 BNZ @RT00476 0476 00899000 * GO TO NOTFOUND; /* EXIT WITH PDL */ 00900000 * ESAUSYM=MAJRNAME; /* MAJOR NAME */ 00901000 MVI ESAUSYM+8,C' ' 0478 00902000 MVC ESAUSYM+9(22),ESAUSYM+8 0478 00903000 MVC ESAUSYM(8),MAJRNAME 0478 00904000 * ESAULAD=MAJRENTP; /* ->MAJOR ENTRY POINT */ 00905000 ST MAJRENTP,ESAULAD 0479 00906000 * ESAUDTY='L'; /* MODULE DATA TYPE */ 00907000 MVI ESAUDTY,C'L' 0480 00908000 * ESAUDTD=ESAUSYM; /* DICTIONARY */ 00909000 MVC ESAUDTD(31),ESAUSYM 0481 00910000 * XTLMSBLN=XTLMSBLN&ZEROFOXS; /* LENGTH OF MODULE */ 00911000 L @14,XTLMSBLN-1(,BUFP) 0482 00912000 LA @14,0(,@14) 0482 00913000 N @14,@CF01906 0482 00914000 STCM @14,7,XTLMSBLN(BUFP) 0482 00915000 * ESAUDLE=XTLMSBLN-(MAJRENTP-XTLMSBAD);/* LENGTH */ 00916000 LR @08,MAJRENTP 0483 00917000 L @06,XTLMSBAD-1(,BUFP) 0483 00918000 LA @06,0(,@06) 0483 00919000 SLR @08,@06 0483 00920000 SLR @14,@08 0483 00921000 ST @14,ESAUDLE 0483 00922000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00923000 ST R9,@AL00001 0484 00924000 LA @14,ESAU 0484 00925000 ST @14,@AL00001+4 0484 00926000 L @08,ZZ2RVTP(,R9) 0484 00927000 L @15,RVTESARP(,@08) 0484 00928000 LA @01,@AL00001 0484 00929000 BALR @14,@15 0484 00930000 * IF FLAGMINR='1'B THEN /* MINOR ENTRY POINT */ 00931000 * 0485 00932000 TM FLAGMINR,B'10000000' 0485 00933000 BNO @RF00485 0485 00934000 * /***************************************************************/ 00935000 * /* */ 00936000 * /* MINOR ENTRY POINT */ 00937000 * /* */ 00938000 * /***************************************************************/ 00939000 * 0486 00940000 * DO; /* MINOR ENTRY POINT */ 00941000 * ESAUSYM=MINRNAME; /* MINOR NAME */ 00942000 MVI ESAUSYM+8,C' ' 0487 00943000 MVC ESAUSYM+9(22),ESAUSYM+8 0487 00944000 MVC ESAUSYM(8),MINRNAME 0487 00945000 * ESAULAD=MINRENTP; /* ->MINOR ENTRY POINT */ 00946000 ST MINRENTP,ESAULAD 0488 00947000 * ESAUDTD=ESAUSYM; /* DICTIONARY */ 00948000 MVC ESAUDTD(31),ESAUSYM 0489 00949000 * ESAUDLE=XTLMSBLN-(MINRENTP-XTLMSBAD);/* LENGTH */ 00950000 LR @14,MINRENTP 0490 00951000 L @08,XTLMSBAD-1(,BUFP) 0490 00952000 LA @08,0(,@08) 0490 00953000 SLR @14,@08 0490 00954000 LCR @14,@14 0490 00955000 L @08,XTLMSBLN-1(,BUFP) 0490 00956000 LA @08,0(,@08) 0490 00957000 ALR @14,@08 0490 00958000 ST @14,ESAUDLE 0490 00959000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 00960000 ST R9,@AL00001 0491 00961000 LA @14,ESAU 0491 00962000 ST @14,@AL00001+4 0491 00963000 L @08,ZZ2RVTP(,R9) 0491 00964000 L @15,RVTESARP(,@08) 0491 00965000 LA @01,@AL00001 0491 00966000 BALR @14,@15 0491 00967000 * END; 0492 00968000 * IF ZZ2AFV='1'B THEN /* VERIFY */ 00969000 @RF00485 TM ZZ2AFV(R9),B'00001000' 0493 00970000 BNO @RF00493 0493 00971000 * CALL BLST01(ZZ2,ESAU); /* DUMP BLOCK */ 00972000 ST R9,@AL00001 0494 00973000 LA @14,ESAU 0494 00974000 ST @14,@AL00001+4 0494 00975000 L @08,ZZ2RVTP(,R9) 0494 00976000 L @15,RVTT01P(,@08) 0494 00977000 LA @01,@AL00001 0494 00978000 BALR @14,@15 0494 00979000 * RETC=0; /* SUCCESSFUL */ 00980000 @RF00493 SLR RETC,RETC 0495 00981000 * RF=0; /* SUCCESS */ 00982000 SLR RF,RF 0496 00983000 * 0497 00984000 * /*****************************************************************/ 00985000 * /* */ 00986000 * /* PROGRAM EXIT */ 00987000 * /* */ 00988000 * /*****************************************************************/ 00989000 * 0497 00990000 *EXITRLSA: /* EXIT WITH PDL */ 00991000 * RETC=MIN(MAX(RF,RETC),ZZZFLAGT);/* SET MAX RETURN CODE */ 00992000 EXITRLSA LR @14,RETC 0497 00993000 CR @14,RF 0497 00994000 BNL *+6 00995000 LR @14,RF 0497 00996000 LA @08,16 0497 00997000 CR @14,@08 0497 00998000 BNH *+6 00999000 LR @14,@08 0497 01000000 LR RETC,@14 0497 01001000 * IF RETC=0 THEN /* NORMAL RETURN */ 01002000 * 0498 01003000 LTR RETC,RETC 0498 01004000 BNZ @RF00498 0498 01005000 * /***************************************************************/ 01006000 * /* */ 01007000 * /* NORMAL RETURN */ 01008000 * /* */ 01009000 * /***************************************************************/ 01010000 * 0499 01011000 * DO; /* NORMAL RETURN */ 01012000 * ESAUSYM='X'; /* CHANGE SYMBOL TO X */ 01013000 MVI ESAUSYM+1,C' ' 0500 01014000 MVC ESAUSYM+2(29),ESAUSYM+1 0500 01015000 MVI ESAUSYM,C'X' 0500 01016000 * CALL BLSRESAR(ZZ2,ESAU); /* ADD/REPLACE ES RECORD */ 01017000 ST R9,@AL00001 0501 01018000 LA @14,ESAU 0501 01019000 ST @14,@AL00001+4 0501 01020000 L @08,ZZ2RVTP(,R9) 0501 01021000 L @15,RVTESARP(,@08) 0501 01022000 LA @01,@AL00001 0501 01023000 BALR @14,@15 0501 01024000 * END; 0502 01025000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 01026000 @RF00498 B @DE00503 0503 01027000 @DL00503 DS 0H 0504 01028000 * PDRPTR=PDAPTR; 0504 01029000 L PDRPTR,PDAPTR 0504 01030000 * PDAPTR=PDXP; 0505 01031000 L @14,PDXP-1(,PDRPTR) 0505 01032000 LA @14,0(,@14) 0505 01033000 ST @14,PDAPTR 0505 01034000 * DO; /* FREEMAIN(R) 0506 01035000 * LV(PDL)SP(1)A(PDDSECT) */ 01036000 * RESPECIFY 0507 01037000 * (GPR01F, 0507 01038000 * GPR00F) RESTRICTED; 0507 01039000 * GPR00F=PDL; /* LENGTH REQUESTED */ 01040000 L GPR00F,PDL-1(,PDRPTR) 0508 01041000 ICM GPR00F,8,@CB01723 0508 01042000 * GPR01F=1; /* SP IN REG 1 */ 01043000 LA GPR01F,1 0509 01044000 * GEN(SLL GPR01F,24) 0510 01045000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0510 01046000 SLL GPR01F,24 01047000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 01048000 OR GPR00F,GPR01F 0511 01049000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 01050000 LR GPR01F,PDRPTR 0512 01051000 * SVC(10); /* R-FORM OF GETMAIN */ 01052000 SVC 10 0513 01053000 * RESPECIFY 0514 01054000 * (GPR01F, 0514 01055000 * GPR00F) UNRESTRICTED; 0514 01056000 * END; /* FREEMAIN(R) 0515 01057000 * LV(PDL)SP(1)A(PDDSECT) */ 01058000 * END; /* BLRRLSA MF(E,PD) */ 01059000 @DE00503 L @14,PDAPTR 0516 01060000 LTR @14,@14 0516 01061000 BNZ @DL00503 0516 01062000 *EXITNORL: 0517 01063000 * RETURN CODE(RETC); /* MODULE EXIT */ 01064000 EXITNORL L @13,4(,@13) 0517 01065000 L @00,@SIZDATD 0517 01066000 LR @01,@11 0517 01067000 BLSUFRER R,LV=(0),A=(1) 01068000 LR @15,@06 0517 01069000 L @14,12(,@13) 0517 01070000 LM @00,@12,20(@13) 0517 01071000 BR @14 0517 01072000 * 0518 01073000 */*BLSRPEND--DEBUGGING MODULE */ 01074000 */*BLSUPEND--MVS IPCS MODULE */ 01075000 * 0518 01076000 * DECLARE /* DATA FOR AHB MACROS */ 01077000 * CNVCH CHARACTER(8) BOUNDARY(DWORD),/* DATA CONVERSION WORK AREA 01078000 * FOR CHARACTER DATA */ 01079000 * ZONED CHARACTER(16) BOUNDARY(DWORD);/* DATA CONVERSION WORK 0518 01080000 * AREA */ 01081000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01082000 * GPR00F FIXED(31) REG(0), 0519 01083000 * GPR01F FIXED(31) REG(1), 0519 01084000 * GPR15F FIXED(31) REG(15); 0519 01085000 * DECLARE /* COMMON VARIABLES */ 01086000 * I256C CHAR(256) BASED, 0520 01087000 * I031F FIXED(31) BASED, 0520 01088000 * I031P PTR(31) BASED, 0520 01089000 * I015F FIXED(15) BASED, 0520 01090000 * I015P PTR(15) BASED, 0520 01091000 * I008P PTR(8) BASED, 0520 01092000 * I001C CHAR(1) BASED; 0520 01093000 * GENERATE NODEFS NOREFS DATA; 0521 01094000 * END BLSRFMOD /* BLRPEND(BLSRFMOD) */ 01095000 * 0522 01096000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01097000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01098000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01099000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01100000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01101000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01102000 */*%INCLUDE SYSLIB (IKJECT ) */ 01103000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01104000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01105000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01106000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01107000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01108000 */*%INCLUDE SYSLIB (CVT ) */ 01109000 */*%INCLUDE SYSLIB (IHACDE ) */ 01110000 */*%INCLUDE SYSLIB (IHAXTLST) */ 01111000 */*%INCLUDE SYSLIB (IHALPDE ) */ 01112000 * 0522 01113000 * ; 0522 01114000 @EL00001 L @13,4(,@13) 0522 01115000 @EF00001 L @00,@SIZDATD 0522 01116000 LR @01,@11 0522 01117000 BLSUFRER R,LV=(0),A=(1) 01118000 @ER00001 LM @14,@12,12(@13) 0522 01119000 BR @14 0522 01120000 @DATA DS 0H 01121000 @CH00043 DC H'1' 01122000 @CH01973 DC H'40' 01123000 @SM01980 MVC 0(0,@08),PMODI(@04) 01124000 @SM01982 MVC PGMNAME(0),PMODI(@08) 01125000 @SM01984 MVC BUFTEST(0),PMODI(@04) 01126000 @SM01986 MVC PGMNAME(0),BUFTES8 01127000 @DATD DSECT 01128000 DS 0F 01129000 @SA00001 DS 18F 01130000 @AL00001 DS 3A 01131000 BLSRFMOD CSECT 01132000 DS 0F 01133000 @CF00068 DC F'2' 01134000 @CH00068 EQU @CF00068+2 01135000 @CF00040 DC F'4' 01136000 @CF00051 DC F'8' 01137000 @CH00051 EQU @CF00051+2 01138000 @CF00033 DC F'12' 01139000 @CH00033 EQU @CF00033+2 01140000 @CF00054 DC F'16' 01141000 @CF00062 DC F'32' 01142000 @CF01970 DC F'188' 01143000 @CF01972 DC F'360' 01144000 @CF01971 DC F'552' 01145000 @CF01906 DC XL4'00FFFFFF' 01146000 @DATD DSECT 01147000 DS 0D 01148000 PDAPTR DS A 01149000 SAVEVMDI DS A 01150000 HASHED DS F 01151000 DS CL4 01152000 ESAU DS CL694 01153000 ORG ESAU 01154000 ESAURID DS CL2 01155000 @NM00094 DS BL6 01156000 @NM00095 DS CL8 01157000 @NM00096 DS BL8 01158000 ESAURDX DS FL4 01159000 ESAUSYM DS CL31 01160000 ESAUELK DS 0C 01161000 ESAURV1 DS CL1 01162000 ESAUAS DS CL16 01163000 ORG ESAUAS 01164000 ESAUAS0 DS 0C 01165000 ESAUAST DS CL2 01166000 @NM00097 DS BL2 01167000 ESAUAS1 DS FL4 01168000 ESAUAS2 DS FL4 01169000 @NM00098 DS BL4 01170000 ESAUAS9 DS 0C 01171000 ORG ESAU+76 01172000 ESAULAD DS AL4 01173000 ESAUD DS CL60 01174000 ORG ESAUD 01175000 ESAUD00 DS 0C 01176000 ESAUDOF DS FL4 01177000 ESAUDLE DS FL4 01178000 ESAUDOB DS FL1 01179000 ESAUDLB DS FL1 01180000 ESAUDT DS CL34 01181000 ORG ESAUDT 01182000 ESAUDT0 DS 0C 01183000 ESAUDTY DS CL1 01184000 @NM00099 DS BL1 01185000 ESAUDTD DS CL31 01186000 ESAUDTE DS CL1 01187000 ESAUDT9 DS 0C 01188000 ORG ESAUD+44 01189000 ESAUDIM DS FL4 01190000 ESAUDIL DS FL4 01191000 ESAUDF DS BL4 01192000 ORG ESAUDF 01193000 ESAUDFA DS BL1 01194000 @NM00100 EQU ESAUDF+0 01195000 ORG ESAUD+56 01196000 @NM00101 DS BL4 01197000 ESAUD99 DS 0C 01198000 ORG ESAU+140 01199000 ESAUMAD DS AL4 01200000 @NM00102 DS BL16 01201000 ESAUKEY DS BL1 01202000 ESAUF DS BL3 01203000 ORG ESAUF 01204000 ESAUFS DS BL1 01205000 ORG ESAUFS 01206000 ESAUFSC DS BL1 01207000 ESAUFS2 EQU ESAUFS+0 01208000 ESAUFSM EQU ESAUFS+0 01209000 ESAUFSA EQU ESAUFS+0 01210000 ESAUFSP EQU ESAUFS+0 01211000 ESAUFSR EQU ESAUFS+0 01212000 ESAUFSX EQU ESAUFS+0 01213000 ESAUFSS EQU ESAUFS+0 01214000 ORG ESAUF+1 01215000 ESAUFC DS BL1 01216000 ORG ESAUFC 01217000 ESAUFCD DS BL1 01218000 @NM00103 EQU ESAUFC+0 01219000 ORG ESAUF+2 01220000 @NM00104 DS BL1 01221000 ORG ESAU+164 01222000 ESAUABS DS FL4 01223000 @NM00105 DS BL12 01224000 ESAUR DS CL514 01225000 ORG ESAUR 01226000 ESAURL DS FL2 01227000 ESAURT DS CL512 01228000 ORG ESAURT 01229000 ESAURT1 DS CL512 01230000 ORG ESAU+694 01231000 ESAU999 DS 0C 01232000 ORG ESAU+694 01233000 DS CL2 01234000 OLD DS CL12 01235000 ORG OLD 01236000 OLDN DS FL4 01237000 OLDP DS 2A 01238000 ORG OLD+12 01239000 IN81 DS CL12 01240000 ORG IN81 01241000 IN81L DS FL2 01242000 IN81O DS FL2 01243000 IN81T DS CL8 01244000 ORG IN81T 01245000 IN81T1 DS CL8 01246000 ORG IN81+12 01247000 FLAG DS BL1 01248000 ORG FLAG 01249000 FLAGMINR DS BL1 01250000 OK EQU FLAG+0 01251000 @NM00120 EQU FLAG+0 01252000 ORG FLAG+1 01253000 BUFTEST DS CL16 01254000 BUFTES2 DS CL16 01255000 DS CL7 01256000 BUFA DS CL256 01257000 MAJRNAME DS CL8 01258000 MINRNAME DS CL8 01259000 PGMNAME DS CL8 01260000 ZONED DS CL16 01261000 CNVCH DS CL8 01262000 BLSRFMOD CSECT 01263000 DS 0F 01264000 @SIZDATD DC AL1(0) 01265000 DC AL3(@ENDDATD-@DATD) 01266000 DS 0D 01267000 PCPTR DC AL4(PC) 01268000 @CC01930 DC C'0000000000000000' 01269000 @CC01952 DC C'MAJOR CDE' 01270000 @CC01939 DC C'CVTQLPAQ' 01271000 @CC01945 DC C'CVTVVMDI' 01272000 @CC01946 DC C'CVTDIRST' 01273000 @CC01940 DC C'CDEPTR' 01274000 @CC01955 DC C'XTLST' 01275000 @CC01947 DC C'LPDE' 01276000 @CC01725 EQU @CC01939 01277000 @CC01941 EQU @CC01940 01278000 @CC01954 DC C'XL' 01279000 @CB01723 DC X'00' 01280000 DS CL1 01281000 DTCVT DS CL34 01282000 ORG DTCVT 01283000 DTCVT0 DS 0C 01284000 DTCVTY DC CL1'M' 01285000 @NM00093 DC X'00' 01286000 DTCVTD DC CL31'CVT' 01287000 DTCVTE DC CL1' ' 01288000 DTCVT9 DS 0C 01289000 ORG DTCVT+34 01290000 DS CL6 01291000 ESCO DS CL182 01292000 ORG ESCO 01293000 ESCORID DC CL2'ES' 01294000 @NM00106 DC X'000000000000' 01295000 @NM00107 DC CL8' ' 01296000 @NM00108 DC X'00' 01297000 DC XL7'0' 01298000 ESCORDX DC A(0) 01299000 ESCOSYM DC CL31' ' 01300000 ESCOELK DS 0C 01301000 ESCORV1 DC CL1' ' 01302000 ESCOAS DS CL16 01303000 ORG ESCOAS 01304000 ESCOAS0 DS 0C 01305000 ESCOAST DC CL2' ' 01306000 @NM00109 DC X'0000' 01307000 ESCOAS1 DC A(0) 01308000 ESCOAS2 DC A(0) 01309000 @NM00110 DC X'00' 01310000 DC XL3'0' 01311000 ESCOAS9 DS 0C 01312000 ORG ESCO+76 01313000 ESCOLAD DC A(0) 01314000 ESCOD DS CL60 01315000 ORG ESCOD 01316000 ESCOD00 DS 0C 01317000 ESCODOF DC F'0' 01318000 ESCODLE DC A(4) 01319000 ESCODOB DC AL1(0) 01320000 ESCODLB DC AL1(0) 01321000 ESCODT DS CL34 01322000 ORG ESCODT 01323000 ESCODT0 DS 0C 01324000 ESCODTY DC CL1'U' 01325000 @NM00111 DC X'00' 01326000 ESCODTD DC CL31' ' 01327000 ESCODTE DC CL1' ' 01328000 ESCODT9 DS 0C 01329000 ORG ESCOD+44 01330000 ESCODIM DC A(0) 01331000 ESCODIL DC F'0' 01332000 ESCODF DC X'00000000' 01333000 ORG ESCODF 01334000 ESCODFA DS BL1 01335000 @NM00112 EQU ESCODF+0 01336000 ORG ESCOD+56 01337000 @NM00113 DC X'00' 01338000 DC XL3'0' 01339000 ESCOD99 DS 0C 01340000 ORG ESCO+140 01341000 ESCOMAD DC A(0) 01342000 @NM00114 DC X'00' 01343000 DC XL15'0' 01344000 ESCOKEY DS BL1 01345000 ESCOF DC X'00' 01346000 DC XL2'0' 01347000 ORG ESCOF 01348000 ESCOFS DS BL1 01349000 ORG ESCOFS 01350000 ESCOFSC DS BL1 01351000 ESCOFS2 EQU ESCOFS+0 01352000 ESCOFSM EQU ESCOFS+0 01353000 ESCOFSA EQU ESCOFS+0 01354000 ESCOFSP EQU ESCOFS+0 01355000 ESCOFSR EQU ESCOFS+0 01356000 ESCOFSX EQU ESCOFS+0 01357000 ESCOFSS EQU ESCOFS+0 01358000 ORG ESCOF+1 01359000 ESCOFC DS BL1 01360000 ORG ESCOFC 01361000 ESCOFCD DS BL1 01362000 @NM00115 EQU ESCOFC+0 01363000 ORG ESCOF+2 01364000 @NM00116 DS BL1 01365000 ORG ESCO+164 01366000 ESCOABS DC A(0) 01367000 @NM00117 DC X'00' 01368000 DC XL11'0' 01369000 ESCOR DS CL2 01370000 ORG ESCOR 01371000 ESCORL DC AL2(0) 01372000 ESCORT DS 0C 01373000 ORG ESCORT 01374000 ESCORT1 DS 0C 01375000 ORG ESCO+182 01376000 ESCO999 DS 0C 01377000 ORG ESCO+182 01378000 M015 DS CL40 01379000 ORG M015 01380000 M015L DC AL2(40) 01381000 @NM00118 DC X'0000' 01382000 M015T DS CL36 01383000 ORG M015T 01384000 M015TA DC CL36'BLS18015I REQUESTED MODULE NOT FOUND' 01385000 ORG M015+40 01386000 M016 DS CL44 01387000 ORG M016 01388000 M016L DC AL2(44) 01389000 M016O DC AL2(0) 01390000 M016T DS CL40 01391000 ORG M016T 01392000 M016T1 DC CL40'BLS18016I MAJOR NAME FOR THIS MODULE IS ' 01393000 M016T2 DS 0C 01394000 ORG M016+44 01395000 M095 DS CL33 01396000 ORG M095 01397000 M095L DC AL2(33) 01398000 @NM00119 DC X'0000' 01399000 M095T DS CL29 01400000 ORG M095T 01401000 M095TA DC CL29'BLS18095I INVALID MODULE NAME' 01402000 ORG M095+33 01403000 DS CL1 01404000 PXDO DC AL2(PXDSPL-PD) 01405000 DC 2AL2(0) 01406000 DC AL2(PXDRMK-PD) 01407000 DC AL2(PXDREQ-PD) 01408000 DC AL2(PXDSTG-PD) 01409000 DC AL2(PXDSYM-PD) 01410000 DC AL2(PXDMCH-PD) 01411000 DC 3AL2(0) 01412000 PXRO DC AL2(PXPRINT-PD) 01413000 DC AL2(PXTERM-PD) 01414000 DC AL2(PXDFLG-PD) 01415000 DC AL2(PXDFLV-PD) 01416000 @DATD DSECT 01417000 SPACE 2 01418000 *********************************************************************** 01419000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01420000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01421000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01422000 *********************************************************************** 01423000 SPACE 01424000 BLSRFMOD CSECT 01425000 ORG 01426000 DS 0D 01427000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRFMOD+19)/20+7)/8)CL8'BLSRFMOD' 01428000 @DATD DSECT 01429000 DS 0H 01430000 @DATD DSECT 01431000 SPACE 2 01432000 *********************************************************************** 01433000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01434000 *********************************************************************** 01435000 SPACE 01436000 BLSRFMOD CSECT 01437000 PC IKJPARM DSECT=PD 01438000 @DATD DSECT 01439000 BLSRFMOD CSECT 01440000 PMOD IKJIDENT 'MODULE NAME',FIRST=ALPHA,MAXLNTH=16,OTHER=ALPHANUM, *01441000 PROMPT='MODULE NAME' 01442000 @DATD DSECT 01443000 BLSRFMOD CSECT 01444000 HEXCHAR IKJKEYWD DEFAULT='CHARACTER' 01445000 @DATD DSECT 01446000 BLSRFMOD CSECT 01447000 IKJNAME 'CHARACTER' 01448000 @DATD DSECT 01449000 BLSRFMOD CSECT 01450000 IKJNAME 'HEXADECIMAL' 01451000 @DATD DSECT 01452000 BLSRFMOD CSECT 01453000 PXDSPL IKJKEYWD 01454000 @DATD DSECT 01455000 BLSRFMOD CSECT 01456000 IKJNAME 'DISPLAY',SUBFLD=PXSUBFD 01457000 @DATD DSECT 01458000 BLSRFMOD CSECT 01459000 IKJNAME 'NODISPLAY',SUBFLD=PXSUBFD 01460000 @DATD DSECT 01461000 BLSRFMOD CSECT 01462000 PXVER IKJKEYWD 01463000 @DATD DSECT 01464000 BLSRFMOD CSECT 01465000 IKJNAME 'VERIFY' 01466000 @DATD DSECT 01467000 BLSRFMOD CSECT 01468000 IKJNAME 'NOVERIFY' 01469000 @DATD DSECT 01470000 BLSRFMOD CSECT 01471000 PXPRINT IKJKEYWD 01472000 @DATD DSECT 01473000 BLSRFMOD CSECT 01474000 IKJNAME 'PRINT' 01475000 @DATD DSECT 01476000 BLSRFMOD CSECT 01477000 IKJNAME 'NOPRINT' 01478000 @DATD DSECT 01479000 BLSRFMOD CSECT 01480000 PXTERM IKJKEYWD 01481000 @DATD DSECT 01482000 BLSRFMOD CSECT 01483000 IKJNAME 'TERMINAL' 01484000 @DATD DSECT 01485000 BLSRFMOD CSECT 01486000 IKJNAME 'NOTERMINAL' 01487000 @DATD DSECT 01488000 BLSRFMOD CSECT 01489000 PXDFLG IKJKEYWD 01490000 @DATD DSECT 01491000 BLSRFMOD CSECT 01492000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 01493000 @DATD DSECT 01494000 BLSRFMOD CSECT 01495000 PXTEST IKJKEYWD 01496000 @DATD DSECT 01497000 BLSRFMOD CSECT 01498000 IKJNAME 'TEST' 01499000 @DATD DSECT 01500000 BLSRFMOD CSECT 01501000 IKJNAME 'NOTEST' 01502000 @DATD DSECT 01503000 BLSRFMOD CSECT 01504000 SPACE 01505000 PXSUBFM IKJSUBF 01506000 @DATD DSECT 01507000 BLSRFMOD CSECT 01508000 PXDFLV IKJKEYWD 01509000 @DATD DSECT 01510000 BLSRFMOD CSECT 01511000 IKJNAME 'INFORMATIONAL' 01512000 @DATD DSECT 01513000 BLSRFMOD CSECT 01514000 IKJNAME 'WARNING' 01515000 @DATD DSECT 01516000 BLSRFMOD CSECT 01517000 IKJNAME 'ERROR' 01518000 @DATD DSECT 01519000 BLSRFMOD CSECT 01520000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 01521000 @DATD DSECT 01522000 BLSRFMOD CSECT 01523000 IKJNAME 'TERMINATING' 01524000 @DATD DSECT 01525000 BLSRFMOD CSECT 01526000 SPACE 01527000 PXSUBFD IKJSUBF 01528000 @DATD DSECT 01529000 BLSRFMOD CSECT 01530000 PXDRMK IKJKEYWD 01531000 @DATD DSECT 01532000 BLSRFMOD CSECT 01533000 IKJNAME 'REMARK' 01534000 @DATD DSECT 01535000 BLSRFMOD CSECT 01536000 IKJNAME 'NOREMARK' 01537000 @DATD DSECT 01538000 BLSRFMOD CSECT 01539000 PXDREQ IKJKEYWD 01540000 @DATD DSECT 01541000 BLSRFMOD CSECT 01542000 IKJNAME 'REQUEST' 01543000 @DATD DSECT 01544000 BLSRFMOD CSECT 01545000 IKJNAME 'NOREQUEST' 01546000 @DATD DSECT 01547000 BLSRFMOD CSECT 01548000 PXDSTG IKJKEYWD 01549000 @DATD DSECT 01550000 BLSRFMOD CSECT 01551000 IKJNAME 'STORAGE' 01552000 @DATD DSECT 01553000 BLSRFMOD CSECT 01554000 IKJNAME 'NOSTORAGE' 01555000 @DATD DSECT 01556000 BLSRFMOD CSECT 01557000 PXDSYM IKJKEYWD 01558000 @DATD DSECT 01559000 BLSRFMOD CSECT 01560000 IKJNAME 'SYMBOL' 01561000 @DATD DSECT 01562000 BLSRFMOD CSECT 01563000 IKJNAME 'NOSYMBOL' 01564000 @DATD DSECT 01565000 BLSRFMOD CSECT 01566000 PXDMCH IKJKEYWD 01567000 @DATD DSECT 01568000 BLSRFMOD CSECT 01569000 IKJNAME 'MACHINE' 01570000 @DATD DSECT 01571000 BLSRFMOD CSECT 01572000 IKJNAME 'NOMACHINE' 01573000 @DATD DSECT 01574000 PD DSECT 01575000 PD99 DS 0C 01576000 BLSRFMOD CSECT 01577000 IKJENDP 01578000 SPACE 2 01579000 *********************************************************************** 01580000 * IKJENDP--END SYNTAX DESCRIPTION * 01581000 *********************************************************************** 01582000 SPACE 01583000 @DATD DSECT 01584000 SPACE 2 01585000 *********************************************************************** 01586000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01587000 *********************************************************************** 01588000 SPACE 01589000 DS 0D 01590000 @DATD DSECT 01591000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01592000 @ENDDATD EQU * 01593000 BLSRFMOD CSECT 01594000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01595000 @01 EQU 01 01596000 @02 EQU 02 01597000 @03 EQU 03 01598000 @04 EQU 04 01599000 @05 EQU 05 01600000 @06 EQU 06 01601000 @07 EQU 07 01602000 @08 EQU 08 01603000 @09 EQU 09 01604000 @10 EQU 10 01605000 @11 EQU 11 01606000 @12 EQU 12 01607000 @13 EQU 13 01608000 @14 EQU 14 01609000 @15 EQU 15 01610000 RETC EQU @06 01611000 THECVTPT EQU @06 01612000 MINRENTP EQU @07 01613000 MAJRENTP EQU @02 01614000 BUFP EQU @05 01615000 R9 EQU @09 01616000 R0 EQU @00 01617000 R1 EQU @01 01618000 R2 EQU @02 01619000 R3 EQU @03 01620000 R4 EQU @04 01621000 R5 EQU @05 01622000 RB EQU @11 01623000 RD EQU @13 01624000 RE EQU @14 01625000 RF EQU @15 01626000 PDRPTR EQU @10 01627000 GPR15F EQU @15 01628000 GPR01F EQU @01 01629000 GPR00F EQU @00 01630000 RA EQU @10 01631000 RC EQU @12 01632000 R6 EQU @06 01633000 R7 EQU @07 01634000 R8 EQU @08 01635000 ZZ1 EQU 0 01636000 ZZ1ATTN EQU ZZ1+360 01637000 ZZ1EVE EQU ZZ1ATTN+4 01638000 ZZ1F EQU ZZ1+368 01639000 ZZ1TRHEX EQU ZZ1+568 01640000 ZZ1N EQU ZZ1+1116 01641000 ZZ1TRCTX EQU ZZ1+1392 01642000 ZZ2 EQU 0 01643000 ZZ2AMD EQU ZZ2 01644000 @NM00013 EQU ZZ2AMD+7 01645000 ZZ2PRT EQU ZZ2+138 01646000 ZZ2PRTT EQU ZZ2PRT+4 01647000 ZZ2PRTT1 EQU ZZ2PRTT+1 01648000 ZZ2A EQU ZZ2+272 01649000 ZZ2AF EQU ZZ2A+16 01650000 ZZ2AFV EQU ZZ2AF+1 01651000 ZZ2AFX EQU ZZ2AF+5 01652000 ZZ2APID EQU ZZ2A+64 01653000 ZZ2AD EQU ZZ2A+74 01654000 ZZ2ADD EQU ZZ2AD 01655000 ZZ2ADDT EQU ZZ2ADD+2 01656000 ZZ2ADM EQU ZZ2AD+46 01657000 ZZ2ADMT EQU ZZ2ADM+2 01658000 ZZ2ADP EQU ZZ2AD+56 01659000 ZZ2ADPT EQU ZZ2ADP+2 01660000 ZZ2AZZ6P EQU ZZ2A+140 01661000 ZZ2AQAS EQU ZZ2A+144 01662000 ZZ2AQD EQU ZZ2A+160 01663000 ZZ2AQDT EQU ZZ2AQD+10 01664000 ZZ2AQDF EQU ZZ2AQD+52 01665000 ZZ2STG EQU ZZ2+960 01666000 ZZ2ALLOP EQU ZZ2+992 01667000 ZZ2FREEP EQU ZZ2+996 01668000 ZZ2FF19P EQU ZZ2+1000 01669000 ZZ2FRE1P EQU ZZ2+1004 01670000 ZZ2FF18P EQU ZZ2+1008 01671000 ZZ2DYNAP EQU ZZ2+1012 01672000 ZZ2ZZ2CP EQU ZZ2+1016 01673000 ZZ2ZZ2DP EQU ZZ2+1020 01674000 ZZ2STAIP EQU ZZ2+1024 01675000 ZZ2FF02P EQU ZZ2+1028 01676000 ZZ2GETLP EQU ZZ2+1032 01677000 ZZ2PARSP EQU ZZ2+1036 01678000 ZZ2PTGTP EQU ZZ2+1040 01679000 ZZ2PUTLP EQU ZZ2+1044 01680000 ZZ2SCANP EQU ZZ2+1048 01681000 ZZ2STCKP EQU ZZ2+1052 01682000 ZZ2TRMOP EQU ZZ2+1064 01683000 ZZ2TRMVP EQU ZZ2+1068 01684000 ZZ2PUTNP EQU ZZ2+1084 01685000 ZZ2TRMNP EQU ZZ2+1088 01686000 ZZ2ZZ1P EQU ZZ2+1264 01687000 ZZ2BVTP EQU ZZ2+1280 01688000 ZZ2RVTP EQU ZZ2+1284 01689000 ZZ2CPPL EQU ZZ2+1292 01690000 ZZ2CPPLC EQU ZZ2CPPL 01691000 ZZ2ITR EQU ZZ2+2840 01692000 ZZ2ITRE EQU ZZ2ITR+16 01693000 ZZ2ITSE EQU ZZ2+2864 01694000 ZZ2ES EQU ZZ2+2872 01695000 ZZ2AMDX EQU ZZ2+7160 01696000 ZZ2AXO EQU ZZ2+7934 01697000 ZZ2AXOT EQU ZZ2AXO+2 01698000 CMD EQU 0 01699000 CMDT EQU CMD+4 01700000 PSCB EQU 0 01701000 PSCBATR1 EQU PSCB+16 01702000 ECT EQU 0 01703000 ECTSWS EQU ECT+28 01704000 ECTSWS2 EQU ECT+40 01705000 ECTSWS21 EQU ECTSWS2 01706000 UPT EQU 0 01707000 UPTSWS EQU UPT+12 01708000 SA EQU 0 01709000 SA1 EQU SA 01710000 SAR EQU SA+12 01711000 SAR1 EQU SAR+12 01712000 BLSUPARI EQU 0 01713000 BLSUPARU EQU 0 01714000 BLSUPUTO EQU 0 01715000 BLSUPUTV EQU 0 01716000 BVT EQU 0 01717000 BVTPUTLP EQU BVT+4 01718000 BVTPUTOP EQU BVT+12 01719000 BVTPUTTP EQU BVT+16 01720000 BVTPUTVP EQU BVT+20 01721000 BVTPUTAP EQU BVT+24 01722000 BVTPRTTP EQU BVT+28 01723000 BVTPRTAP EQU BVT+32 01724000 BVTPUTDP EQU BVT+36 01725000 BVTMONP EQU BVT+40 01726000 BVTMON2P EQU BVT+44 01727000 BVTVSARP EQU BVT+48 01728000 BVTVSENP EQU BVT+64 01729000 BVTVSERP EQU BVT+68 01730000 BVTVSGEP EQU BVT+72 01731000 BVTVSGUP EQU BVT+76 01732000 BVTVSPOP EQU BVT+80 01733000 BVTVSPUP EQU BVT+84 01734000 BVTMPKNP EQU BVT+104 01735000 BVTMONLP EQU BVT+108 01736000 BVTPUTCP EQU BVT+132 01737000 BVTMPK1P EQU BVT+136 01738000 BVTZZ2RP EQU BVT+140 01739000 BVTPGMRP EQU BVT+144 01740000 BVTMONAP EQU BVT+148 01741000 BVTBLDDP EQU BVT+152 01742000 BVTBLDLP EQU BVT+156 01743000 BVTPGMCP EQU BVT+160 01744000 BVTPGMDP EQU BVT+164 01745000 BVTPGMLP EQU BVT+168 01746000 BVTMONCP EQU BVT+180 01747000 BVTMONDP EQU BVT+184 01748000 BVTMONTP EQU BVT+188 01749000 BVTPARIP EQU BVT+192 01750000 BVTPARUP EQU BVT+196 01751000 BVTPRTNP EQU BVT+204 01752000 BVTVSCRP EQU BVT+208 01753000 BVTVSMRP EQU BVT+212 01754000 BVTMONXP EQU BVT+216 01755000 BVTTRMAP EQU BVT+228 01756000 ZZ6 EQU 0 01757000 ZZ6D EQU ZZ6+128 01758000 ZZ6DD EQU ZZ6D+8 01759000 ZZ6DDT EQU ZZ6DD+4 01760000 ZZ6DQA EQU ZZ6D+68 01761000 ZZ6DF EQU ZZ6D+92 01762000 ZZ6B EQU ZZ6+768 01763000 BLSRACC EQU 0 01764000 BLSRESAR EQU 0 01765000 BLSRESGE EQU 0 01766000 BLSRESGU EQU 0 01767000 BLST01 EQU 0 01768000 BLSRPADS EQU 0 01769000 RVT EQU 0 01770000 RVTADDRP EQU RVT 01771000 RVTT01P EQU RVT+4 01772000 RVTTAP EQU RVT+8 01773000 RVTTBP EQU RVT+12 01774000 RVTTCP EQU RVT+16 01775000 RVTTFP EQU RVT+24 01776000 RVTTYP EQU RVT+40 01777000 RVTT02P EQU RVT+48 01778000 RVTT03P EQU RVT+52 01779000 RVTT04P EQU RVT+56 01780000 RVTACCLP EQU RVT+60 01781000 RVTRACCP EQU RVT+64 01782000 RVTTLP EQU RVT+68 01783000 RVTTMP EQU RVT+72 01784000 RVTTUP EQU RVT+80 01785000 RVTESGEP EQU RVT+84 01786000 RVTESGUP EQU RVT+88 01787000 RVTESARP EQU RVT+92 01788000 RVTRAARP EQU RVT+96 01789000 RVTRAGEP EQU RVT+100 01790000 RVTADDPP EQU RVT+104 01791000 RVTACCQP EQU RVT+108 01792000 RVTSAGUP EQU RVT+124 01793000 RVTSAGEP EQU RVT+128 01794000 RVTESCKP EQU RVT+132 01795000 RVTMSGAP EQU RVT+136 01796000 RVTMSGDP EQU RVT+140 01797000 RVTADDTP EQU RVT+160 01798000 RVTADDUP EQU RVT+164 01799000 RVTADD1P EQU RVT+176 01800000 RVTADD2P EQU RVT+180 01801000 RVTRSAGP EQU RVT+184 01802000 RVTMSGBP EQU RVT+188 01803000 RVTADDSP EQU RVT+192 01804000 RVTADD3P EQU RVT+196 01805000 RVTT05P EQU RVT+200 01806000 RVTPADSP EQU RVT+204 01807000 RVTTRP EQU RVT+228 01808000 RVTADD4P EQU RVT+232 01809000 RVTSAPCP EQU RVT+236 01810000 RVTSAARP EQU RVT+240 01811000 RVTSAGNP EQU RVT+244 01812000 RVTT06P EQU RVT+248 01813000 RVTSAGCP EQU RVT+252 01814000 RVTSAGQP EQU RVT+256 01815000 RVTESGCP EQU RVT+260 01816000 RVTESGQP EQU RVT+264 01817000 RVTDUCKP EQU RVT+276 01818000 RVTDUCCP EQU RVT+280 01819000 CVTMAP EQU 0 01820000 CVT EQU CVTMAP 01821000 CVTDAR EQU CVTMAP+72 01822000 CVTFLGS1 EQU CVTDAR 01823000 CVTDCB EQU CVTMAP+116 01824000 CVTIOQET EQU CVTMAP+120 01825000 CVTIERLC EQU CVTMAP+144 01826000 CVTHEAD EQU CVTMAP+160 01827000 CVTSV76C EQU CVTHEAD 01828000 CVTOPTA EQU CVTMAP+182 01829000 CVTOPTB EQU CVTMAP+183 01830000 CVTQLPAQ EQU CVTMAP+188 01831000 CVTGTF EQU CVTMAP+236 01832000 CVTGTFST EQU CVTGTF 01833000 CVTGTFS EQU CVTGTFST 01834000 CVTSTATE EQU CVTGTFST 01835000 CVTTMODE EQU CVTGTFST 01836000 CVTFORM EQU CVTGTFST 01837000 CVTAQAVT EQU CVTMAP+240 01838000 CVTTCMFG EQU CVTAQAVT 01839000 CVTVOLM2 EQU CVTMAP+244 01840000 CVTTATA EQU CVTVOLM2 01841000 CVTTSKS EQU CVTTATA 01842000 CVTVOLF2 EQU CVTTSKS 01843000 CVTTAT EQU CVTTATA+1 01844000 CVTATER EQU CVTMAP+248 01845000 CVTEXT1 EQU CVTMAP+252 01846000 CVTPURG EQU CVTMAP+260 01847000 CVTQMSG EQU CVTMAP+268 01848000 CVTDMSR EQU CVTMAP+272 01849000 CVTRSV37 EQU CVTDMSR 01850000 CVTDMSRF EQU CVTRSV37 01851000 CVTERPV EQU CVTMAP+316 01852000 CVTINTLA EQU CVTMAP+320 01853000 CVTAPF EQU CVTMAP+324 01854000 CVTEXT2 EQU CVTMAP+328 01855000 CVTHJES EQU CVTMAP+332 01856000 CVTPGSIA EQU CVTMAP+348 01857000 CVTA1F1 EQU CVTMAP+356 01858000 CVTSYSK EQU CVTMAP+357 01859000 CVTVOLM1 EQU CVTMAP+380 01860000 CVTVOLF1 EQU CVTVOLM1 01861000 CVTATMCT EQU CVTMAP+388 01862000 CVTXTNT1 EQU 0 01863000 CVTXTNT2 EQU 0 01864000 CVTDSSV EQU CVTXTNT2 01865000 CVTFLGBT EQU CVTXTNT2+5 01866000 CVTQID EQU CVTXTNT2+24 01867000 CVTRV400 EQU CVTXTNT2+52 01868000 CVTRV409 EQU CVTXTNT2+53 01869000 CVTATCVT EQU CVTXTNT2+64 01870000 CVTRV429 EQU CVTXTNT2+84 01871000 CVTRV438 EQU CVTXTNT2+85 01872000 CVTRV457 EQU CVTXTNT2+112 01873000 CVTRV466 EQU CVTXTNT2+113 01874000 CVTFIX EQU 0 01875000 CVTRELNO EQU CVTFIX+252 01876000 CDENTRY EQU 0 01877000 CDCHAIN EQU CDENTRY 01878000 CDNAME EQU CDENTRY+8 01879000 CDENTPT EQU CDENTRY+16 01880000 CDXLMJP EQU CDENTRY+20 01881000 CDATTR EQU CDENTRY+28 01882000 CDMIN EQU CDATTR 01883000 CDATTR2 EQU CDENTRY+29 01884000 XTLST EQU 0 01885000 XTLMSBLA EQU XTLST+8 01886000 XTLMSBLN EQU XTLMSBLA+1 01887000 XTLMSBAA EQU XTLST+12 01888000 XTLMSBAD EQU XTLMSBAA+1 01889000 LPDE EQU 0 01890000 LPDECHN EQU LPDE 01891000 LPDENAME EQU LPDE+8 01892000 LPDENTP EQU LPDE+16 01893000 LPDEATTR EQU LPDE+28 01894000 LPDEMIN EQU LPDEATTR 01895000 LPDEATT2 EQU LPDE+29 01896000 LPDEMJNM EQU LPDE+32 01897000 LPDEXTLN EQU LPDEMJNM 01898000 LPDEXTAD EQU LPDEMJNM+4 01899000 PCCSECT EQU 0 01900000 PDDSECT EQU 0 01901000 PDXP EQU PDDSECT+1 01902000 PDL EQU PDDSECT+5 01903000 PMODI EQU 0 01904000 BUFB EQU 0 01905000 BLSRACCL EQU 0 01906000 BLSRACCQ EQU 0 01907000 BLSRADDP EQU 0 01908000 BLSRADDR EQU 0 01909000 BLSRADDS EQU 0 01910000 BLSRADDT EQU 0 01911000 BLSRADDU EQU 0 01912000 BLSRADD1 EQU 0 01913000 BLSRADD2 EQU 0 01914000 BLSRADD3 EQU 0 01915000 BLSRADD4 EQU 0 01916000 BLSRDUCC EQU 0 01917000 BLSRDUCK EQU 0 01918000 BLSRESCK EQU 0 01919000 BLSRESGC EQU 0 01920000 BLSRESGQ EQU 0 01921000 BLSRMSGA EQU 0 01922000 BLSRMSGB EQU 0 01923000 BLSRMSGD EQU 0 01924000 BLSRRAAR EQU 0 01925000 BLSRRAGE EQU 0 01926000 BLSRSAAR EQU 0 01927000 BLSRSAG EQU 0 01928000 BLSRSAGC EQU 0 01929000 BLSRSAGE EQU 0 01930000 BLSRSAGN EQU 0 01931000 BLSRSAGQ EQU 0 01932000 BLSRSAGU EQU 0 01933000 BLSRSAPC EQU 0 01934000 BLSTA EQU 0 01935000 BLSTB EQU 0 01936000 BLSTC EQU 0 01937000 BLSTF EQU 0 01938000 BLSTL EQU 0 01939000 BLSTM EQU 0 01940000 BLSTR EQU 0 01941000 BLSTU EQU 0 01942000 BLSTY EQU 0 01943000 BLST02 EQU 0 01944000 BLST03 EQU 0 01945000 BLST04 EQU 0 01946000 BLST05 EQU 0 01947000 BLST06 EQU 0 01948000 BLSUALLO EQU 0 01949000 BLSUBLDD EQU 0 01950000 BLSUBLDL EQU 0 01951000 BLSUDYNA EQU 0 01952000 BLSUFREE EQU 0 01953000 BLSUFRE1 EQU 0 01954000 BLSUMON EQU 0 01955000 BLSUMONA EQU 0 01956000 BLSUMONC EQU 0 01957000 BLSUMOND EQU 0 01958000 BLSUMONL EQU 0 01959000 BLSUMONT EQU 0 01960000 BLSUMONX EQU 0 01961000 BLSUMON2 EQU 0 01962000 BLSUMPKN EQU 0 01963000 BLSUMPK1 EQU 0 01964000 BLSUPGMC EQU 0 01965000 BLSUPGMD EQU 0 01966000 BLSUPGML EQU 0 01967000 BLSUPGMR EQU 0 01968000 BLSUPRTA EQU 0 01969000 BLSUPRTN EQU 0 01970000 BLSUPRTT EQU 0 01971000 BLSUPUTA EQU 0 01972000 BLSUPUTC EQU 0 01973000 BLSUPUTD EQU 0 01974000 BLSUPUTL EQU 0 01975000 BLSUPUTN EQU 0 01976000 BLSUPUTT EQU 0 01977000 BLSUSTAI EQU 0 01978000 BLSUTRMA EQU 0 01979000 BLSUTRMN EQU 0 01980000 BLSUTRMO EQU 0 01981000 BLSUTRMV EQU 0 01982000 BLSUVSAR EQU 0 01983000 BLSUVSCR EQU 0 01984000 BLSUVSEN EQU 0 01985000 BLSUVSER EQU 0 01986000 BLSUVSGE EQU 0 01987000 BLSUVSGU EQU 0 01988000 BLSUVSMR EQU 0 01989000 BLSUVSPO EQU 0 01990000 BLSUVSPU EQU 0 01991000 BLSUZZ2C EQU 0 01992000 BLSUZZ2D EQU 0 01993000 BLSUZZ2R EQU 0 01994000 IKJEFF02 EQU 0 01995000 IKJEFF18 EQU 0 01996000 IKJEFF19 EQU 0 01997000 IKJGETL EQU 0 01998000 IKJPARS EQU 0 01999000 IKJPTGT EQU 0 02000000 IKJPUTL EQU 0 02001000 IKJSCAN EQU 0 02002000 IKJSTCK EQU 0 02003000 I001C EQU 0 02004000 I008P EQU 0 02005000 I015F EQU 0 02006000 I015P EQU 0 02007000 I031F EQU 0 02008000 I031P EQU 0 02009000 I256C EQU 0 02010000 PMODIP EQU PMOD 02011000 PMODIL EQU PMOD+4 02012000 PMODIF EQU PMOD+6 02013000 CPPL EQU ZZ2CPPL 02014000 CPPLUPT EQU CPPL+4 02015000 CPPLPSCB EQU CPPL+8 02016000 CPPLECT EQU CPPL+12 02017000 CVTS01 EQU CVTPGSIA 02018000 CVTLPDIA EQU CVTS01+12 02019000 CVTDIRST EQU CVTLPDIA 02020000 CVTSLIDA EQU CVTS01+24 02021000 CVTCTLFG EQU CVTS01+50 02022000 CVTVVMDI EQU CVTS01+204 02023000 CVTRV210 EQU CVTS01+424 02024000 CVTRV219 EQU CVTS01+425 02025000 CVTRV228 EQU CVTS01+426 02026000 CVTRV237 EQU CVTS01+427 02027000 CVTMFRTR EQU CVTS01+452 02028000 CVTRV262 EQU CVTS01+468 02029000 CVTRV271 EQU CVTS01+469 02030000 CVTRV280 EQU CVTS01+470 02031000 CVTRV289 EQU CVTS01+471 02032000 CVTGSDA EQU CVTS01+600 02033000 BUFTES8 EQU BUFTES2 02034000 FIRSTWRD EQU BUFB 02035000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02036000 CVTRV628 EQU CVTS01+728 02037000 CVTRV627 EQU CVTS01+724 02038000 CVTRV626 EQU CVTS01+720 02039000 CVTRV625 EQU CVTS01+716 02040000 CVTRV624 EQU CVTS01+712 02041000 CVTRV623 EQU CVTS01+708 02042000 CVTRV622 EQU CVTS01+704 02043000 CVTRV621 EQU CVTS01+700 02044000 CVTIHASU EQU CVTS01+696 02045000 CVTSUSP EQU CVTS01+692 02046000 CVTT6SVC EQU CVTS01+688 02047000 CVTCDAL EQU CVTS01+684 02048000 CVTTCTL EQU CVTS01+680 02049000 CVTRSUME EQU CVTS01+676 02050000 CVTJTERM EQU CVTS01+672 02051000 CVTASMRM EQU CVTS01+668 02052000 CVTTCASP EQU CVTS01+664 02053000 CVT0PT03 EQU CVTS01+660 02054000 CVT0PT0E EQU CVTS01+656 02055000 CVTRV609 EQU CVTS01+652 02056000 CVTCGK EQU CVTS01+648 02057000 CVTRAC EQU CVTS01+644 02058000 CVTRV606 EQU CVTS01+640 02059000 CVTRV605 EQU CVTS01+636 02060000 CVTRV604 EQU CVTS01+632 02061000 CVTEFF02 EQU CVTS01+628 02062000 CVTCBBR EQU CVTS01+624 02063000 CVTSSCR EQU CVTS01+620 02064000 CVTEVENT EQU CVTS01+616 02065000 CVTCRCA EQU CVTS01+612 02066000 CVTTPIO EQU CVTS01+608 02067000 CVTADV EQU CVTS01+604 02068000 CVTGSDAB EQU CVTGSDA 02069000 CVTQV3 EQU CVTS01+596 02070000 CVTQV2 EQU CVTS01+592 02071000 CVTQV1 EQU CVTS01+588 02072000 CVTRPT EQU CVTS01+584 02073000 CVTSSRB EQU CVTS01+580 02074000 CVTCSDRL EQU CVTS01+576 02075000 CVTEXP1 EQU CVTS01+572 02076000 CVTRMPMT EQU CVTS01+568 02077000 CVTRMPTT EQU CVTS01+564 02078000 CVTVPSA EQU CVTS01+560 02079000 CVTVSTOP EQU CVTS01+556 02080000 CVTGTFR8 EQU CVTS01+552 02081000 CVTQUIT EQU CVTS01+548 02082000 CVTVACR EQU CVTS01+544 02083000 CVTWTCB EQU CVTS01+540 02084000 CVTSTPRS EQU CVTS01+536 02085000 CVT0PT02 EQU CVTS01+532 02086000 CVTDARCM EQU CVTS01+528 02087000 CVTIRECM EQU CVTS01+524 02088000 CVTJRECM EQU CVTS01+520 02089000 CVTVEMS0 EQU CVTS01+516 02090000 CVTSPFRR EQU CVTS01+512 02091000 CVTRLSTG EQU CVTS01+508 02092000 CVT0TC0A EQU CVTS01+504 02093000 CVTGMBR EQU CVTS01+500 02094000 CVTLFRM EQU CVTS01+496 02095000 CVTRMBR EQU CVTS01+492 02096000 CVTVIOP EQU CVTS01+488 02097000 CVTRV307 EQU CVTS01+486 02098000 CVTRV306 EQU CVTS01+484 02099000 CVTRV305 EQU CVTS01+482 02100000 CVTRV304 EQU CVTS01+480 02101000 CVTRV303 EQU CVTS01+478 02102000 CVTRV302 EQU CVTS01+476 02103000 CVTTRCA EQU CVTS01+472 02104000 CVTRV297 EQU CVTRV289 02105000 CVTRV296 EQU CVTRV289 02106000 CVTRV295 EQU CVTRV289 02107000 CVTRV294 EQU CVTRV289 02108000 CVTRV293 EQU CVTRV289 02109000 CVTRV292 EQU CVTRV289 02110000 CVTRV291 EQU CVTRV289 02111000 CVTRV290 EQU CVTRV289 02112000 CVTRV288 EQU CVTRV280 02113000 CVTRV287 EQU CVTRV280 02114000 CVTRV286 EQU CVTRV280 02115000 CVTRV285 EQU CVTRV280 02116000 CVTRV284 EQU CVTRV280 02117000 CVTRV283 EQU CVTRV280 02118000 CVTRV282 EQU CVTRV280 02119000 CVTRV281 EQU CVTRV280 02120000 CVTRV279 EQU CVTRV271 02121000 CVTRV278 EQU CVTRV271 02122000 CVTRV277 EQU CVTRV271 02123000 CVTRV276 EQU CVTRV271 02124000 CVTRV275 EQU CVTRV271 02125000 CVTRV274 EQU CVTRV271 02126000 CVTRV273 EQU CVTRV271 02127000 CVTRV272 EQU CVTRV271 02128000 CVTRV270 EQU CVTRV262 02129000 CVTRV269 EQU CVTRV262 02130000 CVTRV268 EQU CVTRV262 02131000 CVTRV267 EQU CVTRV262 02132000 CVTRV266 EQU CVTRV262 02133000 CVTRV265 EQU CVTRV262 02134000 CVTRV264 EQU CVTRV262 02135000 CVTRV263 EQU CVTRV262 02136000 CVTVFP EQU CVTS01+464 02137000 CVTVSI EQU CVTS01+460 02138000 CVTVPSIB EQU CVTS01+456 02139000 CVTMFACT EQU CVTMFRTR 02140000 CVTMFCTL EQU CVTS01+448 02141000 CVTPVBP EQU CVTS01+444 02142000 CVTPWI EQU CVTS01+440 02143000 CVTRV254 EQU CVTS01+438 02144000 CVTRV253 EQU CVTS01+436 02145000 CVTRV252 EQU CVTS01+434 02146000 CVTRV251 EQU CVTS01+433 02147000 CVTRV250 EQU CVTS01+432 02148000 CVTRV249 EQU CVTS01+431 02149000 CVTRV248 EQU CVTS01+430 02150000 CVTRV247 EQU CVTS01+429 02151000 CVTRV246 EQU CVTS01+428 02152000 CVTRV245 EQU CVTRV237 02153000 CVTRV244 EQU CVTRV237 02154000 CVTRV243 EQU CVTRV237 02155000 CVTRV242 EQU CVTRV237 02156000 CVTRV241 EQU CVTRV237 02157000 CVTRV240 EQU CVTRV237 02158000 CVTRV239 EQU CVTRV237 02159000 CVTRV238 EQU CVTRV237 02160000 CVTRV236 EQU CVTRV228 02161000 CVTRV235 EQU CVTRV228 02162000 CVTRV234 EQU CVTRV228 02163000 CVTRV233 EQU CVTRV228 02164000 CVTRV232 EQU CVTRV228 02165000 CVTRV231 EQU CVTRV228 02166000 CVTRV230 EQU CVTRV228 02167000 CVTRV229 EQU CVTRV228 02168000 CVTRV227 EQU CVTRV219 02169000 CVTRV226 EQU CVTRV219 02170000 CVTRV225 EQU CVTRV219 02171000 CVTRV224 EQU CVTRV219 02172000 CVTRV223 EQU CVTRV219 02173000 CVTRV222 EQU CVTRV219 02174000 CVTRV221 EQU CVTRV219 02175000 CVTRV220 EQU CVTRV219 02176000 CVTRV218 EQU CVTRV210 02177000 CVTRV217 EQU CVTRV210 02178000 CVTRV216 EQU CVTRV210 02179000 CVTRV215 EQU CVTRV210 02180000 CVTRV214 EQU CVTRV210 02181000 CVTRV213 EQU CVTRV210 02182000 CVTRV212 EQU CVTRV210 02183000 CVTRV211 EQU CVTRV210 02184000 CVTLCCAT EQU CVTS01+420 02185000 CVTPCCAT EQU CVTS01+416 02186000 CVTIPCRP EQU CVTS01+412 02187000 CVTIPCRI EQU CVTS01+408 02188000 CVTIPCDS EQU CVTS01+404 02189000 CVTAIDVT EQU CVTS01+400 02190000 CVTSSAP EQU CVTS01+396 02191000 CVTEHCIR EQU CVTS01+392 02192000 CVTEHDEF EQU CVTS01+388 02193000 CVTDAIR EQU CVTS01+384 02194000 CVTPERFM EQU CVTS01+380 02195000 CVT044R2 EQU CVTS01+376 02196000 CVTFETCH EQU CVTS01+372 02197000 CVTRSTWD EQU CVTS01+368 02198000 CVTSPOST EQU CVTS01+364 02199000 CVTIOBP EQU CVTS01+360 02200000 CVTASMVT EQU CVTS01+356 02201000 CVTRECRQ EQU CVTS01+352 02202000 CVTWSAC EQU CVTS01+348 02203000 CVTRV149 EQU CVTS01+344 02204000 CVTWSAL EQU CVTS01+340 02205000 CVTSPSA EQU CVTS01+336 02206000 CVTGLMN EQU CVTS01+332 02207000 CVTVEAC0 EQU CVTS01+328 02208000 CVT062R1 EQU CVTS01+324 02209000 CVTRPOST EQU CVTS01+320 02210000 CVTDQIQE EQU CVTS01+316 02211000 CVTCSD EQU CVTS01+312 02212000 CVTLKRMA EQU CVTS01+308 02213000 CVTRSPIE EQU CVTS01+304 02214000 CVTRENQ EQU CVTS01+300 02215000 CVTLQCB EQU CVTS01+296 02216000 CVTFQCB EQU CVTS01+292 02217000 CVTQCS01 EQU CVTS01+288 02218000 CVTAPFT EQU CVTS01+284 02219000 CVTPARRL EQU CVTS01+280 02220000 CVTVWAIT EQU CVTS01+276 02221000 CVTGSPL EQU CVTS01+272 02222000 CVTLSMQ EQU CVTS01+268 02223000 CVTGSMQ EQU CVTS01+264 02224000 CVTEXPRO EQU CVTS01+260 02225000 CVTOPCTP EQU CVTS01+256 02226000 CVTSIC EQU CVTS01+252 02227000 CVTTPIOS EQU CVTS01+248 02228000 CVTRTMS EQU CVTS01+244 02229000 CVTSDBF EQU CVTS01+240 02230000 CVTSCBP EQU CVTS01+236 02231000 CVTSDMP EQU CVTS01+232 02232000 CVTSV60 EQU CVTS01+228 02233000 CVTRTMCT EQU CVTS01+224 02234000 CVTASCBL EQU CVTS01+220 02235000 CVTASCBH EQU CVTS01+216 02236000 CVTGDA EQU CVTS01+212 02237000 CVTASVT EQU CVTS01+208 02238000 CVTAQTOP EQU CVTS01+200 02239000 CVTIOSCS EQU CVTS01+196 02240000 CVTSDRM EQU CVTS01+192 02241000 CVTOPTE EQU CVTS01+188 02242000 CVTSTXU EQU CVTS01+184 02243000 CVTQUIS EQU CVTS01+180 02244000 CVTPARS EQU CVTS01+176 02245000 CVTS1EE EQU CVTS01+172 02246000 CVTFRAS EQU CVTS01+168 02247000 CVTQSAS EQU CVTS01+164 02248000 CVTCRAS EQU CVTS01+160 02249000 CVTCRMN EQU CVTS01+156 02250000 CVTDELCP EQU CVTS01+152 02251000 CVTFRECL EQU CVTS01+148 02252000 CVTGETCL EQU CVTS01+144 02253000 CVTBLDCP EQU CVTS01+140 02254000 CVTAUTHL EQU CVTS01+136 02255000 CVTSCAN EQU CVTS01+132 02256000 CVTRV144 EQU CVTS01+130 02257000 CVTMAXMP EQU CVTS01+128 02258000 CVTSTCK EQU CVTS01+124 02259000 CVTRV139 EQU CVTS01+123 02260000 CVTDSSAC EQU CVTS01+122 02261000 CVTRV513 EQU CVTS01+121 02262000 CVTIOSPL EQU CVTS01+120 02263000 CVTPTGT EQU CVTS01+116 02264000 CVTCSPIE EQU CVTS01+112 02265000 CVTSMFEX EQU CVTS01+108 02266000 CVTOLT0A EQU CVTS01+104 02267000 CVTSRBRT EQU CVTS01+100 02268000 CVTPUTL EQU CVTS01+96 02269000 CVTASCRL EQU CVTS01+92 02270000 CVTASCRF EQU CVTS01+88 02271000 CVTRV326 EQU CVTS01+84 02272000 CVTRV325 EQU CVTS01+80 02273000 CVTRV324 EQU CVTS01+76 02274000 CVT0VL01 EQU CVTS01+72 02275000 CVTSHRVM EQU CVTS01+68 02276000 CVTRV332 EQU CVTS01+64 02277000 CVTTAS EQU CVTS01+60 02278000 CVTRSCN EQU CVTS01+56 02279000 CVTTRAC2 EQU CVTS01+54 02280000 CVTTRACE EQU CVTS01+52 02281000 CVTAPG EQU CVTS01+51 02282000 CVTSDTRC EQU CVTCTLFG 02283000 CVTGTRCE EQU CVTCTLFG 02284000 CVTNOMP EQU CVTCTLFG 02285000 CVTRSV79 EQU CVTCTLFG 02286000 CVTDSTAT EQU CVTCTLFG 02287000 CVTRSV78 EQU CVTCTLFG 02288000 CVTRV333 EQU CVTCTLFG 02289000 CVTRV323 EQU CVTCTLFG 02290000 CVTSPVLK EQU CVTS01+49 02291000 CVTRSV77 EQU CVTS01+48 02292000 CVTRV331 EQU CVTS01+44 02293000 CVTRV330 EQU CVTS01+40 02294000 CVTRV329 EQU CVTS01+36 02295000 CVTRV328 EQU CVTS01+32 02296000 CVTRV322 EQU CVTS01+28 02297000 CVTSLID EQU CVTSLIDA+1 02298000 CVTSYLK EQU CVTSLIDA 02299000 CVTRV321 EQU CVTS01+20 02300000 CVTRV320 EQU CVTS01+16 02301000 CVTLPDIR EQU CVTLPDIA+1 02302000 CVTRSV69 EQU CVTDIRST 02303000 CVTRSV68 EQU CVTDIRST 02304000 CVTRSV67 EQU CVTDIRST 02305000 CVTRSV66 EQU CVTDIRST 02306000 CVTRSV65 EQU CVTDIRST 02307000 CVTRSV64 EQU CVTDIRST 02308000 CVTRSV63 EQU CVTDIRST 02309000 CVTDICOM EQU CVTDIRST 02310000 CVTPVTP EQU CVTS01+8 02311000 CVTLPDSR EQU CVTS01+4 02312000 CVTGETL EQU CVTS01 02313000 CPPLCBUF EQU CPPL 02314000 @NM00092 EQU PMOD+8 02315000 @NM00091 EQU PMOD+7 02316000 PMODIF8 EQU PMODIF 02317000 PMODIF7 EQU PMODIF 02318000 PMODIF6 EQU PMODIF 02319000 PMODIF5 EQU PMODIF 02320000 PMODIF4 EQU PMODIF 02321000 PMODIF3 EQU PMODIF 02322000 PMODIF2 EQU PMODIF 02323000 PMODIFP EQU PMODIF 02324000 PDSP EQU PDDSECT+4 02325000 @NM00090 EQU PDDSECT 02326000 LPDEATT3 EQU LPDE+30 02327000 LPDEAUTH EQU LPDEATT2 02328000 LPDESYSL EQU LPDEATT2 02329000 @NM00089 EQU LPDEATT2 02330000 @NM00088 EQU LPDEATT2 02331000 LPDERLC EQU LPDEATT2 02332000 LPDEXLE EQU LPDEATT2 02333000 @NM00087 EQU LPDEATT2 02334000 LPDENLR EQU LPDEATTR 02335000 @NM00086 EQU LPDEATTR 02336000 @NM00085 EQU LPDEATTR 02337000 LPDESER EQU LPDEATTR 02338000 LPDEREN EQU LPDEATTR 02339000 @NM00084 EQU LPDEATTR 02340000 LPDENIP EQU LPDEATTR 02341000 @NM00083 EQU LPDE+26 02342000 LPDEUSE EQU LPDE+24 02343000 LPDEXLP EQU LPDE+20 02344000 LPDERBP EQU LPDE+4 02345000 @NM00082 EQU XTLMSBAA 02346000 @NM00081 EQU XTLMSBLA 02347000 XTLNRFAC EQU XTLST+4 02348000 XTLLNTH EQU XTLST 02349000 CDATTR3 EQU CDENTRY+30 02350000 CDAUTH EQU CDATTR2 02351000 CDSYSLIB EQU CDATTR2 02352000 CDOLY EQU CDATTR2 02353000 @NM00080 EQU CDATTR2 02354000 CDRLC EQU CDATTR2 02355000 CDXLE EQU CDATTR2 02356000 CDREL EQU CDATTR2 02357000 CDSPZ EQU CDATTR2 02358000 CDNLR EQU CDATTR 02359000 CDJPA EQU CDATTR 02360000 CDNFN EQU CDATTR 02361000 CDSER EQU CDATTR 02362000 CDREN EQU CDATTR 02363000 CDNIC EQU CDATTR 02364000 CDNIP EQU CDATTR 02365000 @NM00079 EQU CDENTRY+26 02366000 CDUSE EQU CDENTRY+24 02367000 CDRRBP EQU CDENTRY+4 02368000 CVTLEVL EQU CVTRELNO+2 02369000 CVTNUMB EQU CVTRELNO 02370000 CVTMDL EQU CVTFIX+250 02371000 @NM00078 EQU CVTFIX+248 02372000 @NM00077 EQU CVTFIX 02373000 CVTRV482 EQU CVTXTNT2+128 02374000 CVTRV481 EQU CVTXTNT2+124 02375000 CVTRV480 EQU CVTXTNT2+120 02376000 CVTRV479 EQU CVTXTNT2+118 02377000 CVTRV478 EQU CVTXTNT2+117 02378000 CVTRV477 EQU CVTXTNT2+116 02379000 CVTRV476 EQU CVTXTNT2+115 02380000 CVTRV475 EQU CVTXTNT2+114 02381000 CVTRV474 EQU CVTRV466 02382000 CVTRV473 EQU CVTRV466 02383000 CVTRV472 EQU CVTRV466 02384000 CVTRV471 EQU CVTRV466 02385000 CVTRV470 EQU CVTRV466 02386000 CVTRV469 EQU CVTRV466 02387000 CVTRV468 EQU CVTRV466 02388000 CVTRV467 EQU CVTRV466 02389000 CVTRV465 EQU CVTRV457 02390000 CVTRV464 EQU CVTRV457 02391000 CVTRV463 EQU CVTRV457 02392000 CVTRV462 EQU CVTRV457 02393000 CVTRV461 EQU CVTRV457 02394000 CVTRV460 EQU CVTRV457 02395000 CVTRV459 EQU CVTRV457 02396000 CVTRV458 EQU CVTRV457 02397000 CVTRV456 EQU CVTXTNT2+108 02398000 CVTRV455 EQU CVTXTNT2+104 02399000 CVTRV454 EQU CVTXTNT2+100 02400000 CVTRV453 EQU CVTXTNT2+96 02401000 CVTRV452 EQU CVTXTNT2+94 02402000 CVTRV451 EQU CVTXTNT2+92 02403000 CVTRV450 EQU CVTXTNT2+90 02404000 CVTRV449 EQU CVTXTNT2+88 02405000 CVTRV448 EQU CVTXTNT2+87 02406000 CVTRV447 EQU CVTXTNT2+86 02407000 CVTRV446 EQU CVTRV438 02408000 CVTRV445 EQU CVTRV438 02409000 CVTRV444 EQU CVTRV438 02410000 CVTRV443 EQU CVTRV438 02411000 CVTRV442 EQU CVTRV438 02412000 CVTRV441 EQU CVTRV438 02413000 CVTRV440 EQU CVTRV438 02414000 CVTRV439 EQU CVTRV438 02415000 CVTRV437 EQU CVTRV429 02416000 CVTRV436 EQU CVTRV429 02417000 CVTRV435 EQU CVTRV429 02418000 CVTRV434 EQU CVTRV429 02419000 CVTRV433 EQU CVTRV429 02420000 CVTRV432 EQU CVTRV429 02421000 CVTRV431 EQU CVTRV429 02422000 CVTRV430 EQU CVTRV429 02423000 CVTRV428 EQU CVTXTNT2+80 02424000 CVTRV427 EQU CVTXTNT2+76 02425000 CVTRV426 EQU CVTXTNT2+72 02426000 CVTRV425 EQU CVTXTNT2+68 02427000 CVTATACT EQU CVTATCVT 02428000 CVTRV423 EQU CVTXTNT2+62 02429000 CVTRV422 EQU CVTXTNT2+60 02430000 CVTRV421 EQU CVTXTNT2+58 02431000 CVTRV420 EQU CVTXTNT2+56 02432000 CVTRV419 EQU CVTXTNT2+55 02433000 CVTRV418 EQU CVTXTNT2+54 02434000 CVTRV417 EQU CVTRV409 02435000 CVTRV416 EQU CVTRV409 02436000 CVTRV415 EQU CVTRV409 02437000 CVTRV414 EQU CVTRV409 02438000 CVTRV413 EQU CVTRV409 02439000 CVTRV412 EQU CVTRV409 02440000 CVTRV411 EQU CVTRV409 02441000 CVTRV410 EQU CVTRV409 02442000 CVTRV408 EQU CVTRV400 02443000 CVTRV407 EQU CVTRV400 02444000 CVTRV406 EQU CVTRV400 02445000 CVTRV405 EQU CVTRV400 02446000 CVTRV404 EQU CVTRV400 02447000 CVTRV403 EQU CVTRV400 02448000 CVTRV402 EQU CVTRV400 02449000 CVTRV401 EQU CVTRV400 02450000 CVTICB EQU CVTXTNT2+48 02451000 CVTSKTA EQU CVTXTNT2+44 02452000 CVTRSV99 EQU CVTXTNT2+40 02453000 CVTRSV98 EQU CVTXTNT2+36 02454000 CVTRSV97 EQU CVTXTNT2+34 02455000 CVTRSV96 EQU CVTXTNT2+32 02456000 CVTOLTEP EQU CVTXTNT2+28 02457000 CVTQIDA EQU CVTQID+1 02458000 CVTRSV95 EQU CVTQID 02459000 CVTRSV94 EQU CVTXTNT2+20 02460000 CVTRSV93 EQU CVTXTNT2+16 02461000 CVTRSV92 EQU CVTXTNT2+12 02462000 CVTDEBVR EQU CVTXTNT2+8 02463000 CVTRSV91 EQU CVTXTNT2+6 02464000 CVTRSV9H EQU CVTFLGBT 02465000 CVTRSV9G EQU CVTFLGBT 02466000 CVTRSV9F EQU CVTFLGBT 02467000 CVTRSV9E EQU CVTFLGBT 02468000 CVTRSV9D EQU CVTFLGBT 02469000 CVTRSV9C EQU CVTFLGBT 02470000 CVTVME EQU CVTFLGBT 02471000 CVTNPE EQU CVTFLGBT 02472000 CVTNUCLS EQU CVTXTNT2+4 02473000 CVTDSSVA EQU CVTDSSV+1 02474000 CVTRSV89 EQU CVTDSSV 02475000 CVTRSV88 EQU CVTXTNT1+8 02476000 CVTRSV87 EQU CVTXTNT1+4 02477000 CVTFACHN EQU CVTXTNT1 02478000 CVTRV488 EQU CVTMAP+412 02479000 CVTRV487 EQU CVTMAP+408 02480000 CVTRV486 EQU CVTMAP+404 02481000 CVTRV485 EQU CVTMAP+400 02482000 CVTACTAP EQU CVTMAP+396 02483000 CVTAUTH EQU CVTMAP+392 02484000 CVTATMCA EQU CVTATMCT+1 02485000 CVTATMST EQU CVTATMCT 02486000 CVTRSV61 EQU CVTMAP+384 02487000 CVTVOLT1 EQU CVTVOLM1+1 02488000 CVTVOLI1 EQU CVTVOLF1 02489000 CVTSTOA EQU CVTMAP+376 02490000 CVTRSV58 EQU CVTMAP+374 02491000 CVTRSV57 EQU CVTMAP+372 02492000 CVTDDCE EQU CVTMAP+368 02493000 CVTPNWFR EQU CVTMAP+364 02494000 CVTSMF EQU CVTMAP+360 02495000 CVTSULK EQU CVTMAP+358 02496000 CVTSLKO EQU CVTSYSK 02497000 CVTSLKP EQU CVTSYSK 02498000 CVTSLKQ EQU CVTSYSK 02499000 CVTSLKR EQU CVTSYSK 02500000 CVTRSV56 EQU CVTSYSK 02501000 CVTRSV55 EQU CVTSYSK 02502000 CVTRSV54 EQU CVTSYSK 02503000 CVTRSV53 EQU CVTSYSK 02504000 CVTRSV52 EQU CVTA1F1 02505000 CVTRSV51 EQU CVTA1F1 02506000 CVTRSV50 EQU CVTA1F1 02507000 CVTRSV49 EQU CVTA1F1 02508000 CVTRSV48 EQU CVTA1F1 02509000 CVTRSV47 EQU CVTA1F1 02510000 CVTSRSW EQU CVTA1F1 02511000 CVTPFSW EQU CVTA1F1 02512000 CVTPCVT EQU CVTMAP+352 02513000 CVTRSV46 EQU CVTMAP+344 02514000 CVTRSV45 EQU CVTMAP+340 02515000 CVTRSV44 EQU CVTMAP+338 02516000 CVTRSV43 EQU CVTMAP+336 02517000 CVTHJESA EQU CVTHJES+1 02518000 CVTRSV42 EQU CVTHJES 02519000 CVTEXT2A EQU CVTEXT2+1 02520000 CVTRSV41 EQU CVTEXT2 02521000 CVTAPFA EQU CVTAPF+1 02522000 CVTRSV40 EQU CVTAPF 02523000 CVTRV518 EQU CVTINTLA 02524000 CVTRV517 EQU CVTERPV 02525000 CVTEORM EQU CVTMAP+312 02526000 CVTMCHPR EQU CVTMAP+308 02527000 CVTTZ EQU CVTMAP+304 02528000 CVTJEPS EQU CVTMAP+300 02529000 CVTJESCT EQU CVTMAP+296 02530000 CVTMODE EQU CVTMAP+292 02531000 CVTPTRV EQU CVTMAP+288 02532000 CVTREAL EQU CVTMAP+284 02533000 CVTRSV39 EQU CVTMAP+280 02534000 CVTRSV38 EQU CVTMAP+276 02535000 CVTDMSRA EQU CVTDMSR+1 02536000 CVTRV634 EQU CVTDMSRF 02537000 CVTRV633 EQU CVTDMSRF 02538000 CVTRV632 EQU CVTDMSRF 02539000 CVTRV631 EQU CVTDMSRF 02540000 CVTRV630 EQU CVTDMSRF 02541000 CVTRV629 EQU CVTDMSRF 02542000 CVTUDUMP EQU CVTDMSRF 02543000 CVTSDUMP EQU CVTDMSRF 02544000 CVTQMSGA EQU CVTQMSG+1 02545000 CVTRSV36 EQU CVTQMSG 02546000 CVTAMFF EQU CVTMAP+264 02547000 CVTPURGA EQU CVTPURG+1 02548000 CVTRSV35 EQU CVTPURG 02549000 CVTCBSP EQU CVTMAP+256 02550000 CVTATERA EQU CVTATER+1 02551000 CVTSYST EQU CVTATER 02552000 CVTVOLT2 EQU CVTTAT 02553000 CVTVOLI2 EQU CVTVOLF2 02554000 CVTAQAVB EQU CVTAQAVT+1 02555000 CVTRSV34 EQU CVTTCMFG 02556000 CVTRSV33 EQU CVTTCMFG 02557000 CVTRSV32 EQU CVTTCMFG 02558000 CVTRSV31 EQU CVTTCMFG 02559000 CVTRSV30 EQU CVTTCMFG 02560000 CVTRSV29 EQU CVTTCMFG 02561000 CVTLDEV EQU CVTTCMFG 02562000 CVTTCRDY EQU CVTTCMFG 02563000 CVTGTFA EQU CVTGTF+1 02564000 CVTRSV27 EQU CVTGTFST 02565000 CVTRNIO EQU CVTGTFST 02566000 CVTUSR EQU CVTGTFST 02567000 CVTRV318 EQU CVTFORM 02568000 CVTRV317 EQU CVTTMODE 02569000 CVTRV316 EQU CVTSTATE 02570000 CVTRV315 EQU CVTGTFS 02571000 CVTGTFAV EQU CVTGTFS 02572000 CVT0SCR1 EQU CVTMAP+232 02573000 CVTRV515 EQU CVTMAP+228 02574000 CVTRMS EQU CVTMAP+224 02575000 CVTPATCH EQU CVTMAP+220 02576000 CVTTSCE EQU CVTMAP+216 02577000 CVTLNKSC EQU CVTMAP+214 02578000 CVTQABST EQU CVTMAP+212 02579000 CVTMDLDS EQU CVTMAP+208 02580000 CVTUSER EQU CVTMAP+204 02581000 CVTABEND EQU CVTMAP+200 02582000 CVTSMCA EQU CVTMAP+196 02583000 CVTRSV18 EQU CVTMAP+192 02584000 CVTQCDSR EQU CVTMAP+184 02585000 CVTRSV17 EQU CVTOPTB 02586000 CVTRSV16 EQU CVTOPTB 02587000 CVTFP EQU CVTOPTB 02588000 CVTAPTHR EQU CVTOPTB 02589000 CVTNLOG EQU CVTOPTB 02590000 CVTTOD EQU CVTOPTB 02591000 CVTCTIMS EQU CVTOPTB 02592000 CVTPROT EQU CVTOPTB 02593000 CVTXPFP EQU CVTOPTA 02594000 CVTASCII EQU CVTOPTA 02595000 CVTRSV13 EQU CVTOPTA 02596000 CVTRSV12 EQU CVTOPTA 02597000 CVTNIP EQU CVTOPTA 02598000 CVTDDR EQU CVTOPTA 02599000 CVTAPR EQU CVTOPTA 02600000 CVTCCH EQU CVTOPTA 02601000 CVTSNCTR EQU CVTMAP+180 02602000 CVTQMWR EQU CVTMAP+176 02603000 CVTQOCR EQU CVTMAP+172 02604000 CVT1EF00 EQU CVTMAP+168 02605000 CVTMZ00 EQU CVTMAP+164 02606000 CVTSV76Q EQU CVTSV76C 02607000 CVTRSV11 EQU CVTMAP+156 02608000 CVT0PT01 EQU CVTMAP+152 02609000 CVTMSER EQU CVTMAP+148 02610000 CVTRV516 EQU CVTIERLC 02611000 CVTILCH EQU CVTMAP+140 02612000 CVT0DS EQU CVTMAP+136 02613000 CVTFBOSV EQU CVTMAP+132 02614000 CVTNUCB EQU CVTMAP+128 02615000 CVTIXAVL EQU CVTMAP+124 02616000 CVTSV76M EQU CVTIOQET 02617000 CVTDCBA EQU CVTMAP+117 02618000 CVTMVS2 EQU CVTDCB 02619000 CVT6DAT EQU CVTDCB 02620000 CVT4MPS EQU CVTDCB 02621000 CVTRSV09 EQU CVTDCB 02622000 CVT4MS1 EQU CVTDCB 02623000 CVT2SPS EQU CVTDCB 02624000 CVT1SSS EQU CVTDCB 02625000 CVTRSV08 EQU CVTDCB 02626000 CVTSTB EQU CVTMAP+112 02627000 CVTQTD00 EQU CVTMAP+108 02628000 CVTQTE00 EQU CVTMAP+104 02629000 CVTCUCB EQU CVTMAP+100 02630000 CVTSJQ EQU CVTMAP+96 02631000 CVTPBLDL EQU CVTMAP+92 02632000 CVTTPC EQU CVTMAP+88 02633000 CVTSVDCB EQU CVTMAP+84 02634000 CVTBRET EQU CVTMAP+82 02635000 CVTEXIT EQU CVTMAP+80 02636000 CVT0FN00 EQU CVTMAP+76 02637000 CVTDARA EQU CVTDAR+1 02638000 CVTRSV07 EQU CVTFLGS1 02639000 CVTRSV06 EQU CVTFLGS1 02640000 CVTRSV05 EQU CVTFLGS1 02641000 CVTRSV04 EQU CVTFLGS1 02642000 CVTRSV03 EQU CVTFLGS1 02643000 CVTRSV02 EQU CVTFLGS1 02644000 CVTRSV01 EQU CVTFLGS1 02645000 CVTDMPLK EQU CVTFLGS1 02646000 CVTXITP EQU CVTMAP+68 02647000 CVTZDTAB EQU CVTMAP+64 02648000 CVTMSLT EQU CVTMAP+60 02649000 CVTDATE EQU CVTMAP+56 02650000 CVTBTERM EQU CVTMAP+52 02651000 CVTSYSAD EQU CVTMAP+48 02652000 CVTXTLER EQU CVTMAP+44 02653000 CVTILK2 EQU CVTMAP+40 02654000 CVTILK1 EQU CVTMAP+36 02655000 CVTPRLTV EQU CVTMAP+32 02656000 CVTPCNVT EQU CVTMAP+28 02657000 CVT0VL00 EQU CVTMAP+24 02658000 CVTXAPG EQU CVTMAP+20 02659000 CVTBUF EQU CVTMAP+16 02660000 CVTJOB EQU CVTMAP+12 02661000 CVTLINK EQU CVTMAP+8 02662000 CVT0EF00 EQU CVTMAP+4 02663000 CVTTCBP EQU CVTMAP 02664000 RVT99999 EQU RVT+384 02665000 RVT0096P EQU RVT+380 02666000 RVT0095P EQU RVT+376 02667000 RVT0094P EQU RVT+372 02668000 RVT0093P EQU RVT+368 02669000 RVT0092P EQU RVT+364 02670000 RVT0091P EQU RVT+360 02671000 RVT0090P EQU RVT+356 02672000 RVT0089P EQU RVT+352 02673000 RVT0088P EQU RVT+348 02674000 RVT0087P EQU RVT+344 02675000 RVT0086P EQU RVT+340 02676000 RVT0085P EQU RVT+336 02677000 RVT0084P EQU RVT+332 02678000 RVT0083P EQU RVT+328 02679000 RVT0082P EQU RVT+324 02680000 RVT0081P EQU RVT+320 02681000 RVT0080P EQU RVT+316 02682000 RVT0079P EQU RVT+312 02683000 RVT0078P EQU RVT+308 02684000 RVT0077P EQU RVT+304 02685000 RVT0076P EQU RVT+300 02686000 RVT0075P EQU RVT+296 02687000 RVT0074P EQU RVT+292 02688000 RVT0073P EQU RVT+288 02689000 RVT0072P EQU RVT+284 02690000 RVTDTUTP EQU RVT+272 02691000 RVTDTMTP EQU RVT+268 02692000 RVT0057P EQU RVT+224 02693000 RVT0056P EQU RVT+220 02694000 RVT0055P EQU RVT+216 02695000 RVT0054P EQU RVT+212 02696000 RVT0053P EQU RVT+208 02697000 RVT0044P EQU RVT+172 02698000 RVT0043P EQU RVT+168 02699000 RVT0040P EQU RVT+156 02700000 RVT0039P EQU RVT+152 02701000 RVT0038P EQU RVT+148 02702000 RVT0037P EQU RVT+144 02703000 RVT0031P EQU RVT+120 02704000 RVT0030P EQU RVT+116 02705000 RVT0029P EQU RVT+112 02706000 RVT0020P EQU RVT+76 02707000 RVT0012P EQU RVT+44 02708000 RVT0010P EQU RVT+36 02709000 RVT0009P EQU RVT+32 02710000 RVT0008P EQU RVT+28 02711000 RVT0006P EQU RVT+20 02712000 ZZ69999 EQU ZZ6+1792 02713000 ZZ6BRB EQU ZZ6B+12 02714000 ZZ6BRC EQU ZZ6B+8 02715000 @NM00076 EQU ZZ6B+6 02716000 ZZ6BFL EQU ZZ6B+4 02717000 ZZ6BDA EQU ZZ6B 02718000 @NM00075 EQU ZZ6+540 02719000 ZZ6BUFI EQU ZZ6+536 02720000 ZZ6BUFP EQU ZZ6+532 02721000 ZZ6FILE EQU ZZ6+524 02722000 ZZ6BUFB EQU ZZ6+520 02723000 ZZ6BUFL EQU ZZ6+518 02724000 ZZ6BUFN EQU ZZ6+516 02725000 ZZ6ZZ6P EQU ZZ6+512 02726000 @NM00074 EQU ZZ6+256 02727000 ZZ6D999 EQU ZZ6D+128 02728000 @NM00073 EQU ZZ6D+116 02729000 ZZ6DCAP EQU ZZ6D+112 02730000 ZZ6DPRP EQU ZZ6D+108 02731000 ZZ6DDA2 EQU ZZ6D+104 02732000 ZZ6DDA1 EQU ZZ6D+100 02733000 @NM00072 EQU ZZ6DF 02734000 ZZ6DFSU EQU ZZ6DF 02735000 ZZ6DFST EQU ZZ6DF 02736000 ZZ6DFAB EQU ZZ6DF 02737000 ZZ6DFMP EQU ZZ6DF 02738000 ZZ6DFDU EQU ZZ6DF 02739000 ZZ6DFBS EQU ZZ6DF 02740000 ZZ6DQ2 EQU ZZ6D+88 02741000 ZZ6DQ1 EQU ZZ6D+84 02742000 ZZ6DQA9 EQU ZZ6DQA+16 02743000 @NM00071 EQU ZZ6DQA+12 02744000 ZZ6DQA2 EQU ZZ6DQA+8 02745000 ZZ6DQA1 EQU ZZ6DQA+4 02746000 @NM00070 EQU ZZ6DQA+2 02747000 ZZ6DQAT EQU ZZ6DQA 02748000 ZZ6DQA0 EQU ZZ6DQA 02749000 ZZ6DRDX EQU ZZ6D+64 02750000 ZZ6DELK EQU ZZ6D+64 02751000 ZZ6DMEM EQU ZZ6D+56 02752000 ZZ6DDT1 EQU ZZ6DDT 02753000 ZZ6DDO EQU ZZ6DD+2 02754000 ZZ6DDL EQU ZZ6DD 02755000 @NM00069 EQU ZZ6D+2 02756000 ZZ6DRID EQU ZZ6D 02757000 ZZ6RDCB EQU ZZ6 02758000 ZZ60000 EQU ZZ6 02759000 BVT99999 EQU BVT+256 02760000 BVT0064P EQU BVT+252 02761000 BVT0063P EQU BVT+248 02762000 BVT0062P EQU BVT+244 02763000 BVT0061P EQU BVT+240 02764000 BVT0060P EQU BVT+236 02765000 BVT0059P EQU BVT+232 02766000 BVT0057P EQU BVT+224 02767000 BVT0056P EQU BVT+220 02768000 BVTSTBLP EQU BVT+200 02769000 BVT0045P EQU BVT+176 02770000 BVT0044P EQU BVT+172 02771000 BVT0033P EQU BVT+128 02772000 BVT0032P EQU BVT+124 02773000 BVT0031P EQU BVT+120 02774000 BVT0030P EQU BVT+116 02775000 BVT0029P EQU BVT+112 02776000 BVT0026P EQU BVT+100 02777000 BVT0025P EQU BVT+96 02778000 BVT0024P EQU BVT+92 02779000 BVT0023P EQU BVT+88 02780000 BVT0016P EQU BVT+60 02781000 BVT0015P EQU BVT+56 02782000 BVT0014P EQU BVT+52 02783000 BVT0003P EQU BVT+8 02784000 BVT0001P EQU BVT 02785000 SA99 EQU SA+72 02786000 SARC EQU SAR+56 02787000 SARB EQU SAR+52 02788000 SARA EQU SAR+48 02789000 SAR9 EQU SAR+44 02790000 SAR8 EQU SAR+40 02791000 SAR7 EQU SAR+36 02792000 SAR6 EQU SAR+32 02793000 SAR5 EQU SAR+28 02794000 SAR4 EQU SAR+24 02795000 SAR3 EQU SAR+20 02796000 SAR2 EQU SAR+16 02797000 SAR0 EQU SAR+8 02798000 SARF EQU SAR+4 02799000 SARE EQU SAR 02800000 SAFWD EQU SA+8 02801000 SABAK EQU SA+4 02802000 SA1L EQU SA1+1 02803000 SA1P EQU SA1 02804000 UPTPREFL EQU UPT+23 02805000 UPTPREFX EQU UPT+16 02806000 @NM00068 EQU UPT+15 02807000 UPTLDEL EQU UPT+14 02808000 UPTCDEL EQU UPT+13 02809000 UPTWTP EQU UPTSWS 02810000 UPTMODE EQU UPTSWS 02811000 UPTALD EQU UPTSWS 02812000 UPTPAUS EQU UPTSWS 02813000 UPTNCOM EQU UPTSWS 02814000 UPTMID EQU UPTSWS 02815000 UPTNPRM EQU UPTSWS 02816000 UPTRCVR EQU UPTSWS 02817000 UPTUSER EQU UPT+2 02818000 @NM00067 EQU UPT 02819000 @NM00066 EQU ECT+52 02820000 @NM00065 EQU ECT+48 02821000 @NM00064 EQU ECT+44 02822000 @NM00063 EQU ECTSWS2+1 02823000 @NM00062 EQU ECTSWS21 02824000 ECTTABND EQU ECTSWS21 02825000 ECTDEFCS EQU ECTSWS21 02826000 ECTBKPB EQU ECT+36 02827000 ECTUSER EQU ECT+32 02828000 ECTDDNUM EQU ECT+29 02829000 ECTATTN EQU ECTSWS 02830000 ECTBKGRD EQU ECTSWS 02831000 ECTNNOT EQU ECTSWS 02832000 ECTNMAL EQU ECTSWS 02833000 ECTLOGF EQU ECTSWS 02834000 ECTATRM EQU ECTSWS 02835000 @NM00061 EQU ECTSWS 02836000 ECTNOPD EQU ECTSWS 02837000 ECTSCMD EQU ECT+20 02838000 ECTPCMD EQU ECT+12 02839000 ECTSMSG EQU ECT+9 02840000 ECTMSGF EQU ECT+8 02841000 ECTIOWA EQU ECT+4 02842000 ECTRTCD EQU ECT+1 02843000 ECTRCDF EQU ECT 02844000 PSCBU EQU PSCB+64 02845000 PSCBRSZ EQU PSCB+60 02846000 PSCBLINE EQU PSCB+59 02847000 PSCBCHAR EQU PSCB+58 02848000 PSCBUPTL EQU PSCB+56 02849000 PSCBUPT EQU PSCB+52 02850000 PSCBRLGB EQU PSCB+48 02851000 PSCBDEST EQU PSCB+40 02852000 @NM00060 EQU PSCB+36 02853000 @NM00059 EQU PSCB+32 02854000 @NM00058 EQU PSCB+28 02855000 PSCBLTI2 EQU PSCB+24 02856000 PSCBLTIM EQU PSCB+20 02857000 PSCBATR2 EQU PSCB+18 02858000 @NM00057 EQU PSCBATR1 02859000 @NM00056 EQU PSCBATR1 02860000 @NM00055 EQU PSCBATR1 02861000 PSCBATTN EQU PSCBATR1 02862000 PSCBVMNT EQU PSCBATR1 02863000 PSCBJCL EQU PSCBATR1 02864000 PSCBACCT EQU PSCBATR1 02865000 PSCBCTRL EQU PSCBATR1 02866000 PSCBGPNM EQU PSCB+8 02867000 PSCBUSRL EQU PSCB+7 02868000 PSCBUSER EQU PSCB 02869000 CMDT1 EQU CMDT 02870000 CMDO EQU CMD+2 02871000 CMDL EQU CMD 02872000 ZZ299999 EQU ZZ2+8192 02873000 ZZ2AXOT1 EQU ZZ2AXOT 02874000 ZZ2AXOL EQU ZZ2AXO 02875000 @NM00054 EQU ZZ2+7288 02876000 @NM00053 EQU ZZ2AMDX+4 02877000 ZZ2AMDXC EQU ZZ2AMDX 02878000 ZZ2HSD EQU ZZ2+3056 02879000 @NM00052 EQU ZZ2ES 02880000 @NM00051 EQU ZZ2+2868 02881000 ZZ2ITSEC EQU ZZ2ITSE+1 02882000 @NM00050 EQU ZZ2ITSE 02883000 ZZ2ITSEP EQU ZZ2ITSE 02884000 ZZ2ITSEW EQU ZZ2ITSE 02885000 @NM00049 EQU ZZ2ITR+20 02886000 ZZ2ITREC EQU ZZ2ITRE+1 02887000 @NM00048 EQU ZZ2ITRE 02888000 ZZ2ITREP EQU ZZ2ITRE 02889000 ZZ2ITREW EQU ZZ2ITRE 02890000 @NM00047 EQU ZZ2ITR+9 02891000 ZZ2ITRRC EQU ZZ2ITR+8 02892000 ZZ2ITR2P EQU ZZ2ITR+4 02893000 ZZ2ITRPP EQU ZZ2ITR 02894000 @NM00046 EQU ZZ2+1544 02895000 ZZ2PGM EQU ZZ2+1536 02896000 @NM00045 EQU ZZ2+1526 02897000 ZZ2CW EQU ZZ2+1524 02898000 @NM00044 EQU ZZ2+1504 02899000 @NM00043 EQU ZZ2+1352 02900000 ZZ2FFSYP EQU ZZ2+1348 02901000 ZZ2SASYP EQU ZZ2+1344 02902000 ZZ2RDSYP EQU ZZ2+1340 02903000 ZZ2RASYP EQU ZZ2+1336 02904000 ZZ2PHSYP EQU ZZ2+1332 02905000 ZZ2ESSYP EQU ZZ2+1328 02906000 ZZ200SYP EQU ZZ2+1324 02907000 ZZ2SCWP EQU ZZ2+1320 02908000 ZZ2TTLP EQU ZZ2+1316 02909000 ZZ2LOADP EQU ZZ2+1312 02910000 ZZ2VRESP EQU ZZ2+1308 02911000 ZZ2CPPLE EQU ZZ2CPPL+12 02912000 ZZ2CPPLP EQU ZZ2CPPL+8 02913000 ZZ2CPPLU EQU ZZ2CPPL+4 02914000 ZZ2VRSAP EQU ZZ2+1288 02915000 ZZ2DVTP EQU ZZ2+1276 02916000 @NM00042 EQU ZZ2+1272 02917000 @NM00041 EQU ZZ2+1268 02918000 ZZ2RPLP EQU ZZ2+1260 02919000 ZZ2TCBP EQU ZZ2+1256 02920000 @NM00040 EQU ZZ2+1252 02921000 ZZ2ZZ2P EQU ZZ2+1248 02922000 @NM00039 EQU ZZ2+1112 02923000 ZZ2FPDRP EQU ZZ2+1108 02924000 ZZ2FDSDP EQU ZZ2+1104 02925000 ZZ2APDRP EQU ZZ2+1100 02926000 ZZ2ADSDP EQU ZZ2+1096 02927000 ZZ2ENQ0P EQU ZZ2+1092 02928000 @NM00038 EQU ZZ2+1080 02929000 ZZ2MSG0P EQU ZZ2+1076 02930000 ZZ2FT25P EQU ZZ2+1072 02931000 ZZ2MSGSP EQU ZZ2+1060 02932000 ZZ2ALOCP EQU ZZ2+1056 02933000 @NM00037 EQU ZZ2+976 02934000 ZZ2TOD EQU ZZ2+968 02935000 ZZ2STGN EQU ZZ2STG+4 02936000 ZZ2STGP EQU ZZ2STG 02937000 @NM00036 EQU ZZ2+952 02938000 ZZ2SCMDE EQU ZZ2+944 02939000 ZZ2SCMDN EQU ZZ2+936 02940000 ZZ2IDENT EQU ZZ2+928 02941000 ZZ2A9999 EQU ZZ2A+656 02942000 @NM00035 EQU ZZ2A+224 02943000 @NM00034 EQU ZZ2A+220 02944000 ZZ2AQD99 EQU ZZ2AQD+60 02945000 @NM00033 EQU ZZ2AQD+56 02946000 @NM00032 EQU ZZ2AQDF 02947000 ZZ2AQDFA EQU ZZ2AQDF 02948000 ZZ2AQDIL EQU ZZ2AQD+48 02949000 ZZ2AQDIM EQU ZZ2AQD+44 02950000 ZZ2AQDT9 EQU ZZ2AQDT+34 02951000 ZZ2AQDTE EQU ZZ2AQDT+33 02952000 ZZ2AQDTD EQU ZZ2AQDT+2 02953000 @NM00031 EQU ZZ2AQDT+1 02954000 ZZ2AQDTY EQU ZZ2AQDT 02955000 ZZ2AQDT0 EQU ZZ2AQDT 02956000 ZZ2AQDLB EQU ZZ2AQD+9 02957000 ZZ2AQDOB EQU ZZ2AQD+8 02958000 ZZ2AQDLE EQU ZZ2AQD+4 02959000 ZZ2AQDOF EQU ZZ2AQD 02960000 ZZ2AQD00 EQU ZZ2AQD 02961000 ZZ2AQAS9 EQU ZZ2AQAS+16 02962000 @NM00030 EQU ZZ2AQAS+12 02963000 ZZ2AQAS2 EQU ZZ2AQAS+8 02964000 ZZ2AQAS1 EQU ZZ2AQAS+4 02965000 @NM00029 EQU ZZ2AQAS+2 02966000 ZZ2AQAST EQU ZZ2AQAS 02967000 ZZ2AQAS0 EQU ZZ2AQAS 02968000 ZZ2ADPTA EQU ZZ2ADPT 02969000 ZZ2ADPL EQU ZZ2ADP 02970000 ZZ2ADMTA EQU ZZ2ADMT 02971000 ZZ2ADML EQU ZZ2ADM 02972000 ZZ2ADDTA EQU ZZ2ADDT 02973000 ZZ2ADDL EQU ZZ2ADD 02974000 @NM00028 EQU ZZ2A+72 02975000 ZZ2APIDB EQU ZZ2APID+3 02976000 ZZ2APIDA EQU ZZ2APID 02977000 @NM00027 EQU ZZ2A+24 02978000 @NM00026 EQU ZZ2AF+5 02979000 @NM00025 EQU ZZ2AF+3 02980000 ZZ2AFS EQU ZZ2AF+2 02981000 ZZ2AFD EQU ZZ2AF+2 02982000 ZZ2AFQ EQU ZZ2AF+2 02983000 ZZ2AF$ EQU ZZ2AF+2 02984000 @NM00024 EQU ZZ2AF+2 02985000 ZZ2AFM EQU ZZ2AF+2 02986000 @NM00023 EQU ZZ2AF+2 02987000 @NM00022 EQU ZZ2AF+1 02988000 @NM00021 EQU ZZ2AF+1 02989000 ZZ2AFC EQU ZZ2AF+1 02990000 @NM00020 EQU ZZ2AF 02991000 ZZ2AFFS EQU ZZ2AF 02992000 ZZ2AFT EQU ZZ2AF 02993000 ZZ2AFP EQU ZZ2AF 02994000 @NM00019 EQU ZZ2A+8 02995000 ZZ2ALINE EQU ZZ2A+4 02996000 @NM00018 EQU ZZ2A+3 02997000 ZZ2ASE EQU ZZ2A+2 02998000 ZZ2ACH EQU ZZ2A 02999000 @NM00017 EQU ZZ2+264 03000000 @NM00016 EQU ZZ2+263 03001000 ZZ2PRTT0 EQU ZZ2PRTT 03002000 ZZ2PRTO EQU ZZ2PRT+2 03003000 ZZ2PRTL EQU ZZ2PRT 03004000 @NM00015 EQU ZZ2AMD+56 03005000 ZZ2AMDXP EQU ZZ2AMD+52 03006000 ZZ2AMDD EQU ZZ2AMD+48 03007000 ZZ2AMDL EQU ZZ2AMD+44 03008000 ZZ2AMDU EQU ZZ2AMD+28 03009000 ZZ2AMDF EQU ZZ2AMD+24 03010000 ZZ2AMDS EQU ZZ2AMD+20 03011000 ZZ2AMDC EQU ZZ2AMD+16 03012000 ZZ2AMDP EQU ZZ2AMD+12 03013000 ZZ2AMDB EQU ZZ2AMD+8 03014000 @NM00014 EQU @NM00013 03015000 ZZ2AMD2 EQU @NM00013 03016000 ZZ2AMD1 EQU @NM00013 03017000 ZZ2AMD0 EQU ZZ2AMD+6 03018000 ZZ2AMDA EQU ZZ2AMD+4 03019000 ZZ2AMDT EQU ZZ2AMD 03020000 ZZ199999 EQU ZZ1+3072 03021000 @NM00012 EQU ZZ1+2160 03022000 ZZ1TRTAS EQU ZZ1+1904 03023000 ZZ1TRUPC EQU ZZ1+1648 03024000 ZZ1NASID EQU ZZ1N+274 03025000 ZZ1NSTRL EQU ZZ1N+272 03026000 ZZ1NOFF EQU ZZ1N+268 03027000 ZZ1NBDY EQU ZZ1N+264 03028000 ZZ1NADE EQU ZZ1N+260 03029000 ZZ1NADB EQU ZZ1N+256 03030000 ZZ1NSTR EQU ZZ1N 03031000 @NM00011 EQU ZZ1+1080 03032000 ZZ1TREBC EQU ZZ1+824 03033000 @NM00010 EQU ZZ1+377 03034000 ZZ1USTAE EQU ZZ1+376 03035000 @NM00009 EQU ZZ1F+1 03036000 @NM00008 EQU ZZ1F 03037000 ZZ1FM EQU ZZ1F 03038000 ZZ1FX EQU ZZ1F 03039000 ZZ1FU EQU ZZ1F 03040000 ZZ1EVEC EQU ZZ1EVE+1 03041000 @NM00007 EQU ZZ1EVE 03042000 ZZ1EVEP EQU ZZ1EVE 03043000 ZZ1EVEW EQU ZZ1EVE 03044000 ZZ1ACMP EQU ZZ1ATTN 03045000 @NM00006 EQU ZZ1+144 03046000 ZZ1FPP EQU ZZ1+140 03047000 ZZ1ZZ6P EQU ZZ1+136 03048000 @NM00005 EQU ZZ1+84 03049000 ZZ1PLINE EQU ZZ1+80 03050000 ZZ1PGSZ EQU ZZ1+76 03051000 ZZ1PCNT EQU ZZ1+72 03052000 @NM00004 EQU ZZ1+68 03053000 ZZ1TPAGE EQU ZZ1+64 03054000 ZZ1TLINE EQU ZZ1+60 03055000 @NM00003 EQU ZZ1+48 03056000 ZZ1DSDP EQU ZZ1+44 03057000 ZZ1PDRP EQU ZZ1+40 03058000 ZZ1ZZ2P EQU ZZ1+36 03059000 ZZ1327WP EQU ZZ1+32 03060000 ZZ1ACBP EQU ZZ1+28 03061000 @NM00002 EQU ZZ1+24 03062000 ZZ1PDCBP EQU ZZ1+20 03063000 ZZ1BLRBL EQU ZZ1+16 03064000 @NM00001 EQU ZZ1+12 03065000 ZZ1PNULL EQU ZZ1+8 03066000 ZZ1NULL EQU ZZ1+4 03067000 ZZ1IDE EQU ZZ1 03068000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03069000 @RT00269 EQU EXITRLSA 03070000 @RF00320 EQU EXITRLSA 03071000 @RT00327 EQU NOTFOUND 03072000 @RT00338 EQU NOTFOUND 03073000 @RT00343 EQU NOTFOUND 03074000 @RT00349 EQU NOTFOUND 03075000 @RT00351 EQU OUTLOOP 03076000 @RT00363 EQU NOTFOUND 03077000 @RT00369 EQU NOTFOUND 03078000 @RT00382 EQU NOTFOUND 03079000 @RT00384 EQU FONDLPDE 03080000 @RT00450 EQU NOTFOUND 03081000 @RT00476 EQU NOTFOUND 03082000 @ENDDATA EQU * 03083000 END BLSRFMOD,(C'PLS1825',0701,78057) 03084000