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