TITLE '********** ICKVP01: VERIFY DATA SET PURGING *********00001000 *********' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 ICKVP01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKVP01 78.192' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @12,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@12 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @11,@01 0002 00026000 USING @DATD,@11 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @11,8(,@13) 0002 00030000 LR @13,@11 0002 00031000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00032000 MVC @PC00001(20),0(@01) 0002 00033000 * 0179 00034000 EJECT 00035000 * 0180 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0180 00038000 * IF GDTDBG = NULLPTR 0180 00039000 * THEN; 0180 00040000 L @10,@PC00001 0180 00041000 L @10,GDTDBG(,@10) 0180 00042000 LTR @10,@10 0180 00043000 BZ @RT00180 0180 00044000 * ELSE 0182 00045000 * CALL ICKDB010(GDTTBL 0182 00046000 * ,'VP00'); 0182 00047000 * 0182 00048000 * 0182 00049000 L @10,@PC00001 0182 00050000 ST @10,@AL00001 0182 00051000 LA @15,@CC00578 0182 00052000 ST @15,@AL00001+4 0182 00053000 MVI @AL00001+4,X'80' 0182 00054000 L @15,GDTDBG(,@10) 0182 00055000 LA @01,@AL00001 0182 00056000 BALR @14,@15 0182 00057000 * CONDCODE = SUCCESS; 0183 00058000 * 0183 00059000 @RT00180 L @10,@PC00001+16 0183 00060000 SLR @15,@15 0183 00061000 ST @15,CONDCODE(,@10) 0183 00062000 */* INITIALIZE UPRINT ARGUMENT LIST */ 00063000 * PRTHDR = 'DARGLIST'; 0184 00064000 MVC PRTHDR(8),@CC00579 0184 00065000 * PRTARGS = ''B; 0185 00066000 XC PRTARGS(20),PRTARGS 0185 00067000 * DDSTRU = ADDR(PRTARGS); 0186 00068000 LA @10,PRTARGS 0186 00069000 ST @10,DDSTRU 0186 00070000 * DARGSMOD = EFMSGS; 0187 00071000 * 0187 00072000 MVC DARGSMOD(3,@10),EFMSGS 0187 00073000 */* IF THE VOLUME IS ONLINE (UDEVINFO) */ 00074000 * CALL ICKDVIN0(GDTTBL 0188 00075000 * ,VOLIB 0188 00076000 * ,VOLSTATE 0188 00077000 * ,POOLID 0188 00078000 * ,INFOPTR 0188 00079000 * ,INFOLEN 0188 00080000 * ,RETCODE); 0188 00081000 L @10,@PC00001 0188 00082000 ST @10,@AL00001 0188 00083000 L @15,@PC00001+4 0188 00084000 ST @15,@AL00001+4 0188 00085000 LA @15,@CF00044 0188 00086000 ST @15,@AL00001+8 0188 00087000 LA @15,POOLID 0188 00088000 ST @15,@AL00001+12 0188 00089000 LA @15,INFOPTR 0188 00090000 ST @15,@AL00001+16 0188 00091000 LA @15,INFOLEN 0188 00092000 ST @15,@AL00001+20 0188 00093000 LA @15,RETCODE 0188 00094000 ST @15,@AL00001+24 0188 00095000 L @15,GDTDIN(,@10) 0188 00096000 LA @01,@AL00001 0188 00097000 BALR @14,@15 0188 00098000 * IF STATEFLG = ONLINE 0189 00099000 * 0189 00100000 */* THEN VOLUME IS ONLINE -- DO ALL CHECKING POSSIBLE */ 00101000 * THEN SEGON: DO; 0189 00102000 * 0189 00103000 * 0189 00104000 L @10,INFOPTR 0189 00105000 TM STATEFLG(@10),B'10000000' 0189 00106000 BNO @RF00189 0189 00107000 SEGON DS 0H 0191 00108000 */* CHECK AUTHORIZATION OF USER FOR THIS VOLUME (UVOLCHK) */ 00109000 * CALL ICKSAVC0(GDTTBL 0191 00110000 * ,VOLSER 0191 00111000 * ,ALTER); 0191 00112000 L @10,@PC00001 0191 00113000 ST @10,@AL00001 0191 00114000 L @03,@PC00001+12 0191 00115000 ST @03,@AL00001+4 0191 00116000 LA @03,@CC00155 0191 00117000 ST @03,@AL00001+8 0191 00118000 MVI @AL00001+8,X'80' 0191 00119000 L @15,GDTVCK(,@10) 0191 00120000 LA @01,@AL00001 0191 00121000 BALR @14,@15 0191 00122000 * RESPECIFY RTNREG RSTD; 0192 00123000 * TESTRC = RTNREG; 0193 00124000 LR TESTRC,RTNREG 0193 00125000 * RESPECIFY RTNREG UNRSTD; 0194 00126000 * 0194 00127000 */* IF USER IS NOT AUTHORIZED FOR THE VOLUME */ 00128000 * IF TESTRC ^= SUCCESS 0195 00129000 * 0195 00130000 */* THEN */ 00131000 * THEN SEGNVOL: DO; 0195 00132000 * 0195 00133000 * 0195 00134000 LTR TESTRC,TESTRC 0195 00135000 BZ @RF00195 0195 00136000 SEGNVOL DS 0H 0197 00137000 */* IF VOLUME IS PROTECTED */ 00138000 * IF TESTRC = NOTAUTH 0197 00139000 * 0197 00140000 */* THEN DISALLOW PURGING (CONDCODE=1) */ 00141000 * THEN DO; 0197 00142000 CH TESTRC,@CH00161 0197 00143000 BNE @RF00197 0197 00144000 * CONDCODE = NOPURGE; 0199 00145000 L @10,@PC00001+16 0199 00146000 MVC CONDCODE(4,@10),@CF00165 0199 00147000 * DARGSENT = MSGNAUTH; 0200 00148000 L @10,DDSTRU 0200 00149000 MVI DARGSENT(@10),X'0A' 0200 00150000 * CALL ICKTPPR0(GDTTBL 0201 00151000 * ,PRTFILE 0201 00152000 * ,DDSTRU); 0201 00153000 L @10,@PC00001 0201 00154000 ST @10,@AL00001 0201 00155000 LA @15,@CF00094 0201 00156000 ST @15,@AL00001+4 0201 00157000 LA @15,DDSTRU 0201 00158000 ST @15,@AL00001+8 0201 00159000 MVI @AL00001+8,X'80' 0201 00160000 L @15,GDTPRT(,@10) 0201 00161000 LA @01,@AL00001 0201 00162000 BALR @14,@15 0201 00163000 * END; 0202 00164000 * 0202 00165000 */* ELSE */ 00166000 * ELSE SEGPROT: DO; 0203 00167000 * 0203 00168000 * 0203 00169000 B @RC00197 0203 00170000 @RF00197 DS 0H 0203 00171000 SEGPROT DS 0H 0204 00172000 */* READ_FORMAT1_DSCB */ 00173000 * RDWKAREA = ''B; 0204 00174000 XC RDWKAREA(13),RDWKAREA 0204 00175000 * CALL ICKRD01(GDTTBL 0205 00176000 * ,VOLIB 0205 00177000 * ,RDWKAREA 0205 00178000 * ,DSCB1 0205 00179000 * ,RF1CODE); 0205 00180000 L @10,@PC00001 0205 00181000 ST @10,@AL00001 0205 00182000 L @10,@PC00001+4 0205 00183000 ST @10,@AL00001+4 0205 00184000 LA @10,RDWKAREA 0205 00185000 ST @10,@AL00001+8 0205 00186000 LA @10,DSCB1 0205 00187000 ST @10,@AL00001+12 0205 00188000 LA @10,RF1CODE 0205 00189000 ST @10,@AL00001+16 0205 00190000 L @15,@CV00587 0205 00191000 LA @01,@AL00001 0205 00192000 BALR @14,@15 0205 00193000 * F1PTR = ADDR(DSCB1); 0206 00194000 LA F1PTR,DSCB1 0206 00195000 * FIRST = YES; 0207 00196000 * 0207 00197000 OI FIRST,B'10000000' 0207 00198000 */* IF NO VTOC ON THE VOLUME */ 00199000 * IF RF1CODE = NOVTOC 0208 00200000 */* THEN PRINT INFORMATION MESSAGE (UPRINT) */ 00201000 * THEN DO; 0208 00202000 * 0208 00203000 CLC RF1CODE(4),@CF00116 0208 00204000 BNE @RF00208 0208 00205000 * DARGSENT = MSGNVTOC; 0210 00206000 L @10,DDSTRU 0210 00207000 MVI DARGSENT(@10),X'03' 0210 00208000 * CALL ICKTPPR0(GDTTBL 0211 00209000 * ,PRTFILE 0211 00210000 * ,DDSTRU); 0211 00211000 L @10,@PC00001 0211 00212000 ST @10,@AL00001 0211 00213000 LA @03,@CF00094 0211 00214000 ST @03,@AL00001+4 0211 00215000 LA @03,DDSTRU 0211 00216000 ST @03,@AL00001+8 0211 00217000 MVI @AL00001+8,X'80' 0211 00218000 L @15,GDTPRT(,@10) 0211 00219000 LA @01,@AL00001 0211 00220000 BALR @14,@15 0211 00221000 * END; 0212 00222000 * 0212 00223000 */* OBTAIN CURRENT DATE (UTIME) */ 00224000 * CALL ICKSATI0(GDTTBL 0213 00225000 * ,TIME 0213 00226000 * ,DATE); 0213 00227000 @RF00208 L @10,@PC00001 0213 00228000 ST @10,@AL00001 0213 00229000 LA @03,TIME 0213 00230000 ST @03,@AL00001+4 0213 00231000 LA @03,DATE 0213 00232000 ST @03,@AL00001+8 0213 00233000 MVI @AL00001+8,X'80' 0213 00234000 L @15,GDTTIM(,@10) 0213 00235000 LA @01,@AL00001 0213 00236000 BALR @14,@15 0213 00237000 * CVB(CURRDAY,DATEDDDS); 0214 00238000 XC @TS00001(8),@TS00001 0214 00239000 MVC @TS00001+6(2),DATEDDDS 0214 00240000 CVB @10,@TS00001 0214 00241000 ST @10,@TF00001 0214 00242000 MVC CURRDAY(2),@TF00001+2 0214 00243000 * MVO(DATEDDDS,DATEZZYY); 0215 00244000 MVO DATEDDDS(2),DATEZZYY(2) 0215 00245000 * CVB(CURRYEAR,DATEDDDS); 0216 00246000 * 0216 00247000 XC @TS00001(8),@TS00001 0216 00248000 MVC @TS00001+6(2),DATEDDDS 0216 00249000 CVB @10,@TS00001 0216 00250000 STC @10,CURRYEAR 0216 00251000 */* OBTAIN DEVICE TYPE FOR THE VOLUME (UDEVINFO) */ 00252000 * CALL ICKDVIN0(GDTTBL 0217 00253000 * ,VOLIB 0217 00254000 * ,VOLDTYP4 0217 00255000 * ,POOLID 0217 00256000 * ,INFOPTR 0217 00257000 * ,INFOLEN 0217 00258000 * ,RETCODE); 0217 00259000 * 0217 00260000 L @10,@PC00001 0217 00261000 ST @10,@AL00001 0217 00262000 L @03,@PC00001+4 0217 00263000 ST @03,@AL00001+4 0217 00264000 LA @03,@CF00246 0217 00265000 ST @03,@AL00001+8 0217 00266000 LA @03,POOLID 0217 00267000 ST @03,@AL00001+12 0217 00268000 LA @03,INFOPTR 0217 00269000 ST @03,@AL00001+16 0217 00270000 LA @03,INFOLEN 0217 00271000 ST @03,@AL00001+20 0217 00272000 LA @03,RETCODE 0217 00273000 ST @03,@AL00001+24 0217 00274000 L @15,GDTDIN(,@10) 0217 00275000 LA @01,@AL00001 0217 00276000 BALR @14,@15 0217 00277000 */* DO-WHILE THERE ARE FORMAT-1 DSCBS TO PROCESS */ 00278000 * SEGPROTL: DO WHILE RF1CODE = SUCCESS & CONDCODE = SUCCESS; 0218 00279000 * 0218 00280000 * 0218 00281000 SEGPROTL B @DE00218 0218 00282000 @DL00218 DS 0H 0219 00283000 */* IF DATA SET IS PASSWORD OR RACF PROTECTED */ 00284000 * IF PASSIND = ON | RACFIND = ON 0219 00285000 * 0219 00286000 */* THEN */ 00287000 * THEN SEGPWRF: DO; 0219 00288000 * 0219 00289000 * 0219 00290000 TM PASSIND(F1PTR),B'01010000' 0219 00291000 BZ @RF00219 0219 00292000 SEGPWRF DS 0H 0221 00293000 */* IF PURGE WAS SPECIFIED */ 00294000 * IF PURGE = YES 0221 00295000 */* THEN-DO */ 00296000 * THEN SEGPWRF1: DO; 0221 00297000 L @10,@PC00001+8 0221 00298000 TM PURGE(@10),B'10000000' 0221 00299000 BNO @RF00221 0221 00300000 SEGPWRF1 DS 0H 0223 00301000 */* VERIFY_PROTECTED_DATA_SET */ 00302000 * CALL ICKVD01(GDTTBL 0223 00303000 * ,VOLIB 0223 00304000 * ,DSCB1 0223 00305000 * ,VOLSER 0223 00306000 * ,DEVTYPE 0223 00307000 * ,RETCODE); 0223 00308000 L @10,@PC00001 0223 00309000 ST @10,@AL00001 0223 00310000 L @10,@PC00001+4 0223 00311000 ST @10,@AL00001+4 0223 00312000 LA @10,DSCB1 0223 00313000 ST @10,@AL00001+8 0223 00314000 L @10,@PC00001+12 0223 00315000 ST @10,@AL00001+12 0223 00316000 L @10,INFOPTR 0223 00317000 ST @10,@AL00001+16 0223 00318000 LA @10,RETCODE 0223 00319000 ST @10,@AL00001+20 0223 00320000 L @15,@CV00596 0223 00321000 LA @01,@AL00001 0223 00322000 BALR @14,@15 0223 00323000 */* IF VERIFY IS NOT OK */ 00324000 * IF RETCODE ^= SUCCESS 0224 00325000 */* THEN */ 00326000 * THEN DO; 0224 00327000 * 0224 00328000 L @10,RETCODE 0224 00329000 LTR @10,@10 0224 00330000 BZ @RF00224 0224 00331000 */* RETURN (CONDCODE=1) */ 00332000 * CONDCODE = NOPURGE; 0226 00333000 L @10,@PC00001+16 0226 00334000 MVC CONDCODE(4,@10),@CF00165 0226 00335000 */* END-THEN */ 00336000 * END; 0227 00337000 */* END-THEN */ 00338000 * END SEGPWRF1; 0228 00339000 */* ELSE-DO (PURGE NOT SPECIFIED) */ 00340000 * ELSE SEGPWRF2: DO; 0229 00341000 B @RC00221 0229 00342000 @RF00221 DS 0H 0229 00343000 SEGPWRF2 DS 0H 0230 00344000 */* ISSUE ERROR MESSAGE (UPRINT) */ 00345000 * DARGSENT = MSGUXDS; 0230 00346000 L @10,DDSTRU 0230 00347000 MVI DARGSENT(@10),X'06' 0230 00348000 * CALL ICKTPPR0(GDTTBL 0231 00349000 * ,PRTFILE 0231 00350000 * ,DDSTRU); 0231 00351000 L @10,@PC00001 0231 00352000 ST @10,@AL00001 0231 00353000 LA @03,@CF00094 0231 00354000 ST @03,@AL00001+4 0231 00355000 LA @03,DDSTRU 0231 00356000 ST @03,@AL00001+8 0231 00357000 MVI @AL00001+8,X'80' 0231 00358000 L @15,GDTPRT(,@10) 0231 00359000 LA @01,@AL00001 0231 00360000 BALR @14,@15 0231 00361000 */* RETURN (CONDCODE=1) */ 00362000 * CONDCODE = NOPURGE; 0232 00363000 L @10,@PC00001+16 0232 00364000 MVC CONDCODE(4,@10),@CF00165 0232 00365000 */* END-ELSE */ 00366000 * END SEGPWRF2; 0233 00367000 * 0233 00368000 */* END-THEN (PASSWORD OR RACF PROTECTED) */ 00369000 * END SEGPWRF; 0234 00370000 * 0234 00371000 */* ELSE (NOT PASSWORD OR RACF PROTECTED) */ 00372000 * ELSE SEGNP: DO; 0235 00373000 * 0235 00374000 * 0235 00375000 B @RC00219 0235 00376000 @RF00219 DS 0H 0235 00377000 SEGNP DS 0H 0236 00378000 */* IF EXPIRATION DATE > CURRENT DATE */ 00379000 * IF DS1EXPDT > CURRDATE 0236 00380000 * 0236 00381000 */* THEN */ 00382000 * THEN SEGNP1: DO; 0236 00383000 * 0236 00384000 * 0236 00385000 CLC DS1EXPDT(3,F1PTR),CURRDATE 0236 00386000 BNH @RF00236 0236 00387000 SEGNP1 DS 0H 0238 00388000 */* IF PURGE IS SPECIFIED */ 00389000 * IF PURGE = YES 0238 00390000 * 0238 00391000 */* THEN */ 00392000 * THEN SEGNP11: DO; 0238 00393000 * 0238 00394000 * 0238 00395000 L @10,@PC00001+8 0238 00396000 TM PURGE(@10),B'10000000' 0238 00397000 BNO @RF00238 0238 00398000 SEGNP11 DS 0H 0240 00399000 */* IF THIS FIRST NON-PASSWORD DATA SET */ 00400000 * IF FIRST = YES 0240 00401000 * 0240 00402000 */* THEN ASK OPERATOR JUST ONCE FOR OK */ 00403000 * THEN SEGNP111: DO; 0240 00404000 * 0240 00405000 TM FIRST,B'10000000' 0240 00406000 BNO @RF00240 0240 00407000 SEGNP111 DS 0H 0242 00408000 * FIRST = NO; 0242 00409000 NI FIRST,B'01111111' 0242 00410000 */* DO-UNTIL OPERATOR REPLY IS VALID */ 00411000 * SEGNPLP: DO UNTIL REPLY = 'U' | REPLY = 'T'; 00412000 * 0243 00413000 SEGNPLP DS 0H 0243 00414000 @DL00243 DS 0H 0244 00415000 */* QUERY OPERATOR ABOUT D.S. PURGE */ 00416000 * REPLYPTR = ADDR(REPLY); 0244 00417000 LA @10,REPLY 0244 00418000 ST @10,REPLYPTR 0244 00419000 * CALL ICKSAWO0(GDTTBL 0245 00420000 * ,WTO1LEN 0245 00421000 * ,WTO1PTR 0245 00422000 * ,NOROUT 0245 00423000 * ,NODESC 0245 00424000 * ,REPLYLEN 0245 00425000 * ,REPLYPTR); 0245 00426000 MVC @AL00001+4(20),@AL00245 0245 00427000 L @10,@PC00001 0245 00428000 ST @10,@AL00001 0245 00429000 LA @03,REPLYPTR 0245 00430000 ST @03,@AL00001+24 0245 00431000 MVI @AL00001+24,X'80' 0245 00432000 L @15,GDTWTO(,@10) 0245 00433000 LA @01,@AL00001 0245 00434000 BALR @14,@15 0245 00435000 */* IF REPLY IS TO TERMINATE ('T') */ 00436000 * IF REPLY = 'T' 0246 00437000 */* THEN ADVISE USER OF ACTION */ 00438000 * THEN DO; 0246 00439000 * 0246 00440000 CLI REPLY,C'T' 0246 00441000 BNE @RF00246 0246 00442000 */* ISSUE ERROR MESSAGE (UPRINT)*/ 00443000 * DARGSENT = MSGOPERT; 0248 00444000 L @10,DDSTRU 0248 00445000 MVI DARGSENT(@10),X'05' 0248 00446000 * CALL ICKTPPR0(GDTTBL 0249 00447000 * ,PRTFILE 0249 00448000 * ,DDSTRU); 0249 00449000 L @10,@PC00001 0249 00450000 ST @10,@AL00001 0249 00451000 LA @03,@CF00094 0249 00452000 ST @03,@AL00001+4 0249 00453000 LA @03,DDSTRU 0249 00454000 ST @03,@AL00001+8 0249 00455000 MVI @AL00001+8,X'80' 0249 00456000 L @15,GDTPRT(,@10) 0249 00457000 LA @01,@AL00001 0249 00458000 BALR @14,@15 0249 00459000 */* RETURN (CONDCODE=1) */ 00460000 * CONDCODE = NOPURGE; 0250 00461000 L @10,@PC00001+16 0250 00462000 MVC CONDCODE(4,@10),@CF00165 0250 00463000 */* END-THEN */ 00464000 * END; 0251 00465000 */* IF REPLY IS INVALID */ 00466000 * IF REPLY ^= 'U' 0252 00467000 */* THEN TELL OPERATOR */ 00468000 * THEN DO; 0252 00469000 * 0252 00470000 @RF00246 CLI REPLY,C'U' 0252 00471000 BE @RF00252 0252 00472000 * CALL ICKSAWO0(GDTTBL 0254 00473000 * ,WTO2LEN 0254 00474000 * ,WTO2PTR); 0254 00475000 MVC @AL00001+4(8),@AL00254 0254 00476000 L @10,@PC00001 0254 00477000 ST @10,@AL00001 0254 00478000 L @15,GDTWTO(,@10) 0254 00479000 LA @01,@AL00001 0254 00480000 BALR @14,@15 0254 00481000 * END; 0255 00482000 */* END-UNTIL (OPERATOR REPLY VALID) */ 00483000 * END SEGNPLP; 0256 00484000 * 0256 00485000 @RF00252 DS 0H 0256 00486000 @DE00243 CLI REPLY,C'U' 0256 00487000 BE @DC00243 0256 00488000 CLI REPLY,C'T' 0256 00489000 BNE @DL00243 0256 00490000 @DC00243 DS 0H 0257 00491000 */* END-THEN (FIRST NON-PASSWORD D.S.)*/ 00492000 * END SEGNP111; 0257 00493000 * 0257 00494000 */* END-THEN (PURGE SPECIFIED) */ 00495000 * END SEGNP11; 0258 00496000 * 0258 00497000 */* ELSE (PURGE NOT SPECIFIED) */ 00498000 * ELSE DO; 0259 00499000 * 0259 00500000 B @RC00238 0259 00501000 @RF00238 DS 0H 0260 00502000 */* ISSUE ERROR MESSAGE (UPRINT) */ 00503000 * DARGSENT = MSGUXDS; 0260 00504000 L @10,DDSTRU 0260 00505000 MVI DARGSENT(@10),X'06' 0260 00506000 * CALL ICKTPPR0(GDTTBL 0261 00507000 * ,PRTFILE 0261 00508000 * ,DDSTRU); 0261 00509000 L @10,@PC00001 0261 00510000 ST @10,@AL00001 0261 00511000 LA @03,@CF00094 0261 00512000 ST @03,@AL00001+4 0261 00513000 LA @03,DDSTRU 0261 00514000 ST @03,@AL00001+8 0261 00515000 MVI @AL00001+8,X'80' 0261 00516000 L @15,GDTPRT(,@10) 0261 00517000 LA @01,@AL00001 0261 00518000 BALR @14,@15 0261 00519000 */* RETURN (CONDCODE=1) */ 00520000 * CONDCODE = NOPURGE; 0262 00521000 L @10,@PC00001+16 0262 00522000 MVC CONDCODE(4,@10),@CF00165 0262 00523000 */* END-ELSE */ 00524000 * END; 0263 00525000 * 0263 00526000 */* END-THEN (DATA SET EXPIRED) */ 00527000 * END SEGNP1; 0264 00528000 * 0264 00529000 @RC00238 DS 0H 0265 00530000 */* END-ELSE (NOT PASSWORD OR RACF PROT.) */ 00531000 * END SEGNP; 0265 00532000 * 0265 00533000 @RF00236 DS 0H 0266 00534000 */* READ_FORMAT1_DSCB */ 00535000 * CALL ICKRD01(GDTTBL 0266 00536000 * ,VOLIB 0266 00537000 * ,RDWKAREA 0266 00538000 * ,DSCB1 0266 00539000 * ,RF1CODE); 0266 00540000 @RC00219 L @10,@PC00001 0266 00541000 ST @10,@AL00001 0266 00542000 L @10,@PC00001+4 0266 00543000 ST @10,@AL00001+4 0266 00544000 LA @10,RDWKAREA 0266 00545000 ST @10,@AL00001+8 0266 00546000 LA @10,DSCB1 0266 00547000 ST @10,@AL00001+12 0266 00548000 LA @10,RF1CODE 0266 00549000 ST @10,@AL00001+16 0266 00550000 L @15,@CV00587 0266 00551000 LA @01,@AL00001 0266 00552000 BALR @14,@15 0266 00553000 */* IF ERROR READING DSCB */ 00554000 * IF RF1CODE = NRDFMT1 0267 00555000 */* THEN RETURN (CONDCODE=2) */ 00556000 * THEN DO; CONDCODE = NRDVTOC; END; 0267 00557000 * 0267 00558000 CLC RF1CODE(4),@CF00136 0267 00559000 BNE @RF00267 0267 00560000 L @10,@PC00001+16 0269 00561000 MVC CONDCODE(4,@10),@CF00116 0269 00562000 */* END-WHILE (THERE ARE FORMAT-1 DSCBS TO PROCESS) */ 00563000 * END SEGPROTL; 0271 00564000 * 0271 00565000 @RF00267 DS 0H 0271 00566000 @DE00218 SLR @10,@10 0271 00567000 C @10,RF1CODE 0271 00568000 BNE @DC00218 0271 00569000 L @03,@PC00001+16 0271 00570000 C @10,CONDCODE(,@03) 0271 00571000 BE @DL00218 0271 00572000 @DC00218 DS 0H 0272 00573000 */* END-THEN (VOLUME IS NOT PROTECTED) */ 00574000 * END SEGPROT; 0272 00575000 * 0272 00576000 */* END-THEN (USER NOT AUTHORIZED FOR VOLUME) */ 00577000 * END SEGNVOL; 0273 00578000 * 0273 00579000 @RC00197 DS 0H 0274 00580000 */* END-THEN (VOLUME IS ONLINE) */ 00581000 * END SEGON; 0274 00582000 * 0274 00583000 @RF00195 DS 0H 0275 00584000 */* END-PROCEDURE VERIFY_DATA_SET_PURGING */ 00585000 * CALL ICKSAFP0(GDTTBL 0275 00586000 * ,POOLID 0275 00587000 * ,ALL); 0275 00588000 @RF00189 MVC @AL00001+4(8),@AL00275 0275 00589000 L @10,@PC00001 0275 00590000 ST @10,@AL00001 0275 00591000 L @15,GDTFPL(,@10) 0275 00592000 LA @01,@AL00001 0275 00593000 BALR @14,@15 0275 00594000 * IF GDTDBG = NULLPTR 0276 00595000 * THEN; 0276 00596000 L @10,@PC00001 0276 00597000 L @10,GDTDBG(,@10) 0276 00598000 LTR @10,@10 0276 00599000 BZ @RT00276 0276 00600000 * ELSE 0278 00601000 * CALL ICKDB010(GDTTBL 0278 00602000 * ,'VP99'); 0278 00603000 L @10,@PC00001 0278 00604000 ST @10,@AL00001 0278 00605000 LA @15,@CC00611 0278 00606000 ST @15,@AL00001+4 0278 00607000 MVI @AL00001+4,X'80' 0278 00608000 L @15,GDTDBG(,@10) 0278 00609000 LA @01,@AL00001 0278 00610000 BALR @14,@15 0278 00611000 * CALL ICKSAEP0(GDTTBL,MODID); 0279 00612000 * 0279 00613000 * 0279 00614000 @RT00276 L @10,@PC00001 0279 00615000 ST @10,@AL00001 0279 00616000 LA @15,MODID 0279 00617000 ST @15,@AL00001+4 0279 00618000 MVI @AL00001+4,X'80' 0279 00619000 L @15,GDTEPL(,@10) 0279 00620000 LA @01,@AL00001 0279 00621000 BALR @14,@15 0279 00622000 * END ICKVP01 0280 00623000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00624000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00625000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00626000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00627000 */*%INCLUDE SYSLIB (IECSDSL1) * 00628000 *; 0280 00629000 @DATA DS 0H 00630000 @CH00161 DC H'8' 00631000 DS 0F 00632000 @AL00245 DC A(WTO1LEN) LIST WITH 5 ARGUMENT(S) 00633000 DC A(WTO1PTR) 00634000 DC A(NOROUT) 00635000 DC A(NODESC) 00636000 DC A(REPLYLEN) 00637000 @AL00254 DC A(WTO2LEN) LIST WITH 2 ARGUMENT(S) 00638000 DC AL1(X'80') 00639000 DC AL3(WTO2PTR) 00640000 @AL00275 DC A(POOLID) LIST WITH 2 ARGUMENT(S) 00641000 DC AL1(X'80') 00642000 DC AL3(@CC00137) 00643000 @DATD DSECT 00644000 DS 0F 00645000 @SA00001 DS 18F 00646000 @PC00001 DS 5F 00647000 @AL00001 DS 7A 00648000 @TF00001 DS F 00649000 @ZTEMPS DS C 00650000 @ZTEMPND EQU * 00651000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00652000 ICKVP01 CSECT 00653000 DS 0F 00654000 @CF00094 DC F'0' 00655000 @CF00165 DC F'1' 00656000 @CF00116 DC F'2' 00657000 @CF00136 DC F'3' 00658000 @CF00044 DC F'4' 00659000 @CF00246 DC F'10' 00660000 @DATD DSECT 00661000 DS 0D 00662000 LISTSCAN DS A 00663000 IOCSPTR DS A 00664000 OPNPTR DS A 00665000 DDSTRU DS A 00666000 FSADDR DS A 00667000 DMPINDEX DS A 00668000 INFOPTR DS A 00669000 INFOLEN DS F 00670000 REPLYPTR DS F 00671000 RETCODE DS F 00672000 RF1CODE DS F 00673000 LISTPTR DS A 00674000 SETRC DS H 00675000 LISTLN DS FL1 00676000 DS 0D 00677000 @TS00001 DS CL8 00678000 DSCB1 DS CL140 00679000 FIRST DS BL1 00680000 RDWKAREA DS CL13 00681000 TIME DS CL8 00682000 DATE DS CL4 00683000 ORG DATE 00684000 DATEZZYY DS BL2 00685000 DATEDDDS DS BL2 00686000 ORG DATE+4 00687000 CURRDATE DS CL3 00688000 ORG CURRDATE 00689000 CURRYEAR DS FL1 00690000 CURRDAY DS FL2 00691000 ORG CURRDATE+3 00692000 REPLY DS CL1 00693000 DS CL2 00694000 PRTLIST DS CL28 00695000 ORG PRTLIST 00696000 PRTHDR DS CL8 00697000 PRTARGS DS CL20 00698000 ORG PRTLIST+28 00699000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00700000 @ENDDATD EQU * 00701000 ICKVP01 CSECT 00702000 DS 0F 00703000 @SIZDATD DC AL1(0) 00704000 DC AL3(@ENDDATD-@DATD) 00705000 @CV00587 DC V(ICKRD01) 00706000 @CV00596 DC V(ICKVD01) 00707000 DS 0D 00708000 WTO1PTR DC AL4(WTOUEXPR) 00709000 WTO2PTR DC AL4(WTOERPLY) 00710000 WTO1LEN DC AL2(64) 00711000 NOROUT DC AL2(0) 00712000 NODESC DC AL2(0) 00713000 WTO2LEN DC AL2(40) 00714000 REPLYLEN DC AL1(1) 00715000 @CC00579 DC C'DARGLIST' 00716000 @CC00155 DC C'ALTR' 00717000 @CC00578 DC C'VP00' 00718000 @CC00611 DC C'VP99' 00719000 @CC00137 DC C'ALL' 00720000 MODID DC CL4'VP01' 00721000 POOLID DC CL4'VP01' 00722000 WTOUEXPR DC CL64'ICK001D CONFIRM PURGING OF UNEXPIRED DATA SETS, REPC00723000 LY ''U'' OR ''T''' 00724000 WTOERPLY DC CL40'ICK002D ERROR IN REPLY, REPLY ''U'' OR ''T''' 00725000 EFMSGS DC CL3'EF0' 00726000 PTCHVP01 DS CL256 00727000 ORG PTCHVP01 00728000 @NM00026 DC 256X'00' 00729000 ORG PTCHVP01+256 00730000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00731000 @01 EQU 01 00732000 @02 EQU 02 00733000 @03 EQU 03 00734000 @04 EQU 04 00735000 @05 EQU 05 00736000 @06 EQU 06 00737000 @07 EQU 07 00738000 @08 EQU 08 00739000 @09 EQU 09 00740000 @10 EQU 10 00741000 @11 EQU 11 00742000 @12 EQU 12 00743000 @13 EQU 13 00744000 @14 EQU 14 00745000 @15 EQU 15 00746000 F1PTR EQU @02 00747000 TESTRC EQU @02 00748000 REG12 EQU @12 00749000 RTNREG EQU @15 00750000 REG0 EQU @00 00751000 REG1 EQU @01 00752000 REG10 EQU @10 00753000 REG11 EQU @11 00754000 REG13 EQU @13 00755000 REG14 EQU @14 00756000 REG15 EQU @15 00757000 REG2 EQU @02 00758000 REG3 EQU @03 00759000 REG4 EQU @04 00760000 REG5 EQU @05 00761000 REG6 EQU @06 00762000 REG7 EQU @07 00763000 REG8 EQU @08 00764000 REG9 EQU @09 00765000 ICKSAEP0 EQU 0 00766000 ICKSAFP0 EQU 0 00767000 ICKSATI0 EQU 0 00768000 ICKSAWO0 EQU 0 00769000 ICKSAVC0 EQU 0 00770000 TRACE1 EQU 0 00771000 OLDERID1 EQU TRACE1 00772000 TRACE2 EQU 0 00773000 STAEPARM EQU 0 00774000 STAEPFX EQU STAEPARM 00775000 IOCSTR EQU 0 00776000 IOCDSO EQU IOCSTR+13 00777000 IOCRFM EQU IOCSTR+14 00778000 IOCMAC EQU IOCSTR+15 00779000 IOCMSG EQU IOCSTR+16 00780000 OPNAGL EQU 0 00781000 OPNOPT EQU OPNAGL 00782000 OPNRFM EQU OPNAGL+1 00783000 OPNTYP EQU OPNAGL+2 00784000 OPNMOD EQU OPNAGL+3 00785000 UVOLLIST EQU 0 00786000 UVOLENT EQU UVOLLIST+2 00787000 ICKDVIN0 EQU 0 00788000 ICKTPPR0 EQU 0 00789000 DARGLIST EQU 0 00790000 DARGSTID EQU DARGLIST+8 00791000 DARGSMOD EQU DARGSTID 00792000 DARGSENT EQU DARGSTID+3 00793000 DARGARY EQU DARGLIST+20 00794000 DARGINS EQU DARGARY 00795000 DARGINL EQU DARGARY+2 00796000 FMTLIST EQU 0 00797000 FMTFLGS EQU FMTLIST 00798000 FMTSPF EQU FMTLIST+2 00799000 FMTRFNO EQU FMTSPF 00800000 FMTILEN EQU FMTRFNO 00801000 FMTIOFF EQU FMTLIST+4 00802000 FMTTRBC EQU FMTIOFF 00803000 FMTSTO EQU FMTTRBC 00804000 FMTOCOL EQU FMTLIST+6 00805000 FMTCNVF EQU FMTLIST+10 00806000 ICKDB010 EQU 0 00807000 DMPITM EQU 0 00808000 DMPARY EQU 0 00809000 IECSDSF1 EQU 0 00810000 IECSDSL1 EQU 0 00811000 DS1EXPDT EQU IECSDSL1+56 00812000 DS1DSIND EQU IECSDSL1+93 00813000 STATEFLG EQU 0 00814000 DEVTYPE EQU 0 00815000 DMPTRM EQU 0 00816000 ICKDVCL0 EQU 0 00817000 ICKDVON0 EQU 0 00818000 ICKDVOP0 EQU 0 00819000 ICKIOCL0 EQU 0 00820000 ICKIOGT0 EQU 0 00821000 ICKIOIT0 EQU 0 00822000 ICKIOOP0 EQU 0 00823000 ICKIOPT0 EQU 0 00824000 ICKIOTM0 EQU 0 00825000 ICKSACL0 EQU 0 00826000 ICKSADE0 EQU 0 00827000 ICKSAFS0 EQU 0 00828000 ICKSAGP0 EQU 0 00829000 ICKSAGS0 EQU 0 00830000 ICKSALD0 EQU 0 00831000 ICKSAPR0 EQU 0 00832000 ICKSASC0 EQU 0 00833000 ICKSASN0 EQU 0 00834000 ICKSAST0 EQU 0 00835000 ICKTPEA0 EQU 0 00836000 ICKTPES0 EQU 0 00837000 ICKTPRE0 EQU 0 00838000 ICKTPRS0 EQU 0 00839000 LISTTEST EQU 0 00840000 NEWERID1 EQU 5 00841000 NEWERID2 EQU 5 00842000 GDTTBL EQU 0 00843000 GDTTR1 EQU GDTTBL+8 00844000 GDTTR2 EQU GDTTBL+12 00845000 GDTDIN EQU GDTTBL+44 00846000 GDTDOP EQU GDTTBL+48 00847000 GDTDBG EQU GDTTBL+52 00848000 GDTDVO EQU GDTTBL+56 00849000 GDTPRT EQU GDTTBL+60 00850000 GDTESS EQU GDTTBL+64 00851000 GDTESA EQU GDTTBL+68 00852000 GDTRST EQU GDTTBL+72 00853000 GDTRES EQU GDTTBL+76 00854000 GDTCAL EQU GDTTBL+80 00855000 GDTGSP EQU GDTTBL+84 00856000 GDTFSP EQU GDTTBL+88 00857000 GDTGPL EQU GDTTBL+92 00858000 GDTFPL EQU GDTTBL+96 00859000 GDTLOD EQU GDTTBL+100 00860000 GDTDEL EQU GDTTBL+104 00861000 GDTPRL EQU GDTTBL+108 00862000 GDTEPL EQU GDTTBL+112 00863000 GDTTIM EQU GDTTBL+116 00864000 GDTIIO EQU GDTTBL+120 00865000 GDTTIO EQU GDTTBL+124 00866000 GDTOPN EQU GDTTBL+136 00867000 GDTCLS EQU GDTTBL+140 00868000 GDTGET EQU GDTTBL+144 00869000 GDTPUT EQU GDTTBL+148 00870000 GDTSNP EQU GDTTBL+160 00871000 GDTWTO EQU GDTTBL+168 00872000 GDTSCR EQU GDTTBL+172 00873000 GDTVCK EQU GDTTBL+176 00874000 GDTDVC EQU GDTTBL+180 00875000 GDTSTE EQU GDTTBL+188 00876000 VOLIB EQU 0 00877000 PURGE EQU 0 00878000 VOLSER EQU 0 00879000 CONDCODE EQU 0 00880000 @NM00018 EQU DS1DSIND 00881000 RACFIND EQU @NM00018 00882000 PASSIND EQU @NM00018 00883000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00884000 @NM00021 EQU @NM00018 00885000 @NM00020 EQU @NM00018 00886000 @NM00019 EQU @NM00018 00887000 GDTCVR EQU GDTTBL+184 00888000 GDTSPR EQU GDTTBL+164 00889000 GDTABH EQU GDTTBL+156 00890000 GDTABT EQU GDTTBL+152 00891000 GDTTOH EQU GDTTBL+132 00892000 GDTRIP EQU GDTTBL+128 00893000 GDTDVH EQU GDTTBL+40 00894000 GDTIOH EQU GDTTBL+36 00895000 GDTSAH EQU GDTTBL+32 00896000 GDTTPH EQU GDTTBL+28 00897000 GDTRIH EQU GDTTBL+24 00898000 GDTSTH EQU GDTTBL+20 00899000 GDTDBH EQU GDTTBL+16 00900000 GDTPRM EQU GDTTBL+4 00901000 GDTHDR EQU GDTTBL 00902000 DS1END EQU IECSDSL1+140 00903000 DS1PTRDS EQU IECSDSL1+135 00904000 DS1EXT3 EQU IECSDSL1+125 00905000 DS1EXT2 EQU IECSDSL1+115 00906000 DS1EXT1 EQU IECSDSL1+105 00907000 @NM00025 EQU IECSDSL1+103 00908000 DS1TRBAL EQU IECSDSL1+101 00909000 DS1LSTAR EQU IECSDSL1+98 00910000 DS1SCALO EQU IECSDSL1+94 00911000 DS1RKP EQU IECSDSL1+91 00912000 DS1KEYL EQU IECSDSL1+90 00913000 DS1LRECL EQU IECSDSL1+88 00914000 DS1BLKL EQU IECSDSL1+86 00915000 DS1OPTCD EQU IECSDSL1+85 00916000 DS1RECFM EQU IECSDSL1+84 00917000 DS1DSORG EQU IECSDSL1+82 00918000 @NM00024 EQU IECSDSL1+75 00919000 DS1SYSCD EQU IECSDSL1+62 00920000 @NM00023 EQU IECSDSL1+61 00921000 DS1NOBDB EQU IECSDSL1+60 00922000 DS1NOEPV EQU IECSDSL1+59 00923000 DS1CREDT EQU IECSDSL1+53 00924000 DS1VOLSQ EQU IECSDSL1+51 00925000 DS1DSSN EQU IECSDSL1+45 00926000 DS1FMTID EQU IECSDSL1+44 00927000 DS1DSNAM EQU IECSDSL1 00928000 @NM00022 EQU IECSDSF1 00929000 @NM00017 EQU DMPARY+15 00930000 DMPARYTP EQU DMPARY+14 00931000 DMPARYEX EQU DMPARY+12 00932000 DMPARYIC EQU DMPARY+10 00933000 DMPARYSZ EQU DMPARY+8 00934000 DMPARYNM EQU DMPARY 00935000 @NM00016 EQU DMPITM+15 00936000 DMPITMTP EQU DMPITM+14 00937000 DMPITMLN EQU DMPITM+12 00938000 DMPITMPT EQU DMPITM+8 00939000 DMPITMNM EQU DMPITM 00940000 @NM00015 EQU FMTCNVF+1 00941000 FMTBS EQU FMTCNVF+1 00942000 FMTSS EQU FMTCNVF+1 00943000 FMTAL EQU FMTCNVF+1 00944000 FMTZS EQU FMTCNVF+1 00945000 @NM00014 EQU FMTCNVF 00946000 FMTPU EQU FMTCNVF 00947000 FMTBD EQU FMTCNVF 00948000 FMTBHD EQU FMTCNVF 00949000 FMTBHA EQU FMTCNVF 00950000 FMTBH EQU FMTCNVF 00951000 FMTOLEN EQU FMTLIST+8 00952000 FMTRIO EQU FMTOCOL 00953000 FMTSPT EQU FMTSTO 00954000 FMTSTL EQU FMTILEN 00955000 @NM00013 EQU FMTFLGS+1 00956000 FMTHDF EQU FMTFLGS 00957000 FMTDFF EQU FMTFLGS 00958000 FMTSTF EQU FMTFLGS 00959000 FMTREPF EQU FMTFLGS 00960000 FMTBDF EQU FMTFLGS 00961000 FMTIDF EQU FMTFLGS 00962000 FMTSCF EQU FMTFLGS 00963000 FMTEOLF EQU FMTFLGS 00964000 DARGDTM EQU DARGARY+4 00965000 DARGPCT EQU DARGINL 00966000 DARGREP EQU DARGINS 00967000 @NM00012 EQU DARGLIST+19 00968000 DARGIND EQU DARGLIST+18 00969000 DARGRETL EQU DARGLIST+16 00970000 DARGCNT EQU DARGLIST+14 00971000 DARGILP EQU DARGLIST+12 00972000 DARGRETP EQU DARGLIST+4 00973000 DARGDBP EQU DARGLIST 00974000 UVOLVOL EQU UVOLENT+4 00975000 UVOLDEV EQU UVOLENT 00976000 UVOLCNT EQU UVOLLIST 00977000 OPNRSVD EQU OPNAGL+28 00978000 OPNVOL EQU OPNAGL+24 00979000 OPNBLK EQU OPNAGL+20 00980000 OPNREC EQU OPNAGL+16 00981000 OPNDSN EQU OPNAGL+12 00982000 OPNDDN EQU OPNAGL+8 00983000 OPNIOC EQU OPNAGL+4 00984000 @NM00011 EQU OPNMOD 00985000 OPNMODRC EQU OPNMOD 00986000 OPNMODAC EQU OPNMOD 00987000 @NM00010 EQU OPNTYP 00988000 OPNTYPSO EQU OPNTYP 00989000 OPNTYPSI EQU OPNTYP 00990000 @NM00009 EQU OPNRFM 00991000 OPNRFMBK EQU OPNRFM 00992000 OPNRFMSF EQU OPNRFM 00993000 OPNRFMUN EQU OPNRFM 00994000 OPNRFMVR EQU OPNRFM 00995000 OPNRFMFX EQU OPNRFM 00996000 @NM00008 EQU OPNOPT 00997000 OPNOPTJM EQU OPNOPT 00998000 OPNOPTKS EQU OPNOPT 00999000 OPNOPTBK EQU OPNOPT 01000000 OPNOPTUP EQU OPNOPT 01001000 OPNOPTOT EQU OPNOPT 01002000 OPNOPTIN EQU OPNOPT 01003000 IOCEXT EQU IOCSTR+36 01004000 IOCRRN EQU IOCSTR+32 01005000 @NM00007 EQU IOCSTR+30 01006000 IOCPNM EQU IOCSTR+28 01007000 IOCCBP EQU IOCSTR+24 01008000 IOCDSN EQU IOCSTR+20 01009000 @NM00006 EQU IOCSTR+17 01010000 @NM00005 EQU IOCMSG 01011000 IOCMSGOP EQU IOCMSG 01012000 IOCMACPA EQU IOCMAC 01013000 @NM00004 EQU IOCMAC 01014000 IOCMACBK EQU IOCMAC 01015000 IOCMACUP EQU IOCMAC 01016000 IOCMACOT EQU IOCMAC 01017000 IOCMACIN EQU IOCMAC 01018000 @NM00003 EQU IOCRFM 01019000 IOCRFMBK EQU IOCRFM 01020000 IOCRFMSF EQU IOCRFM 01021000 IOCRFMUN EQU IOCRFM 01022000 IOCRFMVR EQU IOCRFM 01023000 IOCRFMFX EQU IOCRFM 01024000 @NM00002 EQU IOCDSO 01025000 IOCDSOPS EQU IOCDSO 01026000 IOCKYL EQU IOCSTR+12 01027000 IOCTRN EQU IOCSTR+8 01028000 IOCDLN EQU IOCSTR+4 01029000 IOCDAD EQU IOCSTR 01030000 STAEWORK EQU STAEPARM+32 01031000 STARPTR EQU STAEPFX+28 01032000 STASPTR EQU STAEPFX+24 01033000 STALEN EQU STAEPFX+20 01034000 STAID EQU STAEPFX+16 01035000 STAEPA EQU STAEPFX+12 01036000 STAGDT EQU STAEPFX+8 01037000 STABPTR EQU STAEPFX+4 01038000 STAFPTR EQU STAEPFX 01039000 NEWID2 EQU TRACE2+95 01040000 OLDERID2 EQU TRACE2 01041000 NEWID1 EQU TRACE1+95 01042000 CALLID EQU OLDERID1+90 01043000 @NM00001 EQU OLDERID1 01044000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01045000 @RC00221 EQU @RC00219 01046000 @RF00240 EQU @RC00238 01047000 @RF00224 EQU @RC00221 01048000 @ENDDATA EQU * 01049000 END ICKVP01,(C'PLS1825',0701,78192) 01050000