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