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