TITLE '********** ICKPP01: PRODUCE 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 ICKPP01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKPP01 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(32),0(@01) 0002 00033000 * 0178 00034000 EJECT 00035000 * 0179 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0179 00038000 * IF GDTDBG = NULLPTR 0179 00039000 * THEN; 0179 00040000 L @10,@PC00001 0179 00041000 L @10,GDTDBG(,@10) 0179 00042000 LTR @10,@10 0179 00043000 BZ @RT00179 0179 00044000 * ELSE 0181 00045000 * CALL ICKDB010(GDTTBL 0181 00046000 * ,'PP00'); 0181 00047000 * 0181 00048000 * 0181 00049000 L @10,@PC00001 0181 00050000 ST @10,@AL00001 0181 00051000 LA @15,@CC00542 0181 00052000 ST @15,@AL00001+4 0181 00053000 MVI @AL00001+4,X'80' 0181 00054000 L @15,GDTDBG(,@10) 0181 00055000 LA @01,@AL00001 0181 00056000 BALR @14,@15 0181 00057000 * CONDCODE = SUCCESS; 0182 00058000 * 0182 00059000 @RT00179 L @10,@PC00001+28 0182 00060000 SLR @15,@15 0182 00061000 ST @15,CONDCODE(,@10) 0182 00062000 */* IF PRINT OPTION IS REQUESTED */ 00063000 * IF PRINT = YES 0183 00064000 * 0183 00065000 */* THEN */ 00066000 * THEN DO; 0183 00067000 * 0183 00068000 * 0183 00069000 L @10,@PC00001+8 0183 00070000 TM PRINT(@10),B'10000000' 0183 00071000 BNO @RF00183 0183 00072000 */* INITIALIZE UPRINT ARGUMENT LIST */ 00073000 * PRTHDR = 'DARGLIST'; 0185 00074000 MVC PRTHDR(8),@CC00573 0185 00075000 * PRTARGS = ''B; 0186 00076000 XC PRTARGS(68),PRTARGS 0186 00077000 * DDSTRU = ADDR(PRTARGS); 0187 00078000 LA @10,PRTARGS 0187 00079000 ST @10,DDSTRU 0187 00080000 * DARGSMOD = MSGMOD; 0188 00081000 * 0188 00082000 MVC DARGSMOD(3,@10),MSGMOD 0188 00083000 */* READ_VOLUME_LABEL TO OBTAIN VOLUME SERIAL */ 00084000 * RESPECIFY VOL1 BASED(VOL1PTR); 0189 00085000 * VOL1PTR = ADDR(VOL1REC); 0190 00086000 LA VOL1PTR,VOL1REC 0190 00087000 * CALL ICKRL01(GDTTBL 0191 00088000 * ,VOLIB 0191 00089000 * ,VOL1 0191 00090000 * ,LABELS 0191 00091000 * ,RETCODE); 0191 00092000 * 0191 00093000 L @10,@PC00001 0191 00094000 ST @10,@AL00001 0191 00095000 L @10,@PC00001+4 0191 00096000 ST @10,@AL00001+4 0191 00097000 ST VOL1PTR,@AL00001+8 0191 00098000 LA @10,LABELS 0191 00099000 ST @10,@AL00001+12 0191 00100000 LA @10,RETCODE 0191 00101000 ST @10,@AL00001+16 0191 00102000 L @15,@CV00577 0191 00103000 LA @01,@AL00001 0191 00104000 BALR @14,@15 0191 00105000 */* IF VOLUME LABEL READ SUCCESSFULLY */ 00106000 * IF RETCODE = SUCCESS 0192 00107000 * 0192 00108000 */* THEN */ 00109000 * THEN DO; 0192 00110000 * 0192 00111000 * 0192 00112000 L @10,RETCODE 0192 00113000 LTR @10,@10 0192 00114000 BNZ @RF00192 0192 00115000 */* PRINT MAP HEADER WITH VOLUME SERIAL (UPRINT) */ 00116000 * DARGSENT = MSGMHDR; 0194 00117000 L @10,DDSTRU 0194 00118000 MVI DARGSENT(@10),X'14' 0194 00119000 * DARGCNT = 1; 0195 00120000 LA @03,1 0195 00121000 STH @03,DARGCNT(,@10) 0195 00122000 * DARGINS(1) = 1; 0196 00123000 STH @03,DARGINS(,@10) 0196 00124000 * DARGINL(1) = LENGTH(VOL1SER); 0197 00125000 MVC DARGINL(2,@10),@CH00125 0197 00126000 * DARGDTM(1) = ADDR(VOL1SER); 0198 00127000 LA @03,VOL1SER(,VOL1PTR) 0198 00128000 ST @03,DARGDTM(,@10) 0198 00129000 * CALL ICKTPPR0(GDTTBL 0199 00130000 * ,PRTFILE 0199 00131000 * ,DDSTRU); 0199 00132000 * 0199 00133000 * 0199 00134000 L @10,@PC00001 0199 00135000 ST @10,@AL00001 0199 00136000 LA @15,@CF00100 0199 00137000 ST @15,@AL00001+4 0199 00138000 LA @15,DDSTRU 0199 00139000 ST @15,@AL00001+8 0199 00140000 MVI @AL00001+8,X'80' 0199 00141000 L @15,GDTPRT(,@10) 0199 00142000 LA @01,@AL00001 0199 00143000 BALR @14,@15 0199 00144000 */* OBTAIN BEGINNING OF MAP DATA CHAIN (UDEVINFO) */ 00145000 * CALL ICKDVIN0(GDTTBL 0200 00146000 * ,VOLIB 0200 00147000 * ,VOLAMAPF 0200 00148000 * ,POOLID 0200 00149000 * ,INFOPTR 0200 00150000 * ,INFOLEN 0200 00151000 * ,RETCODE); 0200 00152000 * 0200 00153000 L @10,@PC00001 0200 00154000 ST @10,@AL00001 0200 00155000 L @15,@PC00001+4 0200 00156000 ST @15,@AL00001+4 0200 00157000 LA @15,@CF00261 0200 00158000 ST @15,@AL00001+8 0200 00159000 LA @15,POOLID 0200 00160000 ST @15,@AL00001+12 0200 00161000 LA @15,INFOPTR 0200 00162000 ST @15,@AL00001+16 0200 00163000 LA @15,INFOLEN 0200 00164000 ST @15,@AL00001+20 0200 00165000 LA @15,RETCODE 0200 00166000 ST @15,@AL00001+24 0200 00167000 L @15,GDTDIN(,@10) 0200 00168000 LA @01,@AL00001 0200 00169000 BALR @14,@15 0200 00170000 */* IF NO DATA ENTRIES */ 00171000 * IF FIRSTPTR = NULLPTR 0201 00172000 * 0201 00173000 */* THEN INDICATE NO DEFECTIVE TRACKS FOUND (UPRINT) */ 00174000 * THEN DO; 0201 00175000 * 0201 00176000 L @10,INFOPTR 0201 00177000 L @10,FIRSTPTR(,@10) 0201 00178000 LTR @10,@10 0201 00179000 BNZ @RF00201 0201 00180000 * DARGSENT = MSGNDEF; 0203 00181000 L @10,DDSTRU 0203 00182000 MVI DARGSENT(@10),X'1B' 0203 00183000 * CALL ICKTPPR0(GDTTBL 0204 00184000 * ,PRTFILE 0204 00185000 * ,DDSTRU); 0204 00186000 L @10,@PC00001 0204 00187000 ST @10,@AL00001 0204 00188000 LA @15,@CF00100 0204 00189000 ST @15,@AL00001+4 0204 00190000 LA @15,DDSTRU 0204 00191000 ST @15,@AL00001+8 0204 00192000 MVI @AL00001+8,X'80' 0204 00193000 L @15,GDTPRT(,@10) 0204 00194000 LA @01,@AL00001 0204 00195000 BALR @14,@15 0204 00196000 * END; 0205 00197000 * 0205 00198000 */* ELSE */ 00199000 * ELSE DO; 0206 00200000 * 0206 00201000 * 0206 00202000 B @RC00201 0206 00203000 @RF00201 DS 0H 0207 00204000 */* SET UP UPRINT ARGUMENT LIST FOR VARIABLE LINES */ 00205000 * DARGINS(1) = 1; 0207 00206000 L @10,DDSTRU 0207 00207000 MVC DARGINS(2,@10),@CH00171 0207 00208000 * DARGINL(1) = LENGTH(PRTACC); 0208 00209000 LA @02,2 0208 00210000 STH @02,DARGINL(,@10) 0208 00211000 * DARGDTM(1) = ADDR(PRTACC); 0209 00212000 LA @15,PRTACC 0209 00213000 ST @15,DARGDTM(,@10) 0209 00214000 * DARGINS(2) = 2; 0210 00215000 STH @02,DARGINS+8(,@10) 0210 00216000 * DARGINL(2) = LENGTH(PRTAHH); 0211 00217000 STH @02,DARGINL+8(,@10) 0211 00218000 * DARGDTM(2) = ADDR(PRTAHH); 0212 00219000 LA @15,PRTAHH 0212 00220000 ST @15,DARGDTM+8(,@10) 0212 00221000 * DARGINS(3) = 3; 0213 00222000 LA @15,3 0213 00223000 STH @15,DARGINS+16(,@10) 0213 00224000 * DARGINL(3) = LENGTH(PRTLCC); 0214 00225000 STH @02,DARGINL+16(,@10) 0214 00226000 * DARGDTM(3) = ADDR(PRTLCC); 0215 00227000 LA @14,PRTLCC 0215 00228000 ST @14,DARGDTM+16(,@10) 0215 00229000 * DARGINS(4) = 4; 0216 00230000 MVC DARGINS+24(2,@10),@CH00050 0216 00231000 * DARGINL(4) = LENGTH(PRTLHH); 0217 00232000 STH @02,DARGINL+24(,@10) 0217 00233000 * DARGDTM(4) = ADDR(PRTLHH); 0218 00234000 LA @02,PRTLHH 0218 00235000 ST @02,DARGDTM+24(,@10) 0218 00236000 * DARGINS(5) = 5; 0219 00237000 MVC DARGINS+32(2,@10),@CH00261 0219 00238000 * DARGINL(5) = LENGTH(PRTFDEF); 0220 00239000 STH @15,DARGINL+32(,@10) 0220 00240000 * DARGDTM(5) = ADDR(PRTFDEF); 0221 00241000 LA @02,PRTFDEF 0221 00242000 ST @02,DARGDTM+32(,@10) 0221 00243000 * DARGINS(6) = 6; 0222 00244000 MVC DARGINS+40(2,@10),@CH00125 0222 00245000 * DARGINL(6) = LENGTH(PRTCOND); 0223 00246000 MVC DARGINL+40(2,@10),@CH00273 0223 00247000 * DARGDTM(6) = ADDR(PRTCOND); 0224 00248000 * 0224 00249000 LA @02,PRTCOND 0224 00250000 ST @02,DARGDTM+40(,@10) 0224 00251000 */* SET CURRENT TRACK VALUE TO FIRST TRACK */ 00252000 * CURRTRK = -1; 0225 00253000 * 0225 00254000 SLR CURRTRK,CURRTRK 0225 00255000 BCTR CURRTRK,0 0225 00256000 */* SET TO GET PRIMARY TRACKS */ 00257000 * REQTYPE = FINDPRI; 0226 00258000 * 0226 00259000 OI REQTYPE,B'10000000' 0226 00260000 */* GET_NEXT_TRACK */ 00261000 * CALL GETNXTRK; 0227 00262000 * 0227 00263000 BAL @14,GETNXTRK 0227 00264000 */* IF NO PRIMARY TRACKS FOUND */ 00265000 * IF FOUND = NO 0228 00266000 * 0228 00267000 */* THEN INDICATE NO DEFECTIVE PRIMARIES (UPRINT) */ 00268000 * THEN DO; 0228 00269000 * 0228 00270000 TM FOUND,B'10000000' 0228 00271000 BNZ @RF00228 0228 00272000 * DARGSENT = MSGNPRI; 0230 00273000 L @10,DDSTRU 0230 00274000 MVI DARGSENT(@10),X'1C' 0230 00275000 * CALL ICKTPPR0(GDTTBL 0231 00276000 * ,PRTFILE 0231 00277000 * ,DDSTRU); 0231 00278000 L @10,@PC00001 0231 00279000 ST @10,@AL00001 0231 00280000 LA @15,@CF00100 0231 00281000 ST @15,@AL00001+4 0231 00282000 LA @15,DDSTRU 0231 00283000 ST @15,@AL00001+8 0231 00284000 MVI @AL00001+8,X'80' 0231 00285000 L @15,GDTPRT(,@10) 0231 00286000 LA @01,@AL00001 0231 00287000 BALR @14,@15 0231 00288000 * END; 0232 00289000 * 0232 00290000 */* ELSE */ 00291000 * ELSE DO; 0233 00292000 * 0233 00293000 * 0233 00294000 B @RC00228 0233 00295000 @RF00228 DS 0H 0234 00296000 */* PRINT HEADING FOR PRIMARY TRACKS (UPRINT) */ 00297000 * DARGSENT = MSGPHDR; 0234 00298000 L @10,DDSTRU 0234 00299000 MVI DARGSENT(@10),X'15' 0234 00300000 * CALL ICKTPPR0(GDTTBL 0235 00301000 * ,PRTFILE 0235 00302000 * ,DDSTRU); 0235 00303000 * 0235 00304000 L @10,@PC00001 0235 00305000 ST @10,@AL00001 0235 00306000 LA @02,@CF00100 0235 00307000 ST @02,@AL00001+4 0235 00308000 LA @02,DDSTRU 0235 00309000 ST @02,@AL00001+8 0235 00310000 MVI @AL00001+8,X'80' 0235 00311000 L @15,GDTPRT(,@10) 0235 00312000 LA @01,@AL00001 0235 00313000 BALR @14,@15 0235 00314000 */* PRINT COLUMN TITLES FOR PRIMARY TRACKS */ 00315000 * IF CHECK = YES 0236 00316000 * THEN DO; DARGSENT = MSGPCOLC; END; 0236 00317000 L @10,@PC00001+12 0236 00318000 TM CHECK(@10),B'10000000' 0236 00319000 BNO @RF00236 0236 00320000 L @10,DDSTRU 0238 00321000 MVI DARGSENT(@10),X'17' 0238 00322000 * ELSE DO; DARGSENT = MSGPCOLN; END; 0240 00323000 B @RC00236 0240 00324000 @RF00236 DS 0H 0241 00325000 L @10,DDSTRU 0241 00326000 MVI DARGSENT(@10),X'18' 0241 00327000 * CALL ICKTPPR0(GDTTBL 0243 00328000 * ,PRTFILE 0243 00329000 * ,DDSTRU); 0243 00330000 * 0243 00331000 @RC00236 L @10,@PC00001 0243 00332000 ST @10,@AL00001 0243 00333000 LA @02,@CF00100 0243 00334000 ST @02,@AL00001+4 0243 00335000 LA @02,DDSTRU 0243 00336000 ST @02,@AL00001+8 0243 00337000 MVI @AL00001+8,X'80' 0243 00338000 L @15,GDTPRT(,@10) 0243 00339000 LA @01,@AL00001 0243 00340000 BALR @14,@15 0243 00341000 */* DO-WHILE MORE TRACK ENTRIES */ 00342000 * DO WHILE FOUND = YES; 0244 00343000 * 0244 00344000 * 0244 00345000 B @DE00244 0244 00346000 @DL00244 DS 0H 0245 00347000 */* PRINT INFORMATION LINE FOR A TRACK (UPRINT) */ 00348000 * IF PRTLINK = 0 0245 00349000 * THEN DO; 0245 00350000 * 0245 00351000 MVC @TF00001(4),PRTLINK 0245 00352000 L @10,@TF00001 0245 00353000 LTR @10,@10 0245 00354000 BNZ @RF00245 0245 00355000 * DARGSENT = MSGNLINE; 0247 00356000 L @10,DDSTRU 0247 00357000 MVI DARGSENT(@10),X'1F' 0247 00358000 * END; 0248 00359000 * ELSE DO; 0249 00360000 * 0249 00361000 B @RC00245 0249 00362000 @RF00245 DS 0H 0250 00363000 * DARGSENT = MSGMLINE; 0250 00364000 L @10,DDSTRU 0250 00365000 MVI DARGSENT(@10),X'1E' 0250 00366000 * END; 0251 00367000 * DARGCNT = 6; 0252 00368000 @RC00245 L @10,DDSTRU 0252 00369000 MVC DARGCNT(2,@10),@CH00125 0252 00370000 * CALL ICKTPPR0(GDTTBL 0253 00371000 * ,PRTFILE 0253 00372000 * ,DDSTRU); 0253 00373000 * 0253 00374000 L @10,@PC00001 0253 00375000 ST @10,@AL00001 0253 00376000 LA @02,@CF00100 0253 00377000 ST @02,@AL00001+4 0253 00378000 LA @02,DDSTRU 0253 00379000 ST @02,@AL00001+8 0253 00380000 MVI @AL00001+8,X'80' 0253 00381000 L @15,GDTPRT(,@10) 0253 00382000 LA @01,@AL00001 0253 00383000 BALR @14,@15 0253 00384000 */* GET_NEXT_TRACK */ 00385000 * CALL GETNXTRK; 0254 00386000 * 0254 00387000 BAL @14,GETNXTRK 0254 00388000 */* END-WHILE */ 00389000 * END; 0255 00390000 * 0255 00391000 @DE00244 TM FOUND,B'10000000' 0255 00392000 BO @DL00244 0255 00393000 */* END-ELSE */ 00394000 * END; 0256 00395000 * 0256 00396000 */* SET CURRENT TRACK VALUE TO FIRST TRACK */ 00397000 * CURRTRK = -1; 0257 00398000 * 0257 00399000 @RC00228 SLR CURRTRK,CURRTRK 0257 00400000 BCTR CURRTRK,0 0257 00401000 */* SET TO GET ALTERNATE TRACKS */ 00402000 * REQTYPE = FINDALT; 0258 00403000 * 0258 00404000 NI REQTYPE,B'01111111' 0258 00405000 */* GET_NEXT_TRACK */ 00406000 * CALL GETNXTRK; 0259 00407000 * 0259 00408000 BAL @14,GETNXTRK 0259 00409000 */* IF NO ALTERNATE TRACKS FOUND */ 00410000 * IF FOUND = NO 0260 00411000 * 0260 00412000 */* THEN INDICATE NO DEFECTIVE ALTERNATES (UPRINT) */ 00413000 * THEN DO; 0260 00414000 * 0260 00415000 TM FOUND,B'10000000' 0260 00416000 BNZ @RF00260 0260 00417000 * DARGSENT = MSGNALT; 0262 00418000 L @10,DDSTRU 0262 00419000 MVI DARGSENT(@10),X'1D' 0262 00420000 * DARGCNT = 0; 0263 00421000 SLR @15,@15 0263 00422000 STH @15,DARGCNT(,@10) 0263 00423000 * CALL ICKTPPR0(GDTTBL 0264 00424000 * ,PRTFILE 0264 00425000 * ,DDSTRU); 0264 00426000 L @10,@PC00001 0264 00427000 ST @10,@AL00001 0264 00428000 LA @15,@CF00100 0264 00429000 ST @15,@AL00001+4 0264 00430000 LA @15,DDSTRU 0264 00431000 ST @15,@AL00001+8 0264 00432000 MVI @AL00001+8,X'80' 0264 00433000 L @15,GDTPRT(,@10) 0264 00434000 LA @01,@AL00001 0264 00435000 BALR @14,@15 0264 00436000 * END; 0265 00437000 * 0265 00438000 */* ELSE */ 00439000 * ELSE DO; 0266 00440000 * 0266 00441000 * 0266 00442000 B @RC00260 0266 00443000 @RF00260 DS 0H 0267 00444000 */* PRINT HEADING FOR ALTERNATE TRACKS (UPRINT) */ 00445000 * DARGSENT = MSGAHDR; 0267 00446000 L @10,DDSTRU 0267 00447000 MVI DARGSENT(@10),X'16' 0267 00448000 * DARGCNT = 0; 0268 00449000 SLR @02,@02 0268 00450000 STH @02,DARGCNT(,@10) 0268 00451000 * CALL ICKTPPR0(GDTTBL 0269 00452000 * ,PRTFILE 0269 00453000 * ,DDSTRU); 0269 00454000 * 0269 00455000 L @10,@PC00001 0269 00456000 ST @10,@AL00001 0269 00457000 LA @02,@CF00100 0269 00458000 ST @02,@AL00001+4 0269 00459000 LA @02,DDSTRU 0269 00460000 ST @02,@AL00001+8 0269 00461000 MVI @AL00001+8,X'80' 0269 00462000 L @15,GDTPRT(,@10) 0269 00463000 LA @01,@AL00001 0269 00464000 BALR @14,@15 0269 00465000 */* PRINT COLUMN TITLES FOR ALTERNATE TRACKS */ 00466000 * IF CHECK = YES 0270 00467000 * THEN DO; DARGSENT = MSGACOLC; END; 0270 00468000 L @10,@PC00001+12 0270 00469000 TM CHECK(@10),B'10000000' 0270 00470000 BNO @RF00270 0270 00471000 L @10,DDSTRU 0272 00472000 MVI DARGSENT(@10),X'19' 0272 00473000 * ELSE DO; DARGSENT = MSGACOLN; END; 0274 00474000 B @RC00270 0274 00475000 @RF00270 DS 0H 0275 00476000 L @10,DDSTRU 0275 00477000 MVI DARGSENT(@10),X'1A' 0275 00478000 * CALL ICKTPPR0(GDTTBL 0277 00479000 * ,PRTFILE 0277 00480000 * ,DDSTRU); 0277 00481000 * 0277 00482000 @RC00270 L @10,@PC00001 0277 00483000 ST @10,@AL00001 0277 00484000 LA @02,@CF00100 0277 00485000 ST @02,@AL00001+4 0277 00486000 LA @02,DDSTRU 0277 00487000 ST @02,@AL00001+8 0277 00488000 MVI @AL00001+8,X'80' 0277 00489000 L @15,GDTPRT(,@10) 0277 00490000 LA @01,@AL00001 0277 00491000 BALR @14,@15 0277 00492000 */* DO-WHILE MORE TRACK ENTRIES */ 00493000 * DO WHILE FOUND = YES; 0278 00494000 * 0278 00495000 * 0278 00496000 B @DE00278 0278 00497000 @DL00278 DS 0H 0279 00498000 */* PRINT INFORMATION LINE FOR A TRACK (UPRINT) */ 00499000 * IF PRTCOND = NRECOVER 0279 00500000 * THEN DO; 0279 00501000 CLC PRTCOND(13),NRECOVER 0279 00502000 BNE @RF00279 0279 00503000 * PRTLINK = 0; 0281 00504000 SLR @10,@10 0281 00505000 ST @10,@TF00001 0281 00506000 MVC PRTLINK(4),@TF00001 0281 00507000 * PRTFDEF = ' '; 0282 00508000 MVI PRTFDEF+1,C' ' 0282 00509000 MVI PRTFDEF+2,C' ' 0282 00510000 MVI PRTFDEF,C' ' 0282 00511000 * END; 0283 00512000 * IF PRTLINK = 0 0284 00513000 * THEN DO; 0284 00514000 * 0284 00515000 @RF00279 MVC @TF00001(4),PRTLINK 0284 00516000 L @10,@TF00001 0284 00517000 LTR @10,@10 0284 00518000 BNZ @RF00284 0284 00519000 * DARGSENT = MSGNLINE; 0286 00520000 L @10,DDSTRU 0286 00521000 MVI DARGSENT(@10),X'1F' 0286 00522000 * END; 0287 00523000 * ELSE DO; 0288 00524000 * 0288 00525000 B @RC00284 0288 00526000 @RF00284 DS 0H 0289 00527000 * DARGSENT = MSGMLINE; 0289 00528000 L @10,DDSTRU 0289 00529000 MVI DARGSENT(@10),X'1E' 0289 00530000 * END; 0290 00531000 * DARGCNT = 6; 0291 00532000 @RC00284 L @10,DDSTRU 0291 00533000 MVC DARGCNT(2,@10),@CH00125 0291 00534000 * CALL ICKTPPR0(GDTTBL 0292 00535000 * ,PRTFILE 0292 00536000 * ,DDSTRU); 0292 00537000 * 0292 00538000 L @10,@PC00001 0292 00539000 ST @10,@AL00001 0292 00540000 LA @02,@CF00100 0292 00541000 ST @02,@AL00001+4 0292 00542000 LA @02,DDSTRU 0292 00543000 ST @02,@AL00001+8 0292 00544000 MVI @AL00001+8,X'80' 0292 00545000 L @15,GDTPRT(,@10) 0292 00546000 LA @01,@AL00001 0292 00547000 BALR @14,@15 0292 00548000 */* GET_NEXT_TRACK */ 00549000 * CALL GETNXTRK; 0293 00550000 * 0293 00551000 BAL @14,GETNXTRK 0293 00552000 */* END-WHILE */ 00553000 * END; 0294 00554000 * 0294 00555000 @DE00278 TM FOUND,B'10000000' 0294 00556000 BO @DL00278 0294 00557000 */* END-ELSE */ 00558000 * END; 0295 00559000 * 0295 00560000 */* END-ELSE */ 00561000 * END; 0296 00562000 * 0296 00563000 @RC00260 DS 0H 0297 00564000 */* OBTAIN NUMBER OF ALTERNATE TRACKS FOR DEVICE (UDEVINFO) */ 00565000 * CALL ICKDVIN0(GDTTBL 0297 00566000 * ,VOLIB 0297 00567000 * ,DEVATRKS 0297 00568000 * ,POOLID 0297 00569000 * ,INFOPTR 0297 00570000 * ,INFOLEN 0297 00571000 * ,RETCODE); 0297 00572000 * 0297 00573000 @RC00201 L @10,@PC00001 0297 00574000 ST @10,@AL00001 0297 00575000 L @15,@PC00001+4 0297 00576000 ST @15,@AL00001+4 0297 00577000 LA @15,@CF00337 0297 00578000 ST @15,@AL00001+8 0297 00579000 LA @15,POOLID 0297 00580000 ST @15,@AL00001+12 0297 00581000 LA @15,INFOPTR 0297 00582000 ST @15,@AL00001+16 0297 00583000 LA @15,INFOLEN 0297 00584000 ST @15,@AL00001+20 0297 00585000 LA @15,RETCODE 0297 00586000 ST @15,@AL00001+24 0297 00587000 L @15,GDTDIN(,@10) 0297 00588000 LA @01,@AL00001 0297 00589000 BALR @14,@15 0297 00590000 */* PRINT ALTERNATE TRACK COUNTS, TOTAL & AVAILABLE (UPRINT)*/ 00591000 * DARGSENT = MSGALTS; 0298 00592000 L @10,DDSTRU 0298 00593000 MVI DARGSENT(@10),X'20' 0298 00594000 * DARGCNT = 2; 0299 00595000 LA @15,2 0299 00596000 STH @15,DARGCNT(,@10) 0299 00597000 * DARGINS(1) = 1; 0300 00598000 MVC DARGINS(2,@10),@CH00171 0300 00599000 * DARGINL(1) = LENGTH(ALTCNT); 0301 00600000 LA @14,4 0301 00601000 STH @14,DARGINL(,@10) 0301 00602000 * DARGDTM(1) = ADDR(ALTCNT); 0302 00603000 MVC DARGDTM(4,@10),INFOPTR 0302 00604000 * DARGINS(2) = 2; 0303 00605000 STH @15,DARGINS+8(,@10) 0303 00606000 * DARGINL(2) = LENGTH(AVAILALT); 0304 00607000 STH @14,DARGINL+8(,@10) 0304 00608000 * DARGDTM(2) = ADDR(AVAILALT); 0305 00609000 L @15,@PC00001+24 0305 00610000 ST @15,DARGDTM+8(,@10) 0305 00611000 * CALL ICKTPPR0(GDTTBL 0306 00612000 * ,PRTFILE 0306 00613000 * ,DDSTRU); 0306 00614000 * 0306 00615000 L @10,@PC00001 0306 00616000 ST @10,@AL00001 0306 00617000 LA @15,@CF00100 0306 00618000 ST @15,@AL00001+4 0306 00619000 LA @15,DDSTRU 0306 00620000 ST @15,@AL00001+8 0306 00621000 MVI @AL00001+8,X'80' 0306 00622000 L @15,GDTPRT(,@10) 0306 00623000 LA @01,@AL00001 0306 00624000 BALR @14,@15 0306 00625000 */* PRINT VTOC LOCATION AND EXTENT (UPRINT) */ 00626000 * DARGSENT = MSGVTOC; 0307 00627000 L @10,DDSTRU 0307 00628000 MVI DARGSENT(@10),X'21' 0307 00629000 * DARGCNT = 3; 0308 00630000 LA @15,3 0308 00631000 STH @15,DARGCNT(,@10) 0308 00632000 * DARGINS(1) = 1; 0309 00633000 MVC DARGINS(2,@10),@CH00171 0309 00634000 * DARGINL(1) = LENGTH(VTOCCC); 0310 00635000 LA @14,2 0310 00636000 STH @14,DARGINL(,@10) 0310 00637000 * DARGDTM(1) = ADDR(VTOCCC); 0311 00638000 L @09,@PC00001+16 0311 00639000 ST @09,DARGDTM(,@10) 0311 00640000 * DARGINS(2) = 2; 0312 00641000 STH @14,DARGINS+8(,@10) 0312 00642000 * DARGINL(2) = LENGTH(VTOCHH); 0313 00643000 STH @14,DARGINL+8(,@10) 0313 00644000 * DARGDTM(2) = ADDR(VTOCHH); 0314 00645000 LA @14,VTOCHH(,@09) 0314 00646000 ST @14,DARGDTM+8(,@10) 0314 00647000 * DARGINS(3) = 3; 0315 00648000 STH @15,DARGINS+16(,@10) 0315 00649000 * DARGINL(3) = LENGTH(VTOCEXT); 0316 00650000 MVC DARGINL+16(2,@10),@CH00050 0316 00651000 * DARGDTM(3) = ADDR(VTOCEXT); 0317 00652000 L @15,@PC00001+20 0317 00653000 ST @15,DARGDTM+16(,@10) 0317 00654000 * CALL ICKTPPR0(GDTTBL 0318 00655000 * ,PRTFILE 0318 00656000 * ,DDSTRU); 0318 00657000 * 0318 00658000 L @10,@PC00001 0318 00659000 ST @10,@AL00001 0318 00660000 LA @15,@CF00100 0318 00661000 ST @15,@AL00001+4 0318 00662000 LA @15,DDSTRU 0318 00663000 ST @15,@AL00001+8 0318 00664000 MVI @AL00001+8,X'80' 0318 00665000 L @15,GDTPRT(,@10) 0318 00666000 LA @01,@AL00001 0318 00667000 BALR @14,@15 0318 00668000 */* END-THEN */ 00669000 * END; 0319 00670000 * 0319 00671000 */* END-THEN */ 00672000 * END; 0320 00673000 * 0320 00674000 @RF00192 DS 0H 0321 00675000 */* FREE STORAGE FOR DATA ENTRIES (UFPOOL) */ 00676000 * CALL ICKSAFP0(GDTTBL 0321 00677000 * ,POOLID 0321 00678000 * ,ALL); 0321 00679000 * 0321 00680000 @RF00183 MVC @AL00001+4(8),@AL00321 0321 00681000 L @10,@PC00001 0321 00682000 ST @10,@AL00001 0321 00683000 L @15,GDTFPL(,@10) 0321 00684000 LA @01,@AL00001 0321 00685000 BALR @14,@15 0321 00686000 */* RETURN */ 00687000 * IF GDTDBG = NULLPTR 0322 00688000 * THEN; 0322 00689000 L @10,@PC00001 0322 00690000 L @10,GDTDBG(,@10) 0322 00691000 LTR @10,@10 0322 00692000 BZ @RT00322 0322 00693000 * ELSE 0324 00694000 * CALL ICKDB010(GDTTBL 0324 00695000 * ,'PP99'); 0324 00696000 L @10,@PC00001 0324 00697000 ST @10,@AL00001 0324 00698000 LA @15,@CC00581 0324 00699000 ST @15,@AL00001+4 0324 00700000 MVI @AL00001+4,X'80' 0324 00701000 L @15,GDTDBG(,@10) 0324 00702000 LA @01,@AL00001 0324 00703000 BALR @14,@15 0324 00704000 * CALL ICKSAEP0(GDTTBL,MODID); 0325 00705000 * 0325 00706000 * 0325 00707000 * 0325 00708000 * 0325 00709000 @RT00322 L @10,@PC00001 0325 00710000 ST @10,@AL00001 0325 00711000 LA @15,MODID 0325 00712000 ST @15,@AL00001+4 0325 00713000 MVI @AL00001+4,X'80' 0325 00714000 L @15,GDTEPL(,@10) 0325 00715000 LA @01,@AL00001 0325 00716000 BALR @14,@15 0325 00717000 EJECT 00718000 */***** START OF SPECIFICATIONS ************************************/ 00719000 */* */ 00720000 */* SUB-PROCEDURE NAME: GETNXTRK */ 00721000 */* */ 00722000 */* DESCRIPTIVE NAME: GET NEXT TRACK */ 00723000 */* */ 00724000 */* FUNCTION: */ 00725000 */* */ 00726000 */* THIS SUBPROCEDURE SCANS THE LIST OF TRACK ENTRIES MADE BY */ 00727000 */* 'BUILD PACK MAP' (ICKBM01), AND SELECTS THE NEXT ONE WHICH */ 00728000 */* SATISFIES THE REQUEST FOR EITHER A PRIMARY OR AN ALTERNATE */ 00729000 */* TRACK ENTRY, BY ASCENDING TRACK ADDRESS. */ 00730000 */* */ 00731000 */***** END OF SPECIFICATIONS **************************************/ 00732000 * 0326 00733000 * 0326 00734000 */* SUB-PROCEDURE GET_NEXT_TRACK */ 00735000 * GETNXTRK: 0326 00736000 * PROCEDURE; 0326 00737000 * 0326 00738000 GETNXTRK STM @14,@02,12(@13) 0326 00739000 STM @04,@12,36(@13) 0326 00740000 * OLDERID2 = NEWERID2; 0327 00741000 L @10,@PC00001 0327 00742000 L @10,GDTTR2(,@10) 0327 00743000 MVC @TS00001(95),NEWERID2(@10) 0327 00744000 MVC OLDERID2(95,@10),@TS00001 0327 00745000 * NEWID2 = 'PPGN'; 0328 00746000 * 0328 00747000 * 0328 00748000 MVC NEWID2(4,@10),@CC00585 0328 00749000 */* INDICATE NO TRACKS FOUND OF TYPE REQUESTED (PRI. OR ALT.) */ 00750000 * FOUND = NO; 0329 00751000 * 0329 00752000 NI FOUND,B'01111111' 0329 00753000 */* SAVE PRIOR TRACK VALUE */ 00754000 * PRIORTRK = CURRTRK; 0330 00755000 * 0330 00756000 LR PRIORTRK,CURRTRK 0330 00757000 */* SET CURRENT TRACK > MAXIMUM POSSIBLE */ 00758000 * CURRTRK = MAXTRK; 0331 00759000 * 0331 00760000 L CURRTRK,MAXTRK 0331 00761000 */* GET FIRST PACK MAP ENTRIES */ 00762000 * ENTRYPTR = FIRSTPTR; 0332 00763000 * 0332 00764000 L @10,INFOPTR 0332 00765000 L ENTRYPTR,FIRSTPTR(,@10) 0332 00766000 */* DO-WHILE MORE PACK MAP ENTRIES */ 00767000 * DO WHILE ENTRYPTR ^= NULLPTR; 0333 00768000 * 0333 00769000 * 0333 00770000 B @DE00333 0333 00771000 @DL00333 DS 0H 0334 00772000 */* IF THIS ENTRY IS FOR TRACK > PREVIOUS */ 00773000 * IF MAPTRK > PRIORTRK 0334 00774000 * 0334 00775000 */* THEN */ 00776000 * THEN DO; 0334 00777000 * 0334 00778000 * 0334 00779000 L @10,MAPTRK(,ENTRYPTR) 0334 00780000 CR @10,PRIORTRK 0334 00781000 BNH @RF00334 0334 00782000 */* IF THIS ENTRY IS FOR TRACK < CURRENT TRACK */ 00783000 * IF MAPTRK < CURRTRK 0336 00784000 * 0336 00785000 */* THEN */ 00786000 * THEN DO; 0336 00787000 * 0336 00788000 * 0336 00789000 CR @10,CURRTRK 0336 00790000 BNL @RF00336 0336 00791000 */* IF THIS ENTRY IS FOR TYPE TRACK REQUESTED */ 00792000 * IF (REQTYPE = FINDPRI & MAPFALT = OFF) | 0338 00793000 * (REQTYPE = FINDALT & MAPFALT = ON) 0338 00794000 * 0338 00795000 */* THEN */ 00796000 * THEN DO; 0338 00797000 * 0338 00798000 * 0338 00799000 TM REQTYPE,B'10000000' 0338 00800000 BNO @GL00001 0338 00801000 TM MAPFALT(ENTRYPTR),B'10000000' 0338 00802000 BZ @RT00338 0338 00803000 @GL00001 TM REQTYPE,B'10000000' 0338 00804000 BNZ @RF00338 0338 00805000 TM MAPFALT(ENTRYPTR),B'10000000' 0338 00806000 BNO @RF00338 0338 00807000 @RT00338 DS 0H 0339 00808000 */* SAVE TRACK VALUE AS CURRENT */ 00809000 * CURRTRK = MAPTRK; 0340 00810000 * 0340 00811000 L @10,MAPTRK(,ENTRYPTR) 0340 00812000 LR CURRTRK,@10 0340 00813000 */* SAVE MAP INFORMATION FOR THE TRACK */ 00814000 * PRTADDR = MAPTRK; 0341 00815000 ST @10,@TF00001 0341 00816000 MVC PRTADDR(4),@TF00001 0341 00817000 * PRTLINK = MAPLINK; 0342 00818000 MVC PRTLINK(4),MAPLINK(ENTRYPTR) 0342 00819000 * IF MAPFDEF = YES 0343 00820000 * THEN DO; PRTFDEF = FDEFYES; END; 0343 00821000 TM MAPFDEF(ENTRYPTR),B'01000000' 0343 00822000 BNO @RF00343 0343 00823000 MVC PRTFDEF(3),FDEFYES 0345 00824000 * ELSE DO; PRTFDEF = FDEFNO; END; 0347 00825000 B @RC00343 0347 00826000 @RF00343 DS 0H 0348 00827000 MVC PRTFDEF(3),FDEFNO 0348 00828000 * IF CHECK = YES 0350 00829000 * THEN DO; 0350 00830000 * 0350 00831000 @RC00343 L @10,@PC00001+12 0350 00832000 TM CHECK(@10),B'10000000' 0350 00833000 BNO @RF00350 0350 00834000 * IF MAPFCHK = YES 0352 00835000 * THEN DO; PRTCOND = SCHKDEF; END; 0352 00836000 TM MAPFCHK(ENTRYPTR),B'00100000' 0352 00837000 BNO @RF00352 0352 00838000 MVC PRTCOND(13),SCHKDEF 0354 00839000 * ELSE DO; PRTCOND = SCHKNDEF; END; 0356 00840000 B @RC00352 0356 00841000 @RF00352 DS 0H 0357 00842000 MVC PRTCOND(13),SCHKNDEF 0357 00843000 * END; 0359 00844000 * ELSE DO; PRTCOND = ' '; END; 0360 00845000 B @RC00350 0360 00846000 @RF00350 DS 0H 0361 00847000 MVI PRTCOND+1,C' ' 0361 00848000 MVC PRTCOND+2(11),PRTCOND+1 0361 00849000 MVI PRTCOND,C' ' 0361 00850000 * IF MAPFUNR = YES 0363 00851000 * THEN DO; PRTCOND = NRECOVER; END; 0363 00852000 * 0363 00853000 @RC00350 TM MAPFUNR(ENTRYPTR),B'00010000' 0363 00854000 BNO @RF00363 0363 00855000 MVC PRTCOND(13),NRECOVER 0365 00856000 */* INDICATE TRACK FOUND */ 00857000 * FOUND = YES; 0367 00858000 * 0367 00859000 @RF00363 OI FOUND,B'10000000' 0367 00860000 */* END-THEN */ 00861000 * END; 0368 00862000 * 0368 00863000 */* END-THEN */ 00864000 * END; 0369 00865000 * 0369 00866000 */* ELSE (ENTRY IS FOR TRACK >= CURRENT TRACK) */ 00867000 * ELSE DO; 0370 00868000 * 0370 00869000 * 0370 00870000 B @RC00336 0370 00871000 @RF00336 DS 0H 0371 00872000 */* IF THIS ENTRY IS FOR SAME TRACK AS CURRENT */ 00873000 * IF MAPTRK = CURRTRK & PRTCOND ^= NRECOVER 0371 00874000 * 0371 00875000 */* THEN UPDATE INFORMATION SAVED */ 00876000 * THEN DO; 0371 00877000 * 0371 00878000 C CURRTRK,MAPTRK(,ENTRYPTR) 0371 00879000 BNE @RF00371 0371 00880000 CLC PRTCOND(13),NRECOVER 0371 00881000 BE @RF00371 0371 00882000 * PRTLINK = MAPLINK; 0373 00883000 MVC PRTLINK(4),MAPLINK(ENTRYPTR) 0373 00884000 * IF MAPFDEF = YES 0374 00885000 * THEN DO; PRTFDEF = FDEFYES; END; 0374 00886000 TM MAPFDEF(ENTRYPTR),B'01000000' 0374 00887000 BNO @RF00374 0374 00888000 MVC PRTFDEF(3),FDEFYES 0376 00889000 * IF CHECK = YES & MAPFCHK = YES 0378 00890000 * THEN DO; PRTCOND = SCHKDEF; END; 0378 00891000 @RF00374 L @10,@PC00001+12 0378 00892000 TM CHECK(@10),B'10000000' 0378 00893000 BNO @RF00378 0378 00894000 TM MAPFCHK(ENTRYPTR),B'00100000' 0378 00895000 BNO @RF00378 0378 00896000 MVC PRTCOND(13),SCHKDEF 0380 00897000 * IF MAPFUNR = YES 0382 00898000 * THEN DO; PRTCOND = NRECOVER; END; 0382 00899000 @RF00378 TM MAPFUNR(ENTRYPTR),B'00010000' 0382 00900000 BNO @RF00382 0382 00901000 MVC PRTCOND(13),NRECOVER 0384 00902000 * END; 0386 00903000 * 0386 00904000 @RF00382 DS 0H 0387 00905000 */* END-ELSE */ 00906000 * END; 0387 00907000 * 0387 00908000 @RF00371 DS 0H 0388 00909000 */* END-THEN */ 00910000 * END; 0388 00911000 * 0388 00912000 @RC00336 DS 0H 0389 00913000 */* GET LINK TO NEXT PACK MAP ENTRY */ 00914000 * ENTRYPTR = MAPNEXT; 0389 00915000 * 0389 00916000 @RF00334 L ENTRYPTR,MAPNEXT(,ENTRYPTR) 0389 00917000 */* END-WHILE */ 00918000 * END; 0390 00919000 * 0390 00920000 @DE00333 LTR ENTRYPTR,ENTRYPTR 0390 00921000 BNZ @DL00333 0390 00922000 */* END-SUB-PROCEDURE GET_NEXT_TRACK */ 00923000 * END GETNXTRK; 0391 00924000 * 0391 00925000 * 0391 00926000 @EL00002 DS 0H 0391 00927000 @EF00002 DS 0H 0391 00928000 @ER00002 LM @14,@02,12(@13) 0391 00929000 LM @04,@12,36(@13) 0391 00930000 BR @14 0391 00931000 */* END-PROCEDURE PRODUCE_PACK_MAP */ 00932000 * 0392 00933000 * 0392 00934000 * END ICKPP01 0392 00935000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00936000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00937000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00938000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00939000 */*%INCLUDE SYSLIB (DMSDF08 ) * 00940000 *; 0392 00941000 @DATA DS 0H 00942000 @CH00171 DC H'1' 00943000 @CH00050 DC H'4' 00944000 @CH00125 DC H'6' 00945000 @CH00273 DC H'13' 00946000 DS 0F 00947000 @AL00321 DC A(POOLID) LIST WITH 2 ARGUMENT(S) 00948000 DC AL1(X'80') 00949000 DC AL3(@CC00143) 00950000 @DATD DSECT 00951000 DS 0F 00952000 @SA00001 DS 18F 00953000 @PC00001 DS 8F 00954000 @AL00001 DS 7A 00955000 @TF00001 DS F 00956000 @ZTEMPS DS C 00957000 @ZTEMPND EQU * 00958000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00959000 ICKPP01 CSECT 00960000 DS 0F 00961000 @CF00100 DC F'0' 00962000 @CF00261 DC F'5' 00963000 @CH00261 EQU @CF00261+2 00964000 @CF00337 DC F'202' 00965000 @DATD DSECT 00966000 DS 0D 00967000 LISTSCAN DS A 00968000 IOCSPTR DS A 00969000 OPNPTR DS A 00970000 DDSTRU DS A 00971000 FSADDR DS A 00972000 DMPINDEX DS A 00973000 LABELS DS F 00974000 INFOPTR DS A 00975000 INFOLEN DS F 00976000 RETCODE DS F 00977000 LISTPTR DS A 00978000 SETRC DS H 00979000 TESTRC DS H 00980000 LISTLN DS FL1 00981000 @TS00001 DS CL95 00982000 PRTLIST DS CL76 00983000 ORG PRTLIST 00984000 PRTHDR DS CL8 00985000 PRTARGS DS CL68 00986000 ORG PRTLIST+76 00987000 PRTADDR DS CL4 00988000 ORG PRTADDR 00989000 PRTACC DS FL2 00990000 PRTAHH DS FL2 00991000 ORG PRTADDR+4 00992000 PRTLINK DS CL4 00993000 ORG PRTLINK 00994000 PRTLCC DS FL2 00995000 PRTLHH DS FL2 00996000 ORG PRTLINK+4 00997000 PRTFDEF DS CL3 00998000 PRTCOND DS CL13 00999000 VOL1REC DS CL80 01000000 FOUND DS BL1 01001000 REQTYPE DS BL1 01002000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01003000 @ENDDATD EQU * 01004000 ICKPP01 CSECT 01005000 DS 0F 01006000 @SIZDATD DC AL1(0) 01007000 DC AL3(@ENDDATD-@DATD) 01008000 @CV00577 DC V(ICKRL01) 01009000 DS 0D 01010000 MAXTRK DC XL4'7FFFFFFF' 01011000 @CC00573 DC C'DARGLIST' 01012000 @CC00542 DC C'PP00' 01013000 @CC00581 DC C'PP99' 01014000 @CC00585 DC C'PPGN' 01015000 @CC00143 DC C'ALL' 01016000 MODID DC CL4'PP01' 01017000 MSGMOD DC CL3'EF0' 01018000 FDEFYES DC CL3'YES' 01019000 FDEFNO DC CL3'NO ' 01020000 SCHKDEF DC CL13' DEFECTIVE ' 01021000 SCHKNDEF DC CL13'NOT-DEFECTIVE' 01022000 NRECOVER DC CL13'UNRECOVERABLE' 01023000 POOLID DC CL4'PP00' 01024000 PTCHPM01 DS CL256 01025000 ORG PTCHPM01 01026000 @NM00018 DC 256X'00' 01027000 ORG PTCHPM01+256 01028000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01029000 @01 EQU 01 01030000 @02 EQU 02 01031000 @03 EQU 03 01032000 @04 EQU 04 01033000 @05 EQU 05 01034000 @06 EQU 06 01035000 @07 EQU 07 01036000 @08 EQU 08 01037000 @09 EQU 09 01038000 @10 EQU 10 01039000 @11 EQU 11 01040000 @12 EQU 12 01041000 @13 EQU 13 01042000 @14 EQU 14 01043000 @15 EQU 15 01044000 PRIORTRK EQU @04 01045000 CURRTRK EQU @03 01046000 VOL1PTR EQU @02 01047000 ENTRYPTR EQU @02 01048000 REG12 EQU @12 01049000 REG0 EQU @00 01050000 REG1 EQU @01 01051000 REG10 EQU @10 01052000 REG11 EQU @11 01053000 REG13 EQU @13 01054000 REG14 EQU @14 01055000 REG15 EQU @15 01056000 REG2 EQU @02 01057000 REG3 EQU @03 01058000 REG4 EQU @04 01059000 REG5 EQU @05 01060000 REG6 EQU @06 01061000 REG7 EQU @07 01062000 REG8 EQU @08 01063000 REG9 EQU @09 01064000 RTNREG EQU @15 01065000 ICKSAEP0 EQU 0 01066000 ICKSAFP0 EQU 0 01067000 TRACE1 EQU 0 01068000 OLDERID1 EQU TRACE1 01069000 TRACE2 EQU 0 01070000 OLDERID2 EQU TRACE2 01071000 NEWID2 EQU TRACE2+95 01072000 NEWERID2 EQU 5 01073000 STAEPARM EQU 0 01074000 STAEPFX EQU STAEPARM 01075000 IOCSTR EQU 0 01076000 IOCDSO EQU IOCSTR+13 01077000 IOCRFM EQU IOCSTR+14 01078000 IOCMAC EQU IOCSTR+15 01079000 IOCMSG EQU IOCSTR+16 01080000 OPNAGL EQU 0 01081000 OPNOPT EQU OPNAGL 01082000 OPNRFM EQU OPNAGL+1 01083000 OPNTYP EQU OPNAGL+2 01084000 OPNMOD EQU OPNAGL+3 01085000 UVOLLIST EQU 0 01086000 UVOLENT EQU UVOLLIST+2 01087000 ICKDVIN0 EQU 0 01088000 ICKTPPR0 EQU 0 01089000 DARGLIST EQU 0 01090000 DARGSTID EQU DARGLIST+8 01091000 DARGSMOD EQU DARGSTID 01092000 DARGSENT EQU DARGSTID+3 01093000 DARGCNT EQU DARGLIST+14 01094000 DARGARY EQU DARGLIST+20 01095000 DARGINS EQU DARGARY 01096000 DARGINL EQU DARGARY+2 01097000 DARGDTM EQU DARGARY+4 01098000 FMTLIST EQU 0 01099000 FMTFLGS EQU FMTLIST 01100000 FMTSPF EQU FMTLIST+2 01101000 FMTRFNO EQU FMTSPF 01102000 FMTILEN EQU FMTRFNO 01103000 FMTIOFF EQU FMTLIST+4 01104000 FMTTRBC EQU FMTIOFF 01105000 FMTSTO EQU FMTTRBC 01106000 FMTOCOL EQU FMTLIST+6 01107000 FMTCNVF EQU FMTLIST+10 01108000 ICKDB010 EQU 0 01109000 DMPITM EQU 0 01110000 DMPARY EQU 0 01111000 MAPDATA EQU 0 01112000 MAPTRK EQU MAPDATA 01113000 MAPLINK EQU MAPDATA+4 01114000 MAPFLGS EQU MAPDATA+8 01115000 MAPFALT EQU MAPFLGS 01116000 MAPFDEF EQU MAPFLGS 01117000 MAPFCHK EQU MAPFLGS 01118000 MAPFUNR EQU MAPFLGS 01119000 MAPNEXT EQU MAPDATA+12 01120000 ALTCNT EQU 0 01121000 FIRSTPTR EQU 0 01122000 VOL1 EQU 0 01123000 VOL1SER EQU VOL1+4 01124000 VOL1OWNR EQU VOL1+37 01125000 DMPTRM EQU 0 01126000 ICKDVCL0 EQU 0 01127000 ICKDVON0 EQU 0 01128000 ICKDVOP0 EQU 0 01129000 ICKIOCL0 EQU 0 01130000 ICKIOGT0 EQU 0 01131000 ICKIOIT0 EQU 0 01132000 ICKIOOP0 EQU 0 01133000 ICKIOPT0 EQU 0 01134000 ICKIOTM0 EQU 0 01135000 ICKSACL0 EQU 0 01136000 ICKSADE0 EQU 0 01137000 ICKSAFS0 EQU 0 01138000 ICKSAGP0 EQU 0 01139000 ICKSAGS0 EQU 0 01140000 ICKSALD0 EQU 0 01141000 ICKSAPR0 EQU 0 01142000 ICKSASC0 EQU 0 01143000 ICKSASN0 EQU 0 01144000 ICKSAST0 EQU 0 01145000 ICKSATI0 EQU 0 01146000 ICKSAVC0 EQU 0 01147000 ICKSAWO0 EQU 0 01148000 ICKTPEA0 EQU 0 01149000 ICKTPES0 EQU 0 01150000 ICKTPRE0 EQU 0 01151000 ICKTPRS0 EQU 0 01152000 LISTTEST EQU 0 01153000 NEWERID1 EQU 5 01154000 GDTTBL EQU 0 01155000 GDTTR1 EQU GDTTBL+8 01156000 GDTTR2 EQU GDTTBL+12 01157000 GDTDIN EQU GDTTBL+44 01158000 GDTDOP EQU GDTTBL+48 01159000 GDTDBG EQU GDTTBL+52 01160000 GDTDVO EQU GDTTBL+56 01161000 GDTPRT EQU GDTTBL+60 01162000 GDTESS EQU GDTTBL+64 01163000 GDTESA EQU GDTTBL+68 01164000 GDTRST EQU GDTTBL+72 01165000 GDTRES EQU GDTTBL+76 01166000 GDTCAL EQU GDTTBL+80 01167000 GDTGSP EQU GDTTBL+84 01168000 GDTFSP EQU GDTTBL+88 01169000 GDTGPL EQU GDTTBL+92 01170000 GDTFPL EQU GDTTBL+96 01171000 GDTLOD EQU GDTTBL+100 01172000 GDTDEL EQU GDTTBL+104 01173000 GDTPRL EQU GDTTBL+108 01174000 GDTEPL EQU GDTTBL+112 01175000 GDTTIM EQU GDTTBL+116 01176000 GDTIIO EQU GDTTBL+120 01177000 GDTTIO EQU GDTTBL+124 01178000 GDTOPN EQU GDTTBL+136 01179000 GDTCLS EQU GDTTBL+140 01180000 GDTGET EQU GDTTBL+144 01181000 GDTPUT EQU GDTTBL+148 01182000 GDTSNP EQU GDTTBL+160 01183000 GDTWTO EQU GDTTBL+168 01184000 GDTSCR EQU GDTTBL+172 01185000 GDTVCK EQU GDTTBL+176 01186000 GDTDVC EQU GDTTBL+180 01187000 GDTSTE EQU GDTTBL+188 01188000 VOLIB EQU 0 01189000 PRINT EQU 0 01190000 CHECK EQU 0 01191000 VTOCLOC EQU 0 01192000 VTOCCC EQU VTOCLOC 01193000 VTOCHH EQU VTOCLOC+2 01194000 VTOCEXT EQU 0 01195000 AVAILALT EQU 0 01196000 CONDCODE EQU 0 01197000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01198000 GDTCVR EQU GDTTBL+184 01199000 GDTSPR EQU GDTTBL+164 01200000 GDTABH EQU GDTTBL+156 01201000 GDTABT EQU GDTTBL+152 01202000 GDTTOH EQU GDTTBL+132 01203000 GDTRIP EQU GDTTBL+128 01204000 GDTDVH EQU GDTTBL+40 01205000 GDTIOH EQU GDTTBL+36 01206000 GDTSAH EQU GDTTBL+32 01207000 GDTTPH EQU GDTTBL+28 01208000 GDTRIH EQU GDTTBL+24 01209000 GDTSTH EQU GDTTBL+20 01210000 GDTDBH EQU GDTTBL+16 01211000 GDTPRM EQU GDTTBL+4 01212000 GDTHDR EQU GDTTBL 01213000 VOL1STDV EQU VOL1+79 01214000 @NM00020 EQU VOL1+51 01215000 VOL1OLDO EQU VOL1OWNR+4 01216000 VOL1OEXT EQU VOL1OWNR 01217000 @NM00019 EQU VOL1+16 01218000 VOL1VTOC EQU VOL1+11 01219000 VOL1ACC EQU VOL1+10 01220000 VOL1NUM EQU VOL1+3 01221000 VOL1ID EQU VOL1 01222000 @NM00017 EQU DMPARY+15 01223000 DMPARYTP EQU DMPARY+14 01224000 DMPARYEX EQU DMPARY+12 01225000 DMPARYIC EQU DMPARY+10 01226000 DMPARYSZ EQU DMPARY+8 01227000 DMPARYNM EQU DMPARY 01228000 @NM00016 EQU DMPITM+15 01229000 DMPITMTP EQU DMPITM+14 01230000 DMPITMLN EQU DMPITM+12 01231000 DMPITMPT EQU DMPITM+8 01232000 DMPITMNM EQU DMPITM 01233000 @NM00015 EQU FMTCNVF+1 01234000 FMTBS EQU FMTCNVF+1 01235000 FMTSS EQU FMTCNVF+1 01236000 FMTAL EQU FMTCNVF+1 01237000 FMTZS EQU FMTCNVF+1 01238000 @NM00014 EQU FMTCNVF 01239000 FMTPU EQU FMTCNVF 01240000 FMTBD EQU FMTCNVF 01241000 FMTBHD EQU FMTCNVF 01242000 FMTBHA EQU FMTCNVF 01243000 FMTBH EQU FMTCNVF 01244000 FMTOLEN EQU FMTLIST+8 01245000 FMTRIO EQU FMTOCOL 01246000 FMTSPT EQU FMTSTO 01247000 FMTSTL EQU FMTILEN 01248000 @NM00013 EQU FMTFLGS+1 01249000 FMTHDF EQU FMTFLGS 01250000 FMTDFF EQU FMTFLGS 01251000 FMTSTF EQU FMTFLGS 01252000 FMTREPF EQU FMTFLGS 01253000 FMTBDF EQU FMTFLGS 01254000 FMTIDF EQU FMTFLGS 01255000 FMTSCF EQU FMTFLGS 01256000 FMTEOLF EQU FMTFLGS 01257000 DARGPCT EQU DARGINL 01258000 DARGREP EQU DARGINS 01259000 @NM00012 EQU DARGLIST+19 01260000 DARGIND EQU DARGLIST+18 01261000 DARGRETL EQU DARGLIST+16 01262000 DARGILP EQU DARGLIST+12 01263000 DARGRETP EQU DARGLIST+4 01264000 DARGDBP EQU DARGLIST 01265000 UVOLVOL EQU UVOLENT+4 01266000 UVOLDEV EQU UVOLENT 01267000 UVOLCNT EQU UVOLLIST 01268000 OPNRSVD EQU OPNAGL+28 01269000 OPNVOL EQU OPNAGL+24 01270000 OPNBLK EQU OPNAGL+20 01271000 OPNREC EQU OPNAGL+16 01272000 OPNDSN EQU OPNAGL+12 01273000 OPNDDN EQU OPNAGL+8 01274000 OPNIOC EQU OPNAGL+4 01275000 @NM00011 EQU OPNMOD 01276000 OPNMODRC EQU OPNMOD 01277000 OPNMODAC EQU OPNMOD 01278000 @NM00010 EQU OPNTYP 01279000 OPNTYPSO EQU OPNTYP 01280000 OPNTYPSI EQU OPNTYP 01281000 @NM00009 EQU OPNRFM 01282000 OPNRFMBK EQU OPNRFM 01283000 OPNRFMSF EQU OPNRFM 01284000 OPNRFMUN EQU OPNRFM 01285000 OPNRFMVR EQU OPNRFM 01286000 OPNRFMFX EQU OPNRFM 01287000 @NM00008 EQU OPNOPT 01288000 OPNOPTJM EQU OPNOPT 01289000 OPNOPTKS EQU OPNOPT 01290000 OPNOPTBK EQU OPNOPT 01291000 OPNOPTUP EQU OPNOPT 01292000 OPNOPTOT EQU OPNOPT 01293000 OPNOPTIN EQU OPNOPT 01294000 IOCEXT EQU IOCSTR+36 01295000 IOCRRN EQU IOCSTR+32 01296000 @NM00007 EQU IOCSTR+30 01297000 IOCPNM EQU IOCSTR+28 01298000 IOCCBP EQU IOCSTR+24 01299000 IOCDSN EQU IOCSTR+20 01300000 @NM00006 EQU IOCSTR+17 01301000 @NM00005 EQU IOCMSG 01302000 IOCMSGOP EQU IOCMSG 01303000 IOCMACPA EQU IOCMAC 01304000 @NM00004 EQU IOCMAC 01305000 IOCMACBK EQU IOCMAC 01306000 IOCMACUP EQU IOCMAC 01307000 IOCMACOT EQU IOCMAC 01308000 IOCMACIN EQU IOCMAC 01309000 @NM00003 EQU IOCRFM 01310000 IOCRFMBK EQU IOCRFM 01311000 IOCRFMSF EQU IOCRFM 01312000 IOCRFMUN EQU IOCRFM 01313000 IOCRFMVR EQU IOCRFM 01314000 IOCRFMFX EQU IOCRFM 01315000 @NM00002 EQU IOCDSO 01316000 IOCDSOPS EQU IOCDSO 01317000 IOCKYL EQU IOCSTR+12 01318000 IOCTRN EQU IOCSTR+8 01319000 IOCDLN EQU IOCSTR+4 01320000 IOCDAD EQU IOCSTR 01321000 STAEWORK EQU STAEPARM+32 01322000 STARPTR EQU STAEPFX+28 01323000 STASPTR EQU STAEPFX+24 01324000 STALEN EQU STAEPFX+20 01325000 STAID EQU STAEPFX+16 01326000 STAEPA EQU STAEPFX+12 01327000 STAGDT EQU STAEPFX+8 01328000 STABPTR EQU STAEPFX+4 01329000 STAFPTR EQU STAEPFX 01330000 NEWID1 EQU TRACE1+95 01331000 CALLID EQU OLDERID1+90 01332000 @NM00001 EQU OLDERID1 01333000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01334000 @RC00352 EQU @RC00350 01335000 @RF00338 EQU @RC00336 01336000 @ENDDATA EQU * 01337000 END ICKPP01,(C'PLS1718',0701,78192) 01338000