TITLE '********** ICKDV01: VERIFY PROTECTED DATA SET *******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 ICKVD01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKVD01 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(24),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 * ,'VD00'); 0182 00047000 * 0182 00048000 * 0182 00049000 L @10,@PC00001 0182 00050000 ST @10,@AL00001 0182 00051000 LA @15,@CC00535 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 */* INITIALIZE UPRINT ARGUMENT LIST */ 00058000 * PRTHDR = 'DARGLIST'; 0183 00059000 @RT00180 MVC PRTHDR(8),@CC00536 0183 00060000 * PRTARGS = ''B; 0184 00061000 XC PRTARGS(20),PRTARGS 0184 00062000 * DDSTRU = ADDR(PRTARGS); 0185 00063000 LA @10,PRTARGS 0185 00064000 ST @10,DDSTRU 0185 00065000 * DARGSMOD = EFMSGS; 0186 00066000 * 0186 00067000 MVC DARGSMOD(3,@10),EFMSGS 0186 00068000 */* IF DATA SET IS VSAM */ 00069000 * F1PTR = ADDR(DSCB1); 0187 00070000 L F1PTR,@PC00001+8 0187 00071000 * IF VSAMIND = ON 0188 00072000 * 0188 00073000 */* THEN */ 00074000 * THEN DO; 0188 00075000 * 0188 00076000 * 0188 00077000 TM VSAMIND(F1PTR),B'00001000' 0188 00078000 BNO @RF00188 0188 00079000 */* ISSUE ERROR MESSAGE (UPRINT) */ 00080000 * DARGSENT = MSGVSAMP; 0190 00081000 MVI DARGSENT(@10),X'09' 0190 00082000 * CALL ICKTPPR0(GDTTBL 0191 00083000 * ,PRTFILE 0191 00084000 * ,DDSTRU); 0191 00085000 * 0191 00086000 L @10,@PC00001 0191 00087000 ST @10,@AL00001 0191 00088000 LA @15,@CF00096 0191 00089000 ST @15,@AL00001+4 0191 00090000 LA @15,DDSTRU 0191 00091000 ST @15,@AL00001+8 0191 00092000 MVI @AL00001+8,X'80' 0191 00093000 L @15,GDTPRT(,@10) 0191 00094000 LA @01,@AL00001 0191 00095000 BALR @14,@15 0191 00096000 */* SET CONDITION CODE TO INDICATE PURGING NOT ALLOWED */ 00097000 * CONDCODE = NOPURGE; 0192 00098000 * 0192 00099000 L @10,@PC00001+20 0192 00100000 MVC CONDCODE(4,@10),@CF00167 0192 00101000 */* END-THEN */ 00102000 * END; 0193 00103000 * 0193 00104000 */* ELSE (DATA SET IS NOT VSAM) */ 00105000 * ELSE DO; 0194 00106000 * 0194 00107000 * 0194 00108000 B @RC00188 0194 00109000 @RF00188 DS 0H 0195 00110000 */* ISSUE SCRATCH MACRO TO CHECK AUTHORIZATION (USCRATCH) */ 00111000 * RESPECIFY(UVOLLIST) BASED(VLISTPTR); 0195 00112000 * VLISTPTR = ADDR(VSERLIST); 0196 00113000 LA @10,VSERLIST 0196 00114000 ST @10,VLISTPTR 0196 00115000 * UVOLCNT = 1; 0197 00116000 MVC UVOLCNT(2,@10),@CH00167 0197 00117000 * UVOLDEV(1) = DEVTYPE; 0198 00118000 L @03,@PC00001+16 0198 00119000 MVC UVOLDEV(4,@10),DEVTYPE(@03) 0198 00120000 * UVOLVOL(1) = VOLSER; 0199 00121000 L @03,@PC00001+12 0199 00122000 MVC UVOLVOL(6,@10),VOLSER(@03) 0199 00123000 * CALL ICKSASC0(GDTTBL 0200 00124000 * ,DS1DSNAM 0200 00125000 * ,VLISTPTR 0200 00126000 * ,OVERRIDE); 0200 00127000 * 0200 00128000 L @10,@PC00001 0200 00129000 ST @10,@AL00001 0200 00130000 ST F1PTR,@AL00001+4 0200 00131000 LA @03,VLISTPTR 0200 00132000 ST @03,@AL00001+8 0200 00133000 LA @03,@CC00153 0200 00134000 ST @03,@AL00001+12 0200 00135000 MVI @AL00001+12,X'80' 0200 00136000 L @15,GDTSCR(,@10) 0200 00137000 LA @01,@AL00001 0200 00138000 BALR @14,@15 0200 00139000 */* IF SUCCESSFUL */ 00140000 * RESPECIFY RTNREG RSTD; 0201 00141000 * TESTRC = RTNREG; 0202 00142000 LR TESTRC,RTNREG 0202 00143000 * RESPECIFY RTNREG UNRSTD; 0203 00144000 * IF TESTRC = 0 0204 00145000 * 0204 00146000 */* THEN SET CONDITION CODE TO INDICATE PURGE IS OK */ 00147000 * THEN DO; CONDCODE = PURGE; END; 0204 00148000 * 0204 00149000 SLR @10,@10 0204 00150000 CR TESTRC,@10 0204 00151000 BNE @RF00204 0204 00152000 L @15,@PC00001+20 0206 00153000 ST @10,CONDCODE(,@15) 0206 00154000 */* ELSE */ 00155000 * ELSE DO; 0208 00156000 * 0208 00157000 * 0208 00158000 B @RC00204 0208 00159000 @RF00204 DS 0H 0209 00160000 */* ISSUE ERROR MESSAGE UNABLE TO VERIFY AUTHORIZATION */ 00161000 * DARGSENT = MSGNVRFY; 0209 00162000 L @10,DDSTRU 0209 00163000 MVI DARGSENT(@10),X'04' 0209 00164000 * CALL ICKTPPR0(GDTTBL 0210 00165000 * ,PRTFILE 0210 00166000 * ,DDSTRU); 0210 00167000 * 0210 00168000 L @10,@PC00001 0210 00169000 ST @10,@AL00001 0210 00170000 LA @15,@CF00096 0210 00171000 ST @15,@AL00001+4 0210 00172000 LA @15,DDSTRU 0210 00173000 ST @15,@AL00001+8 0210 00174000 MVI @AL00001+8,X'80' 0210 00175000 L @15,GDTPRT(,@10) 0210 00176000 LA @01,@AL00001 0210 00177000 BALR @14,@15 0210 00178000 */* SET CONDITION CODE TO INDICATE PURGING NOT ALLOWED */ 00179000 * CONDCODE = NOPURGE; 0211 00180000 * 0211 00181000 L @10,@PC00001+20 0211 00182000 MVC CONDCODE(4,@10),@CF00167 0211 00183000 */* END-ELSE */ 00184000 * END; 0212 00185000 * 0212 00186000 */* END-ELSE */ 00187000 * END; 0213 00188000 * 0213 00189000 @RC00204 DS 0H 0214 00190000 */* END-PROCEDURE VERIFY_PROTECTED_DATA_SET */ 00191000 * IF GDTDBG = NULLPTR 0214 00192000 * THEN; 0214 00193000 @RC00188 L @10,@PC00001 0214 00194000 L @10,GDTDBG(,@10) 0214 00195000 LTR @10,@10 0214 00196000 BZ @RT00214 0214 00197000 * ELSE 0216 00198000 * CALL ICKDB010(GDTTBL 0216 00199000 * ,'VD99'); 0216 00200000 L @10,@PC00001 0216 00201000 ST @10,@AL00001 0216 00202000 LA @15,@CC00539 0216 00203000 ST @15,@AL00001+4 0216 00204000 MVI @AL00001+4,X'80' 0216 00205000 L @15,GDTDBG(,@10) 0216 00206000 LA @01,@AL00001 0216 00207000 BALR @14,@15 0216 00208000 * CALL ICKSAEP0(GDTTBL,MODID); 0217 00209000 * 0217 00210000 * 0217 00211000 @RT00214 L @10,@PC00001 0217 00212000 ST @10,@AL00001 0217 00213000 LA @15,MODID 0217 00214000 ST @15,@AL00001+4 0217 00215000 MVI @AL00001+4,X'80' 0217 00216000 L @15,GDTEPL(,@10) 0217 00217000 LA @01,@AL00001 0217 00218000 BALR @14,@15 0217 00219000 * END ICKVD01 0218 00220000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00221000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00222000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00223000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00224000 */*%INCLUDE SYSLIB (IECSDSL1) * 00225000 *; 0218 00226000 @DATA DS 0H 00227000 @DATD DSECT 00228000 DS 0F 00229000 @SA00001 DS 18F 00230000 @PC00001 DS 6F 00231000 @AL00001 DS 4A 00232000 @ZTEMPS DS C 00233000 @ZTEMPND EQU * 00234000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00235000 ICKVD01 CSECT 00236000 DS 0F 00237000 @CF00096 DC F'0' 00238000 @CF00167 DC F'1' 00239000 @CH00167 EQU @CF00167+2 00240000 @DATD DSECT 00241000 DS 0D 00242000 LISTSCAN DS A 00243000 IOCSPTR DS A 00244000 OPNPTR DS A 00245000 DDSTRU DS A 00246000 FSADDR DS A 00247000 DMPINDEX DS A 00248000 VLISTPTR DS A 00249000 LISTPTR DS A 00250000 SETRC DS H 00251000 LISTLN DS FL1 00252000 VSERLIST DS CL2 00253000 DS CL3 00254000 PRTLIST DS CL28 00255000 ORG PRTLIST 00256000 PRTHDR DS CL8 00257000 PRTARGS DS CL20 00258000 ORG PRTLIST+28 00259000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00260000 @ENDDATD EQU * 00261000 ICKVD01 CSECT 00262000 DS 0F 00263000 @SIZDATD DC AL1(0) 00264000 DC AL3(@ENDDATD-@DATD) 00265000 DS 0D 00266000 @CC00536 DC C'DARGLIST' 00267000 @CC00153 DC C'OVRD' 00268000 @CC00535 DC C'VD00' 00269000 @CC00539 DC C'VD99' 00270000 MODID DC CL4'VD01' 00271000 EFMSGS DC CL3'EF0' 00272000 PTCHVD01 DS CL256 00273000 ORG PTCHVD01 00274000 @NM00025 DC 256X'00' 00275000 ORG PTCHVD01+256 00276000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00277000 @01 EQU 01 00278000 @02 EQU 02 00279000 @03 EQU 03 00280000 @04 EQU 04 00281000 @05 EQU 05 00282000 @06 EQU 06 00283000 @07 EQU 07 00284000 @08 EQU 08 00285000 @09 EQU 09 00286000 @10 EQU 10 00287000 @11 EQU 11 00288000 @12 EQU 12 00289000 @13 EQU 13 00290000 @14 EQU 14 00291000 @15 EQU 15 00292000 F1PTR EQU @02 00293000 TESTRC EQU @02 00294000 REG12 EQU @12 00295000 RTNREG EQU @15 00296000 REG0 EQU @00 00297000 REG1 EQU @01 00298000 REG10 EQU @10 00299000 REG11 EQU @11 00300000 REG13 EQU @13 00301000 REG14 EQU @14 00302000 REG15 EQU @15 00303000 REG2 EQU @02 00304000 REG3 EQU @03 00305000 REG4 EQU @04 00306000 REG5 EQU @05 00307000 REG6 EQU @06 00308000 REG7 EQU @07 00309000 REG8 EQU @08 00310000 REG9 EQU @09 00311000 ICKSAEP0 EQU 0 00312000 ICKSASC0 EQU 0 00313000 TRACE1 EQU 0 00314000 OLDERID1 EQU TRACE1 00315000 TRACE2 EQU 0 00316000 STAEPARM EQU 0 00317000 STAEPFX EQU STAEPARM 00318000 IOCSTR EQU 0 00319000 IOCDSO EQU IOCSTR+13 00320000 IOCRFM EQU IOCSTR+14 00321000 IOCMAC EQU IOCSTR+15 00322000 IOCMSG EQU IOCSTR+16 00323000 OPNAGL EQU 0 00324000 OPNOPT EQU OPNAGL 00325000 OPNRFM EQU OPNAGL+1 00326000 OPNTYP EQU OPNAGL+2 00327000 OPNMOD EQU OPNAGL+3 00328000 UVOLLIST EQU 0 00329000 UVOLCNT EQU UVOLLIST 00330000 UVOLENT EQU UVOLLIST+2 00331000 UVOLDEV EQU UVOLENT 00332000 UVOLVOL EQU UVOLENT+4 00333000 ICKTPPR0 EQU 0 00334000 DARGLIST EQU 0 00335000 DARGSTID EQU DARGLIST+8 00336000 DARGSMOD EQU DARGSTID 00337000 DARGSENT EQU DARGSTID+3 00338000 DARGARY EQU DARGLIST+20 00339000 DARGINS EQU DARGARY 00340000 DARGINL EQU DARGARY+2 00341000 FMTLIST EQU 0 00342000 FMTFLGS EQU FMTLIST 00343000 FMTSPF EQU FMTLIST+2 00344000 FMTRFNO EQU FMTSPF 00345000 FMTILEN EQU FMTRFNO 00346000 FMTIOFF EQU FMTLIST+4 00347000 FMTTRBC EQU FMTIOFF 00348000 FMTSTO EQU FMTTRBC 00349000 FMTOCOL EQU FMTLIST+6 00350000 FMTCNVF EQU FMTLIST+10 00351000 ICKDB010 EQU 0 00352000 DMPITM EQU 0 00353000 DMPARY EQU 0 00354000 IECSDSF1 EQU 0 00355000 IECSDSL1 EQU 0 00356000 DS1DSNAM EQU IECSDSL1 00357000 DS1DSORG EQU IECSDSL1+82 00358000 DMPTRM EQU 0 00359000 ICKDVCL0 EQU 0 00360000 ICKDVIN0 EQU 0 00361000 ICKDVON0 EQU 0 00362000 ICKDVOP0 EQU 0 00363000 ICKIOCL0 EQU 0 00364000 ICKIOGT0 EQU 0 00365000 ICKIOIT0 EQU 0 00366000 ICKIOOP0 EQU 0 00367000 ICKIOPT0 EQU 0 00368000 ICKIOTM0 EQU 0 00369000 ICKSACL0 EQU 0 00370000 ICKSADE0 EQU 0 00371000 ICKSAFP0 EQU 0 00372000 ICKSAFS0 EQU 0 00373000 ICKSAGP0 EQU 0 00374000 ICKSAGS0 EQU 0 00375000 ICKSALD0 EQU 0 00376000 ICKSAPR0 EQU 0 00377000 ICKSASN0 EQU 0 00378000 ICKSAST0 EQU 0 00379000 ICKSATI0 EQU 0 00380000 ICKSAVC0 EQU 0 00381000 ICKSAWO0 EQU 0 00382000 ICKTPEA0 EQU 0 00383000 ICKTPES0 EQU 0 00384000 ICKTPRE0 EQU 0 00385000 ICKTPRS0 EQU 0 00386000 LISTTEST EQU 0 00387000 NEWERID1 EQU 5 00388000 NEWERID2 EQU 5 00389000 GDTTBL EQU 0 00390000 GDTTR1 EQU GDTTBL+8 00391000 GDTTR2 EQU GDTTBL+12 00392000 GDTDIN EQU GDTTBL+44 00393000 GDTDOP EQU GDTTBL+48 00394000 GDTDBG EQU GDTTBL+52 00395000 GDTDVO EQU GDTTBL+56 00396000 GDTPRT EQU GDTTBL+60 00397000 GDTESS EQU GDTTBL+64 00398000 GDTESA EQU GDTTBL+68 00399000 GDTRST EQU GDTTBL+72 00400000 GDTRES EQU GDTTBL+76 00401000 GDTCAL EQU GDTTBL+80 00402000 GDTGSP EQU GDTTBL+84 00403000 GDTFSP EQU GDTTBL+88 00404000 GDTGPL EQU GDTTBL+92 00405000 GDTFPL EQU GDTTBL+96 00406000 GDTLOD EQU GDTTBL+100 00407000 GDTDEL EQU GDTTBL+104 00408000 GDTPRL EQU GDTTBL+108 00409000 GDTEPL EQU GDTTBL+112 00410000 GDTTIM EQU GDTTBL+116 00411000 GDTIIO EQU GDTTBL+120 00412000 GDTTIO EQU GDTTBL+124 00413000 GDTOPN EQU GDTTBL+136 00414000 GDTCLS EQU GDTTBL+140 00415000 GDTGET EQU GDTTBL+144 00416000 GDTPUT EQU GDTTBL+148 00417000 GDTSNP EQU GDTTBL+160 00418000 GDTWTO EQU GDTTBL+168 00419000 GDTSCR EQU GDTTBL+172 00420000 GDTVCK EQU GDTTBL+176 00421000 GDTDVC EQU GDTTBL+180 00422000 GDTSTE EQU GDTTBL+188 00423000 VOLIB EQU 0 00424000 DSCB1 EQU 0 00425000 VOLSER EQU 0 00426000 DEVTYPE EQU 0 00427000 CONDCODE EQU 0 00428000 @NM00018 EQU DS1DSORG 00429000 VSAMIND EQU @NM00018+1 00430000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00431000 @NM00020 EQU @NM00018+1 00432000 @NM00019 EQU @NM00018 00433000 GDTCVR EQU GDTTBL+184 00434000 GDTSPR EQU GDTTBL+164 00435000 GDTABH EQU GDTTBL+156 00436000 GDTABT EQU GDTTBL+152 00437000 GDTTOH EQU GDTTBL+132 00438000 GDTRIP EQU GDTTBL+128 00439000 GDTDVH EQU GDTTBL+40 00440000 GDTIOH EQU GDTTBL+36 00441000 GDTSAH EQU GDTTBL+32 00442000 GDTTPH EQU GDTTBL+28 00443000 GDTRIH EQU GDTTBL+24 00444000 GDTSTH EQU GDTTBL+20 00445000 GDTDBH EQU GDTTBL+16 00446000 GDTPRM EQU GDTTBL+4 00447000 GDTHDR EQU GDTTBL 00448000 DS1END EQU IECSDSL1+140 00449000 DS1PTRDS EQU IECSDSL1+135 00450000 DS1EXT3 EQU IECSDSL1+125 00451000 DS1EXT2 EQU IECSDSL1+115 00452000 DS1EXT1 EQU IECSDSL1+105 00453000 @NM00024 EQU IECSDSL1+103 00454000 DS1TRBAL EQU IECSDSL1+101 00455000 DS1LSTAR EQU IECSDSL1+98 00456000 DS1SCALO EQU IECSDSL1+94 00457000 DS1DSIND EQU IECSDSL1+93 00458000 DS1RKP EQU IECSDSL1+91 00459000 DS1KEYL EQU IECSDSL1+90 00460000 DS1LRECL EQU IECSDSL1+88 00461000 DS1BLKL EQU IECSDSL1+86 00462000 DS1OPTCD EQU IECSDSL1+85 00463000 DS1RECFM EQU IECSDSL1+84 00464000 @NM00023 EQU IECSDSL1+75 00465000 DS1SYSCD EQU IECSDSL1+62 00466000 @NM00022 EQU IECSDSL1+61 00467000 DS1NOBDB EQU IECSDSL1+60 00468000 DS1NOEPV EQU IECSDSL1+59 00469000 DS1EXPDT EQU IECSDSL1+56 00470000 DS1CREDT EQU IECSDSL1+53 00471000 DS1VOLSQ EQU IECSDSL1+51 00472000 DS1DSSN EQU IECSDSL1+45 00473000 DS1FMTID EQU IECSDSL1+44 00474000 @NM00021 EQU IECSDSF1 00475000 @NM00017 EQU DMPARY+15 00476000 DMPARYTP EQU DMPARY+14 00477000 DMPARYEX EQU DMPARY+12 00478000 DMPARYIC EQU DMPARY+10 00479000 DMPARYSZ EQU DMPARY+8 00480000 DMPARYNM EQU DMPARY 00481000 @NM00016 EQU DMPITM+15 00482000 DMPITMTP EQU DMPITM+14 00483000 DMPITMLN EQU DMPITM+12 00484000 DMPITMPT EQU DMPITM+8 00485000 DMPITMNM EQU DMPITM 00486000 @NM00015 EQU FMTCNVF+1 00487000 FMTBS EQU FMTCNVF+1 00488000 FMTSS EQU FMTCNVF+1 00489000 FMTAL EQU FMTCNVF+1 00490000 FMTZS EQU FMTCNVF+1 00491000 @NM00014 EQU FMTCNVF 00492000 FMTPU EQU FMTCNVF 00493000 FMTBD EQU FMTCNVF 00494000 FMTBHD EQU FMTCNVF 00495000 FMTBHA EQU FMTCNVF 00496000 FMTBH EQU FMTCNVF 00497000 FMTOLEN EQU FMTLIST+8 00498000 FMTRIO EQU FMTOCOL 00499000 FMTSPT EQU FMTSTO 00500000 FMTSTL EQU FMTILEN 00501000 @NM00013 EQU FMTFLGS+1 00502000 FMTHDF EQU FMTFLGS 00503000 FMTDFF EQU FMTFLGS 00504000 FMTSTF EQU FMTFLGS 00505000 FMTREPF EQU FMTFLGS 00506000 FMTBDF EQU FMTFLGS 00507000 FMTIDF EQU FMTFLGS 00508000 FMTSCF EQU FMTFLGS 00509000 FMTEOLF EQU FMTFLGS 00510000 DARGDTM EQU DARGARY+4 00511000 DARGPCT EQU DARGINL 00512000 DARGREP EQU DARGINS 00513000 @NM00012 EQU DARGLIST+19 00514000 DARGIND EQU DARGLIST+18 00515000 DARGRETL EQU DARGLIST+16 00516000 DARGCNT EQU DARGLIST+14 00517000 DARGILP EQU DARGLIST+12 00518000 DARGRETP EQU DARGLIST+4 00519000 DARGDBP EQU DARGLIST 00520000 OPNRSVD EQU OPNAGL+28 00521000 OPNVOL EQU OPNAGL+24 00522000 OPNBLK EQU OPNAGL+20 00523000 OPNREC EQU OPNAGL+16 00524000 OPNDSN EQU OPNAGL+12 00525000 OPNDDN EQU OPNAGL+8 00526000 OPNIOC EQU OPNAGL+4 00527000 @NM00011 EQU OPNMOD 00528000 OPNMODRC EQU OPNMOD 00529000 OPNMODAC EQU OPNMOD 00530000 @NM00010 EQU OPNTYP 00531000 OPNTYPSO EQU OPNTYP 00532000 OPNTYPSI EQU OPNTYP 00533000 @NM00009 EQU OPNRFM 00534000 OPNRFMBK EQU OPNRFM 00535000 OPNRFMSF EQU OPNRFM 00536000 OPNRFMUN EQU OPNRFM 00537000 OPNRFMVR EQU OPNRFM 00538000 OPNRFMFX EQU OPNRFM 00539000 @NM00008 EQU OPNOPT 00540000 OPNOPTJM EQU OPNOPT 00541000 OPNOPTKS EQU OPNOPT 00542000 OPNOPTBK EQU OPNOPT 00543000 OPNOPTUP EQU OPNOPT 00544000 OPNOPTOT EQU OPNOPT 00545000 OPNOPTIN EQU OPNOPT 00546000 IOCEXT EQU IOCSTR+36 00547000 IOCRRN EQU IOCSTR+32 00548000 @NM00007 EQU IOCSTR+30 00549000 IOCPNM EQU IOCSTR+28 00550000 IOCCBP EQU IOCSTR+24 00551000 IOCDSN EQU IOCSTR+20 00552000 @NM00006 EQU IOCSTR+17 00553000 @NM00005 EQU IOCMSG 00554000 IOCMSGOP EQU IOCMSG 00555000 IOCMACPA EQU IOCMAC 00556000 @NM00004 EQU IOCMAC 00557000 IOCMACBK EQU IOCMAC 00558000 IOCMACUP EQU IOCMAC 00559000 IOCMACOT EQU IOCMAC 00560000 IOCMACIN EQU IOCMAC 00561000 @NM00003 EQU IOCRFM 00562000 IOCRFMBK EQU IOCRFM 00563000 IOCRFMSF EQU IOCRFM 00564000 IOCRFMUN EQU IOCRFM 00565000 IOCRFMVR EQU IOCRFM 00566000 IOCRFMFX EQU IOCRFM 00567000 @NM00002 EQU IOCDSO 00568000 IOCDSOPS EQU IOCDSO 00569000 IOCKYL EQU IOCSTR+12 00570000 IOCTRN EQU IOCSTR+8 00571000 IOCDLN EQU IOCSTR+4 00572000 IOCDAD EQU IOCSTR 00573000 STAEWORK EQU STAEPARM+32 00574000 STARPTR EQU STAEPFX+28 00575000 STASPTR EQU STAEPFX+24 00576000 STALEN EQU STAEPFX+20 00577000 STAID EQU STAEPFX+16 00578000 STAEPA EQU STAEPFX+12 00579000 STAGDT EQU STAEPFX+8 00580000 STABPTR EQU STAEPFX+4 00581000 STAFPTR EQU STAEPFX 00582000 NEWID2 EQU TRACE2+95 00583000 OLDERID2 EQU TRACE2 00584000 NEWID1 EQU TRACE1+95 00585000 CALLID EQU OLDERID1+90 00586000 @NM00001 EQU OLDERID1 00587000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00588000 @ENDDATA EQU * 00589000 END ICKVD01,(C'PLS1828',0701,78192) 00590000