TITLE '********** ICKWL01: WRITE 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 ICKWL01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKWL01 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 * 0176 00034000 EJECT 00035000 * 0177 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0177 00038000 * IF GDTDBG = NULLPTR 0177 00039000 * THEN; 0177 00040000 L @10,@PC00001 0177 00041000 L @10,GDTDBG(,@10) 0177 00042000 LTR @10,@10 0177 00043000 BZ @RT00177 0177 00044000 * ELSE 0179 00045000 * CALL ICKDB010(GDTTBL 0179 00046000 * ,'WL00'); 0179 00047000 * 0179 00048000 L @10,@PC00001 0179 00049000 ST @10,@AL00001 0179 00050000 LA @15,@CC00507 0179 00051000 ST @15,@AL00001+4 0179 00052000 MVI @AL00001+4,X'80' 0179 00053000 L @15,GDTDBG(,@10) 0179 00054000 LA @01,@AL00001 0179 00055000 BALR @14,@15 0179 00056000 * CONDCODE = SUCCESS; 0180 00057000 * 0180 00058000 @RT00177 L @10,@PC00001+16 0180 00059000 SLR @15,@15 0180 00060000 ST @15,CONDCODE(,@10) 0180 00061000 */* OBTAIN STANDARD IPL1 RECORD FOR DEVICE (UDEVINFO) */ 00062000 * CALL ICKDVIN0(GDTTBL 0181 00063000 * ,VOLIB 0181 00064000 * ,DEVBSRW1 0181 00065000 * ,POOLID 0181 00066000 * ,DATAPTR 0181 00067000 * ,DATALEN 0181 00068000 * ,RETCODE); 0181 00069000 * 0181 00070000 L @10,@PC00001 0181 00071000 ST @10,@AL00001 0181 00072000 L @15,@PC00001+4 0181 00073000 ST @15,@AL00001+4 0181 00074000 LA @15,@CF00365 0181 00075000 ST @15,@AL00001+8 0181 00076000 LA @15,POOLID 0181 00077000 ST @15,@AL00001+12 0181 00078000 LA @15,DATAPTR 0181 00079000 ST @15,@AL00001+16 0181 00080000 LA @15,DATALEN 0181 00081000 ST @15,@AL00001+20 0181 00082000 LA @15,RETCODE 0181 00083000 ST @15,@AL00001+24 0181 00084000 L @15,GDTDIN(,@10) 0181 00085000 LA @01,@AL00001 0181 00086000 BALR @14,@15 0181 00087000 */* WRITE IPL1 (UDEVOP) */ 00088000 * RECNUM = 1; 0182 00089000 MVC RECNUM(4),@CF00165 0182 00090000 * CALL ICKDVOP0(GDTTBL 0183 00091000 * ,VOLIB 0183 00092000 * ,ACTWCKDN 0183 00093000 * ,TRKCCHH 0183 00094000 * ,RECNUM 0183 00095000 * ,POOLID 0183 00096000 * ,DATAPTR 0183 00097000 * ,DATALEN 0183 00098000 * ,RETCODE); 0183 00099000 * 0183 00100000 L @10,@PC00001 0183 00101000 ST @10,@AL00001 0183 00102000 L @15,@PC00001+4 0183 00103000 ST @15,@AL00001+4 0183 00104000 LA @15,@CF00260 0183 00105000 ST @15,@AL00001+8 0183 00106000 LA @15,TRKCCHH 0183 00107000 ST @15,@AL00001+12 0183 00108000 LA @15,RECNUM 0183 00109000 ST @15,@AL00001+16 0183 00110000 LA @15,POOLID 0183 00111000 ST @15,@AL00001+20 0183 00112000 LA @15,DATAPTR 0183 00113000 ST @15,@AL00001+24 0183 00114000 LA @15,DATALEN 0183 00115000 ST @15,@AL00001+28 0183 00116000 LA @15,RETCODE 0183 00117000 ST @15,@AL00001+32 0183 00118000 L @15,GDTDOP(,@10) 0183 00119000 LA @01,@AL00001 0183 00120000 BALR @14,@15 0183 00121000 */* IF NOT SUCCESSFUL */ 00122000 * IF RETCODE ^= SUCCESS 0184 00123000 * 0184 00124000 */* THEN SET ERROR CODE (CONDCODE=1) */ 00125000 * THEN 0184 00126000 L @10,RETCODE 0184 00127000 LTR @10,@10 0184 00128000 BZ @RF00184 0184 00129000 * DO; 0185 00130000 * 0185 00131000 * CONDCODE = NWRTIPL; 0186 00132000 L @10,@PC00001+16 0186 00133000 MVC CONDCODE(4,@10),@CF00165 0186 00134000 * END; 0187 00135000 * 0187 00136000 */* IF NO ERROR THUS FAR */ 00137000 * IF CONDCODE = SUCCESS 0188 00138000 * 0188 00139000 */* THEN */ 00140000 * THEN DO; 0188 00141000 * 0188 00142000 @RF00184 L @10,@PC00001+16 0188 00143000 L @10,CONDCODE(,@10) 0188 00144000 LTR @10,@10 0188 00145000 BNZ @RF00188 0188 00146000 */* OBTAIN STANDARD IPL2 RECORD FOR DEVICE (UDEVINFO) */ 00147000 * CALL ICKDVIN0(GDTTBL 0190 00148000 * ,VOLIB 0190 00149000 * ,DEVBSRS2 0190 00150000 * ,POOLID 0190 00151000 * ,DATAPTR 0190 00152000 * ,DATALEN 0190 00153000 * ,RETCODE); 0190 00154000 * 0190 00155000 L @10,@PC00001 0190 00156000 ST @10,@AL00001 0190 00157000 L @15,@PC00001+4 0190 00158000 ST @15,@AL00001+4 0190 00159000 LA @15,@CF00347 0190 00160000 ST @15,@AL00001+8 0190 00161000 LA @15,POOLID 0190 00162000 ST @15,@AL00001+12 0190 00163000 LA @15,DATAPTR 0190 00164000 ST @15,@AL00001+16 0190 00165000 LA @15,DATALEN 0190 00166000 ST @15,@AL00001+20 0190 00167000 LA @15,RETCODE 0190 00168000 ST @15,@AL00001+24 0190 00169000 L @15,GDTDIN(,@10) 0190 00170000 LA @01,@AL00001 0190 00171000 BALR @14,@15 0190 00172000 */* WRITE IPL2 (UDEVOP) */ 00173000 * RECNUM = 2; 0191 00174000 MVC RECNUM(4),@CF00116 0191 00175000 * CALL ICKDVOP0(GDTTBL 0192 00176000 * ,VOLIB 0192 00177000 * ,ACTWCKDN 0192 00178000 * ,TRKCCHH 0192 00179000 * ,RECNUM 0192 00180000 * ,POOLID 0192 00181000 * ,DATAPTR 0192 00182000 * ,DATALEN 0192 00183000 * ,RETCODE); 0192 00184000 * 0192 00185000 L @10,@PC00001 0192 00186000 ST @10,@AL00001 0192 00187000 L @15,@PC00001+4 0192 00188000 ST @15,@AL00001+4 0192 00189000 LA @15,@CF00260 0192 00190000 ST @15,@AL00001+8 0192 00191000 LA @15,TRKCCHH 0192 00192000 ST @15,@AL00001+12 0192 00193000 LA @15,RECNUM 0192 00194000 ST @15,@AL00001+16 0192 00195000 LA @15,POOLID 0192 00196000 ST @15,@AL00001+20 0192 00197000 LA @15,DATAPTR 0192 00198000 ST @15,@AL00001+24 0192 00199000 LA @15,DATALEN 0192 00200000 ST @15,@AL00001+28 0192 00201000 LA @15,RETCODE 0192 00202000 ST @15,@AL00001+32 0192 00203000 L @15,GDTDOP(,@10) 0192 00204000 LA @01,@AL00001 0192 00205000 BALR @14,@15 0192 00206000 */* IF NOT SUCCESSFUL */ 00207000 * IF RETCODE ^= SUCCESS 0193 00208000 * 0193 00209000 */* THEN SET ERROR CODE (CONDCODE=1) */ 00210000 * THEN 0193 00211000 L @10,RETCODE 0193 00212000 LTR @10,@10 0193 00213000 BZ @RF00193 0193 00214000 * DO; 0194 00215000 * 0194 00216000 * CONDCODE = NWRTIPL; 0195 00217000 L @10,@PC00001+16 0195 00218000 MVC CONDCODE(4,@10),@CF00165 0195 00219000 * END; 0196 00220000 * 0196 00221000 */* END-THEN */ 00222000 * END; 0197 00223000 * 0197 00224000 @RF00193 DS 0H 0198 00225000 */* IF NO ERROR THUS FAR */ 00226000 * IF CONDCODE = SUCCESS 0198 00227000 * 0198 00228000 */* THEN */ 00229000 * THEN DO; 0198 00230000 * 0198 00231000 * 0198 00232000 @RF00188 L @10,@PC00001+16 0198 00233000 L @10,CONDCODE(,@10) 0198 00234000 LTR @10,@10 0198 00235000 BNZ @RF00198 0198 00236000 */* WRITE VOL1 IMAGE SUPPLIED (UDEVOP) */ 00237000 * RECNUM = 3; 0200 00238000 LA @10,3 0200 00239000 ST @10,RECNUM 0200 00240000 * WCNTCCHH = TRKCCHH; 0201 00241000 MVC WCNTCCHH(4),TRKCCHH 0201 00242000 * WCNTR = RECNUM; 0202 00243000 STC @10,WCNTR 0202 00244000 * WCNTKL = 4; 0203 00245000 MVI WCNTKL,X'04' 0203 00246000 * WCNTDL = 80; 0204 00247000 MVC WCNTDL(2),@CH00476 0204 00248000 * WTKVOL = 'VOL'; 0205 00249000 MVC WTKVOL(3),@CC00508 0205 00250000 * WTKN = '1'; 0206 00251000 MVI WTKN,C'1' 0206 00252000 * WTVOLN = VOL1; 0207 00253000 L @10,@PC00001+8 0207 00254000 MVC WTVOLN(80),VOL1(@10) 0207 00255000 * DATAPTR = ADDR(WTRECORD); 0208 00256000 LA @10,WTRECORD 0208 00257000 ST @10,DATAPTR 0208 00258000 * DATALEN = LENGTH(WTRECORD); 0209 00259000 MVC DATALEN(4),@CF00485 0209 00260000 * CALL ICKDVOP0(GDTTBL 0210 00261000 * ,VOLIB 0210 00262000 * ,ACTWCKDN 0210 00263000 * ,TRKCCHH 0210 00264000 * ,RECNUM 0210 00265000 * ,POOLID 0210 00266000 * ,DATAPTR 0210 00267000 * ,DATALEN 0210 00268000 * ,RETCODE); 0210 00269000 * 0210 00270000 L @10,@PC00001 0210 00271000 ST @10,@AL00001 0210 00272000 L @15,@PC00001+4 0210 00273000 ST @15,@AL00001+4 0210 00274000 LA @15,@CF00260 0210 00275000 ST @15,@AL00001+8 0210 00276000 LA @15,TRKCCHH 0210 00277000 ST @15,@AL00001+12 0210 00278000 LA @15,RECNUM 0210 00279000 ST @15,@AL00001+16 0210 00280000 LA @15,POOLID 0210 00281000 ST @15,@AL00001+20 0210 00282000 LA @15,DATAPTR 0210 00283000 ST @15,@AL00001+24 0210 00284000 LA @15,DATALEN 0210 00285000 ST @15,@AL00001+28 0210 00286000 LA @15,RETCODE 0210 00287000 ST @15,@AL00001+32 0210 00288000 L @15,GDTDOP(,@10) 0210 00289000 LA @01,@AL00001 0210 00290000 BALR @14,@15 0210 00291000 */* IF NOT SUCCESSFUL */ 00292000 * IF RETCODE ^= SUCCESS 0211 00293000 * 0211 00294000 */* THEN SET ERROR CODE (CONDCODE=2) */ 00295000 * THEN 0211 00296000 L @10,RETCODE 0211 00297000 LTR @10,@10 0211 00298000 BZ @RF00211 0211 00299000 * DO; 0212 00300000 * 0212 00301000 * CONDCODE = NWTVLBL; 0213 00302000 L @10,@PC00001+16 0213 00303000 MVC CONDCODE(4,@10),@CF00116 0213 00304000 * END; 0214 00305000 * 0214 00306000 * /* ELSE */ 00307000 * ELSE DO; 0215 00308000 * 0215 00309000 * 0215 00310000 B @RC00211 0215 00311000 @RF00211 DS 0H 0216 00312000 */* DO-FOR COUNT OF USER LABELS REQUESTED */ 00313000 * DO N = 1 TO LABELS WHILE RETCODE = SUCCESS; 0216 00314000 * 0216 00315000 * 0216 00316000 LA @10,1 0216 00317000 B @DE00216 0216 00318000 @DL00216 L @10,RETCODE 0216 00319000 LTR @10,@10 0216 00320000 BNZ @DC00216 0216 00321000 */* OBTAIN USER VOLUME LABEL IMAGE FROM INSTALLATION ROUT.*/ 00322000 * CALL ICKSACL0(GDTTBL 0217 00323000 * ,INSTLRTN 0217 00324000 * ,N 0217 00325000 * ,WTVOLN); 0217 00326000 * 0217 00327000 L @10,@PC00001 0217 00328000 ST @10,@AL00001 0217 00329000 LA @15,INSTLRTN 0217 00330000 ST @15,@AL00001+4 0217 00331000 LA @15,N 0217 00332000 ST @15,@AL00001+8 0217 00333000 LA @15,WTVOLN 0217 00334000 ST @15,@AL00001+12 0217 00335000 MVI @AL00001+12,X'80' 0217 00336000 L @15,GDTCAL(,@10) 0217 00337000 LA @01,@AL00001 0217 00338000 BALR @14,@15 0217 00339000 */* WRITE 'UVLN' RECORD AS RECORD N+3 (UDEVOP) */ 00340000 * WTKVOL = 'UVL'; 0218 00341000 MVC WTKVOL(3),@CC00512 0218 00342000 * WTKN = 'F0' | (N ); 0219 00343000 L @10,@CF00513 0219 00344000 O @10,N 0219 00345000 STC @10,WTKN 0219 00346000 * WTVOLN(1:4) = WTKEY; 0220 00347000 MVC WTVOLN(4),WTKEY 0220 00348000 * RECNUM = RECNUM + 1; 0221 00349000 LA @10,1 0221 00350000 AL @10,RECNUM 0221 00351000 ST @10,RECNUM 0221 00352000 * WCNTR = RECNUM; 0222 00353000 STC @10,WCNTR 0222 00354000 * CALL ICKDVOP0(GDTTBL 0223 00355000 * ,VOLIB 0223 00356000 * ,ACTWCKDN 0223 00357000 * ,TRKCCHH 0223 00358000 * ,RECNUM 0223 00359000 * ,POOLID 0223 00360000 * ,DATAPTR 0223 00361000 * ,DATALEN 0223 00362000 * ,RETCODE); 0223 00363000 * 0223 00364000 L @10,@PC00001 0223 00365000 ST @10,@AL00001 0223 00366000 L @15,@PC00001+4 0223 00367000 ST @15,@AL00001+4 0223 00368000 LA @15,@CF00260 0223 00369000 ST @15,@AL00001+8 0223 00370000 LA @15,TRKCCHH 0223 00371000 ST @15,@AL00001+12 0223 00372000 LA @15,RECNUM 0223 00373000 ST @15,@AL00001+16 0223 00374000 LA @15,POOLID 0223 00375000 ST @15,@AL00001+20 0223 00376000 LA @15,DATAPTR 0223 00377000 ST @15,@AL00001+24 0223 00378000 LA @15,DATALEN 0223 00379000 ST @15,@AL00001+28 0223 00380000 LA @15,RETCODE 0223 00381000 ST @15,@AL00001+32 0223 00382000 L @15,GDTDOP(,@10) 0223 00383000 LA @01,@AL00001 0223 00384000 BALR @14,@15 0223 00385000 */* IF NOT SUCCESSFUL */ 00386000 * IF RETCODE ^= SUCCESS 0224 00387000 * 0224 00388000 */* THEN SET ERROR CODE (CONDCODE=3) */ 00389000 * THEN 0224 00390000 L @10,RETCODE 0224 00391000 LTR @10,@10 0224 00392000 BZ @RF00224 0224 00393000 * DO; 0225 00394000 * 0225 00395000 * CONDCODE = NWTULBL; 0226 00396000 L @10,@PC00001+16 0226 00397000 MVC CONDCODE(4,@10),@CF00136 0226 00398000 * END; 0227 00399000 * 0227 00400000 */* END-FOR */ 00401000 * END; 0228 00402000 * 0228 00403000 @RF00224 LA @10,1 0228 00404000 AL @10,N 0228 00405000 @DE00216 ST @10,N 0228 00406000 L @15,@PC00001+12 0228 00407000 C @10,LABELS(,@15) 0228 00408000 BNH @DL00216 0228 00409000 @DC00216 DS 0H 0229 00410000 */* END-ELSE */ 00411000 * END; 0229 00412000 * 0229 00413000 */* END-THEN */ 00414000 * END; 0230 00415000 * 0230 00416000 @RC00211 DS 0H 0231 00417000 */* END-PROCEDURE WRITE_VOLUME_LABEL */ 00418000 * CALL ICKSAFP0(GDTTBL 0231 00419000 * ,POOLID 0231 00420000 * ,ALL); 0231 00421000 @RF00198 MVC @AL00001+4(8),@AL00231 0231 00422000 L @10,@PC00001 0231 00423000 ST @10,@AL00001 0231 00424000 L @15,GDTFPL(,@10) 0231 00425000 LA @01,@AL00001 0231 00426000 BALR @14,@15 0231 00427000 * IF GDTDBG = NULLPTR 0232 00428000 * THEN; 0232 00429000 L @10,@PC00001 0232 00430000 L @10,GDTDBG(,@10) 0232 00431000 LTR @10,@10 0232 00432000 BZ @RT00232 0232 00433000 * ELSE 0234 00434000 * CALL ICKDB010(GDTTBL 0234 00435000 * ,'WL99'); 0234 00436000 L @10,@PC00001 0234 00437000 ST @10,@AL00001 0234 00438000 LA @15,@CC00514 0234 00439000 ST @15,@AL00001+4 0234 00440000 MVI @AL00001+4,X'80' 0234 00441000 L @15,GDTDBG(,@10) 0234 00442000 LA @01,@AL00001 0234 00443000 BALR @14,@15 0234 00444000 * CALL ICKSAEP0(GDTTBL,MODID); 0235 00445000 * 0235 00446000 @RT00232 L @10,@PC00001 0235 00447000 ST @10,@AL00001 0235 00448000 LA @15,MODID 0235 00449000 ST @15,@AL00001+4 0235 00450000 MVI @AL00001+4,X'80' 0235 00451000 L @15,GDTEPL(,@10) 0235 00452000 LA @01,@AL00001 0235 00453000 BALR @14,@15 0235 00454000 * END ICKWL01 0236 00455000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00456000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00457000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00458000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00459000 *; 0236 00460000 @DATA DS 0H 00461000 @CH00476 DC H'80' 00462000 DS 0F 00463000 @AL00231 DC A(POOLID) LIST WITH 2 ARGUMENT(S) 00464000 DC AL1(X'80') 00465000 DC AL3(@CC00137) 00466000 @DATD DSECT 00467000 DS 0F 00468000 @SA00001 DS 18F 00469000 @PC00001 DS 5F 00470000 @AL00001 DS 9A 00471000 @ZTEMPS DS C 00472000 @ZTEMPND EQU * 00473000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00474000 ICKWL01 CSECT 00475000 DS 0F 00476000 @CF00165 DC F'1' 00477000 @CF00116 DC F'2' 00478000 @CF00136 DC F'3' 00479000 @CF00260 DC F'9' 00480000 @CF00485 DC F'92' 00481000 @CF00347 DC F'210' 00482000 @CF00365 DC F'219' 00483000 @CF00513 DC XL2'0' 00484000 DC C'F0' 00485000 @DATD DSECT 00486000 DS 0D 00487000 LISTSCAN DS A 00488000 IOCSPTR DS A 00489000 OPNPTR DS A 00490000 DDSTRU DS A 00491000 FSADDR DS A 00492000 DMPINDEX DS A 00493000 RECNUM DS F 00494000 DATAPTR DS A 00495000 DATALEN DS F 00496000 N DS F 00497000 RETCODE DS F 00498000 LISTPTR DS A 00499000 SETRC DS H 00500000 TESTRC DS H 00501000 LISTLN DS FL1 00502000 WTRECORD DS CL92 00503000 ORG WTRECORD 00504000 WTCOUNT DS CL8 00505000 ORG WTCOUNT 00506000 WCNTCCHH DS FL4 00507000 WCNTR DS FL1 00508000 WCNTKL DS FL1 00509000 WCNTDL DS FL2 00510000 ORG WTRECORD+8 00511000 WTKEY DS CL4 00512000 ORG WTKEY 00513000 WTKVOL DS CL3 00514000 WTKN DS CL1 00515000 ORG WTRECORD+12 00516000 WTVOLN DS CL80 00517000 ORG WTRECORD+92 00518000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00519000 @ENDDATD EQU * 00520000 ICKWL01 CSECT 00521000 DS 0F 00522000 @SIZDATD DC AL1(0) 00523000 DC AL3(@ENDDATD-@DATD) 00524000 DS 0D 00525000 TRKCCHH DC A(0) 00526000 @CC00507 DC C'WL00' 00527000 @CC00514 DC C'WL99' 00528000 @CC00137 DC C'ALL' 00529000 @CC00508 DC C'VOL' 00530000 @CC00512 DC C'UVL' 00531000 MODID DC CL4'WL01' 00532000 POOLID DC CL4'WL01' 00533000 INSTLRTN DC CL8'ICKVLBL ' 00534000 PTCHWL01 DS CL256 00535000 ORG PTCHWL01 00536000 @NM00018 DC 256X'00' 00537000 ORG PTCHWL01+256 00538000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00539000 @01 EQU 01 00540000 @02 EQU 02 00541000 @03 EQU 03 00542000 @04 EQU 04 00543000 @05 EQU 05 00544000 @06 EQU 06 00545000 @07 EQU 07 00546000 @08 EQU 08 00547000 @09 EQU 09 00548000 @10 EQU 10 00549000 @11 EQU 11 00550000 @12 EQU 12 00551000 @13 EQU 13 00552000 @14 EQU 14 00553000 @15 EQU 15 00554000 REG12 EQU @12 00555000 REG0 EQU @00 00556000 REG1 EQU @01 00557000 REG10 EQU @10 00558000 REG11 EQU @11 00559000 REG13 EQU @13 00560000 REG14 EQU @14 00561000 REG15 EQU @15 00562000 REG2 EQU @02 00563000 REG3 EQU @03 00564000 REG4 EQU @04 00565000 REG5 EQU @05 00566000 REG6 EQU @06 00567000 REG7 EQU @07 00568000 REG8 EQU @08 00569000 REG9 EQU @09 00570000 RTNREG EQU @15 00571000 ICKSACL0 EQU 0 00572000 ICKSAEP0 EQU 0 00573000 ICKSAFP0 EQU 0 00574000 TRACE1 EQU 0 00575000 OLDERID1 EQU TRACE1 00576000 TRACE2 EQU 0 00577000 STAEPARM EQU 0 00578000 STAEPFX EQU STAEPARM 00579000 IOCSTR EQU 0 00580000 IOCDSO EQU IOCSTR+13 00581000 IOCRFM EQU IOCSTR+14 00582000 IOCMAC EQU IOCSTR+15 00583000 IOCMSG EQU IOCSTR+16 00584000 OPNAGL EQU 0 00585000 OPNOPT EQU OPNAGL 00586000 OPNRFM EQU OPNAGL+1 00587000 OPNTYP EQU OPNAGL+2 00588000 OPNMOD EQU OPNAGL+3 00589000 UVOLLIST EQU 0 00590000 UVOLENT EQU UVOLLIST+2 00591000 ICKDVIN0 EQU 0 00592000 ICKDVOP0 EQU 0 00593000 DARGLIST EQU 0 00594000 DARGSTID EQU DARGLIST+8 00595000 DARGARY EQU DARGLIST+20 00596000 DARGINS EQU DARGARY 00597000 DARGINL EQU DARGARY+2 00598000 FMTLIST EQU 0 00599000 FMTFLGS EQU FMTLIST 00600000 FMTSPF EQU FMTLIST+2 00601000 FMTRFNO EQU FMTSPF 00602000 FMTILEN EQU FMTRFNO 00603000 FMTIOFF EQU FMTLIST+4 00604000 FMTTRBC EQU FMTIOFF 00605000 FMTSTO EQU FMTTRBC 00606000 FMTOCOL EQU FMTLIST+6 00607000 FMTCNVF EQU FMTLIST+10 00608000 ICKDB010 EQU 0 00609000 DMPITM EQU 0 00610000 DMPARY EQU 0 00611000 DMPTRM EQU 0 00612000 ICKDVCL0 EQU 0 00613000 ICKDVON0 EQU 0 00614000 ICKIOCL0 EQU 0 00615000 ICKIOGT0 EQU 0 00616000 ICKIOIT0 EQU 0 00617000 ICKIOOP0 EQU 0 00618000 ICKIOPT0 EQU 0 00619000 ICKIOTM0 EQU 0 00620000 ICKSADE0 EQU 0 00621000 ICKSAFS0 EQU 0 00622000 ICKSAGP0 EQU 0 00623000 ICKSAGS0 EQU 0 00624000 ICKSALD0 EQU 0 00625000 ICKSAPR0 EQU 0 00626000 ICKSASC0 EQU 0 00627000 ICKSASN0 EQU 0 00628000 ICKSAST0 EQU 0 00629000 ICKSATI0 EQU 0 00630000 ICKSAVC0 EQU 0 00631000 ICKSAWO0 EQU 0 00632000 ICKTPEA0 EQU 0 00633000 ICKTPES0 EQU 0 00634000 ICKTPPR0 EQU 0 00635000 ICKTPRE0 EQU 0 00636000 ICKTPRS0 EQU 0 00637000 LISTTEST EQU 0 00638000 NEWERID1 EQU 5 00639000 NEWERID2 EQU 5 00640000 GDTTBL EQU 0 00641000 GDTTR1 EQU GDTTBL+8 00642000 GDTTR2 EQU GDTTBL+12 00643000 GDTDIN EQU GDTTBL+44 00644000 GDTDOP EQU GDTTBL+48 00645000 GDTDBG EQU GDTTBL+52 00646000 GDTDVO EQU GDTTBL+56 00647000 GDTPRT EQU GDTTBL+60 00648000 GDTESS EQU GDTTBL+64 00649000 GDTESA EQU GDTTBL+68 00650000 GDTRST EQU GDTTBL+72 00651000 GDTRES EQU GDTTBL+76 00652000 GDTCAL EQU GDTTBL+80 00653000 GDTGSP EQU GDTTBL+84 00654000 GDTFSP EQU GDTTBL+88 00655000 GDTGPL EQU GDTTBL+92 00656000 GDTFPL EQU GDTTBL+96 00657000 GDTLOD EQU GDTTBL+100 00658000 GDTDEL EQU GDTTBL+104 00659000 GDTPRL EQU GDTTBL+108 00660000 GDTEPL EQU GDTTBL+112 00661000 GDTTIM EQU GDTTBL+116 00662000 GDTIIO EQU GDTTBL+120 00663000 GDTTIO EQU GDTTBL+124 00664000 GDTOPN EQU GDTTBL+136 00665000 GDTCLS EQU GDTTBL+140 00666000 GDTGET EQU GDTTBL+144 00667000 GDTPUT EQU GDTTBL+148 00668000 GDTSNP EQU GDTTBL+160 00669000 GDTWTO EQU GDTTBL+168 00670000 GDTSCR EQU GDTTBL+172 00671000 GDTVCK EQU GDTTBL+176 00672000 GDTDVC EQU GDTTBL+180 00673000 GDTSTE EQU GDTTBL+188 00674000 VOLIB EQU 0 00675000 VOL1 EQU 0 00676000 LABELS EQU 0 00677000 CONDCODE EQU 0 00678000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00679000 GDTCVR EQU GDTTBL+184 00680000 GDTSPR EQU GDTTBL+164 00681000 GDTABH EQU GDTTBL+156 00682000 GDTABT EQU GDTTBL+152 00683000 GDTTOH EQU GDTTBL+132 00684000 GDTRIP EQU GDTTBL+128 00685000 GDTDVH EQU GDTTBL+40 00686000 GDTIOH EQU GDTTBL+36 00687000 GDTSAH EQU GDTTBL+32 00688000 GDTTPH EQU GDTTBL+28 00689000 GDTRIH EQU GDTTBL+24 00690000 GDTSTH EQU GDTTBL+20 00691000 GDTDBH EQU GDTTBL+16 00692000 GDTPRM EQU GDTTBL+4 00693000 GDTHDR EQU GDTTBL 00694000 @NM00017 EQU DMPARY+15 00695000 DMPARYTP EQU DMPARY+14 00696000 DMPARYEX EQU DMPARY+12 00697000 DMPARYIC EQU DMPARY+10 00698000 DMPARYSZ EQU DMPARY+8 00699000 DMPARYNM EQU DMPARY 00700000 @NM00016 EQU DMPITM+15 00701000 DMPITMTP EQU DMPITM+14 00702000 DMPITMLN EQU DMPITM+12 00703000 DMPITMPT EQU DMPITM+8 00704000 DMPITMNM EQU DMPITM 00705000 @NM00015 EQU FMTCNVF+1 00706000 FMTBS EQU FMTCNVF+1 00707000 FMTSS EQU FMTCNVF+1 00708000 FMTAL EQU FMTCNVF+1 00709000 FMTZS EQU FMTCNVF+1 00710000 @NM00014 EQU FMTCNVF 00711000 FMTPU EQU FMTCNVF 00712000 FMTBD EQU FMTCNVF 00713000 FMTBHD EQU FMTCNVF 00714000 FMTBHA EQU FMTCNVF 00715000 FMTBH EQU FMTCNVF 00716000 FMTOLEN EQU FMTLIST+8 00717000 FMTRIO EQU FMTOCOL 00718000 FMTSPT EQU FMTSTO 00719000 FMTSTL EQU FMTILEN 00720000 @NM00013 EQU FMTFLGS+1 00721000 FMTHDF EQU FMTFLGS 00722000 FMTDFF EQU FMTFLGS 00723000 FMTSTF EQU FMTFLGS 00724000 FMTREPF EQU FMTFLGS 00725000 FMTBDF EQU FMTFLGS 00726000 FMTIDF EQU FMTFLGS 00727000 FMTSCF EQU FMTFLGS 00728000 FMTEOLF EQU FMTFLGS 00729000 DARGDTM EQU DARGARY+4 00730000 DARGPCT EQU DARGINL 00731000 DARGREP EQU DARGINS 00732000 @NM00012 EQU DARGLIST+19 00733000 DARGIND EQU DARGLIST+18 00734000 DARGRETL EQU DARGLIST+16 00735000 DARGCNT EQU DARGLIST+14 00736000 DARGILP EQU DARGLIST+12 00737000 DARGSENT EQU DARGSTID+3 00738000 DARGSMOD EQU DARGSTID 00739000 DARGRETP EQU DARGLIST+4 00740000 DARGDBP EQU DARGLIST 00741000 UVOLVOL EQU UVOLENT+4 00742000 UVOLDEV EQU UVOLENT 00743000 UVOLCNT EQU UVOLLIST 00744000 OPNRSVD EQU OPNAGL+28 00745000 OPNVOL EQU OPNAGL+24 00746000 OPNBLK EQU OPNAGL+20 00747000 OPNREC EQU OPNAGL+16 00748000 OPNDSN EQU OPNAGL+12 00749000 OPNDDN EQU OPNAGL+8 00750000 OPNIOC EQU OPNAGL+4 00751000 @NM00011 EQU OPNMOD 00752000 OPNMODRC EQU OPNMOD 00753000 OPNMODAC EQU OPNMOD 00754000 @NM00010 EQU OPNTYP 00755000 OPNTYPSO EQU OPNTYP 00756000 OPNTYPSI EQU OPNTYP 00757000 @NM00009 EQU OPNRFM 00758000 OPNRFMBK EQU OPNRFM 00759000 OPNRFMSF EQU OPNRFM 00760000 OPNRFMUN EQU OPNRFM 00761000 OPNRFMVR EQU OPNRFM 00762000 OPNRFMFX EQU OPNRFM 00763000 @NM00008 EQU OPNOPT 00764000 OPNOPTJM EQU OPNOPT 00765000 OPNOPTKS EQU OPNOPT 00766000 OPNOPTBK EQU OPNOPT 00767000 OPNOPTUP EQU OPNOPT 00768000 OPNOPTOT EQU OPNOPT 00769000 OPNOPTIN EQU OPNOPT 00770000 IOCEXT EQU IOCSTR+36 00771000 IOCRRN EQU IOCSTR+32 00772000 @NM00007 EQU IOCSTR+30 00773000 IOCPNM EQU IOCSTR+28 00774000 IOCCBP EQU IOCSTR+24 00775000 IOCDSN EQU IOCSTR+20 00776000 @NM00006 EQU IOCSTR+17 00777000 @NM00005 EQU IOCMSG 00778000 IOCMSGOP EQU IOCMSG 00779000 IOCMACPA EQU IOCMAC 00780000 @NM00004 EQU IOCMAC 00781000 IOCMACBK EQU IOCMAC 00782000 IOCMACUP EQU IOCMAC 00783000 IOCMACOT EQU IOCMAC 00784000 IOCMACIN EQU IOCMAC 00785000 @NM00003 EQU IOCRFM 00786000 IOCRFMBK EQU IOCRFM 00787000 IOCRFMSF EQU IOCRFM 00788000 IOCRFMUN EQU IOCRFM 00789000 IOCRFMVR EQU IOCRFM 00790000 IOCRFMFX EQU IOCRFM 00791000 @NM00002 EQU IOCDSO 00792000 IOCDSOPS EQU IOCDSO 00793000 IOCKYL EQU IOCSTR+12 00794000 IOCTRN EQU IOCSTR+8 00795000 IOCDLN EQU IOCSTR+4 00796000 IOCDAD EQU IOCSTR 00797000 STAEWORK EQU STAEPARM+32 00798000 STARPTR EQU STAEPFX+28 00799000 STASPTR EQU STAEPFX+24 00800000 STALEN EQU STAEPFX+20 00801000 STAID EQU STAEPFX+16 00802000 STAEPA EQU STAEPFX+12 00803000 STAGDT EQU STAEPFX+8 00804000 STABPTR EQU STAEPFX+4 00805000 STAFPTR EQU STAEPFX 00806000 NEWID2 EQU TRACE2+95 00807000 OLDERID2 EQU TRACE2 00808000 NEWID1 EQU TRACE1+95 00809000 CALLID EQU OLDERID1+90 00810000 @NM00001 EQU OLDERID1 00811000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00812000 @ENDDATA EQU * 00813000 END ICKWL01,(C'PLS1841',0701,78192) 00814000