TITLE '********** ICKBM01: BUILD PACK MAP ******************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 ICKBM01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKBM01 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(36),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 * ,'BM00'); 0180 00047000 * 0180 00048000 * 0180 00049000 L @10,@PC00001 0180 00050000 ST @10,@AL00001 0180 00051000 LA @15,@CC00501 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+32 0181 00060000 SLR @03,@03 0181 00061000 ST @03,CONDCODE(,@10) 0181 00062000 */* INITIALIZE UPRINT ARGUMENT LIST */ 00063000 * PRTHDR = 'DARGLIST'; 0182 00064000 MVC PRTHDR(8),@CC00520 0182 00065000 * PRTARGS = ''B; 0183 00066000 XC PRTARGS(20),PRTARGS 0183 00067000 * DDSTRU = ADDR(PRTARGS); 0184 00068000 LA @10,PRTARGS 0184 00069000 ST @10,DDSTRU 0184 00070000 * DARGSMOD = EFMSGS; 0185 00071000 * 0185 00072000 MVC DARGSMOD(3,@10),EFMSGS 0185 00073000 */* OBTAIN SPACE FOR MAP-DATUM ENTRY (UGPOOL) */ 00074000 * CALL ICKSAGP0(GDTTBL 0186 00075000 * ,ENTRYSZ 0186 00076000 * ,ENTRYPTR 0186 00077000 * ,MAPID 0186 00078000 * ,SETZERO); 0186 00079000 * 0186 00080000 MVC @AL00001+4(16),@AL00186 0186 00081000 L @10,@PC00001 0186 00082000 ST @10,@AL00001 0186 00083000 LA @03,ENTRYPTR 0186 00084000 ST @03,@AL00001+8 0186 00085000 L @15,GDTGPL(,@10) 0186 00086000 LA @01,@AL00001 0186 00087000 BALR @14,@15 0186 00088000 */* IF NO SPACE AVAILABLE */ 00089000 * RESPECIFY RTNREG RSTD; 0187 00090000 * TESTRC = RTNREG; 0188 00091000 LR TESTRC,RTNREG 0188 00092000 * RESPECIFY RTNREG UNRSTD; 0189 00093000 * IF TESTRC ^= 0 0190 00094000 * 0190 00095000 * 0190 00096000 */* THEN */ 00097000 * THEN DO; 0190 00098000 * 0190 00099000 * 0190 00100000 LTR TESTRC,TESTRC 0190 00101000 BZ @RF00190 0190 00102000 */* PRINT MESSAGE: NO STORAGE AVAILABLE FOR MAP-DATUM (UPRINT) */ 00103000 * DARGSENT = MSGNOSTG; 0192 00104000 L @10,DDSTRU 0192 00105000 MVI DARGSENT(@10),X'12' 0192 00106000 * CALL ICKTPPR0(GDTTBL 0193 00107000 * ,PRTFILE 0193 00108000 * ,DDSTRU); 0193 00109000 * 0193 00110000 L @10,@PC00001 0193 00111000 ST @10,@AL00001 0193 00112000 LA @15,@CF00102 0193 00113000 ST @15,@AL00001+4 0193 00114000 LA @15,DDSTRU 0193 00115000 ST @15,@AL00001+8 0193 00116000 MVI @AL00001+8,X'80' 0193 00117000 L @15,GDTPRT(,@10) 0193 00118000 LA @01,@AL00001 0193 00119000 BALR @14,@15 0193 00120000 */* SET ERROR CODE (CONDCODE=1) */ 00121000 * CONDCODE = NOSPACE; 0194 00122000 * 0194 00123000 L @10,@PC00001+32 0194 00124000 MVC CONDCODE(4,@10),@CF00173 0194 00125000 */* END-THEN */ 00126000 * END; 0195 00127000 * 0195 00128000 */* ELSE */ 00129000 * ELSE 0196 00130000 * SPACEOK: DO; 0196 00131000 * 0196 00132000 * 0196 00133000 B @RC00190 0196 00134000 @RF00190 DS 0H 0196 00135000 SPACEOK DS 0H 0197 00136000 */* MOVE SUPPLIED INFORMATION TO THE MAP-DATUM ENTRY */ 00137000 * MAPTRK = TRACK; 0197 00138000 L @10,ENTRYPTR 0197 00139000 L @15,@PC00001+8 0197 00140000 MVC MAPTRK(4,@10),TRACK(@15) 0197 00141000 * MAPLINK = LINK; 0198 00142000 L @15,@PC00001+12 0198 00143000 MVC MAPLINK(4,@10),LINK(@15) 0198 00144000 * IF TRKTYPE = ALTRNATE 0199 00145000 * THEN DO; MAPFALT = ON; END; 0199 00146000 L @15,@PC00001+16 0199 00147000 TM TRKTYPE(@15),B'10000000' 0199 00148000 BNZ @RF00199 0199 00149000 OI MAPFALT(@10),B'10000000' 0201 00150000 * IF DFTFLAG = ON 0203 00151000 * THEN DO; MAPFDEF = ON; END; 0203 00152000 @RF00199 L @10,@PC00001+20 0203 00153000 TM DFTFLAG(@10),B'10000000' 0203 00154000 BNO @RF00203 0203 00155000 L @10,ENTRYPTR 0205 00156000 OI MAPFDEF(@10),B'01000000' 0205 00157000 * IF CHKFLAG = ON 0207 00158000 * THEN DO; MAPFCHK = ON; END; 0207 00159000 @RF00203 L @10,@PC00001+24 0207 00160000 TM CHKFLAG(@10),B'10000000' 0207 00161000 BNO @RF00207 0207 00162000 L @10,ENTRYPTR 0209 00163000 OI MAPFCHK(@10),B'00100000' 0209 00164000 * IF UNRFLAG = ON 0211 00165000 * THEN DO; MAPFUNR = ON; END; 0211 00166000 * 0211 00167000 @RF00207 L @10,@PC00001+28 0211 00168000 TM UNRFLAG(@10),B'10000000' 0211 00169000 BNO @RF00211 0211 00170000 L @10,ENTRYPTR 0213 00171000 OI MAPFUNR(@10),B'00010000' 0213 00172000 */* IF THIS IS FIRST ENTRY FOR CURRENT VOLIB (UDEVINFO) */ 00173000 * CALL ICKDVIN0(GDTTBL 0215 00174000 * ,VOLIB 0215 00175000 * ,VOLAMAPF 0215 00176000 * ,POOLID 0215 00177000 * ,INFOPTR 0215 00178000 * ,INFOLEN 0215 00179000 * ,RETCODE); 0215 00180000 @RF00211 L @10,@PC00001 0215 00181000 ST @10,@AL00001 0215 00182000 L @15,@PC00001+4 0215 00183000 ST @15,@AL00001+4 0215 00184000 LA @15,@CF00263 0215 00185000 ST @15,@AL00001+8 0215 00186000 LA @15,POOLID 0215 00187000 ST @15,@AL00001+12 0215 00188000 LA @15,INFOPTR 0215 00189000 ST @15,@AL00001+16 0215 00190000 LA @15,INFOLEN 0215 00191000 ST @15,@AL00001+20 0215 00192000 LA @15,RETCODE 0215 00193000 ST @15,@AL00001+24 0215 00194000 L @15,GDTDIN(,@10) 0215 00195000 LA @01,@AL00001 0215 00196000 BALR @14,@15 0215 00197000 * IF FIRSTPTR = NULLPTR 0216 00198000 * 0216 00199000 */* THEN LINK FROM ANCHOR (UDEVINFO) */ 00200000 * THEN DO; 0216 00201000 * 0216 00202000 L @10,INFOPTR 0216 00203000 L @10,FIRSTPTR(,@10) 0216 00204000 LTR @10,@10 0216 00205000 BNZ @RF00216 0216 00206000 * INFOPTR = ADDR(ENTRYPTR); 0218 00207000 LA @10,ENTRYPTR 0218 00208000 ST @10,INFOPTR 0218 00209000 * CALL ICKDVIN0(GDTTBL 0219 00210000 * ,VOLIB 0219 00211000 * ,VOLSMAPF 0219 00212000 * ,POOLID 0219 00213000 * ,INFOPTR 0219 00214000 * ,INFOLEN 0219 00215000 * ,RETCODE); 0219 00216000 L @10,@PC00001 0219 00217000 ST @10,@AL00001 0219 00218000 L @15,@PC00001+4 0219 00219000 ST @15,@AL00001+4 0219 00220000 LA @15,@CF00330 0219 00221000 ST @15,@AL00001+8 0219 00222000 LA @15,POOLID 0219 00223000 ST @15,@AL00001+12 0219 00224000 LA @15,INFOPTR 0219 00225000 ST @15,@AL00001+16 0219 00226000 LA @15,INFOLEN 0219 00227000 ST @15,@AL00001+20 0219 00228000 LA @15,RETCODE 0219 00229000 ST @15,@AL00001+24 0219 00230000 L @15,GDTDIN(,@10) 0219 00231000 LA @01,@AL00001 0219 00232000 BALR @14,@15 0219 00233000 * END; 0220 00234000 * 0220 00235000 */* ELSE LINK FROM END OF CHAIN (UDEVINFO) */ 00236000 * ELSE DO; 0221 00237000 * 0221 00238000 B @RC00216 0221 00239000 @RF00216 DS 0H 0222 00240000 * CALL ICKDVIN0(GDTTBL 0222 00241000 * ,VOLIB 0222 00242000 * ,VOLAMAPL 0222 00243000 * ,POOLID 0222 00244000 * ,INFOPTR 0222 00245000 * ,INFOLEN 0222 00246000 * ,RETCODE); 0222 00247000 L @10,@PC00001 0222 00248000 ST @10,@AL00001 0222 00249000 L @15,@PC00001+4 0222 00250000 ST @15,@AL00001+4 0222 00251000 LA @15,@CF00127 0222 00252000 ST @15,@AL00001+8 0222 00253000 LA @15,POOLID 0222 00254000 ST @15,@AL00001+12 0222 00255000 LA @15,INFOPTR 0222 00256000 ST @15,@AL00001+16 0222 00257000 LA @15,INFOLEN 0222 00258000 ST @15,@AL00001+20 0222 00259000 LA @15,RETCODE 0222 00260000 ST @15,@AL00001+24 0222 00261000 L @15,GDTDIN(,@10) 0222 00262000 LA @01,@AL00001 0222 00263000 BALR @14,@15 0222 00264000 * LASTPTR->MAPNEXT = ENTRYPTR; 0223 00265000 L @10,INFOPTR 0223 00266000 L @10,LASTPTR(,@10) 0223 00267000 MVC MAPNEXT(4,@10),ENTRYPTR 0223 00268000 */* END-ELSE */ 00269000 * END; 0224 00270000 * 0224 00271000 */* ESTABLISH MAP-DATUM ENTRY AS CURRENT LAST ENTRY */ 00272000 * 0225 00273000 * INFOPTR = ADDR(ENTRYPTR); 0225 00274000 @RC00216 LA @10,ENTRYPTR 0225 00275000 ST @10,INFOPTR 0225 00276000 * CALL ICKDVIN0(GDTTBL 0226 00277000 * ,VOLIB 0226 00278000 * ,VOLSMAPL 0226 00279000 * ,POOLID 0226 00280000 * ,INFOPTR 0226 00281000 * ,INFOLEN 0226 00282000 * ,RETCODE); 0226 00283000 * 0226 00284000 L @10,@PC00001 0226 00285000 ST @10,@AL00001 0226 00286000 L @15,@PC00001+4 0226 00287000 ST @15,@AL00001+4 0226 00288000 LA @15,@CF00333 0226 00289000 ST @15,@AL00001+8 0226 00290000 LA @15,POOLID 0226 00291000 ST @15,@AL00001+12 0226 00292000 LA @15,INFOPTR 0226 00293000 ST @15,@AL00001+16 0226 00294000 LA @15,INFOLEN 0226 00295000 ST @15,@AL00001+20 0226 00296000 LA @15,RETCODE 0226 00297000 ST @15,@AL00001+24 0226 00298000 L @15,GDTDIN(,@10) 0226 00299000 LA @01,@AL00001 0226 00300000 BALR @14,@15 0226 00301000 */* END-ELSE */ 00302000 * END SPACEOK; 0227 00303000 * 0227 00304000 */* FREE ALL TEMPORARY POOL AREAS */ 00305000 * CALL ICKSAFP0(GDTTBL 0228 00306000 * ,POOLID 0228 00307000 * ,ALL); 0228 00308000 * 0228 00309000 @RC00190 MVC @AL00001+4(8),@AL00228 0228 00310000 L @10,@PC00001 0228 00311000 ST @10,@AL00001 0228 00312000 L @15,GDTFPL(,@10) 0228 00313000 LA @01,@AL00001 0228 00314000 BALR @14,@15 0228 00315000 */* END-PROCEDURE BUILD_PACK_MAP */ 00316000 * 0229 00317000 * IF GDTDBG = NULLPTR 0229 00318000 * THEN; 0229 00319000 L @10,@PC00001 0229 00320000 L @10,GDTDBG(,@10) 0229 00321000 LTR @10,@10 0229 00322000 BZ @RT00229 0229 00323000 * ELSE 0231 00324000 * CALL ICKDB010(GDTTBL 0231 00325000 * ,'BM99'); 0231 00326000 L @10,@PC00001 0231 00327000 ST @10,@AL00001 0231 00328000 LA @15,@CC00525 0231 00329000 ST @15,@AL00001+4 0231 00330000 MVI @AL00001+4,X'80' 0231 00331000 L @15,GDTDBG(,@10) 0231 00332000 LA @01,@AL00001 0231 00333000 BALR @14,@15 0231 00334000 * CALL ICKSAEP0(GDTTBL,MODID); 0232 00335000 * 0232 00336000 * 0232 00337000 * 0232 00338000 @RT00229 L @10,@PC00001 0232 00339000 ST @10,@AL00001 0232 00340000 LA @15,MODID 0232 00341000 ST @15,@AL00001+4 0232 00342000 MVI @AL00001+4,X'80' 0232 00343000 L @15,GDTEPL(,@10) 0232 00344000 LA @01,@AL00001 0232 00345000 BALR @14,@15 0232 00346000 * END ICKBM01 0233 00347000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00348000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00349000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00350000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00351000 *; 0233 00352000 @DATA DS 0H 00353000 DS 0F 00354000 @AL00186 DC A(ENTRYSZ) LIST WITH 4 ARGUMENT(S) 00355000 DS F 00356000 DC A(MAPID) 00357000 DC AL1(X'80') 00358000 DC AL3(@CC00153) 00359000 @AL00228 DC A(POOLID) LIST WITH 2 ARGUMENT(S) 00360000 DC AL1(X'80') 00361000 DC AL3(@CC00145) 00362000 @DATD DSECT 00363000 DS 0F 00364000 @SA00001 DS 18F 00365000 @PC00001 DS 9F 00366000 @AL00001 DS 7A 00367000 @ZTEMPS DS C 00368000 @ZTEMPND EQU * 00369000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00370000 ICKBM01 CSECT 00371000 DS 0F 00372000 @CF00102 DC F'0' 00373000 @CF00173 DC F'1' 00374000 @CF00263 DC F'5' 00375000 @CF00127 DC F'6' 00376000 @CF00330 DC F'105' 00377000 @CF00333 DC F'106' 00378000 @DATD DSECT 00379000 DS 0D 00380000 LISTSCAN DS A 00381000 IOCSPTR DS A 00382000 OPNPTR DS A 00383000 DDSTRU DS A 00384000 FSADDR DS A 00385000 DMPINDEX DS A 00386000 ENTRYPTR DS A 00387000 INFOPTR DS A 00388000 INFOLEN DS F 00389000 RETCODE DS F 00390000 LISTPTR DS A 00391000 SETRC DS H 00392000 LISTLN DS FL1 00393000 DS CL1 00394000 PRTLIST DS CL28 00395000 ORG PRTLIST 00396000 PRTHDR DS CL8 00397000 PRTARGS DS CL20 00398000 ORG PRTLIST+28 00399000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00400000 @ENDDATD EQU * 00401000 ICKBM01 CSECT 00402000 DS 0F 00403000 @SIZDATD DC AL1(0) 00404000 DC AL3(@ENDDATD-@DATD) 00405000 DS 0D 00406000 ENTRYSZ DC AL4(16) 00407000 @CC00520 DC C'DARGLIST' 00408000 @CC00153 DC C'ZERO' 00409000 @CC00501 DC C'BM00' 00410000 @CC00525 DC C'BM99' 00411000 @CC00145 DC C'ALL' 00412000 MODID DC CL4'BM01' 00413000 MAPID DC CL4'PP00' 00414000 POOLID DC CL4'BM00' 00415000 EFMSGS DC CL3'EF0' 00416000 PTCHBM01 DS CL256 00417000 ORG PTCHBM01 00418000 @NM00018 DC 256X'00' 00419000 ORG PTCHBM01+256 00420000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00421000 @01 EQU 01 00422000 @02 EQU 02 00423000 @03 EQU 03 00424000 @04 EQU 04 00425000 @05 EQU 05 00426000 @06 EQU 06 00427000 @07 EQU 07 00428000 @08 EQU 08 00429000 @09 EQU 09 00430000 @10 EQU 10 00431000 @11 EQU 11 00432000 @12 EQU 12 00433000 @13 EQU 13 00434000 @14 EQU 14 00435000 @15 EQU 15 00436000 TESTRC EQU @02 00437000 REG12 EQU @12 00438000 RTNREG EQU @15 00439000 REG0 EQU @00 00440000 REG1 EQU @01 00441000 REG10 EQU @10 00442000 REG11 EQU @11 00443000 REG13 EQU @13 00444000 REG14 EQU @14 00445000 REG15 EQU @15 00446000 REG2 EQU @02 00447000 REG3 EQU @03 00448000 REG4 EQU @04 00449000 REG5 EQU @05 00450000 REG6 EQU @06 00451000 REG7 EQU @07 00452000 REG8 EQU @08 00453000 REG9 EQU @09 00454000 ICKSAEP0 EQU 0 00455000 ICKSAGP0 EQU 0 00456000 ICKSAFP0 EQU 0 00457000 TRACE1 EQU 0 00458000 OLDERID1 EQU TRACE1 00459000 TRACE2 EQU 0 00460000 STAEPARM EQU 0 00461000 STAEPFX EQU STAEPARM 00462000 IOCSTR EQU 0 00463000 IOCDSO EQU IOCSTR+13 00464000 IOCRFM EQU IOCSTR+14 00465000 IOCMAC EQU IOCSTR+15 00466000 IOCMSG EQU IOCSTR+16 00467000 OPNAGL EQU 0 00468000 OPNOPT EQU OPNAGL 00469000 OPNRFM EQU OPNAGL+1 00470000 OPNTYP EQU OPNAGL+2 00471000 OPNMOD EQU OPNAGL+3 00472000 UVOLLIST EQU 0 00473000 UVOLENT EQU UVOLLIST+2 00474000 ICKDVIN0 EQU 0 00475000 ICKTPPR0 EQU 0 00476000 DARGLIST EQU 0 00477000 DARGSTID EQU DARGLIST+8 00478000 DARGSMOD EQU DARGSTID 00479000 DARGSENT EQU DARGSTID+3 00480000 DARGARY EQU DARGLIST+20 00481000 DARGINS EQU DARGARY 00482000 DARGINL EQU DARGARY+2 00483000 FMTLIST EQU 0 00484000 FMTFLGS EQU FMTLIST 00485000 FMTSPF EQU FMTLIST+2 00486000 FMTRFNO EQU FMTSPF 00487000 FMTILEN EQU FMTRFNO 00488000 FMTIOFF EQU FMTLIST+4 00489000 FMTTRBC EQU FMTIOFF 00490000 FMTSTO EQU FMTTRBC 00491000 FMTOCOL EQU FMTLIST+6 00492000 FMTCNVF EQU FMTLIST+10 00493000 ICKDB010 EQU 0 00494000 DMPITM EQU 0 00495000 DMPARY EQU 0 00496000 MAPDATA EQU 0 00497000 MAPTRK EQU MAPDATA 00498000 MAPLINK EQU MAPDATA+4 00499000 MAPFLGS EQU MAPDATA+8 00500000 MAPFALT EQU MAPFLGS 00501000 MAPFDEF EQU MAPFLGS 00502000 MAPFCHK EQU MAPFLGS 00503000 MAPFUNR EQU MAPFLGS 00504000 MAPNEXT EQU MAPDATA+12 00505000 FIRSTPTR EQU 0 00506000 LASTPTR EQU 0 00507000 DMPTRM EQU 0 00508000 ICKDVCL0 EQU 0 00509000 ICKDVON0 EQU 0 00510000 ICKDVOP0 EQU 0 00511000 ICKIOCL0 EQU 0 00512000 ICKIOGT0 EQU 0 00513000 ICKIOIT0 EQU 0 00514000 ICKIOOP0 EQU 0 00515000 ICKIOPT0 EQU 0 00516000 ICKIOTM0 EQU 0 00517000 ICKSACL0 EQU 0 00518000 ICKSADE0 EQU 0 00519000 ICKSAFS0 EQU 0 00520000 ICKSAGS0 EQU 0 00521000 ICKSALD0 EQU 0 00522000 ICKSAPR0 EQU 0 00523000 ICKSASC0 EQU 0 00524000 ICKSASN0 EQU 0 00525000 ICKSAST0 EQU 0 00526000 ICKSATI0 EQU 0 00527000 ICKSAVC0 EQU 0 00528000 ICKSAWO0 EQU 0 00529000 ICKTPEA0 EQU 0 00530000 ICKTPES0 EQU 0 00531000 ICKTPRE0 EQU 0 00532000 ICKTPRS0 EQU 0 00533000 LISTTEST EQU 0 00534000 NEWERID1 EQU 5 00535000 NEWERID2 EQU 5 00536000 GDTTBL EQU 0 00537000 GDTTR1 EQU GDTTBL+8 00538000 GDTTR2 EQU GDTTBL+12 00539000 GDTDIN EQU GDTTBL+44 00540000 GDTDOP EQU GDTTBL+48 00541000 GDTDBG EQU GDTTBL+52 00542000 GDTDVO EQU GDTTBL+56 00543000 GDTPRT EQU GDTTBL+60 00544000 GDTESS EQU GDTTBL+64 00545000 GDTESA EQU GDTTBL+68 00546000 GDTRST EQU GDTTBL+72 00547000 GDTRES EQU GDTTBL+76 00548000 GDTCAL EQU GDTTBL+80 00549000 GDTGSP EQU GDTTBL+84 00550000 GDTFSP EQU GDTTBL+88 00551000 GDTGPL EQU GDTTBL+92 00552000 GDTFPL EQU GDTTBL+96 00553000 GDTLOD EQU GDTTBL+100 00554000 GDTDEL EQU GDTTBL+104 00555000 GDTPRL EQU GDTTBL+108 00556000 GDTEPL EQU GDTTBL+112 00557000 GDTTIM EQU GDTTBL+116 00558000 GDTIIO EQU GDTTBL+120 00559000 GDTTIO EQU GDTTBL+124 00560000 GDTOPN EQU GDTTBL+136 00561000 GDTCLS EQU GDTTBL+140 00562000 GDTGET EQU GDTTBL+144 00563000 GDTPUT EQU GDTTBL+148 00564000 GDTSNP EQU GDTTBL+160 00565000 GDTWTO EQU GDTTBL+168 00566000 GDTSCR EQU GDTTBL+172 00567000 GDTVCK EQU GDTTBL+176 00568000 GDTDVC EQU GDTTBL+180 00569000 GDTSTE EQU GDTTBL+188 00570000 VOLIB EQU 0 00571000 TRACK EQU 0 00572000 LINK EQU 0 00573000 TRKTYPE EQU 0 00574000 DFTFLAG EQU 0 00575000 CHKFLAG EQU 0 00576000 UNRFLAG EQU 0 00577000 CONDCODE EQU 0 00578000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00579000 GDTCVR EQU GDTTBL+184 00580000 GDTSPR EQU GDTTBL+164 00581000 GDTABH EQU GDTTBL+156 00582000 GDTABT EQU GDTTBL+152 00583000 GDTTOH EQU GDTTBL+132 00584000 GDTRIP EQU GDTTBL+128 00585000 GDTDVH EQU GDTTBL+40 00586000 GDTIOH EQU GDTTBL+36 00587000 GDTSAH EQU GDTTBL+32 00588000 GDTTPH EQU GDTTBL+28 00589000 GDTRIH EQU GDTTBL+24 00590000 GDTSTH EQU GDTTBL+20 00591000 GDTDBH EQU GDTTBL+16 00592000 GDTPRM EQU GDTTBL+4 00593000 GDTHDR EQU GDTTBL 00594000 @NM00017 EQU DMPARY+15 00595000 DMPARYTP EQU DMPARY+14 00596000 DMPARYEX EQU DMPARY+12 00597000 DMPARYIC EQU DMPARY+10 00598000 DMPARYSZ EQU DMPARY+8 00599000 DMPARYNM EQU DMPARY 00600000 @NM00016 EQU DMPITM+15 00601000 DMPITMTP EQU DMPITM+14 00602000 DMPITMLN EQU DMPITM+12 00603000 DMPITMPT EQU DMPITM+8 00604000 DMPITMNM EQU DMPITM 00605000 @NM00015 EQU FMTCNVF+1 00606000 FMTBS EQU FMTCNVF+1 00607000 FMTSS EQU FMTCNVF+1 00608000 FMTAL EQU FMTCNVF+1 00609000 FMTZS EQU FMTCNVF+1 00610000 @NM00014 EQU FMTCNVF 00611000 FMTPU EQU FMTCNVF 00612000 FMTBD EQU FMTCNVF 00613000 FMTBHD EQU FMTCNVF 00614000 FMTBHA EQU FMTCNVF 00615000 FMTBH EQU FMTCNVF 00616000 FMTOLEN EQU FMTLIST+8 00617000 FMTRIO EQU FMTOCOL 00618000 FMTSPT EQU FMTSTO 00619000 FMTSTL EQU FMTILEN 00620000 @NM00013 EQU FMTFLGS+1 00621000 FMTHDF EQU FMTFLGS 00622000 FMTDFF EQU FMTFLGS 00623000 FMTSTF EQU FMTFLGS 00624000 FMTREPF EQU FMTFLGS 00625000 FMTBDF EQU FMTFLGS 00626000 FMTIDF EQU FMTFLGS 00627000 FMTSCF EQU FMTFLGS 00628000 FMTEOLF EQU FMTFLGS 00629000 DARGDTM EQU DARGARY+4 00630000 DARGPCT EQU DARGINL 00631000 DARGREP EQU DARGINS 00632000 @NM00012 EQU DARGLIST+19 00633000 DARGIND EQU DARGLIST+18 00634000 DARGRETL EQU DARGLIST+16 00635000 DARGCNT EQU DARGLIST+14 00636000 DARGILP EQU DARGLIST+12 00637000 DARGRETP EQU DARGLIST+4 00638000 DARGDBP EQU DARGLIST 00639000 UVOLVOL EQU UVOLENT+4 00640000 UVOLDEV EQU UVOLENT 00641000 UVOLCNT EQU UVOLLIST 00642000 OPNRSVD EQU OPNAGL+28 00643000 OPNVOL EQU OPNAGL+24 00644000 OPNBLK EQU OPNAGL+20 00645000 OPNREC EQU OPNAGL+16 00646000 OPNDSN EQU OPNAGL+12 00647000 OPNDDN EQU OPNAGL+8 00648000 OPNIOC EQU OPNAGL+4 00649000 @NM00011 EQU OPNMOD 00650000 OPNMODRC EQU OPNMOD 00651000 OPNMODAC EQU OPNMOD 00652000 @NM00010 EQU OPNTYP 00653000 OPNTYPSO EQU OPNTYP 00654000 OPNTYPSI EQU OPNTYP 00655000 @NM00009 EQU OPNRFM 00656000 OPNRFMBK EQU OPNRFM 00657000 OPNRFMSF EQU OPNRFM 00658000 OPNRFMUN EQU OPNRFM 00659000 OPNRFMVR EQU OPNRFM 00660000 OPNRFMFX EQU OPNRFM 00661000 @NM00008 EQU OPNOPT 00662000 OPNOPTJM EQU OPNOPT 00663000 OPNOPTKS EQU OPNOPT 00664000 OPNOPTBK EQU OPNOPT 00665000 OPNOPTUP EQU OPNOPT 00666000 OPNOPTOT EQU OPNOPT 00667000 OPNOPTIN EQU OPNOPT 00668000 IOCEXT EQU IOCSTR+36 00669000 IOCRRN EQU IOCSTR+32 00670000 @NM00007 EQU IOCSTR+30 00671000 IOCPNM EQU IOCSTR+28 00672000 IOCCBP EQU IOCSTR+24 00673000 IOCDSN EQU IOCSTR+20 00674000 @NM00006 EQU IOCSTR+17 00675000 @NM00005 EQU IOCMSG 00676000 IOCMSGOP EQU IOCMSG 00677000 IOCMACPA EQU IOCMAC 00678000 @NM00004 EQU IOCMAC 00679000 IOCMACBK EQU IOCMAC 00680000 IOCMACUP EQU IOCMAC 00681000 IOCMACOT EQU IOCMAC 00682000 IOCMACIN EQU IOCMAC 00683000 @NM00003 EQU IOCRFM 00684000 IOCRFMBK EQU IOCRFM 00685000 IOCRFMSF EQU IOCRFM 00686000 IOCRFMUN EQU IOCRFM 00687000 IOCRFMVR EQU IOCRFM 00688000 IOCRFMFX EQU IOCRFM 00689000 @NM00002 EQU IOCDSO 00690000 IOCDSOPS EQU IOCDSO 00691000 IOCKYL EQU IOCSTR+12 00692000 IOCTRN EQU IOCSTR+8 00693000 IOCDLN EQU IOCSTR+4 00694000 IOCDAD EQU IOCSTR 00695000 STAEWORK EQU STAEPARM+32 00696000 STARPTR EQU STAEPFX+28 00697000 STASPTR EQU STAEPFX+24 00698000 STALEN EQU STAEPFX+20 00699000 STAID EQU STAEPFX+16 00700000 STAEPA EQU STAEPFX+12 00701000 STAGDT EQU STAEPFX+8 00702000 STABPTR EQU STAEPFX+4 00703000 STAFPTR EQU STAEPFX 00704000 NEWID2 EQU TRACE2+95 00705000 OLDERID2 EQU TRACE2 00706000 NEWID1 EQU TRACE1+95 00707000 CALLID EQU OLDERID1+90 00708000 @NM00001 EQU OLDERID1 00709000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00710000 @ENDDATA EQU * 00711000 END ICKBM01,(C'PLS1701',0701,78192) 00712000