TITLE '********** DMS GET STATIC TEXT MODULE ********** *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 ICKTP05 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKTP05 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 MVC @PC00001(16),0(@01) 0002 00032000 * /* TERMINAL CONDITION CODE. */ 00033000 * /***********************************************************/ 00034000 * /* */ 00035000 * /* MAIN LINE CODE FOR GET STATIC TEXT MOD BEGINS HERE */ 00036000 * /* */ 00037000 * /***********************************************************/ 00038000 * 0198 00039000 * PCTPTR = GDTTPH; /* SET PCT ADDRESSABILITY. */ 00040000 L @10,@PC00001 0198 00041000 L PCTPTR,GDTTPH(,@10) 0198 00042000 * IF PCTSPP ^= NULLPTR 0199 00043000 * THEN 0199 00044000 L @10,PCTSPP(,PCTPTR) 0199 00045000 LTR @10,@10 0199 00046000 BZ @RF00199 0199 00047000 * PCTPTR = PCTSPP; 0200 00048000 * 0200 00049000 LR PCTPTR,@10 0200 00050000 * IF GDTDBG = NULLPTR 0201 00051000 * THEN; 0201 00052000 @RF00199 L @10,@PC00001 0201 00053000 L @10,GDTDBG(,@10) 0201 00054000 LTR @10,@10 0201 00055000 BZ @RT00201 0201 00056000 * ELSE 0203 00057000 * CALL ICKDB010 (GDTTBL,'TP5I'); 0203 00058000 * 0203 00059000 L @10,@PC00001 0203 00060000 ST @10,@AL00001 0203 00061000 LA @06,@CC00571 0203 00062000 ST @06,@AL00001+4 0203 00063000 MVI @AL00001+4,X'80' 0203 00064000 L @15,GDTDBG(,@10) 0203 00065000 LA @01,@AL00001 0203 00066000 BALR @14,@15 0203 00067000 * /***********************************************************/ 00068000 * /* */ 00069000 * /* FIRST, COMPUTE THE NAME OF THE DESIRED MODULE */ 00070000 * /* */ 00071000 * /***********************************************************/ 00072000 * 0204 00073000 * OLDERID2 = NEWERID2; 0204 00074000 @RT00201 L @10,@PC00001 0204 00075000 L @06,GDTTR2(,@10) 0204 00076000 MVC @TS00001(95),NEWERID2(@06) 0204 00077000 MVC OLDERID2(95,@06),@TS00001 0204 00078000 * NEWID2 = 'TP5E'; 0205 00079000 MVC NEWID2(4,@06),@CC00572 0205 00080000 * MODNAM(1:5) = PMODNAM; /* SET PATTERN IN MODNAM */ 00081000 * 0206 00082000 MVC MODNAM(5),PMODNAM 0206 00083000 * MODNAM(6:8) = STID(1:3); 0207 00084000 * 0207 00085000 L @06,@PC00001+4 0207 00086000 MVC MODNAM+5(3),STID(@06) 0207 00087000 * /***********************************************************/ 00088000 * /* */ 00089000 * /* CHECK FOR MODULE ALREADY IN CORE */ 00090000 * /* */ 00091000 * /***********************************************************/ 00092000 * 0208 00093000 * IF PCTSTM ^= MODNAM 0208 00094000 * THEN 0208 00095000 CLC PCTSTM(8,PCTPTR),MODNAM 0208 00096000 BE @RF00208 0208 00097000 * DO; 0209 00098000 * IF PCTSTM(1) ^= '00'X /* ANY MODULE YET. */ 00099000 * THEN 0210 00100000 * 0210 00101000 CLI PCTSTM(PCTPTR),X'00' 0210 00102000 BE @RF00210 0210 00103000 * CALL ICKSADE0 (GDTTBL,PCTSTM); 0211 00104000 * 0211 00105000 ST @10,@AL00001 0211 00106000 LA @06,PCTSTM(,PCTPTR) 0211 00107000 ST @06,@AL00001+4 0211 00108000 L @15,GDTDEL(,@10) 0211 00109000 LA @01,@AL00001 0211 00110000 BALR @14,@15 0211 00111000 * /***********************************************************/ 00112000 * /* */ 00113000 * /* LOAD THE REQUIRED MODULE */ 00114000 * /* */ 00115000 * /***********************************************************/ 00116000 * 0212 00117000 * CALL ICKSALD0 (GDTTBL,MODNAM,PCTSME); 0212 00118000 * 0212 00119000 @RF00210 L @10,@PC00001 0212 00120000 ST @10,@AL00001 0212 00121000 LA @06,MODNAM 0212 00122000 ST @06,@AL00001+4 0212 00123000 LA @06,PCTSME(,PCTPTR) 0212 00124000 ST @06,@AL00001+8 0212 00125000 L @15,GDTLOD(,@10) 0212 00126000 LA @01,@AL00001 0212 00127000 BALR @14,@15 0212 00128000 * PCTSTM = MODNAM; 0213 00129000 MVC PCTSTM(8,PCTPTR),MODNAM 0213 00130000 * END; 0214 00131000 * /***********************************************************/ 00132000 * /* */ 00133000 * /* LOCATE THE REQUIRED ENTRY IN THE STATIC TEXT MODULE */ 00134000 * /* */ 00135000 * /***********************************************************/ 00136000 * 0215 00137000 * INDEX = STID(4) + 1; /* SET ENTRY INDEX. */ 00138000 * 0215 00139000 @RF00208 LA @10,1 0215 00140000 L @06,@PC00001+4 0215 00141000 SLR INDEX,INDEX 0215 00142000 IC INDEX,STID+3(,@06) 0215 00143000 ALR INDEX,@10 0215 00144000 * /***********************************************************/ 00145000 * /* */ 00146000 * /* CHECK TO INSURE THAT THIS ENTRY IS IN THIS MODULE. */ 00147000 * /* */ 00148000 * /***********************************************************/ 00149000 * 0216 00150000 * IF INDEX-1 > LMINDX(1) | LMINDX(INDEX) = -1 | INDEX = 1 0216 00151000 * THEN 0216 00152000 LR @06,INDEX 0216 00153000 BCTR @06,0 0216 00154000 L @04,PCTSME(,PCTPTR) 0216 00155000 CH @06,LMINDX(,@04) 0216 00156000 BH @RT00216 0216 00157000 LR @06,INDEX 0216 00158000 ALR @06,@06 0216 00159000 BCTR @04,0 0216 00160000 BCTR @04,0 0216 00161000 LH @06,LMINDX(@06,@04) 0216 00162000 C @06,@CF00574 0216 00163000 BE @RT00216 0216 00164000 CR INDEX,@10 0216 00165000 BNE @RF00216 0216 00166000 @RT00216 DS 0H 0217 00167000 * DO; 0217 00168000 * SETRC = 8; 0218 00169000 * 0218 00170000 MVC SETRC(2),@CH00162 0218 00171000 * CALL ICKSAEP0(GDTTBL,MODID,SETRC); 0219 00172000 * 0219 00173000 L @10,@PC00001 0219 00174000 ST @10,@AL00001 0219 00175000 LA @06,MODID 0219 00176000 ST @06,@AL00001+4 0219 00177000 LA @06,SETRC 0219 00178000 ST @06,@AL00001+8 0219 00179000 MVI @AL00001+8,X'80' 0219 00180000 L @15,GDTEPL(,@10) 0219 00181000 LA @01,@AL00001 0219 00182000 BALR @14,@15 0219 00183000 * END; 0220 00184000 * 0220 00185000 * /***********************************************************/ 00186000 * /* */ 00187000 * /* SET UP ADDRESSING TO THE ENTRY. */ 00188000 * /* */ 00189000 * /***********************************************************/ 00190000 * 0221 00191000 * STENTRY = ADDR(LMINDX(1)) + LMINDX(INDEX); 0221 00192000 @RF00216 L @10,PCTSME(,PCTPTR) 0221 00193000 LR @04,INDEX 0221 00194000 ALR @04,@04 0221 00195000 BCTR @04,0 0221 00196000 BCTR @04,0 0221 00197000 LH STENTRY,LMINDX(@04,@10) 0221 00198000 ALR STENTRY,@10 0221 00199000 * STFLAG = LMNTRYF; 0222 00200000 MVC STFLAG(1),LMNTRYF(STENTRY) 0222 00201000 * STENTL = LMNTRYL; 0223 00202000 * 0223 00203000 LH @10,LMNTRYL(,STENTRY) 0223 00204000 ST @10,STENTL 0223 00205000 * /***********************************************************/ 00206000 * /* */ 00207000 * /* IF THIS IS A MESSAGE,INITIALIZE FOR THE MESSAGE. */ 00208000 * /* */ 00209000 * /***********************************************************/ 00210000 * 0224 00211000 * IF STMF = ON 0224 00212000 * THEN 0224 00213000 TM STMF,B'10000000' 0224 00214000 BNO @RF00224 0224 00215000 * PCTPMN = -1; 0225 00216000 * 0225 00217000 MVC PCTPMN(2,PCTPTR),@CH00574 0225 00218000 * /***********************************************************/ 00219000 * /* */ 00220000 * /* SET UP A NON-POOL ENTRY FOR RETURN TO THE CALLER. */ 00221000 * /* */ 00222000 * /***********************************************************/ 00223000 * 0226 00224000 * IF SBPOOL = 0 0226 00225000 * THEN 0226 00226000 @RF00224 L @10,@PC00001+8 0226 00227000 ICM @04,15,SBPOOL(@10) 0226 00228000 BNZ @RF00226 0226 00229000 * DO; 0227 00230000 * 0227 00231000 * CALL ICKSAGS0 (GDTTBL,STENTL,ENTRETP); 0228 00232000 * 0228 00233000 L @10,@PC00001 0228 00234000 ST @10,@AL00001 0228 00235000 LA @07,STENTL 0228 00236000 ST @07,@AL00001+4 0228 00237000 L @07,@PC00001+12 0228 00238000 ST @07,@AL00001+8 0228 00239000 MVI @AL00001+8,X'80' 0228 00240000 L @15,GDTGSP(,@10) 0228 00241000 LA @01,@AL00001 0228 00242000 BALR @14,@15 0228 00243000 * RESPECIFY RTNREG RSTD; 0229 00244000 * TESTRC = RTNREG; 0230 00245000 LR TESTRC,RTNREG 0230 00246000 * RESPECIFY RTNREG UNRSTD; 0231 00247000 * IF TESTRC ^= 0 0232 00248000 * THEN 0232 00249000 * 0232 00250000 LTR TESTRC,TESTRC 0232 00251000 BZ @RF00232 0232 00252000 * DO; 0233 00253000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0234 00254000 * REG15 = 28; 0235 00255000 LA REG15,28 0235 00256000 * REG14 = GDTABT; 0236 00257000 L @10,@PC00001 0236 00258000 L REG14,GDTABT(,@10) 0236 00259000 * REG13 = GDTABH; 0237 00260000 L REG13,GDTABH(,@10) 0237 00261000 * GEN(BR REG14); 0238 00262000 BR REG14 00263000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0239 00264000 * END; 0240 00265000 * 0240 00266000 * /*****************************************************/ 00267000 * /* */ 00268000 * /* MOVE THE ENTRY TO THE RETURN AREA. */ 00269000 * /* SET THE LINE TO BLANKS IF IT IS A MESSAGE. */ 00270000 * /* */ 00271000 * /*****************************************************/ 00272000 * 0241 00273000 * IF STMF = ON 0241 00274000 * THEN 0241 00275000 @RF00232 TM STMF,B'10000000' 0241 00276000 BNO @RF00241 0241 00277000 * DO; 0242 00278000 * ENTRET(1) = ' '; 0243 00279000 L @10,@PC00001+12 0243 00280000 L @10,ENTRETP(,@10) 0243 00281000 MVI ENTRET(@10),C' ' 0243 00282000 * MVC(ENTRET(2:STENTL),ENTRET); 0244 00283000 L @07,STENTL 0244 00284000 BCTR @07,0 0244 00285000 BCTR @07,0 0244 00286000 EX @07,@SM00579 0244 00287000 * END; 0245 00288000 * QENTP = ENTRETP - 12; 0246 00289000 @RF00241 L @10,@PC00001+12 0246 00290000 L @10,ENTRETP(,@10) 0246 00291000 SL @10,@CF00266 0246 00292000 ST @10,QENTP 0246 00293000 * DO WHILE STENTL > 0; 0247 00294000 B @DE00247 0247 00295000 @DL00247 DS 0H 0248 00296000 * IF STENTL > MAXMOV 0248 00297000 * THEN 0248 00298000 LA @10,256 0248 00299000 C @10,STENTL 0248 00300000 BNL @RF00248 0248 00301000 * DO; 0249 00302000 * QTEXT(1:MAXMOV) = LMNTRYD; 0250 00303000 L @07,QENTP 0250 00304000 MVC QTEXT(256,@07),LMNTRYD(STENTRY) 0250 00305000 * QENTP = QENTP + MAXMOV; 0251 00306000 ALR @07,@10 0251 00307000 ST @07,QENTP 0251 00308000 * END; 0252 00309000 * ELSE 0253 00310000 * QTEXT(1:STENTL) = LMNTRYD; 0253 00311000 B @RC00248 0253 00312000 @RF00248 L @10,QENTP 0253 00313000 L @07,STENTL 0253 00314000 BCTR @07,0 0253 00315000 EX @07,@SM00581 0253 00316000 * STENTL = STENTL - MAXMOV; 0254 00317000 @RC00248 LA @10,256 0254 00318000 L @07,STENTL 0254 00319000 SLR @07,@10 0254 00320000 ST @07,STENTL 0254 00321000 * STENTRY = STENTRY + MAXMOV; 0255 00322000 ALR STENTRY,@10 0255 00323000 * END; 0256 00324000 @DE00247 L @10,STENTL 0256 00325000 LTR @10,@10 0256 00326000 BP @DL00247 0256 00327000 * END; 0257 00328000 * 0257 00329000 * /***********************************************************/ 00330000 * /* */ 00331000 * /* GET A POOL ITEM AND ENQUE THE POOL REQUEST ELEMENT. */ 00332000 * /* QBASE IS USED TO KEEP THE POINTER TO THE PREVIOUS ENTRY */ 00333000 * /* IN THE CHAIN IN ORDER TO ADD TO THE CHAIN. */ 00334000 * /* */ 00335000 * /***********************************************************/ 00336000 * 0258 00337000 * ELSE 0258 00338000 * DO; 0258 00339000 * 0258 00340000 B @RC00226 0258 00341000 @RF00226 DS 0H 0259 00342000 * /*******************************************************/ 00343000 * /* */ 00344000 * /* LOCATE THE END ENTRY IN THE QUEUED ENTRYIES. */ 00345000 * /* */ 00346000 * /*******************************************************/ 00347000 * 0259 00348000 * QENTP = PCTSQP; 0259 00349000 L @10,PCTSQP(,PCTPTR) 0259 00350000 ST @10,QENTP 0259 00351000 * DO WHILE QENTP ^= NULLPTR; 0260 00352000 B @DE00260 0260 00353000 @DL00260 DS 0H 0261 00354000 * QBASE = QENTP; 0261 00355000 L @10,QENTP 0261 00356000 LR QBASE,@10 0261 00357000 * QENTP = QCHAIN; 0262 00358000 L @10,QCHAIN(,@10) 0262 00359000 ST @10,QENTP 0262 00360000 * END; 0263 00361000 @DE00260 L @10,QENTP 0263 00362000 LTR @10,@10 0263 00363000 BNZ @DL00260 0263 00364000 * STENTL = STENTL + 12; 0264 00365000 * 0264 00366000 LA @10,12 0264 00367000 AL @10,STENTL 0264 00368000 ST @10,STENTL 0264 00369000 * /*****************************************************/ 00370000 * /* */ 00371000 * /* GET CORE FOR THIS ENTRY. */ 00372000 * /* */ 00373000 * /*****************************************************/ 00374000 * 0265 00375000 * CALL ICKSAGP0 (GDTTBL,STENTL,QENTP,SBPOOL); 0265 00376000 * 0265 00377000 L @10,@PC00001 0265 00378000 ST @10,@AL00001 0265 00379000 LA @04,STENTL 0265 00380000 ST @04,@AL00001+4 0265 00381000 LA @04,QENTP 0265 00382000 ST @04,@AL00001+8 0265 00383000 L @04,@PC00001+8 0265 00384000 ST @04,@AL00001+12 0265 00385000 MVI @AL00001+12,X'80' 0265 00386000 L @15,GDTGPL(,@10) 0265 00387000 LA @01,@AL00001 0265 00388000 BALR @14,@15 0265 00389000 * RESPECIFY RTNREG RSTD; 0266 00390000 * TESTRC = RTNREG; 0267 00391000 LR TESTRC,RTNREG 0267 00392000 * RESPECIFY RTNREG UNRSTD; 0268 00393000 * IF TESTRC ^= 0 0269 00394000 * THEN 0269 00395000 * 0269 00396000 LTR TESTRC,TESTRC 0269 00397000 BZ @RF00269 0269 00398000 * DO; 0270 00399000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0271 00400000 * REG15 = 28; 0272 00401000 LA REG15,28 0272 00402000 * REG14 = GDTABT; 0273 00403000 L @10,@PC00001 0273 00404000 L REG14,GDTABT(,@10) 0273 00405000 * REG13 = GDTABH; 0274 00406000 L REG13,GDTABH(,@10) 0274 00407000 * GEN(BR REG14); 0275 00408000 BR REG14 00409000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0276 00410000 * END; 0277 00411000 * 0277 00412000 * /*****************************************************/ 00413000 * /* */ 00414000 * /* INITIALIZE THE ENTRY IN THE CORE. */ 00415000 * /* */ 00416000 * /*****************************************************/ 00417000 * 0278 00418000 * ENTRETP = QENTP; 0278 00419000 @RF00269 L @10,QENTP 0278 00420000 L @04,@PC00001+12 0278 00421000 ST @10,ENTRETP(,@04) 0278 00422000 * QSTID = STID; 0279 00423000 L @04,@PC00001+4 0279 00424000 MVC QSTID(4,@10),STID(@04) 0279 00425000 * QCHAIN = NULLPTR; 0280 00426000 SLR @04,@04 0280 00427000 ST @04,QCHAIN(,@10) 0280 00428000 * IF PCTSQP = NULLPTR 0281 00429000 * THEN 0281 00430000 C @04,PCTSQP(,PCTPTR) 0281 00431000 BNE @RF00281 0281 00432000 * PCTSQP = QENTP; 0282 00433000 ST @10,PCTSQP(,PCTPTR) 0282 00434000 * ELSE 0283 00435000 * QBASE -> QCHAIN = QENTP; 0283 00436000 B @RC00281 0283 00437000 @RF00281 L @10,QENTP 0283 00438000 ST @10,QCHAIN(,QBASE) 0283 00439000 * STENTL = STENTL - 12; 0284 00440000 @RC00281 L @10,STENTL 0284 00441000 SL @10,@CF00266 0284 00442000 ST @10,STENTL 0284 00443000 * QFLAGS = LMNTRYF; 0285 00444000 L @10,QENTP 0285 00445000 MVC QFLAGS(2,@10),LMNTRYF(STENTRY) 0285 00446000 * IF QHEADF = ON 0286 00447000 * THEN 0286 00448000 TM QHEADF(@10),B'01000000' 0286 00449000 BNO @RF00286 0286 00450000 * DO; 0287 00451000 * QHLC = LMHLC; 0288 00452000 LH @07,LMHLC(,STENTRY) 0288 00453000 STC @07,QHLC(,@10) 0288 00454000 * QHSC = LMHSC; 0289 00455000 LH @07,LMHSC(,STENTRY) 0289 00456000 STC @07,QHSC(,@10) 0289 00457000 * STENTRY = STENTRY + 4; 0290 00458000 AL STENTRY,@CF00043 0290 00459000 * END; 0291 00460000 * DO WHILE STENTL > 0; 0292 00461000 @RF00286 B @DE00292 0292 00462000 @DL00292 DS 0H 0293 00463000 * IF STENTL > MAXMOV 0293 00464000 * THEN 0293 00465000 LA @10,256 0293 00466000 C @10,STENTL 0293 00467000 BNL @RF00293 0293 00468000 * DO; 0294 00469000 * QTEXT(1:MAXMOV) = LMNTRYD; 0295 00470000 L @07,QENTP 0295 00471000 MVC QTEXT(256,@07),LMNTRYD(STENTRY) 0295 00472000 * QENTP = QENTP + MAXMOV; 0296 00473000 ALR @07,@10 0296 00474000 ST @07,QENTP 0296 00475000 * END; 0297 00476000 * ELSE 0298 00477000 * QTEXT(1:STENTL) = LMNTRYD; 0298 00478000 B @RC00293 0298 00479000 @RF00293 L @10,QENTP 0298 00480000 L @07,STENTL 0298 00481000 BCTR @07,0 0298 00482000 EX @07,@SM00581 0298 00483000 * STENTL = STENTL - 256; 0299 00484000 @RC00293 LA @10,256 0299 00485000 L @07,STENTL 0299 00486000 SLR @07,@10 0299 00487000 ST @07,STENTL 0299 00488000 * STENTRY = STENTRY + 256; 0300 00489000 ALR STENTRY,@10 0300 00490000 * END; 0301 00491000 @DE00292 L @10,STENTL 0301 00492000 LTR @10,@10 0301 00493000 BP @DL00292 0301 00494000 * END; 0302 00495000 * /***********************************************************/ 00496000 * /* */ 00497000 * /* END OF THE GET STATIC TEXT MODULE. */ 00498000 * /* */ 00499000 * /***********************************************************/ 00500000 * 0303 00501000 * IF GDTDBG = NULLPTR 0303 00502000 * THEN; 0303 00503000 @RC00226 L @10,@PC00001 0303 00504000 L @10,GDTDBG(,@10) 0303 00505000 LTR @10,@10 0303 00506000 BZ @RT00303 0303 00507000 * ELSE 0305 00508000 * CALL ICKDB010 (GDTTBL,'TP5N'); 0305 00509000 * 0305 00510000 L @10,@PC00001 0305 00511000 ST @10,@AL00001 0305 00512000 LA @03,@CC00578 0305 00513000 ST @03,@AL00001+4 0305 00514000 MVI @AL00001+4,X'80' 0305 00515000 L @15,GDTDBG(,@10) 0305 00516000 LA @01,@AL00001 0305 00517000 BALR @14,@15 0305 00518000 * CALL ICKSAEP0(GDTTBL,MODID,0); 0306 00519000 @RT00303 MVC @AL00001+4(8),@AL00306 0306 00520000 L @10,@PC00001 0306 00521000 ST @10,@AL00001 0306 00522000 L @15,GDTEPL(,@10) 0306 00523000 LA @01,@AL00001 0306 00524000 BALR @14,@15 0306 00525000 * END ICKTP05 0307 00526000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00527000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00528000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00529000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00530000 */*%INCLUDE SYSLIB (DMSDF07 ) * 00531000 *; 0307 00532000 @EL00001 L @13,4(,@13) 0307 00533000 @EF00001 L @00,@SIZDATD 0307 00534000 LR @01,@11 0307 00535000 FREEMAIN R,LV=(0),A=(1) 00536000 @ER00001 LM @14,@12,12(@13) 0307 00537000 BR @14 0307 00538000 @DATA DS 0H 00539000 @CH00162 DC H'8' 00540000 @SM00579 MVC ENTRET+1(0,@10),ENTRET(@10) 00541000 @SM00581 MVC QTEXT(0,@10),LMNTRYD(STENTRY) 00542000 DS 0F 00543000 @AL00306 DC A(MODID) LIST WITH 2 ARGUMENT(S) 00544000 DC AL1(X'80') 00545000 DC AL3(@CF00095) 00546000 @DATD DSECT 00547000 DS 0F 00548000 @SA00001 DS 18F 00549000 @PC00001 DS 4F 00550000 @AL00001 DS 4A 00551000 ICKTP05 CSECT 00552000 DS 0F 00553000 @CF00095 DC F'0' 00554000 @CF00043 DC F'4' 00555000 @CF00266 DC F'12' 00556000 @CF00574 DC F'-1' 00557000 @CH00574 EQU @CF00574+2 00558000 @DATD DSECT 00559000 DS 0D 00560000 LISTSCAN DS A 00561000 IOCSPTR DS A 00562000 OPNPTR DS A 00563000 DDSTRU DS A 00564000 FSADDR DS A 00565000 DMPINDEX DS A 00566000 QENTP DS A 00567000 STENTL DS F 00568000 LISTPTR DS A 00569000 SETRC DS H 00570000 LISTLN DS FL1 00571000 @TS00001 DS CL95 00572000 MODNAM DS CL8 00573000 STFLAG DS BL1 00574000 ORG STFLAG 00575000 STMF DS BL1 00576000 STHF EQU STFLAG+0 00577000 STRSV EQU STFLAG+0 00578000 ORG STFLAG+1 00579000 DS CL1 00580000 UNPKWD DS CL8 00581000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00582000 @ENDDATD EQU * 00583000 ICKTP05 CSECT 00584000 DS 0F 00585000 @SIZDATD DC AL1(0) 00586000 DC AL3(@ENDDATD-@DATD) 00587000 DS 0D 00588000 RCQUIT DC H'12' 00589000 @CC00571 DC C'TP5I' 00590000 @CC00572 DC C'TP5E' 00591000 @CC00578 DC C'TP5N' 00592000 MODID DC CL4'TP05' 00593000 PMODNAM DC CL5'ICKTS' 00594000 FIXAREA DS CL54 00595000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00596000 @01 EQU 01 00597000 @02 EQU 02 00598000 @03 EQU 03 00599000 @04 EQU 04 00600000 @05 EQU 05 00601000 @06 EQU 06 00602000 @07 EQU 07 00603000 @08 EQU 08 00604000 @09 EQU 09 00605000 @10 EQU 10 00606000 @11 EQU 11 00607000 @12 EQU 12 00608000 @13 EQU 13 00609000 @14 EQU 14 00610000 @15 EQU 15 00611000 QBASE EQU @07 00612000 INDEX EQU @03 00613000 STENTRY EQU @06 00614000 PCTPTR EQU @05 00615000 TESTRC EQU @03 00616000 RTNREG EQU @15 00617000 REG13 EQU @13 00618000 REG14 EQU @14 00619000 REG15 EQU @15 00620000 CVDREG EQU @02 00621000 REG0 EQU @00 00622000 REG1 EQU @01 00623000 REG10 EQU @10 00624000 REG11 EQU @11 00625000 REG12 EQU @12 00626000 REG2 EQU @02 00627000 REG3 EQU @03 00628000 REG4 EQU @04 00629000 REG5 EQU @05 00630000 REG6 EQU @06 00631000 REG7 EQU @07 00632000 REG8 EQU @08 00633000 REG9 EQU @09 00634000 ICKSALD0 EQU 0 00635000 ICKSADE0 EQU 0 00636000 ICKSAEP0 EQU 0 00637000 ICKSAGS0 EQU 0 00638000 ICKSAGP0 EQU 0 00639000 TRACE1 EQU 0 00640000 OLDERID1 EQU TRACE1 00641000 TRACE2 EQU 0 00642000 OLDERID2 EQU TRACE2 00643000 NEWID2 EQU TRACE2+95 00644000 NEWERID2 EQU 5 00645000 STAEPARM EQU 0 00646000 STAEPFX EQU STAEPARM 00647000 IOCSTR EQU 0 00648000 IOCDSO EQU IOCSTR+13 00649000 IOCRFM EQU IOCSTR+14 00650000 IOCMAC EQU IOCSTR+15 00651000 IOCMSG EQU IOCSTR+16 00652000 OPNAGL EQU 0 00653000 OPNOPT EQU OPNAGL 00654000 OPNRFM EQU OPNAGL+1 00655000 OPNTYP EQU OPNAGL+2 00656000 OPNMOD EQU OPNAGL+3 00657000 UVOLLIST EQU 0 00658000 UVOLENT EQU UVOLLIST+2 00659000 DARGLIST EQU 0 00660000 DARGSTID EQU DARGLIST+8 00661000 DARGARY EQU DARGLIST+20 00662000 DARGINS EQU DARGARY 00663000 DARGINL EQU DARGARY+2 00664000 FMTLIST EQU 0 00665000 FMTFLGS EQU FMTLIST 00666000 FMTSPF EQU FMTLIST+2 00667000 FMTRFNO EQU FMTSPF 00668000 FMTILEN EQU FMTRFNO 00669000 FMTIOFF EQU FMTLIST+4 00670000 FMTTRBC EQU FMTIOFF 00671000 FMTSTO EQU FMTTRBC 00672000 FMTOCOL EQU FMTLIST+6 00673000 FMTCNVF EQU FMTLIST+10 00674000 ICKDB010 EQU 0 00675000 DMPITM EQU 0 00676000 DMPARY EQU 0 00677000 PCTTAB EQU 0 00678000 PCTFLG EQU PCTTAB+4 00679000 PCTSPP EQU PCTTAB+8 00680000 PCTACT EQU PCTTAB+12 00681000 PCTAPL EQU PCTACT+4 00682000 PCTSTD EQU PCTTAB+20 00683000 PCTSPL EQU PCTSTD+4 00684000 PCTALT EQU PCTTAB+28 00685000 PCTLPL EQU PCTALT+4 00686000 PCTSTM EQU PCTTAB+36 00687000 PCTSME EQU PCTTAB+44 00688000 PCTSQP EQU PCTTAB+48 00689000 PCTPMN EQU PCTTAB+86 00690000 LMINDX EQU 0 00691000 LMNTRY EQU 0 00692000 LMNTRYL EQU LMNTRY 00693000 LMNTRYF EQU LMNTRY+2 00694000 LMNTRYD EQU LMNTRY+4 00695000 LMHLC EQU LMNTRYD 00696000 LMHSC EQU LMNTRYD+2 00697000 ENTRET EQU 0 00698000 QENTRY EQU 0 00699000 QSTID EQU QENTRY 00700000 QCHAIN EQU QENTRY+4 00701000 QFLAGS EQU QENTRY+8 00702000 QHEADF EQU QFLAGS 00703000 QHLC EQU QENTRY+10 00704000 QHSC EQU QENTRY+11 00705000 QTEXT EQU QENTRY+12 00706000 DMPTRM EQU 0 00707000 ICKDVCL0 EQU 0 00708000 ICKDVIN0 EQU 0 00709000 ICKDVON0 EQU 0 00710000 ICKDVOP0 EQU 0 00711000 ICKIOCL0 EQU 0 00712000 ICKIOGT0 EQU 0 00713000 ICKIOIT0 EQU 0 00714000 ICKIOOP0 EQU 0 00715000 ICKIOPT0 EQU 0 00716000 ICKIOTM0 EQU 0 00717000 ICKSACL0 EQU 0 00718000 ICKSAFP0 EQU 0 00719000 ICKSAFS0 EQU 0 00720000 ICKSAPR0 EQU 0 00721000 ICKSASC0 EQU 0 00722000 ICKSASN0 EQU 0 00723000 ICKSAST0 EQU 0 00724000 ICKSATI0 EQU 0 00725000 ICKSAVC0 EQU 0 00726000 ICKSAWO0 EQU 0 00727000 ICKTPEA0 EQU 0 00728000 ICKTPES0 EQU 0 00729000 ICKTPPR0 EQU 0 00730000 ICKTPRE0 EQU 0 00731000 ICKTPRS0 EQU 0 00732000 LISTTEST EQU 0 00733000 NEWERID1 EQU 5 00734000 GDTTBL EQU 0 00735000 GDTTR1 EQU GDTTBL+8 00736000 GDTTR2 EQU GDTTBL+12 00737000 GDTTPH EQU GDTTBL+28 00738000 GDTDIN EQU GDTTBL+44 00739000 GDTDOP EQU GDTTBL+48 00740000 GDTDBG EQU GDTTBL+52 00741000 GDTDVO EQU GDTTBL+56 00742000 GDTPRT EQU GDTTBL+60 00743000 GDTESS EQU GDTTBL+64 00744000 GDTESA EQU GDTTBL+68 00745000 GDTRST EQU GDTTBL+72 00746000 GDTRES EQU GDTTBL+76 00747000 GDTCAL EQU GDTTBL+80 00748000 GDTGSP EQU GDTTBL+84 00749000 GDTFSP EQU GDTTBL+88 00750000 GDTGPL EQU GDTTBL+92 00751000 GDTFPL EQU GDTTBL+96 00752000 GDTLOD EQU GDTTBL+100 00753000 GDTDEL EQU GDTTBL+104 00754000 GDTPRL EQU GDTTBL+108 00755000 GDTEPL EQU GDTTBL+112 00756000 GDTTIM EQU GDTTBL+116 00757000 GDTIIO EQU GDTTBL+120 00758000 GDTTIO EQU GDTTBL+124 00759000 GDTOPN EQU GDTTBL+136 00760000 GDTCLS EQU GDTTBL+140 00761000 GDTGET EQU GDTTBL+144 00762000 GDTPUT EQU GDTTBL+148 00763000 GDTABT EQU GDTTBL+152 00764000 GDTABH EQU GDTTBL+156 00765000 GDTSNP EQU GDTTBL+160 00766000 GDTWTO EQU GDTTBL+168 00767000 GDTSCR EQU GDTTBL+172 00768000 GDTVCK EQU GDTTBL+176 00769000 GDTDVC EQU GDTTBL+180 00770000 GDTSTE EQU GDTTBL+188 00771000 STID EQU 0 00772000 SBPOOL EQU 0 00773000 ENTRETP EQU 0 00774000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00775000 GDTCVR EQU GDTTBL+184 00776000 GDTSPR EQU GDTTBL+164 00777000 GDTTOH EQU GDTTBL+132 00778000 GDTRIP EQU GDTTBL+128 00779000 GDTDVH EQU GDTTBL+40 00780000 GDTIOH EQU GDTTBL+36 00781000 GDTSAH EQU GDTTBL+32 00782000 GDTRIH EQU GDTTBL+24 00783000 GDTSTH EQU GDTTBL+20 00784000 GDTDBH EQU GDTTBL+16 00785000 GDTPRM EQU GDTTBL+4 00786000 GDTHDR EQU GDTTBL 00787000 @NM00020 EQU QFLAGS 00788000 QSECMF EQU QFLAGS 00789000 QMSGF EQU QFLAGS 00790000 ENTWORD EQU ENTRET 00791000 @NM00019 EQU LMNTRYF 00792000 LMSECMF EQU LMNTRYF 00793000 LMHDRF EQU LMNTRYF 00794000 LMMESSF EQU LMNTRYF 00795000 PCTBNL EQU PCTTAB+108 00796000 PCTBUF EQU PCTTAB+104 00797000 PCTLNM EQU PCTTAB+102 00798000 PCTFLN EQU PCTTAB+100 00799000 PCTLDL EQU PCTTAB+98 00800000 PCTFDL EQU PCTTAB+96 00801000 PCTPNI EQU PCTTAB+94 00802000 PCTDSC EQU PCTTAB+92 00803000 PCTPPD EQU PCTTAB+90 00804000 PCTAPC EQU PCTTAB+88 00805000 PCTPNL EQU PCTTAB+84 00806000 PCTHSC EQU PCTTAB+83 00807000 PCTHLC EQU PCTTAB+82 00808000 PCTFLC EQU PCTTAB+80 00809000 PCTFLP EQU PCTTAB+76 00810000 PCTSLC EQU PCTTAB+74 00811000 PCTMLC EQU PCTTAB+72 00812000 PCTPLW EQU PCTTAB+68 00813000 PCTTRP EQU PCTTAB+64 00814000 PCTSLP EQU PCTTAB+60 00815000 PCTMLP EQU PCTTAB+56 00816000 PCTAHP EQU PCTTAB+52 00817000 PCTANL EQU PCTLPL+2 00818000 PCTAPN EQU PCTLPL 00819000 PCTIOP EQU PCTALT 00820000 PCTSNL EQU PCTSPL+2 00821000 PCTSPN EQU PCTSPL 00822000 PCTIOS EQU PCTSTD 00823000 PCTNLI EQU PCTAPL+2 00824000 PCTCPN EQU PCTAPL 00825000 PCTIOC EQU PCTACT 00826000 @NM00018 EQU PCTFLG 00827000 PCTAPF EQU PCTFLG 00828000 PCTLLM EQU PCTFLG 00829000 PCTHAF EQU PCTFLG 00830000 PCTH2F EQU PCTFLG 00831000 PCTH1F EQU PCTFLG 00832000 PCTIDN EQU PCTTAB 00833000 @NM00017 EQU DMPARY+15 00834000 DMPARYTP EQU DMPARY+14 00835000 DMPARYEX EQU DMPARY+12 00836000 DMPARYIC EQU DMPARY+10 00837000 DMPARYSZ EQU DMPARY+8 00838000 DMPARYNM EQU DMPARY 00839000 @NM00016 EQU DMPITM+15 00840000 DMPITMTP EQU DMPITM+14 00841000 DMPITMLN EQU DMPITM+12 00842000 DMPITMPT EQU DMPITM+8 00843000 DMPITMNM EQU DMPITM 00844000 @NM00015 EQU FMTCNVF+1 00845000 FMTBS EQU FMTCNVF+1 00846000 FMTSS EQU FMTCNVF+1 00847000 FMTAL EQU FMTCNVF+1 00848000 FMTZS EQU FMTCNVF+1 00849000 @NM00014 EQU FMTCNVF 00850000 FMTPU EQU FMTCNVF 00851000 FMTBD EQU FMTCNVF 00852000 FMTBHD EQU FMTCNVF 00853000 FMTBHA EQU FMTCNVF 00854000 FMTBH EQU FMTCNVF 00855000 FMTOLEN EQU FMTLIST+8 00856000 FMTRIO EQU FMTOCOL 00857000 FMTSPT EQU FMTSTO 00858000 FMTSTL EQU FMTILEN 00859000 @NM00013 EQU FMTFLGS+1 00860000 FMTHDF EQU FMTFLGS 00861000 FMTDFF EQU FMTFLGS 00862000 FMTSTF EQU FMTFLGS 00863000 FMTREPF EQU FMTFLGS 00864000 FMTBDF EQU FMTFLGS 00865000 FMTIDF EQU FMTFLGS 00866000 FMTSCF EQU FMTFLGS 00867000 FMTEOLF EQU FMTFLGS 00868000 DARGDTM EQU DARGARY+4 00869000 DARGPCT EQU DARGINL 00870000 DARGREP EQU DARGINS 00871000 @NM00012 EQU DARGLIST+19 00872000 DARGIND EQU DARGLIST+18 00873000 DARGRETL EQU DARGLIST+16 00874000 DARGCNT EQU DARGLIST+14 00875000 DARGILP EQU DARGLIST+12 00876000 DARGSENT EQU DARGSTID+3 00877000 DARGSMOD EQU DARGSTID 00878000 DARGRETP EQU DARGLIST+4 00879000 DARGDBP EQU DARGLIST 00880000 UVOLVOL EQU UVOLENT+4 00881000 UVOLDEV EQU UVOLENT 00882000 UVOLCNT EQU UVOLLIST 00883000 OPNRSVD EQU OPNAGL+28 00884000 OPNVOL EQU OPNAGL+24 00885000 OPNBLK EQU OPNAGL+20 00886000 OPNREC EQU OPNAGL+16 00887000 OPNDSN EQU OPNAGL+12 00888000 OPNDDN EQU OPNAGL+8 00889000 OPNIOC EQU OPNAGL+4 00890000 @NM00011 EQU OPNMOD 00891000 OPNMODRC EQU OPNMOD 00892000 OPNMODAC EQU OPNMOD 00893000 @NM00010 EQU OPNTYP 00894000 OPNTYPSO EQU OPNTYP 00895000 OPNTYPSI EQU OPNTYP 00896000 @NM00009 EQU OPNRFM 00897000 OPNRFMBK EQU OPNRFM 00898000 OPNRFMSF EQU OPNRFM 00899000 OPNRFMUN EQU OPNRFM 00900000 OPNRFMVR EQU OPNRFM 00901000 OPNRFMFX EQU OPNRFM 00902000 @NM00008 EQU OPNOPT 00903000 OPNOPTJM EQU OPNOPT 00904000 OPNOPTKS EQU OPNOPT 00905000 OPNOPTBK EQU OPNOPT 00906000 OPNOPTUP EQU OPNOPT 00907000 OPNOPTOT EQU OPNOPT 00908000 OPNOPTIN EQU OPNOPT 00909000 IOCEXT EQU IOCSTR+36 00910000 IOCRRN EQU IOCSTR+32 00911000 @NM00007 EQU IOCSTR+30 00912000 IOCPNM EQU IOCSTR+28 00913000 IOCCBP EQU IOCSTR+24 00914000 IOCDSN EQU IOCSTR+20 00915000 @NM00006 EQU IOCSTR+17 00916000 @NM00005 EQU IOCMSG 00917000 IOCMSGOP EQU IOCMSG 00918000 IOCMACPA EQU IOCMAC 00919000 @NM00004 EQU IOCMAC 00920000 IOCMACBK EQU IOCMAC 00921000 IOCMACUP EQU IOCMAC 00922000 IOCMACOT EQU IOCMAC 00923000 IOCMACIN EQU IOCMAC 00924000 @NM00003 EQU IOCRFM 00925000 IOCRFMBK EQU IOCRFM 00926000 IOCRFMSF EQU IOCRFM 00927000 IOCRFMUN EQU IOCRFM 00928000 IOCRFMVR EQU IOCRFM 00929000 IOCRFMFX EQU IOCRFM 00930000 @NM00002 EQU IOCDSO 00931000 IOCDSOPS EQU IOCDSO 00932000 IOCKYL EQU IOCSTR+12 00933000 IOCTRN EQU IOCSTR+8 00934000 IOCDLN EQU IOCSTR+4 00935000 IOCDAD EQU IOCSTR 00936000 STAEWORK EQU STAEPARM+32 00937000 STARPTR EQU STAEPFX+28 00938000 STASPTR EQU STAEPFX+24 00939000 STALEN EQU STAEPFX+20 00940000 STAID EQU STAEPFX+16 00941000 STAEPA EQU STAEPFX+12 00942000 STAGDT EQU STAEPFX+8 00943000 STABPTR EQU STAEPFX+4 00944000 STAFPTR EQU STAEPFX 00945000 NEWID1 EQU TRACE1+95 00946000 CALLID EQU OLDERID1+90 00947000 @NM00001 EQU OLDERID1 00948000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00949000 @ENDDATA EQU * 00950000 END ICKTP05,(C'PLS1810',0701,78192) 00951000