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