DUDE TITLE 'BLSRDUDE--IPCS DROPDUMP SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRDUDE CSECT , 01S0002 00006000 @MAINENT DS 0H 01S0002 00007000 USING *,@15 01S0002 00008000 B @PROLOG 01S0002 00009000 DC AL1(16) 01S0002 00010000 DC C'BLSRDUDE 78.057' 01S0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 01S0002 00013000 BALR @12,0 01S0002 00014000 @PSTART DS 0H 01S0002 00015000 USING @PSTART,@12 01S0002 00016000 L @00,@SIZDATD 01S0002 00017000 BLSUALLR R,LV=(0) 00018000 LR @11,@01 01S0002 00019000 USING @DATD,@11 01S0002 00020000 ST @13,@SA00001+4 01S0002 00021000 LM @00,@01,20(@13) 01S0002 00022000 ST @11,8(,@13) 01S0002 00023000 LR @13,@11 01S0002 00024000 */*------------------------------------------------------------------*/ 00025000 */* BLSRDUDE--IPCS DROPDUMP SUBCOMMAND */ 00026000 */*------------------------------------------------------------------*/ 00027000 * 01S0143 00028000 * FLAG='00'X; /* PROCESSING CONTROL FLAGS */ 00029000 MVI FLAG,X'00' 01S0143 00030000 * BVTPTR=ADDR(BVT); /* ->BVT */ 00031000 L BVTPTR,ZZ2BVTP(,R9) 01S0144 00032000 * RESPECIFY 01S0145 00033000 * BVT BASED(BVTPTR); /* ->BVT */ 00034000 * RESPECIFY 01S0146 00035000 * (RF) RESTRICTED; /* RETURN CODES */ 00036000 * IF ECTNOPD=ZZZ0 THEN /* OPERANDS ENTERED */ 00037000 L @14,CPPLECT(,R9) 01S0147 00038000 TM ECTNOPD(@14),B'10000000' 01S0147 00039000 BNZ @RF00147 01S0147 00040000 * DO; /* BLSRPARS MF(E,PX) */ 00041000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00042000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00043000 * TE,PX) */ 00044000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00045000 * T(EXITRLSA,)MF(EXECUTE,PX) */ 00046000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00047000 ST R9,@AL00001 01S0151 00048000 L @14,PCPTR 01S0151 00049000 ST @14,@AL00001+4 01S0151 00050000 LA @14,PDAPTR 01S0151 00051000 ST @14,@AL00001+8 01S0151 00052000 L @15,BVTPARIP(,BVTPTR) 01S0151 00053000 LA @01,@AL00001 01S0151 00054000 BALR @14,@15 01S0151 00055000 * RESPECIFY 01S0152 00056000 * (GPR15F) RESTRICTED; 01S0152 00057000 * IF GPR15F^=ZZZFLAGI THEN 01S0153 00058000 * 01S0153 00059000 LTR GPR15F,GPR15F 01S0153 00060000 BZ @RF00153 01S0153 00061000 * /*******************************************************/ 00062000 * /* */ 00063000 * /* UNABLE TO PARSE */ 00064000 * /* */ 00065000 * /*******************************************************/ 00066000 * 01S0154 00067000 * DO; /* UNABLE TO PARSE */ 00068000 * RETC=GPR15F; /* RETURN CODE */ 00069000 LR RETC,GPR15F 01S0155 00070000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00071000 B EXITNORL 01S0156 00072000 * END; 01S0157 00073000 * RESPECIFY 01S0158 00074000 * (GPR15F) UNRESTRICTED; 01S0158 00075000 @RF00153 DS 0H 01S0159 00076000 * RESPECIFY 01S0159 00077000 * (PDRPTR) RESTRICTED; 01S0159 00078000 * PDRPTR=PDAPTR; /* ->PDL */ 00079000 L PDRPTR,PDAPTR 01S0160 00080000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 01S0161 00081000 USING PD,PDRPTR 00082000 * IF PXTEST=PXTEST1 THEN 01S0162 00083000 CLC PXTEST(2),@CH00043 01S0162 00084000 BNE @RF00162 01S0162 00085000 * ZZ2AFX=ZZZ1; /* TEST */ 00086000 OI ZZ2AFX(R9),B'10000000' 01S0163 00087000 * ELSE 01S0164 00088000 * IF PXTEST=PXTEST0 THEN 01S0164 00089000 B @RC00162 01S0164 00090000 @RF00162 CLC PXTEST(2),@CH00068 01S0164 00091000 BNE @RF00164 01S0164 00092000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00093000 NI ZZ2AFX(R9),B'01111111' 01S0165 00094000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00095000 * T(EXITRLSA,)MF(EXECUTE,PX) */ 00096000 @RF00164 DS 0H 01S0166 00097000 @RC00162 DS 0H 01S0167 00098000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00099000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00100000 * TE,PX) */ 00101000 * END; /* BLSRPARS MF(E,PX) */ 00102000 * J1=ZZ2ADDL; /* LENGTH OF DEFAULT DSNAME */ 00103000 @RF00147 SLR J1,J1 01S0169 00104000 ICM J1,3,ZZ2ADDL(R9) 01S0169 00105000 * IF /* DEFAULT DATA SET */ 00106000 * ECTNOPD=ZZZ1| /* NO OPERANDS ENTERED */ 00107000 * PDSNDFP=ZZZ0 THEN /* DEFAULT DATA SET */ 00108000 * 01S0170 00109000 L @14,CPPLECT(,R9) 01S0170 00110000 TM ECTNOPD(@14),B'10000000' 01S0170 00111000 BO @RT00170 01S0170 00112000 TM PDSNDFP,B'10000000' 01S0170 00113000 BNZ @RF00170 01S0170 00114000 @RT00170 DS 0H 01S0171 00115000 * /***************************************************************/ 00116000 * /* */ 00117000 * /* DEFAULT DATA SET */ 00118000 * /* */ 00119000 * /***************************************************************/ 00120000 * 01S0171 00121000 * DO; /* DEFAULT DATA SET */ 00122000 * IF J1=0 THEN /* NO DEFAULT DATA SET */ 00123000 * 01S0172 00124000 LTR J1,J1 01S0172 00125000 BNZ @RF00172 01S0172 00126000 * /***********************************************************/ 00127000 * /* */ 00128000 * /* NO DEFAULT DATA SET */ 00129000 * /* */ 00130000 * /***********************************************************/ 00131000 * 01S0173 00132000 * DO; /* NO DEFAULT DATA SET */ 00133000 * DO; /* BLSUCALL EP(BLSRDUCK) */ 00134000 * RESPECIFY 01S0175 00135000 * (GPR01P) RESTRICTED; /* ->TASK VARIABLE */ 00136000 * GPR01P=ADDR(ZZ2); /* ->TASK VARIABLE */ 00137000 LR GPR01P,R9 01S0176 00138000 * CALL BLSRDUCK; /* CALL RESIDENT IPCS PROGRAM */ 00139000 L @08,ZZ2RVTP(,R9) 01S0177 00140000 L @15,RVTDUCKP(,@08) 01S0177 00141000 BALR @14,@15 01S0177 00142000 * RESPECIFY 01S0178 00143000 * (GPR01P) UNRESTRICTED;/* ->TASK VARIABLE */ 00144000 * END; /* BLSUCALL EP(BLSRDUCK) */ 00145000 * RETC=RF; /* RETURN CODE */ 00146000 LR RETC,RF 01S0180 00147000 * GO TO EXIT; /* MAIN PROCESSING EXIT PATH */ 00148000 B EXIT 01S0181 00149000 * END; /* NO DEFAULT DATA SET */ 00150000 * IF ZZ2AZZ6P=ZZZNULL THEN /* DEFAULT DATA SET IS CLOSED */ 00151000 * 01S0183 00152000 @RF00172 CLC ZZ2AZZ6P(4,R9),@CF00063 01S0183 00153000 BNE @RF00183 01S0183 00154000 * /***********************************************************/ 00155000 * /* */ 00156000 * /* DEFAULT DATA SET IS CLOSED */ 00157000 * /* */ 00158000 * /***********************************************************/ 00159000 * 01S0184 00160000 * DO; /* DEFAULT DATA SET IS CLOSED */ 00161000 * RDAUDL=J1+4; /* LENGTH */ 00162000 LA @14,4(,J1) 01S0185 00163000 STH @14,RDAUDL 01S0185 00164000 * RDAUDT=ZZ2ADDT; /* DATA SET NAME */ 00165000 MVC RDAUDT(44),ZZ2ADDT(R9) 01S0186 00166000 * END; /* DEFAULT DATA SET IS CLOSED */ 00167000 * ELSE /* DEFAULT DATA SET IS OPEN */ 00168000 * FLAGOPEN=ZZZ1; /* DUMP INITIALLY OPEN */ 00169000 B @RC00183 01S0188 00170000 @RF00183 OI FLAGOPEN,B'10000000' 01S0188 00171000 * END; /* DEFAULT DATA SET */ 00172000 * ELSE /* DATA SET EXPLICITLY NAMED */ 00173000 * 01S0190 00174000 * /***************************************************************/ 00175000 * /* */ 00176000 * /* DATA SET EXPLICITLY NAMED */ 00177000 * /* */ 00178000 * /***************************************************************/ 00179000 * 01S0190 00180000 * DO; /* DATA SET EXPLICITLY NAMED */ 00181000 B @RC00170 01S0190 00182000 @RF00170 DS 0H 01S0191 00183000 * J2=PDSNDL; /* LENGTH OF DSNAME ENTERED */ 00184000 LH J2,PDSNDL 01S0191 00185000 * RDAUDL=J2+4; /* LENGTH OF RDAUD CONTENTS */ 00186000 LA @14,4(,J2) 01S0192 00187000 STH @14,RDAUDL 01S0192 00188000 * RDAUDT=''; /* PAD DATA SET NAME BUFFER */ 00189000 MVI RDAUDT,C' ' 01S0193 00190000 MVC RDAUDT+1(43),RDAUDT 01S0193 00191000 * RDAUDT(1:J2)=PDSND(1:J2); /* DATA SET NAME */ 00192000 LR @14,J2 01S0194 00193000 BCTR @14,0 01S0194 00194000 L @08,PDSNDP 01S0194 00195000 EX @14,@SM01050 01S0194 00196000 * IF /* DUMP INITIALLY OPEN */ 00197000 * ZZ2AZZ6P^=ZZZNULL& /* DEFAULT DATA SET IS OPEN */ 00198000 * J1=J2&ZZ2ADDT=RDAUDT THEN/* SAME DATA SET */ 00199000 CLC ZZ2AZZ6P(4,R9),@CF00063 01S0195 00200000 BE @RF00195 01S0195 00201000 CR J1,J2 01S0195 00202000 BNE @RF00195 01S0195 00203000 CLC ZZ2ADDT(44,R9),RDAUDT 01S0195 00204000 BNE @RF00195 01S0195 00205000 * FLAGOPEN=ZZZ1; /* DUMP INITIALLY OPEN */ 00206000 OI FLAGOPEN,B'10000000' 01S0196 00207000 * END; /* DATA SET EXPLICITLY NAMED */ 00208000 @RF00195 DS 0H 01S0198 00209000 * IF FLAGOPEN=ZZZ1 THEN /* DUMP INITIALLY OPEN */ 00210000 * 01S0198 00211000 @RC00170 TM FLAGOPEN,B'10000000' 01S0198 00212000 BNO @RF00198 01S0198 00213000 * /***************************************************************/ 00214000 * /* */ 00215000 * /* DUMP INITIALLY OPEN */ 00216000 * /* */ 00217000 * /***************************************************************/ 00218000 * 01S0199 00219000 * DO; /* DUMP INITIALLY OPEN */ 00220000 * RDAU=ZZ6D; /* COPY RD RECORD */ 00221000 L @14,ZZ2AZZ6P(,R9) 01S0200 00222000 MVC RDAU(128),ZZ6D(@14) 01S0200 00223000 * DO; /* BLSUCALL EP(BLSRDUCC) */ 00224000 * RESPECIFY 01S0202 00225000 * (GPR01P) RESTRICTED; /* ->TASK VARIABLE */ 00226000 * GPR01P=ADDR(ZZ2); /* ->TASK VARIABLE */ 00227000 LR GPR01P,R9 01S0203 00228000 * CALL BLSRDUCC; /* CALL RESIDENT IPCS PROGRAM */ 00229000 L @08,ZZ2RVTP(,R9) 01S0204 00230000 L @15,RVTDUCCP(,@08) 01S0204 00231000 BALR @14,@15 01S0204 00232000 * RESPECIFY 01S0205 00233000 * (GPR01P) UNRESTRICTED; /* ->TASK VARIABLE */ 00234000 * END; /* BLSUCALL EP(BLSRDUCC) */ 00235000 * IF RF^=ZZZFLAGI THEN /* CLOSE ERROR */ 00236000 * 01S0207 00237000 LTR RF,RF 01S0207 00238000 BZ @RF00207 01S0207 00239000 * /***********************************************************/ 00240000 * /* */ 00241000 * /* CLOSE ERROR */ 00242000 * /* */ 00243000 * /***********************************************************/ 00244000 * 01S0208 00245000 * DO; /* CLOSE ERROR */ 00246000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00247000 LA RETC,16 01S0209 00248000 * GO TO EXIT; /* MAIN PROCESSING EXIT PATH */ 00249000 B EXIT 01S0210 00250000 * END; /* CLOSE ERROR */ 00251000 * END; /* DUMP INITIALLY OPEN */ 00252000 * ELSE /* DUMP INITIALLY CLOSED */ 00253000 * 01S0213 00254000 * /***************************************************************/ 00255000 * /* */ 00256000 * /* DUMP INITIALLY CLOSED */ 00257000 * /* */ 00258000 * /***************************************************************/ 00259000 * 01S0213 00260000 * DO; /* DUMP INITIALLY CLOSED */ 00261000 B @RC00198 01S0213 00262000 @RF00198 DS 0H 01S0214 00263000 * RDAUDO=0; /* NO OFFSET */ 00264000 SLR @14,@14 01S0214 00265000 STH @14,RDAUDO 01S0214 00266000 * DO; /* BLSULINK(ZZ2,RDAU) 01S0215 00267000 * EP('BLSRRDGE') */ 00268000 * ZZ2PGM='BLSRRDGE'; /* ENTRY POINT NAME */ 00269000 MVC ZZ2PGM(8,R9),@CC01031 01S0216 00270000 * CALL BLSUPGMC(ZZ2,RDAU); /* CALL NON-RESIDENT IPCS PROGRAM*/ 00271000 ST R9,@AL00001 01S0217 00272000 LA @14,RDAU 01S0217 00273000 ST @14,@AL00001+4 01S0217 00274000 L @15,BVTPGMCP(,BVTPTR) 01S0217 00275000 LA @01,@AL00001 01S0217 00276000 BALR @14,@15 01S0217 00277000 * END; /* BLSULINK(ZZ2,RDAU) 01S0218 00278000 * EP('BLSRRDGE') */ 00279000 * IF RF^=ZZZFLAGI THEN /* NO RECORD OF SPECIFIED DUMP */ 00280000 * 01S0219 00281000 LTR RF,RF 01S0219 00282000 BZ @RF00219 01S0219 00283000 * /***********************************************************/ 00284000 * /* */ 00285000 * /* NO RECORD OF SPECIFIED DUMP */ 00286000 * /* */ 00287000 * /***********************************************************/ 00288000 * 01S0220 00289000 * DO; /* NO RECORD OF SPECIFIED DUMP */ 00290000 * RETC=RF; /* RETURN CODE */ 00291000 LR RETC,RF 01S0221 00292000 * CALL BLSUTRMV(ZZ2,M135);/* TRANSMIT MESSAGE M135 */ 00293000 ST R9,@AL00001 01S0222 00294000 LA @14,M135 01S0222 00295000 ST @14,@AL00001+4 01S0222 00296000 L @15,ZZ2TRMVP(,R9) 01S0222 00297000 LA @01,@AL00001 01S0222 00298000 BALR @14,@15 01S0222 00299000 * GO TO EXIT; /* MAIN PROCESSING EXIT PATH */ 00300000 B EXIT 01S0223 00301000 * END; /* NO RECORD OF SPECIFIED DUMP */ 00302000 * END; /* DUMP INITIALLY CLOSED */ 00303000 @RF00219 DS 0H 01S0226 00304000 * 01S0226 00305000 */* DELETE DUMP-RELATED RECORDS */ 00306000 * 01S0226 00307000 * RDAUDA2=0; /* DATA SET EMPTY/NOT INITIALIZED*/ 00308000 @RC00198 SLR @14,@14 01S0226 00309000 ST @14,RDAUDA2 01S0226 00310000 * DO; /* BLSULINK(ZZ2,RDAU) 01S0227 00311000 * EP('BLSRRDAR') */ 00312000 * ZZ2PGM='BLSRRDAR'; /* ENTRY POINT NAME */ 00313000 MVC ZZ2PGM(8,R9),@CC01032 01S0228 00314000 * CALL BLSUPGMC(ZZ2,RDAU); /* CALL NON-RESIDENT IPCS PROGRAM*/ 00315000 ST R9,@AL00001 01S0229 00316000 LA @14,RDAU 01S0229 00317000 ST @14,@AL00001+4 01S0229 00318000 L @15,BVTPGMCP(,BVTPTR) 01S0229 00319000 LA @01,@AL00001 01S0229 00320000 BALR @14,@15 01S0229 00321000 * END; /* BLSULINK(ZZ2,RDAU) 01S0230 00322000 * EP('BLSRRDAR') */ 00323000 * IF RF^=ZZZFLAGI THEN /* BLSRRDAR DETECTED AN ERROR */ 00324000 * 01S0231 00325000 LTR RF,RF 01S0231 00326000 BZ @RF00231 01S0231 00327000 * /***************************************************************/ 00328000 * /* */ 00329000 * /* BLSRRDAR DETECTED AN ERROR */ 00330000 * /* */ 00331000 * /***************************************************************/ 00332000 * 01S0232 00333000 * DO; /* BLSRRDAR DETECTED AN ERROR */ 00334000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00335000 LA RETC,16 01S0233 00336000 * GO TO EXIT; /* MAIN PROCESSING EXIT PATH */ 00337000 B EXIT 01S0234 00338000 * END; /* BLSRRDAR DETECTED AN ERROR */ 00339000 * DO; /* BLSULINK(ZZ2,RDAU) 01S0236 00340000 * EP('BLSRDUDR') */ 00341000 @RF00231 DS 0H 01S0237 00342000 * ZZ2PGM='BLSRDUDR'; /* ENTRY POINT NAME */ 00343000 MVC ZZ2PGM(8,R9),@CC01033 01S0237 00344000 * CALL BLSUPGMC(ZZ2,RDAU); /* CALL NON-RESIDENT IPCS PROGRAM*/ 00345000 ST R9,@AL00001 01S0238 00346000 LA @14,RDAU 01S0238 00347000 ST @14,@AL00001+4 01S0238 00348000 L @15,BVTPGMCP(,BVTPTR) 01S0238 00349000 LA @01,@AL00001 01S0238 00350000 BALR @14,@15 01S0238 00351000 * END; /* BLSULINK(ZZ2,RDAU) 01S0239 00352000 * EP('BLSRDUDR') */ 00353000 * RETC=RF; /* RETURN CODE */ 00354000 LR RETC,RF 01S0240 00355000 * 01S0241 00356000 */* CLEAN UP AND RETURN */ 00357000 * 01S0241 00358000 *EXIT: /* MAIN PROCESSING EXIT PATH */ 00359000 *EXITRLSA: /* EXIT WITH A PDL */ 00360000 * IF ECTNOPD=ZZZ0 THEN /* OPERANDS ENTERED */ 00361000 EXIT DS 0H 01S0241 00362000 EXITRLSA L @14,CPPLECT(,R9) 01S0241 00363000 TM ECTNOPD(@14),B'10000000' 01S0241 00364000 BNZ @RF00241 01S0241 00365000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 00366000 B @DE00242 01S0242 00367000 @DL00242 DS 0H 01S0243 00368000 * PDRPTR=PDAPTR; 01S0243 00369000 L PDRPTR,PDAPTR 01S0243 00370000 * PDAPTR=PDXP; 01S0244 00371000 SLR @14,@14 01S0244 00372000 ICM @14,7,PDXP(PDRPTR) 01S0244 00373000 ST @14,PDAPTR 01S0244 00374000 * DO; /* FREEMAIN(R) 01S0245 00375000 * LV(PDL)SP(1)A(PDDSECT) */ 00376000 * RESPECIFY 01S0246 00377000 * (GPR01F, 01S0246 00378000 * GPR00F) RESTRICTED; 01S0246 00379000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00380000 SLR GPR00F,GPR00F 01S0247 00381000 ICM GPR00F,7,PDL(PDRPTR) 01S0247 00382000 * GPR01F=1; /* SP IN REG 1 */ 00383000 LA GPR01F,1 01S0248 00384000 * GEN(SLL GPR01F,24) 01S0249 00385000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 01S0249 00386000 SLL GPR01F,24 00387000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00388000 OR GPR00F,GPR01F 01S0250 00389000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00390000 LR GPR01F,PDRPTR 01S0251 00391000 * SVC(10); /* R-FORM OF GETMAIN */ 00392000 SVC 10 01S0252 00393000 * RESPECIFY 01S0253 00394000 * (GPR01F, 01S0253 00395000 * GPR00F) UNRESTRICTED; 01S0253 00396000 * END; /* FREEMAIN(R) 01S0254 00397000 * LV(PDL)SP(1)A(PDDSECT) */ 00398000 * END; /* BLRRLSA MF(E,PD) */ 00399000 @DE00242 ICM @14,15,PDAPTR 01S0255 00400000 BNZ @DL00242 01S0255 00401000 *EXITNORL: /* EXIT WITH NO PDL */ 00402000 * RETURN CODE(RETC); 01S0256 00403000 * 01S0256 00404000 @RF00241 DS 0H 01S0256 00405000 EXITNORL L @13,4(,@13) 01S0256 00406000 L @00,@SIZDATD 01S0256 00407000 LR @01,@11 01S0256 00408000 BLSUFRER R,LV=(0),A=(1) 00409000 LR @15,@05 01S0256 00410000 L @14,12(,@13) 01S0256 00411000 LM @00,@12,20(@13) 01S0256 00412000 BR @14 01S0256 00413000 */*BLSRPEND--DEBUGGING MODULE */ 00414000 */*BLSUPEND--MVS IPCS MODULE */ 00415000 * 01S0257 00416000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00417000 * GPR00F FIXED(31) REG(0), 01S0257 00418000 * GPR01F FIXED(31) REG(1), 01S0257 00419000 * GPR15F FIXED(31) REG(15), 01S0257 00420000 * GPR01P PTR(31) REG(1); 01S0257 00421000 * DECLARE /* COMMON VARIABLES */ 00422000 * I256C CHAR(256) BASED, 01S0258 00423000 * I031F FIXED(31) BASED, 01S0258 00424000 * I031P PTR(31) BASED, 01S0258 00425000 * I015F FIXED(15) BASED, 01S0258 00426000 * I015P PTR(15) BASED, 01S0258 00427000 * I008P PTR(8) BASED, 01S0258 00428000 * I001C CHAR(1) BASED; 01S0258 00429000 * GENERATE NODEFS NOREFS DATA; 01S0259 00430000 * END BLSRDUDE /* BLRPEND(BLSRDUDE) */ 00431000 * 01S0260 00432000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00433000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00434000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00435000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00436000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00437000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00438000 */*%INCLUDE SYSLIB (IKJECT ) */ 00439000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00440000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00441000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00442000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00443000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00444000 * 01S0260 00445000 * ; 01S0260 00446000 @EL00001 L @13,4(,@13) 01S0260 00447000 @EF00001 L @00,@SIZDATD 01S0260 00448000 LR @01,@11 01S0260 00449000 BLSUFRER R,LV=(0),A=(1) 00450000 @ER00001 LM @14,@12,12(@13) 01S0260 00451000 BR @14 01S0260 00452000 @DATA DS 0H 00453000 @CH00043 DC H'1' 00454000 @CH00068 DC H'2' 00455000 @SM01050 MVC RDAUDT(0),PDSND(@08) 00456000 @DATD DSECT 00457000 DS 0F 00458000 @SA00001 DS 18F 00459000 @AL00001 DS 3A 00460000 BLSRDUDE CSECT 00461000 DS 0F 00462000 @CF00063 DC XL4'80000000' 00463000 @DATD DSECT 00464000 DS 0D 00465000 PDAPTR DS A 00466000 DS CL4 00467000 RDAU DS CL128 00468000 ORG RDAU 00469000 RDAURID DS CL2 00470000 @NM00007 DS BL6 00471000 RDAUD DS CL48 00472000 ORG RDAUD 00473000 RDAUDL DS FL2 00474000 RDAUDO DS FL2 00475000 RDAUDT DS CL44 00476000 ORG RDAUDT 00477000 RDAUDT1 DS CL44 00478000 ORG RDAU+56 00479000 RDAUMEM DS CL8 00480000 RDAUELK DS 0C 00481000 RDAURDX DS FL4 00482000 RDAUQA DS CL16 00483000 ORG RDAUQA 00484000 RDAUQA0 DS 0C 00485000 RDAUQAT DS CL2 00486000 @NM00008 DS BL2 00487000 RDAUQA1 DS FL4 00488000 RDAUQA2 DS FL4 00489000 @NM00009 DS BL4 00490000 RDAUQA9 DS 0C 00491000 ORG RDAU+84 00492000 RDAUQ1 DS FL4 00493000 RDAUQ2 DS FL4 00494000 RDAUF DS BL8 00495000 ORG RDAUF 00496000 RDAUFBS DS BL1 00497000 RDAUFDU EQU RDAUF+0 00498000 RDAUFMP EQU RDAUF+0 00499000 RDAUFAB EQU RDAUF+0 00500000 RDAUFST EQU RDAUF+0 00501000 RDAUFSU EQU RDAUF+0 00502000 @NM00010 EQU RDAUF+0 00503000 ORG RDAU+100 00504000 RDAUDA1 DS FL4 00505000 RDAUDA2 DS FL4 00506000 RDAUPRP DS AL4 00507000 RDAUCAP DS AL4 00508000 @NM00011 DS 12BL1 00509000 RDAU999 DS 0C 00510000 ORG RDAU+128 00511000 FLAG DS BL1 00512000 ORG FLAG 00513000 FLAGOPEN DS BL1 00514000 @NM00089 EQU FLAG+0 00515000 ORG FLAG+1 00516000 BLSRDUDE CSECT 00517000 DS 0F 00518000 @SIZDATD DC AL1(0) 00519000 DC AL3(@ENDDATD-@DATD) 00520000 DS 0D 00521000 PCPTR DC AL4(PC) 00522000 @CC01031 DC C'BLSRRDGE' 00523000 @CC01032 DC C'BLSRRDAR' 00524000 @CC01033 DC C'BLSRDUDR' 00525000 M135 DS CL34 00526000 ORG M135 00527000 M135L DC AL2(34) 00528000 @NM00012 DC X'0000' 00529000 M135T DS CL30 00530000 ORG M135T 00531000 M135TA DC CL30'BLS18135I NO RECORDS TO DELETE' 00532000 ORG M135+34 00533000 @DATD DSECT 00534000 SPACE 2 00535000 *********************************************************************** 00536000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00537000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00538000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00539000 *********************************************************************** 00540000 SPACE 00541000 BLSRDUDE CSECT 00542000 ORG 00543000 DS 0D 00544000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRDUDE+19)/20+7)/8)CL8'BLSRDUDE' 00545000 @DATD DSECT 00546000 DS 0H 00547000 @DATD DSECT 00548000 SPACE 2 00549000 *********************************************************************** 00550000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 00551000 *********************************************************************** 00552000 SPACE 00553000 BLSRDUDE CSECT 00554000 PC IKJPARM DSECT=PD 00555000 @DATD DSECT 00556000 BLSRDUDE CSECT 00557000 PDSN IKJPOSIT DSNAME,USID,PROMPT='DUMP DSNAME' 00558000 @DATD DSECT 00559000 BLSRDUDE CSECT 00560000 PXTEST IKJKEYWD 00561000 @DATD DSECT 00562000 BLSRDUDE CSECT 00563000 IKJNAME 'TEST' 00564000 @DATD DSECT 00565000 BLSRDUDE CSECT 00566000 IKJNAME 'NOTEST' 00567000 @DATD DSECT 00568000 PD DSECT 00569000 PD99 DS 0C 00570000 BLSRDUDE CSECT 00571000 IKJENDP 00572000 SPACE 2 00573000 *********************************************************************** 00574000 * IKJENDP--END SYNTAX DESCRIPTION * 00575000 *********************************************************************** 00576000 SPACE 00577000 @DATD DSECT 00578000 SPACE 2 00579000 *********************************************************************** 00580000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00581000 *********************************************************************** 00582000 SPACE 00583000 DS 0D 00584000 @DATD DSECT 00585000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00586000 @ENDDATD EQU * 00587000 BLSRDUDE CSECT 00588000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00589000 @01 EQU 01 00590000 @02 EQU 02 00591000 @03 EQU 03 00592000 @04 EQU 04 00593000 @05 EQU 05 00594000 @06 EQU 06 00595000 @07 EQU 07 00596000 @08 EQU 08 00597000 @09 EQU 09 00598000 @10 EQU 10 00599000 @11 EQU 11 00600000 @12 EQU 12 00601000 @13 EQU 13 00602000 @14 EQU 14 00603000 @15 EQU 15 00604000 RETC EQU @05 00605000 J2 EQU @02 00606000 J1 EQU @03 00607000 BVTPTR EQU @05 00608000 PDRPTR EQU @10 00609000 R9 EQU @09 00610000 R0 EQU @00 00611000 R1 EQU @01 00612000 R2 EQU @02 00613000 R3 EQU @03 00614000 R4 EQU @04 00615000 R5 EQU @05 00616000 RB EQU @11 00617000 RD EQU @13 00618000 RE EQU @14 00619000 RF EQU @15 00620000 GPR15F EQU @15 00621000 GPR01P EQU @01 00622000 GPR01F EQU @01 00623000 GPR00F EQU @00 00624000 RA EQU @10 00625000 RC EQU @12 00626000 R6 EQU @06 00627000 R7 EQU @07 00628000 R8 EQU @08 00629000 PCCSECT EQU 0 00630000 PDDSECT EQU 0 00631000 PDXP EQU PDDSECT+1 00632000 PDL EQU PDDSECT+5 00633000 PDSND EQU 0 00634000 ZZ1 EQU 0 00635000 ZZ1ATTN EQU ZZ1+360 00636000 ZZ1EVE EQU ZZ1ATTN+4 00637000 ZZ1F EQU ZZ1+368 00638000 ZZ1N EQU ZZ1+1116 00639000 ZZ2 EQU 0 00640000 ZZ2AMD EQU ZZ2 00641000 @NM00025 EQU ZZ2AMD+7 00642000 ZZ2PRT EQU ZZ2+138 00643000 ZZ2PRTT EQU ZZ2PRT+4 00644000 ZZ2PRTT1 EQU ZZ2PRTT+1 00645000 ZZ2A EQU ZZ2+272 00646000 ZZ2AF EQU ZZ2A+16 00647000 ZZ2AFX EQU ZZ2AF+5 00648000 ZZ2APID EQU ZZ2A+64 00649000 ZZ2AD EQU ZZ2A+74 00650000 ZZ2ADD EQU ZZ2AD 00651000 ZZ2ADDL EQU ZZ2ADD 00652000 ZZ2ADDT EQU ZZ2ADD+2 00653000 ZZ2ADM EQU ZZ2AD+46 00654000 ZZ2ADMT EQU ZZ2ADM+2 00655000 ZZ2ADP EQU ZZ2AD+56 00656000 ZZ2ADPT EQU ZZ2ADP+2 00657000 ZZ2AZZ6P EQU ZZ2A+140 00658000 ZZ2AQAS EQU ZZ2A+144 00659000 ZZ2AQD EQU ZZ2A+160 00660000 ZZ2AQDT EQU ZZ2AQD+10 00661000 ZZ2AQDF EQU ZZ2AQD+52 00662000 ZZ2STG EQU ZZ2+960 00663000 ZZ2ALLOP EQU ZZ2+992 00664000 ZZ2FREEP EQU ZZ2+996 00665000 ZZ2FF19P EQU ZZ2+1000 00666000 ZZ2FRE1P EQU ZZ2+1004 00667000 ZZ2FF18P EQU ZZ2+1008 00668000 ZZ2DYNAP EQU ZZ2+1012 00669000 ZZ2ZZ2CP EQU ZZ2+1016 00670000 ZZ2ZZ2DP EQU ZZ2+1020 00671000 ZZ2STAIP EQU ZZ2+1024 00672000 ZZ2FF02P EQU ZZ2+1028 00673000 ZZ2GETLP EQU ZZ2+1032 00674000 ZZ2PARSP EQU ZZ2+1036 00675000 ZZ2PTGTP EQU ZZ2+1040 00676000 ZZ2PUTLP EQU ZZ2+1044 00677000 ZZ2SCANP EQU ZZ2+1048 00678000 ZZ2STCKP EQU ZZ2+1052 00679000 ZZ2TRMOP EQU ZZ2+1064 00680000 ZZ2TRMVP EQU ZZ2+1068 00681000 ZZ2PUTNP EQU ZZ2+1084 00682000 ZZ2TRMNP EQU ZZ2+1088 00683000 ZZ2ZZ1P EQU ZZ2+1264 00684000 ZZ2BVTP EQU ZZ2+1280 00685000 ZZ2RVTP EQU ZZ2+1284 00686000 ZZ2CPPL EQU ZZ2+1292 00687000 ZZ2CPPLC EQU ZZ2CPPL 00688000 ZZ2PGM EQU ZZ2+1536 00689000 ZZ2ITR EQU ZZ2+2840 00690000 ZZ2ITRE EQU ZZ2ITR+16 00691000 ZZ2ITSE EQU ZZ2+2864 00692000 ZZ2ES EQU ZZ2+2872 00693000 ZZ2AMDX EQU ZZ2+7160 00694000 ZZ2AXO EQU ZZ2+7934 00695000 ZZ2AXOT EQU ZZ2AXO+2 00696000 CMD EQU 0 00697000 CMDT EQU CMD+4 00698000 PSCB EQU 0 00699000 PSCBATR1 EQU PSCB+16 00700000 ECT EQU 0 00701000 ECTSWS EQU ECT+28 00702000 ECTNOPD EQU ECTSWS 00703000 ECTSWS2 EQU ECT+40 00704000 ECTSWS21 EQU ECTSWS2 00705000 UPT EQU 0 00706000 UPTSWS EQU UPT+12 00707000 SA EQU 0 00708000 SA1 EQU SA 00709000 SAR EQU SA+12 00710000 SAR1 EQU SAR+12 00711000 BLSUPARI EQU 0 00712000 BLSUPGMC EQU 0 00713000 BLSUTRMV EQU 0 00714000 BVT EQU 0 00715000 BVTPUTLP EQU BVT+4 00716000 BVTPUTOP EQU BVT+12 00717000 BVTPUTTP EQU BVT+16 00718000 BVTPUTVP EQU BVT+20 00719000 BVTPUTAP EQU BVT+24 00720000 BVTPRTTP EQU BVT+28 00721000 BVTPRTAP EQU BVT+32 00722000 BVTPUTDP EQU BVT+36 00723000 BVTMONP EQU BVT+40 00724000 BVTMON2P EQU BVT+44 00725000 BVTVSARP EQU BVT+48 00726000 BVTVSENP EQU BVT+64 00727000 BVTVSERP EQU BVT+68 00728000 BVTVSGEP EQU BVT+72 00729000 BVTVSGUP EQU BVT+76 00730000 BVTVSPOP EQU BVT+80 00731000 BVTVSPUP EQU BVT+84 00732000 BVTMPKNP EQU BVT+104 00733000 BVTMONLP EQU BVT+108 00734000 BVTPUTCP EQU BVT+132 00735000 BVTMPK1P EQU BVT+136 00736000 BVTZZ2RP EQU BVT+140 00737000 BVTPGMRP EQU BVT+144 00738000 BVTMONAP EQU BVT+148 00739000 BVTBLDDP EQU BVT+152 00740000 BVTBLDLP EQU BVT+156 00741000 BVTPGMCP EQU BVT+160 00742000 BVTPGMDP EQU BVT+164 00743000 BVTPGMLP EQU BVT+168 00744000 BVTMONCP EQU BVT+180 00745000 BVTMONDP EQU BVT+184 00746000 BVTMONTP EQU BVT+188 00747000 BVTPARIP EQU BVT+192 00748000 BVTPARUP EQU BVT+196 00749000 BVTPRTNP EQU BVT+204 00750000 BVTVSCRP EQU BVT+208 00751000 BVTVSMRP EQU BVT+212 00752000 BVTMONXP EQU BVT+216 00753000 BVTTRMAP EQU BVT+228 00754000 ZZ6 EQU 0 00755000 ZZ6D EQU ZZ6+128 00756000 ZZ6DD EQU ZZ6D+8 00757000 ZZ6DDT EQU ZZ6DD+4 00758000 ZZ6DQA EQU ZZ6D+68 00759000 ZZ6DF EQU ZZ6D+92 00760000 ZZ6B EQU ZZ6+768 00761000 BLSRDUCC EQU 0 00762000 BLSRDUCK EQU 0 00763000 RVT EQU 0 00764000 RVTADDRP EQU RVT 00765000 RVTT01P EQU RVT+4 00766000 RVTTAP EQU RVT+8 00767000 RVTTBP EQU RVT+12 00768000 RVTTCP EQU RVT+16 00769000 RVTTFP EQU RVT+24 00770000 RVTTYP EQU RVT+40 00771000 RVTT02P EQU RVT+48 00772000 RVTT03P EQU RVT+52 00773000 RVTT04P EQU RVT+56 00774000 RVTACCLP EQU RVT+60 00775000 RVTRACCP EQU RVT+64 00776000 RVTTLP EQU RVT+68 00777000 RVTTMP EQU RVT+72 00778000 RVTTUP EQU RVT+80 00779000 RVTESGEP EQU RVT+84 00780000 RVTESGUP EQU RVT+88 00781000 RVTESARP EQU RVT+92 00782000 RVTRAARP EQU RVT+96 00783000 RVTRAGEP EQU RVT+100 00784000 RVTADDPP EQU RVT+104 00785000 RVTACCQP EQU RVT+108 00786000 RVTSAGUP EQU RVT+124 00787000 RVTSAGEP EQU RVT+128 00788000 RVTESCKP EQU RVT+132 00789000 RVTMSGAP EQU RVT+136 00790000 RVTMSGDP EQU RVT+140 00791000 RVTADDTP EQU RVT+160 00792000 RVTADDUP EQU RVT+164 00793000 RVTADD1P EQU RVT+176 00794000 RVTADD2P EQU RVT+180 00795000 RVTRSAGP EQU RVT+184 00796000 RVTMSGBP EQU RVT+188 00797000 RVTADDSP EQU RVT+192 00798000 RVTADD3P EQU RVT+196 00799000 RVTT05P EQU RVT+200 00800000 RVTPADSP EQU RVT+204 00801000 RVTTRP EQU RVT+228 00802000 RVTADD4P EQU RVT+232 00803000 RVTSAPCP EQU RVT+236 00804000 RVTSAARP EQU RVT+240 00805000 RVTSAGNP EQU RVT+244 00806000 RVTT06P EQU RVT+248 00807000 RVTSAGCP EQU RVT+252 00808000 RVTSAGQP EQU RVT+256 00809000 RVTESGCP EQU RVT+260 00810000 RVTESGQP EQU RVT+264 00811000 RVTDUCKP EQU RVT+276 00812000 RVTDUCCP EQU RVT+280 00813000 BLSRACC EQU 0 00814000 BLSRACCL EQU 0 00815000 BLSRACCQ EQU 0 00816000 BLSRADDP EQU 0 00817000 BLSRADDR EQU 0 00818000 BLSRADDS EQU 0 00819000 BLSRADDT EQU 0 00820000 BLSRADDU EQU 0 00821000 BLSRADD1 EQU 0 00822000 BLSRADD2 EQU 0 00823000 BLSRADD3 EQU 0 00824000 BLSRADD4 EQU 0 00825000 BLSRESAR EQU 0 00826000 BLSRESCK EQU 0 00827000 BLSRESGC EQU 0 00828000 BLSRESGE EQU 0 00829000 BLSRESGQ EQU 0 00830000 BLSRESGU EQU 0 00831000 BLSRMSGA EQU 0 00832000 BLSRMSGB EQU 0 00833000 BLSRMSGD EQU 0 00834000 BLSRPADS EQU 0 00835000 BLSRRAAR EQU 0 00836000 BLSRRAGE EQU 0 00837000 BLSRSAAR EQU 0 00838000 BLSRSAG EQU 0 00839000 BLSRSAGC EQU 0 00840000 BLSRSAGE EQU 0 00841000 BLSRSAGN EQU 0 00842000 BLSRSAGQ EQU 0 00843000 BLSRSAGU EQU 0 00844000 BLSRSAPC EQU 0 00845000 BLSTA EQU 0 00846000 BLSTB EQU 0 00847000 BLSTC EQU 0 00848000 BLSTF EQU 0 00849000 BLSTL EQU 0 00850000 BLSTM EQU 0 00851000 BLSTR EQU 0 00852000 BLSTU EQU 0 00853000 BLSTY EQU 0 00854000 BLST01 EQU 0 00855000 BLST02 EQU 0 00856000 BLST03 EQU 0 00857000 BLST04 EQU 0 00858000 BLST05 EQU 0 00859000 BLST06 EQU 0 00860000 BLSUALLO EQU 0 00861000 BLSUBLDD EQU 0 00862000 BLSUBLDL EQU 0 00863000 BLSUDYNA EQU 0 00864000 BLSUFREE EQU 0 00865000 BLSUFRE1 EQU 0 00866000 BLSUMON EQU 0 00867000 BLSUMONA EQU 0 00868000 BLSUMONC EQU 0 00869000 BLSUMOND EQU 0 00870000 BLSUMONL EQU 0 00871000 BLSUMONT EQU 0 00872000 BLSUMONX EQU 0 00873000 BLSUMON2 EQU 0 00874000 BLSUMPKN EQU 0 00875000 BLSUMPK1 EQU 0 00876000 BLSUPARU EQU 0 00877000 BLSUPGMD EQU 0 00878000 BLSUPGML EQU 0 00879000 BLSUPGMR EQU 0 00880000 BLSUPRTA EQU 0 00881000 BLSUPRTN EQU 0 00882000 BLSUPRTT EQU 0 00883000 BLSUPUTA EQU 0 00884000 BLSUPUTC EQU 0 00885000 BLSUPUTD EQU 0 00886000 BLSUPUTL EQU 0 00887000 BLSUPUTN EQU 0 00888000 BLSUPUTO EQU 0 00889000 BLSUPUTT EQU 0 00890000 BLSUPUTV EQU 0 00891000 BLSUSTAI EQU 0 00892000 BLSUTRMA EQU 0 00893000 BLSUTRMN EQU 0 00894000 BLSUTRMO EQU 0 00895000 BLSUVSAR EQU 0 00896000 BLSUVSCR EQU 0 00897000 BLSUVSEN EQU 0 00898000 BLSUVSER EQU 0 00899000 BLSUVSGE EQU 0 00900000 BLSUVSGU EQU 0 00901000 BLSUVSMR EQU 0 00902000 BLSUVSPO EQU 0 00903000 BLSUVSPU EQU 0 00904000 BLSUZZ2C EQU 0 00905000 BLSUZZ2D EQU 0 00906000 BLSUZZ2R EQU 0 00907000 IKJEFF02 EQU 0 00908000 IKJEFF18 EQU 0 00909000 IKJEFF19 EQU 0 00910000 IKJGETL EQU 0 00911000 IKJPARS EQU 0 00912000 IKJPTGT EQU 0 00913000 IKJPUTL EQU 0 00914000 IKJSCAN EQU 0 00915000 IKJSTCK EQU 0 00916000 I001C EQU 0 00917000 I008P EQU 0 00918000 I015F EQU 0 00919000 I015P EQU 0 00920000 I031F EQU 0 00921000 I031P EQU 0 00922000 I256C EQU 0 00923000 PDSNM EQU 0 00924000 PDSNP EQU 0 00925000 PDSNDP EQU PDSN 00926000 PDSNDL EQU PDSN+4 00927000 PDSNDF EQU PDSN+6 00928000 PDSNDFP EQU PDSNDF 00929000 PDSNMP EQU PDSN+8 00930000 PDSNMF EQU PDSN+14 00931000 PDSNPP EQU PDSN+16 00932000 PDSNPF EQU PDSN+22 00933000 CPPL EQU ZZ2CPPL 00934000 CPPLUPT EQU CPPL+4 00935000 CPPLPSCB EQU CPPL+8 00936000 CPPLECT EQU CPPL+12 00937000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00938000 CPPLCBUF EQU CPPL 00939000 @NM00006 EQU PDSN+24 00940000 @NM00005 EQU PDSN+23 00941000 PDSNPF8 EQU PDSNPF 00942000 PDSNPF7 EQU PDSNPF 00943000 PDSNPF6 EQU PDSNPF 00944000 PDSNPF5 EQU PDSNPF 00945000 PDSNPF4 EQU PDSNPF 00946000 PDSNPF3 EQU PDSNPF 00947000 PDSNPF2 EQU PDSNPF 00948000 PDSNPFP EQU PDSNPF 00949000 PDSNPL EQU PDSN+20 00950000 @NM00004 EQU PDSN+15 00951000 PDSNMF8 EQU PDSNMF 00952000 PDSNMF7 EQU PDSNMF 00953000 PDSNMF6 EQU PDSNMF 00954000 PDSNMF5 EQU PDSNMF 00955000 PDSNMF4 EQU PDSNMF 00956000 PDSNMF3 EQU PDSNMF 00957000 PDSNMF2 EQU PDSNMF 00958000 PDSNMFP EQU PDSNMF 00959000 PDSNML EQU PDSN+12 00960000 @NM00003 EQU PDSN+7 00961000 @NM00002 EQU PDSNDF 00962000 PDSNDFQ EQU PDSNDF 00963000 RVT99999 EQU RVT+384 00964000 RVT0096P EQU RVT+380 00965000 RVT0095P EQU RVT+376 00966000 RVT0094P EQU RVT+372 00967000 RVT0093P EQU RVT+368 00968000 RVT0092P EQU RVT+364 00969000 RVT0091P EQU RVT+360 00970000 RVT0090P EQU RVT+356 00971000 RVT0089P EQU RVT+352 00972000 RVT0088P EQU RVT+348 00973000 RVT0087P EQU RVT+344 00974000 RVT0086P EQU RVT+340 00975000 RVT0085P EQU RVT+336 00976000 RVT0084P EQU RVT+332 00977000 RVT0083P EQU RVT+328 00978000 RVT0082P EQU RVT+324 00979000 RVT0081P EQU RVT+320 00980000 RVT0080P EQU RVT+316 00981000 RVT0079P EQU RVT+312 00982000 RVT0078P EQU RVT+308 00983000 RVT0077P EQU RVT+304 00984000 RVT0076P EQU RVT+300 00985000 RVT0075P EQU RVT+296 00986000 RVT0074P EQU RVT+292 00987000 RVT0073P EQU RVT+288 00988000 RVT0072P EQU RVT+284 00989000 RVTDTUTP EQU RVT+272 00990000 RVTDTMTP EQU RVT+268 00991000 RVT0057P EQU RVT+224 00992000 RVT0056P EQU RVT+220 00993000 RVT0055P EQU RVT+216 00994000 RVT0054P EQU RVT+212 00995000 RVT0053P EQU RVT+208 00996000 RVT0044P EQU RVT+172 00997000 RVT0043P EQU RVT+168 00998000 RVT0040P EQU RVT+156 00999000 RVT0039P EQU RVT+152 01000000 RVT0038P EQU RVT+148 01001000 RVT0037P EQU RVT+144 01002000 RVT0031P EQU RVT+120 01003000 RVT0030P EQU RVT+116 01004000 RVT0029P EQU RVT+112 01005000 RVT0020P EQU RVT+76 01006000 RVT0012P EQU RVT+44 01007000 RVT0010P EQU RVT+36 01008000 RVT0009P EQU RVT+32 01009000 RVT0008P EQU RVT+28 01010000 RVT0006P EQU RVT+20 01011000 ZZ69999 EQU ZZ6+1792 01012000 ZZ6BRB EQU ZZ6B+12 01013000 ZZ6BRC EQU ZZ6B+8 01014000 @NM00088 EQU ZZ6B+6 01015000 ZZ6BFL EQU ZZ6B+4 01016000 ZZ6BDA EQU ZZ6B 01017000 @NM00087 EQU ZZ6+540 01018000 ZZ6BUFI EQU ZZ6+536 01019000 ZZ6BUFP EQU ZZ6+532 01020000 ZZ6FILE EQU ZZ6+524 01021000 ZZ6BUFB EQU ZZ6+520 01022000 ZZ6BUFL EQU ZZ6+518 01023000 ZZ6BUFN EQU ZZ6+516 01024000 ZZ6ZZ6P EQU ZZ6+512 01025000 @NM00086 EQU ZZ6+256 01026000 ZZ6D999 EQU ZZ6D+128 01027000 @NM00085 EQU ZZ6D+116 01028000 ZZ6DCAP EQU ZZ6D+112 01029000 ZZ6DPRP EQU ZZ6D+108 01030000 ZZ6DDA2 EQU ZZ6D+104 01031000 ZZ6DDA1 EQU ZZ6D+100 01032000 @NM00084 EQU ZZ6DF 01033000 ZZ6DFSU EQU ZZ6DF 01034000 ZZ6DFST EQU ZZ6DF 01035000 ZZ6DFAB EQU ZZ6DF 01036000 ZZ6DFMP EQU ZZ6DF 01037000 ZZ6DFDU EQU ZZ6DF 01038000 ZZ6DFBS EQU ZZ6DF 01039000 ZZ6DQ2 EQU ZZ6D+88 01040000 ZZ6DQ1 EQU ZZ6D+84 01041000 ZZ6DQA9 EQU ZZ6DQA+16 01042000 @NM00083 EQU ZZ6DQA+12 01043000 ZZ6DQA2 EQU ZZ6DQA+8 01044000 ZZ6DQA1 EQU ZZ6DQA+4 01045000 @NM00082 EQU ZZ6DQA+2 01046000 ZZ6DQAT EQU ZZ6DQA 01047000 ZZ6DQA0 EQU ZZ6DQA 01048000 ZZ6DRDX EQU ZZ6D+64 01049000 ZZ6DELK EQU ZZ6D+64 01050000 ZZ6DMEM EQU ZZ6D+56 01051000 ZZ6DDT1 EQU ZZ6DDT 01052000 ZZ6DDO EQU ZZ6DD+2 01053000 ZZ6DDL EQU ZZ6DD 01054000 @NM00081 EQU ZZ6D+2 01055000 ZZ6DRID EQU ZZ6D 01056000 ZZ6RDCB EQU ZZ6 01057000 ZZ60000 EQU ZZ6 01058000 BVT99999 EQU BVT+256 01059000 BVT0064P EQU BVT+252 01060000 BVT0063P EQU BVT+248 01061000 BVT0062P EQU BVT+244 01062000 BVT0061P EQU BVT+240 01063000 BVT0060P EQU BVT+236 01064000 BVT0059P EQU BVT+232 01065000 BVT0057P EQU BVT+224 01066000 BVT0056P EQU BVT+220 01067000 BVTSTBLP EQU BVT+200 01068000 BVT0045P EQU BVT+176 01069000 BVT0044P EQU BVT+172 01070000 BVT0033P EQU BVT+128 01071000 BVT0032P EQU BVT+124 01072000 BVT0031P EQU BVT+120 01073000 BVT0030P EQU BVT+116 01074000 BVT0029P EQU BVT+112 01075000 BVT0026P EQU BVT+100 01076000 BVT0025P EQU BVT+96 01077000 BVT0024P EQU BVT+92 01078000 BVT0023P EQU BVT+88 01079000 BVT0016P EQU BVT+60 01080000 BVT0015P EQU BVT+56 01081000 BVT0014P EQU BVT+52 01082000 BVT0003P EQU BVT+8 01083000 BVT0001P EQU BVT 01084000 SA99 EQU SA+72 01085000 SARC EQU SAR+56 01086000 SARB EQU SAR+52 01087000 SARA EQU SAR+48 01088000 SAR9 EQU SAR+44 01089000 SAR8 EQU SAR+40 01090000 SAR7 EQU SAR+36 01091000 SAR6 EQU SAR+32 01092000 SAR5 EQU SAR+28 01093000 SAR4 EQU SAR+24 01094000 SAR3 EQU SAR+20 01095000 SAR2 EQU SAR+16 01096000 SAR0 EQU SAR+8 01097000 SARF EQU SAR+4 01098000 SARE EQU SAR 01099000 SAFWD EQU SA+8 01100000 SABAK EQU SA+4 01101000 SA1L EQU SA1+1 01102000 SA1P EQU SA1 01103000 UPTPREFL EQU UPT+23 01104000 UPTPREFX EQU UPT+16 01105000 @NM00080 EQU UPT+15 01106000 UPTLDEL EQU UPT+14 01107000 UPTCDEL EQU UPT+13 01108000 UPTWTP EQU UPTSWS 01109000 UPTMODE EQU UPTSWS 01110000 UPTALD EQU UPTSWS 01111000 UPTPAUS EQU UPTSWS 01112000 UPTNCOM EQU UPTSWS 01113000 UPTMID EQU UPTSWS 01114000 UPTNPRM EQU UPTSWS 01115000 UPTRCVR EQU UPTSWS 01116000 UPTUSER EQU UPT+2 01117000 @NM00079 EQU UPT 01118000 @NM00078 EQU ECT+52 01119000 @NM00077 EQU ECT+48 01120000 @NM00076 EQU ECT+44 01121000 @NM00075 EQU ECTSWS2+1 01122000 @NM00074 EQU ECTSWS21 01123000 ECTTABND EQU ECTSWS21 01124000 ECTDEFCS EQU ECTSWS21 01125000 ECTBKPB EQU ECT+36 01126000 ECTUSER EQU ECT+32 01127000 ECTDDNUM EQU ECT+29 01128000 ECTATTN EQU ECTSWS 01129000 ECTBKGRD EQU ECTSWS 01130000 ECTNNOT EQU ECTSWS 01131000 ECTNMAL EQU ECTSWS 01132000 ECTLOGF EQU ECTSWS 01133000 ECTATRM EQU ECTSWS 01134000 @NM00073 EQU ECTSWS 01135000 ECTSCMD EQU ECT+20 01136000 ECTPCMD EQU ECT+12 01137000 ECTSMSG EQU ECT+9 01138000 ECTMSGF EQU ECT+8 01139000 ECTIOWA EQU ECT+4 01140000 ECTRTCD EQU ECT+1 01141000 ECTRCDF EQU ECT 01142000 PSCBU EQU PSCB+64 01143000 PSCBRSZ EQU PSCB+60 01144000 PSCBLINE EQU PSCB+59 01145000 PSCBCHAR EQU PSCB+58 01146000 PSCBUPTL EQU PSCB+56 01147000 PSCBUPT EQU PSCB+52 01148000 PSCBRLGB EQU PSCB+48 01149000 PSCBDEST EQU PSCB+40 01150000 @NM00072 EQU PSCB+36 01151000 @NM00071 EQU PSCB+32 01152000 @NM00070 EQU PSCB+28 01153000 PSCBLTI2 EQU PSCB+24 01154000 PSCBLTIM EQU PSCB+20 01155000 PSCBATR2 EQU PSCB+18 01156000 @NM00069 EQU PSCBATR1 01157000 @NM00068 EQU PSCBATR1 01158000 @NM00067 EQU PSCBATR1 01159000 PSCBATTN EQU PSCBATR1 01160000 PSCBVMNT EQU PSCBATR1 01161000 PSCBJCL EQU PSCBATR1 01162000 PSCBACCT EQU PSCBATR1 01163000 PSCBCTRL EQU PSCBATR1 01164000 PSCBGPNM EQU PSCB+8 01165000 PSCBUSRL EQU PSCB+7 01166000 PSCBUSER EQU PSCB 01167000 CMDT1 EQU CMDT 01168000 CMDO EQU CMD+2 01169000 CMDL EQU CMD 01170000 ZZ299999 EQU ZZ2+8192 01171000 ZZ2AXOT1 EQU ZZ2AXOT 01172000 ZZ2AXOL EQU ZZ2AXO 01173000 @NM00066 EQU ZZ2+7288 01174000 @NM00065 EQU ZZ2AMDX+4 01175000 ZZ2AMDXC EQU ZZ2AMDX 01176000 ZZ2HSD EQU ZZ2+3056 01177000 @NM00064 EQU ZZ2ES 01178000 @NM00063 EQU ZZ2+2868 01179000 ZZ2ITSEC EQU ZZ2ITSE+1 01180000 @NM00062 EQU ZZ2ITSE 01181000 ZZ2ITSEP EQU ZZ2ITSE 01182000 ZZ2ITSEW EQU ZZ2ITSE 01183000 @NM00061 EQU ZZ2ITR+20 01184000 ZZ2ITREC EQU ZZ2ITRE+1 01185000 @NM00060 EQU ZZ2ITRE 01186000 ZZ2ITREP EQU ZZ2ITRE 01187000 ZZ2ITREW EQU ZZ2ITRE 01188000 @NM00059 EQU ZZ2ITR+9 01189000 ZZ2ITRRC EQU ZZ2ITR+8 01190000 ZZ2ITR2P EQU ZZ2ITR+4 01191000 ZZ2ITRPP EQU ZZ2ITR 01192000 @NM00058 EQU ZZ2+1544 01193000 @NM00057 EQU ZZ2+1526 01194000 ZZ2CW EQU ZZ2+1524 01195000 @NM00056 EQU ZZ2+1504 01196000 @NM00055 EQU ZZ2+1352 01197000 ZZ2FFSYP EQU ZZ2+1348 01198000 ZZ2SASYP EQU ZZ2+1344 01199000 ZZ2RDSYP EQU ZZ2+1340 01200000 ZZ2RASYP EQU ZZ2+1336 01201000 ZZ2PHSYP EQU ZZ2+1332 01202000 ZZ2ESSYP EQU ZZ2+1328 01203000 ZZ200SYP EQU ZZ2+1324 01204000 ZZ2SCWP EQU ZZ2+1320 01205000 ZZ2TTLP EQU ZZ2+1316 01206000 ZZ2LOADP EQU ZZ2+1312 01207000 ZZ2VRESP EQU ZZ2+1308 01208000 ZZ2CPPLE EQU ZZ2CPPL+12 01209000 ZZ2CPPLP EQU ZZ2CPPL+8 01210000 ZZ2CPPLU EQU ZZ2CPPL+4 01211000 ZZ2VRSAP EQU ZZ2+1288 01212000 ZZ2DVTP EQU ZZ2+1276 01213000 @NM00054 EQU ZZ2+1272 01214000 @NM00053 EQU ZZ2+1268 01215000 ZZ2RPLP EQU ZZ2+1260 01216000 ZZ2TCBP EQU ZZ2+1256 01217000 @NM00052 EQU ZZ2+1252 01218000 ZZ2ZZ2P EQU ZZ2+1248 01219000 @NM00051 EQU ZZ2+1112 01220000 ZZ2FPDRP EQU ZZ2+1108 01221000 ZZ2FDSDP EQU ZZ2+1104 01222000 ZZ2APDRP EQU ZZ2+1100 01223000 ZZ2ADSDP EQU ZZ2+1096 01224000 ZZ2ENQ0P EQU ZZ2+1092 01225000 @NM00050 EQU ZZ2+1080 01226000 ZZ2MSG0P EQU ZZ2+1076 01227000 ZZ2FT25P EQU ZZ2+1072 01228000 ZZ2MSGSP EQU ZZ2+1060 01229000 ZZ2ALOCP EQU ZZ2+1056 01230000 @NM00049 EQU ZZ2+976 01231000 ZZ2TOD EQU ZZ2+968 01232000 ZZ2STGN EQU ZZ2STG+4 01233000 ZZ2STGP EQU ZZ2STG 01234000 @NM00048 EQU ZZ2+952 01235000 ZZ2SCMDE EQU ZZ2+944 01236000 ZZ2SCMDN EQU ZZ2+936 01237000 ZZ2IDENT EQU ZZ2+928 01238000 ZZ2A9999 EQU ZZ2A+656 01239000 @NM00047 EQU ZZ2A+224 01240000 @NM00046 EQU ZZ2A+220 01241000 ZZ2AQD99 EQU ZZ2AQD+60 01242000 @NM00045 EQU ZZ2AQD+56 01243000 @NM00044 EQU ZZ2AQDF 01244000 ZZ2AQDFA EQU ZZ2AQDF 01245000 ZZ2AQDIL EQU ZZ2AQD+48 01246000 ZZ2AQDIM EQU ZZ2AQD+44 01247000 ZZ2AQDT9 EQU ZZ2AQDT+34 01248000 ZZ2AQDTE EQU ZZ2AQDT+33 01249000 ZZ2AQDTD EQU ZZ2AQDT+2 01250000 @NM00043 EQU ZZ2AQDT+1 01251000 ZZ2AQDTY EQU ZZ2AQDT 01252000 ZZ2AQDT0 EQU ZZ2AQDT 01253000 ZZ2AQDLB EQU ZZ2AQD+9 01254000 ZZ2AQDOB EQU ZZ2AQD+8 01255000 ZZ2AQDLE EQU ZZ2AQD+4 01256000 ZZ2AQDOF EQU ZZ2AQD 01257000 ZZ2AQD00 EQU ZZ2AQD 01258000 ZZ2AQAS9 EQU ZZ2AQAS+16 01259000 @NM00042 EQU ZZ2AQAS+12 01260000 ZZ2AQAS2 EQU ZZ2AQAS+8 01261000 ZZ2AQAS1 EQU ZZ2AQAS+4 01262000 @NM00041 EQU ZZ2AQAS+2 01263000 ZZ2AQAST EQU ZZ2AQAS 01264000 ZZ2AQAS0 EQU ZZ2AQAS 01265000 ZZ2ADPTA EQU ZZ2ADPT 01266000 ZZ2ADPL EQU ZZ2ADP 01267000 ZZ2ADMTA EQU ZZ2ADMT 01268000 ZZ2ADML EQU ZZ2ADM 01269000 ZZ2ADDTA EQU ZZ2ADDT 01270000 @NM00040 EQU ZZ2A+72 01271000 ZZ2APIDB EQU ZZ2APID+3 01272000 ZZ2APIDA EQU ZZ2APID 01273000 @NM00039 EQU ZZ2A+24 01274000 @NM00038 EQU ZZ2AF+5 01275000 @NM00037 EQU ZZ2AF+3 01276000 ZZ2AFS EQU ZZ2AF+2 01277000 ZZ2AFD EQU ZZ2AF+2 01278000 ZZ2AFQ EQU ZZ2AF+2 01279000 ZZ2AF$ EQU ZZ2AF+2 01280000 @NM00036 EQU ZZ2AF+2 01281000 ZZ2AFM EQU ZZ2AF+2 01282000 @NM00035 EQU ZZ2AF+2 01283000 @NM00034 EQU ZZ2AF+1 01284000 ZZ2AFV EQU ZZ2AF+1 01285000 @NM00033 EQU ZZ2AF+1 01286000 ZZ2AFC EQU ZZ2AF+1 01287000 @NM00032 EQU ZZ2AF 01288000 ZZ2AFFS EQU ZZ2AF 01289000 ZZ2AFT EQU ZZ2AF 01290000 ZZ2AFP EQU ZZ2AF 01291000 @NM00031 EQU ZZ2A+8 01292000 ZZ2ALINE EQU ZZ2A+4 01293000 @NM00030 EQU ZZ2A+3 01294000 ZZ2ASE EQU ZZ2A+2 01295000 ZZ2ACH EQU ZZ2A 01296000 @NM00029 EQU ZZ2+264 01297000 @NM00028 EQU ZZ2+263 01298000 ZZ2PRTT0 EQU ZZ2PRTT 01299000 ZZ2PRTO EQU ZZ2PRT+2 01300000 ZZ2PRTL EQU ZZ2PRT 01301000 @NM00027 EQU ZZ2AMD+56 01302000 ZZ2AMDXP EQU ZZ2AMD+52 01303000 ZZ2AMDD EQU ZZ2AMD+48 01304000 ZZ2AMDL EQU ZZ2AMD+44 01305000 ZZ2AMDU EQU ZZ2AMD+28 01306000 ZZ2AMDF EQU ZZ2AMD+24 01307000 ZZ2AMDS EQU ZZ2AMD+20 01308000 ZZ2AMDC EQU ZZ2AMD+16 01309000 ZZ2AMDP EQU ZZ2AMD+12 01310000 ZZ2AMDB EQU ZZ2AMD+8 01311000 @NM00026 EQU @NM00025 01312000 ZZ2AMD2 EQU @NM00025 01313000 ZZ2AMD1 EQU @NM00025 01314000 ZZ2AMD0 EQU ZZ2AMD+6 01315000 ZZ2AMDA EQU ZZ2AMD+4 01316000 ZZ2AMDT EQU ZZ2AMD 01317000 ZZ199999 EQU ZZ1+3072 01318000 @NM00024 EQU ZZ1+2160 01319000 ZZ1TRTAS EQU ZZ1+1904 01320000 ZZ1TRUPC EQU ZZ1+1648 01321000 ZZ1TRCTX EQU ZZ1+1392 01322000 ZZ1NASID EQU ZZ1N+274 01323000 ZZ1NSTRL EQU ZZ1N+272 01324000 ZZ1NOFF EQU ZZ1N+268 01325000 ZZ1NBDY EQU ZZ1N+264 01326000 ZZ1NADE EQU ZZ1N+260 01327000 ZZ1NADB EQU ZZ1N+256 01328000 ZZ1NSTR EQU ZZ1N 01329000 @NM00023 EQU ZZ1+1080 01330000 ZZ1TREBC EQU ZZ1+824 01331000 ZZ1TRHEX EQU ZZ1+568 01332000 @NM00022 EQU ZZ1+377 01333000 ZZ1USTAE EQU ZZ1+376 01334000 @NM00021 EQU ZZ1F+1 01335000 @NM00020 EQU ZZ1F 01336000 ZZ1FM EQU ZZ1F 01337000 ZZ1FX EQU ZZ1F 01338000 ZZ1FU EQU ZZ1F 01339000 ZZ1EVEC EQU ZZ1EVE+1 01340000 @NM00019 EQU ZZ1EVE 01341000 ZZ1EVEP EQU ZZ1EVE 01342000 ZZ1EVEW EQU ZZ1EVE 01343000 ZZ1ACMP EQU ZZ1ATTN 01344000 @NM00018 EQU ZZ1+144 01345000 ZZ1FPP EQU ZZ1+140 01346000 ZZ1ZZ6P EQU ZZ1+136 01347000 @NM00017 EQU ZZ1+84 01348000 ZZ1PLINE EQU ZZ1+80 01349000 ZZ1PGSZ EQU ZZ1+76 01350000 ZZ1PCNT EQU ZZ1+72 01351000 @NM00016 EQU ZZ1+68 01352000 ZZ1TPAGE EQU ZZ1+64 01353000 ZZ1TLINE EQU ZZ1+60 01354000 @NM00015 EQU ZZ1+48 01355000 ZZ1DSDP EQU ZZ1+44 01356000 ZZ1PDRP EQU ZZ1+40 01357000 ZZ1ZZ2P EQU ZZ1+36 01358000 ZZ1327WP EQU ZZ1+32 01359000 ZZ1ACBP EQU ZZ1+28 01360000 @NM00014 EQU ZZ1+24 01361000 ZZ1PDCBP EQU ZZ1+20 01362000 ZZ1BLRBL EQU ZZ1+16 01363000 @NM00013 EQU ZZ1+12 01364000 ZZ1PNULL EQU ZZ1+8 01365000 ZZ1NULL EQU ZZ1+4 01366000 ZZ1IDE EQU ZZ1 01367000 PDSP EQU PDDSECT+4 01368000 @NM00001 EQU PDDSECT 01369000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01370000 @RC00183 EQU @RC00170 01371000 @RF00207 EQU @RC00198 01372000 @ENDDATA EQU * 01373000 END BLSRDUDE,(C'PLS1614',0701,78057) 01374000