TITLE '********** ICKRP01: RECLAIM PRIMARY TRACK ***********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 ICKRP01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKRP01 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(28),0(@01) 0002 00033000 * 0176 00034000 EJECT 00035000 */***** B E G I N E X E C U T I O N *****************************/ 00036000 * 0177 00037000 * IF GDTDBG = NULLPTR 0177 00038000 * THEN; 0177 00039000 L @10,@PC00001 0177 00040000 L @10,GDTDBG(,@10) 0177 00041000 LTR @10,@10 0177 00042000 BZ @RT00177 0177 00043000 * ELSE 0179 00044000 * CALL ICKDB010 (GDTTBL 0179 00045000 * ,'RP00'); 0179 00046000 * 0179 00047000 * 0179 00048000 L @10,@PC00001 0179 00049000 ST @10,@AL00001 0179 00050000 LA @15,@CC00519 0179 00051000 ST @15,@AL00001+4 0179 00052000 MVI @AL00001+4,X'80' 0179 00053000 L @15,GDTDBG(,@10) 0179 00054000 LA @01,@AL00001 0179 00055000 BALR @14,@15 0179 00056000 */* OBTAIN ADDRESSES OF THE FIRST AND LAST ALT. TRACK */ 00057000 */* AND ALSO THE NUMBER OF TRACKS PER CYLINDER (UDEVINFO) */ 00058000 * DO I = 1 TO INFOSET; 0180 00059000 * 0180 00060000 @RT00177 LA I,1 0180 00061000 @DL00180 DS 0H 0181 00062000 * CALL ICKDVIN0 (GDTTBL 0181 00063000 * ,VOLIB 0181 00064000 * ,INFOVECT (I) 0181 00065000 * ,POOLID 0181 00066000 * ,INFOPTR (I) 0181 00067000 * ,INFOLEN (I) 0181 00068000 * ,CCODE (I)); 0181 00069000 L @10,@PC00001 0181 00070000 ST @10,@AL00001 0181 00071000 L @03,@PC00001+4 0181 00072000 ST @03,@AL00001+4 0181 00073000 LR @03,I 0181 00074000 SLA @03,2 0181 00075000 LA @15,INFOVECT-4(@03) 0181 00076000 ST @15,@AL00001+8 0181 00077000 LA @15,POOLID 0181 00078000 ST @15,@AL00001+12 0181 00079000 LA @15,INFOPTR-4(@03) 0181 00080000 ST @15,@AL00001+16 0181 00081000 LA @15,INFOLEN-4(@03) 0181 00082000 ST @15,@AL00001+20 0181 00083000 LA @03,CCODE-4(@03) 0181 00084000 ST @03,@AL00001+24 0181 00085000 L @15,GDTDIN(,@10) 0181 00086000 LA @01,@AL00001 0181 00087000 BALR @14,@15 0181 00088000 * END; 0182 00089000 AH I,@CH00169 0182 00090000 CH I,@CH00140 0182 00091000 BNH @DL00180 0182 00092000 */* SET CONDITION CODE TO INDICATE SUCCESSFUL COMPLETION INITIALLY */ 00093000 * CONDCODE = SUCCEEDS; 0183 00094000 L @10,@PC00001+24 0183 00095000 SLR @15,@15 0183 00096000 ST @15,CONDCODE(,@10) 0183 00097000 */* READ STANDARD-LENGTH RECORD-ZERO (TO OBTAIN ASSOCIATION */ 00098000 */* IF ANY) (UDEVOP) */ 00099000 * CALL ICKDVOP0 (GDTTBL 0184 00100000 * ,VOLIB 0184 00101000 * ,ACTRDRZ 0184 00102000 * ,PRCCHH 0184 00103000 * ,RECNUM 0184 00104000 * ,POOLID 0184 00105000 * ,RZPTR 0184 00106000 * ,RZLEN 0184 00107000 * ,RETCODE); 0184 00108000 L @10,@PC00001 0184 00109000 ST @10,@AL00001 0184 00110000 L @15,@PC00001+4 0184 00111000 ST @15,@AL00001+4 0184 00112000 LA @15,@CF00120 0184 00113000 ST @15,@AL00001+8 0184 00114000 L @15,@PC00001+8 0184 00115000 ST @15,@AL00001+12 0184 00116000 LA @15,RECNUM 0184 00117000 ST @15,@AL00001+16 0184 00118000 LA @15,POOLID 0184 00119000 ST @15,@AL00001+20 0184 00120000 LA @15,RZPTR 0184 00121000 ST @15,@AL00001+24 0184 00122000 LA @15,RZLEN 0184 00123000 ST @15,@AL00001+28 0184 00124000 LA @15,RETCODE 0184 00125000 ST @15,@AL00001+32 0184 00126000 L @15,GDTDOP(,@10) 0184 00127000 LA @01,@AL00001 0184 00128000 BALR @14,@15 0184 00129000 */* IF READ OPERATION FAILS */ 00130000 * IF RETCODE = CPFAILS 0185 00131000 */* THEN INDICATE RECLAMATION FAILS (CONDCODE = 3) */ 00132000 * THEN DO; CONDCODE = RECFAILU; END; 0185 00133000 CLC RETCODE(4),@CF00048 0185 00134000 BNE @RF00185 0185 00135000 L @10,@PC00001+24 0187 00136000 MVC CONDCODE(4,@10),@CF00120 0187 00137000 */* ELSE */ 00138000 * ELSE DO; 0189 00139000 * 0189 00140000 B @RC00185 0189 00141000 @RF00185 DS 0H 0190 00142000 */* IF THE DEFECT-FLAG IS SET DUE TO RECOVERY */ 00143000 * IF RETCODE = DFLAGONP 0190 00144000 */* THEN INDICATE RECLAMATION FAILS BUT TRACK RECOVERED */ 00145000 * THEN DO; CONDCODE = RECFAILS; END; 0190 00146000 CLC RETCODE(4),@CF00120 0190 00147000 BNE @RF00190 0190 00148000 L @10,@PC00001+24 0192 00149000 MVC CONDCODE(4,@10),@CF00169 0192 00150000 */* END-ELSE */ 00151000 * END; 0194 00152000 @RF00190 DS 0H 0195 00153000 */* IF NO ERRORS FOUND SO FAR */ 00154000 * IF CONDCODE = SUCCEEDS 0195 00155000 */* THEN */ 00156000 * THEN DO; 0195 00157000 * 0195 00158000 @RC00185 L @10,@PC00001+24 0195 00159000 L @10,CONDCODE(,@10) 0195 00160000 LTR @10,@10 0195 00161000 BNZ @RF00195 0195 00162000 */* WRITE PRIMARY HOME-ADDRESS WITH DEFECT FLAG OFF (UDEVOP) */ 00163000 * CALL ICKDVOP0 (GDTTBL 0197 00164000 * ,VOLIB 0197 00165000 * ,ACTWPHA 0197 00166000 * ,PRCCHH 0197 00167000 * ,RECNUM 0197 00168000 * ,POOLID 0197 00169000 * ,DUMMYPTR 0197 00170000 * ,DUMMYLEN 0197 00171000 * ,RETCODE); 0197 00172000 L @10,@PC00001 0197 00173000 ST @10,@AL00001 0197 00174000 L @15,@PC00001+4 0197 00175000 ST @15,@AL00001+4 0197 00176000 LA @15,@CF00048 0197 00177000 ST @15,@AL00001+8 0197 00178000 L @15,@PC00001+8 0197 00179000 ST @15,@AL00001+12 0197 00180000 LA @15,RECNUM 0197 00181000 ST @15,@AL00001+16 0197 00182000 LA @15,POOLID 0197 00183000 ST @15,@AL00001+20 0197 00184000 LA @15,DUMMYPTR 0197 00185000 ST @15,@AL00001+24 0197 00186000 LA @15,DUMMYLEN 0197 00187000 ST @15,@AL00001+28 0197 00188000 LA @15,RETCODE 0197 00189000 ST @15,@AL00001+32 0197 00190000 L @15,GDTDOP(,@10) 0197 00191000 LA @01,@AL00001 0197 00192000 BALR @14,@15 0197 00193000 */* IF WRITE OPERATION FAILS */ 00194000 * IF RETCODE = CPFAILS 0198 00195000 */* THEN INDICATE RECLAMATION FAILS (CONDCODE = 3) */ 00196000 * THEN DO; CONDCODE = RECFAILU; END; 0198 00197000 CLC RETCODE(4),@CF00048 0198 00198000 BNE @RF00198 0198 00199000 L @10,@PC00001+24 0200 00200000 MVC CONDCODE(4,@10),@CF00120 0200 00201000 */* ELSE */ 00202000 * ELSE DO; 0202 00203000 * 0202 00204000 B @RC00198 0202 00205000 @RF00198 DS 0H 0203 00206000 */* IF THE DEFECT-FLAG IS SET DUE TO RECOVERY */ 00207000 * IF RETCODE = DFLAGONP 0203 00208000 */* THEN INDICATE RECLAMATION FAILS BUT TRACK RECOVERED */ 00209000 * THEN DO; CONDCODE = RECFAILS; END; 0203 00210000 CLC RETCODE(4),@CF00120 0203 00211000 BNE @RF00203 0203 00212000 L @10,@PC00001+24 0205 00213000 MVC CONDCODE(4,@10),@CF00169 0205 00214000 */* END-ELSE */ 00215000 * END; 0207 00216000 @RF00203 DS 0H 0208 00217000 */* END-THEN */ 00218000 * END; 0208 00219000 @RC00198 DS 0H 0209 00220000 */* IF THERE ARE NO ERRORS INDICATED SO FAR (CONDCODE = 0) */ 00221000 * IF CONDCODE = SUCCEEDS 0209 00222000 */* THEN */ 00223000 * THEN DO; 0209 00224000 * 0209 00225000 @RF00195 L @10,@PC00001+24 0209 00226000 L @10,CONDCODE(,@10) 0209 00227000 LTR @10,@10 0209 00228000 BNZ @RF00209 0209 00229000 */* WRITE STANDARD-LENGTH RECORD-ZERO (OF THE PRIMARY) */ 00230000 */* (UDEVOP) */ 00231000 * CALL ICKDVOP0 (GDTTBL 0211 00232000 * ,VOLIB 0211 00233000 * ,ACTWRZS 0211 00234000 * ,PRCCHH 0211 00235000 * ,RECNUM 0211 00236000 * ,POOLID 0211 00237000 * ,ADDR (PRCCHH) 0211 00238000 * ,LENGTH (PRCCHH) 0211 00239000 * ,RETCODE); 0211 00240000 L @10,@PC00001 0211 00241000 ST @10,@AL00001 0211 00242000 L @15,@PC00001+4 0211 00243000 ST @15,@AL00001+4 0211 00244000 LA @15,@CF00165 0211 00245000 ST @15,@AL00001+8 0211 00246000 L @15,@PC00001+8 0211 00247000 ST @15,@AL00001+12 0211 00248000 LA @14,RECNUM 0211 00249000 ST @14,@AL00001+16 0211 00250000 LA @14,POOLID 0211 00251000 ST @14,@AL00001+20 0211 00252000 ST @15,@AFTEMPS 0211 00253000 LA @15,@AFTEMPS 0211 00254000 ST @15,@AL00001+24 0211 00255000 LA @15,@CF00048 0211 00256000 ST @15,@AL00001+28 0211 00257000 LA @15,RETCODE 0211 00258000 ST @15,@AL00001+32 0211 00259000 L @15,GDTDOP(,@10) 0211 00260000 LA @01,@AL00001 0211 00261000 BALR @14,@15 0211 00262000 */* IF WRITE OPERATION FAILS */ 00263000 * IF RETCODE = CPFAILS 0212 00264000 */* THEN */ 00265000 * THEN DO; 0212 00266000 * 0212 00267000 CLC RETCODE(4),@CF00048 0212 00268000 BNE @RF00212 0212 00269000 */* INDICATE RECLAMATION FAILS AND TRACK UNRECOVERABLE */ 00270000 * CONDCODE = RECFAILU; 0214 00271000 L @10,@PC00001+24 0214 00272000 MVC CONDCODE(4,@10),@CF00120 0214 00273000 */* WRITE PRIMARY HOME-ADDRESS WITH DEFECT-FLAG ON */ 00274000 */* (UDEVOP) */ 00275000 * CALL ICKDVOP0 (GDTTBL 0215 00276000 * ,VOLIB 0215 00277000 * ,ACTWPHAD 0215 00278000 * ,PRCCHH 0215 00279000 * ,RECNUM 0215 00280000 * ,POOLID 0215 00281000 * ,DUMMYPTR 0215 00282000 * ,DUMMYLEN 0215 00283000 * ,RETCODE); 0215 00284000 L @10,@PC00001 0215 00285000 ST @10,@AL00001 0215 00286000 L @15,@PC00001+4 0215 00287000 ST @15,@AL00001+4 0215 00288000 LA @15,@CF00140 0215 00289000 ST @15,@AL00001+8 0215 00290000 L @15,@PC00001+8 0215 00291000 ST @15,@AL00001+12 0215 00292000 LA @15,RECNUM 0215 00293000 ST @15,@AL00001+16 0215 00294000 LA @15,POOLID 0215 00295000 ST @15,@AL00001+20 0215 00296000 LA @15,DUMMYPTR 0215 00297000 ST @15,@AL00001+24 0215 00298000 LA @15,DUMMYLEN 0215 00299000 ST @15,@AL00001+28 0215 00300000 LA @15,RETCODE 0215 00301000 ST @15,@AL00001+32 0215 00302000 L @15,GDTDOP(,@10) 0215 00303000 LA @01,@AL00001 0215 00304000 BALR @14,@15 0215 00305000 */* END-THEN */ 00306000 * END; 0216 00307000 */* ELSE */ 00308000 * ELSE DO; 0217 00309000 * 0217 00310000 B @RC00212 0217 00311000 @RF00212 DS 0H 0218 00312000 */* IF THE DEFECT-FLAG IS SET DUE TO RECOVERY */ 00313000 * IF RETCODE = DFLAGONP 0218 00314000 */* THEN INDICATE RECLAMATION FAILS BUT TRACK */ 00315000 */* RECOVERED */ 00316000 * THEN DO; CONDCODE = RECFAILS; END; 0218 00317000 CLC RETCODE(4),@CF00120 0218 00318000 BNE @RF00218 0218 00319000 L @10,@PC00001+24 0220 00320000 MVC CONDCODE(4,@10),@CF00169 0220 00321000 */* END-ELSE */ 00322000 * END; 0222 00323000 @RF00218 DS 0H 0223 00324000 */* END-THEN */ 00325000 * END; 0223 00326000 @RC00212 DS 0H 0224 00327000 */* IF THERE ARE NO ERRORS INDICATED SO FAR (CONDCODE = 0) */ 00328000 * IF CONDCODE = SUCCEEDS 0224 00329000 */* THEN */ 00330000 * THEN DO; 0224 00331000 * 0224 00332000 @RF00209 L @10,@PC00001+24 0224 00333000 L @10,CONDCODE(,@10) 0224 00334000 LTR @10,@10 0224 00335000 BNZ @RF00224 0224 00336000 */* IF THE PRIMARY TRACK IS ASSOCIATED WITH AN ALTERNATE */ 00337000 * IF (ALCCHH >= FIRSTALT) & (ALCCHH <= LASTALT) 0226 00338000 */* THEN */ 00339000 * THEN DO; 0226 00340000 * 0226 00341000 L @10,@PC00001+12 0226 00342000 L @15,ALCCHH(,@10) 0226 00343000 L @14,INFOPTR 0226 00344000 CL @15,FIRSTALT(,@14) 0226 00345000 BL @RF00226 0226 00346000 L @01,INFOPTR+4 0226 00347000 CL @15,LASTALT(,@01) 0226 00348000 BH @RF00226 0226 00349000 */* READ HOME-ADDRESS (OF THE ALTERNATE TRACK TO OBTAIN */ 00350000 */* DEFECT-FLAG ) (UDEVOP) */ 00351000 * CALL ICKDVOP0 (GDTTBL 0228 00352000 * ,VOLIB 0228 00353000 * ,ACTRDHA 0228 00354000 * ,ALCCHH 0228 00355000 * ,RECNUM 0228 00356000 * ,POOLID 0228 00357000 * ,DUMMYPTR 0228 00358000 * ,DUMMYLEN 0228 00359000 * ,RETCODE); 0228 00360000 L @15,@PC00001 0228 00361000 ST @15,@AL00001 0228 00362000 L @14,@PC00001+4 0228 00363000 ST @14,@AL00001+4 0228 00364000 LA @14,@CF00169 0228 00365000 ST @14,@AL00001+8 0228 00366000 ST @10,@AL00001+12 0228 00367000 LA @10,RECNUM 0228 00368000 ST @10,@AL00001+16 0228 00369000 LA @10,POOLID 0228 00370000 ST @10,@AL00001+20 0228 00371000 LA @10,DUMMYPTR 0228 00372000 ST @10,@AL00001+24 0228 00373000 LA @10,DUMMYLEN 0228 00374000 ST @10,@AL00001+28 0228 00375000 LA @10,RETCODE 0228 00376000 ST @10,@AL00001+32 0228 00377000 L @15,GDTDOP(,@15) 0228 00378000 LA @01,@AL00001 0228 00379000 BALR @14,@15 0228 00380000 */* IF THE DEFECT-FLAG IS FOUND NOT TO BE SET */ 00381000 * IF RETCODE = DFLAGOFA 0229 00382000 */* THEN */ 00383000 * THEN DO; 0229 00384000 * 0229 00385000 CLC RETCODE(4),@CF00189 0229 00386000 BNE @RF00229 0229 00387000 */* READ STANDARD-LENGTH RECORD-ZERO (OF THE */ 00388000 */* ALT. TO ENSURE BACKWARD ASSOCIATION) */ 00389000 * CALL ICKDVOP0 (GDTTBL 0231 00390000 * ,VOLIB 0231 00391000 * ,ACTRDRZ 0231 00392000 * ,ALCCHH 0231 00393000 * ,RECNUM 0231 00394000 * ,POOLID 0231 00395000 * ,RZPTR 0231 00396000 * ,RZLEN 0231 00397000 * ,RETCODE); 0231 00398000 L @10,@PC00001 0231 00399000 ST @10,@AL00001 0231 00400000 L @15,@PC00001+4 0231 00401000 ST @15,@AL00001+4 0231 00402000 LA @15,@CF00120 0231 00403000 ST @15,@AL00001+8 0231 00404000 L @15,@PC00001+12 0231 00405000 ST @15,@AL00001+12 0231 00406000 LA @15,RECNUM 0231 00407000 ST @15,@AL00001+16 0231 00408000 LA @15,POOLID 0231 00409000 ST @15,@AL00001+20 0231 00410000 LA @15,RZPTR 0231 00411000 ST @15,@AL00001+24 0231 00412000 LA @15,RZLEN 0231 00413000 ST @15,@AL00001+28 0231 00414000 LA @15,RETCODE 0231 00415000 ST @15,@AL00001+32 0231 00416000 L @15,GDTDOP(,@10) 0231 00417000 LA @01,@AL00001 0231 00418000 BALR @14,@15 0231 00419000 */* IF READ OPERATION SUCCEEDS */ 00420000 * IF RETCODE = SUCCESS 0232 00421000 */* THEN */ 00422000 * THEN DO; 0232 00423000 * 0232 00424000 L @10,RETCODE 0232 00425000 LTR @10,@10 0232 00426000 BNZ @RF00232 0232 00427000 */* IF ALTERNATE IS ASSOCIATED WITH PRIMARY */ 00428000 * IF RZACCHH = PRCCHH 0234 00429000 */* THEN */ 00430000 * THEN DO; 0234 00431000 * 0234 00432000 L @10,@PC00001+8 0234 00433000 L @01,RZPTR 0234 00434000 CLC RZACCHH(4,@01),PRCCHH(@10) 0234 00435000 BNE @RF00234 0234 00436000 */* WRITE STANDARD-LENGTH RECORD-ZERO (OF */ 00437000 */* THE ALTERNATE TRACK TO DISSOCIATE */ 00438000 */* IT FROM THE PRIMARY ) (UDEVOP) */ 00439000 * CALL ICKDVOP0 (GDTTBL 0236 00440000 * ,VOLIB 0236 00441000 * ,ACTWRZS 0236 00442000 * ,ALCCHH 0236 00443000 * ,RECNUM 0236 00444000 * ,POOLID 0236 00445000 * ,ADDR (ALCCHH) 0236 00446000 * ,LENGTH (ALCCHH) 0236 00447000 * ,RETCODE); 0236 00448000 L @10,@PC00001 0236 00449000 ST @10,@AL00001 0236 00450000 L @15,@PC00001+4 0236 00451000 ST @15,@AL00001+4 0236 00452000 LA @15,@CF00165 0236 00453000 ST @15,@AL00001+8 0236 00454000 L @15,@PC00001+12 0236 00455000 ST @15,@AL00001+12 0236 00456000 LA @14,RECNUM 0236 00457000 ST @14,@AL00001+16 0236 00458000 LA @14,POOLID 0236 00459000 ST @14,@AL00001+20 0236 00460000 ST @15,@AFTEMPS 0236 00461000 LA @15,@AFTEMPS 0236 00462000 ST @15,@AL00001+24 0236 00463000 LA @15,@CF00048 0236 00464000 ST @15,@AL00001+28 0236 00465000 LA @15,RETCODE 0236 00466000 ST @15,@AL00001+32 0236 00467000 L @15,GDTDOP(,@10) 0236 00468000 LA @01,@AL00001 0236 00469000 BALR @14,@15 0236 00470000 */* IF WRITE OPERATION FAILS */ 00471000 * IF RETCODE = CPFAILS 0237 00472000 */* THEN INDICATE DISSOCIATION FAILS */ 00473000 */* AND TRACK IS UNRECOVERABLE */ 00474000 * THEN DO; 0237 00475000 * 0237 00476000 LA @10,4 0237 00477000 C @10,RETCODE 0237 00478000 BNE @RF00237 0237 00479000 * CONDCODE = DISFAILU; 0239 00480000 L @15,@PC00001+24 0239 00481000 ST @10,CONDCODE(,@15) 0239 00482000 * END; 0240 00483000 */* ELSE */ 00484000 * ELSE DO; 0241 00485000 * 0241 00486000 B @RC00237 0241 00487000 @RF00237 DS 0H 0242 00488000 */* IF THE DEFECT-FLAG IS */ 00489000 */* SET DUE TO RECOVERY */ 00490000 * IF RETCODE = DFLAGONA 0242 00491000 */* THEN INDICATE DISSOCIATION FAILS */ 00492000 */* BUT TRACK IS RECOVERED */ 00493000 * THEN DO; 0242 00494000 * 0242 00495000 CLC RETCODE(4),@CF00123 0242 00496000 BNE @RF00242 0242 00497000 * CONDCODE = DISFAILS; 0244 00498000 L @10,@PC00001+24 0244 00499000 MVC CONDCODE(4,@10),@CF00140 0244 00500000 * END; 0245 00501000 */* END-ELSE */ 00502000 * END; 0246 00503000 @RF00242 DS 0H 0247 00504000 */* IF NO ERRORS INDICATED (CONDCODE = 0) */ 00505000 * IF CONDCODE = SUCCEEDS 0247 00506000 */* THEN */ 00507000 * THEN DO; 0247 00508000 * 0247 00509000 @RC00237 L @10,@PC00001+24 0247 00510000 L @10,CONDCODE(,@10) 0247 00511000 LTR @10,@10 0247 00512000 BNZ @RF00247 0247 00513000 */* INCREMENT COUNT OF AVAILABLE ALT. TRKS */ 00514000 * ALTCOUNT = ALTCOUNT + 1; 0249 00515000 L @10,@PC00001+16 0249 00516000 LA @15,1 0249 00517000 AL @15,ALTCOUNT(,@10) 0249 00518000 ST @15,ALTCOUNT(,@10) 0249 00519000 */* IF DISSOCIATED ALT TRACK IS BEFORE */ 00520000 */* THE NEXT AVAILABLE ALTERNATE TRACK */ 00521000 * IF ALCCHH < ALTPTR 0250 00522000 */* THEN */ 00523000 * THEN DO; 0250 00524000 * 0250 00525000 L @10,@PC00001+12 0250 00526000 L @10,ALCCHH(,@10) 0250 00527000 L @15,@PC00001+20 0250 00528000 CL @10,ALTPTR(,@15) 0250 00529000 BNL @RF00250 0250 00530000 */* MAKE DISSOCIATED ALTERNATE TRACK */ 00531000 */* THE NEXT AVAILABLE ALTERNATE TRK */ 00532000 * ALTPTR = ALCCHH; 0252 00533000 ST @10,ALTPTR(,@15) 0252 00534000 */* END-THEN */ 00535000 * END; 0253 00536000 */* END-THEN (CONDCODE = 0) */ 00537000 * END; 0254 00538000 */* END-THEN (ALTERNATE ASSOC WITH PRIMARY) */ 00539000 * END; 0255 00540000 */* END-THEN (READ OPERATION SUCCEEDS) */ 00541000 * END; 0256 00542000 */* ELSE (READ OPERATION FAILS) */ 00543000 * ELSE DO; 0257 00544000 * 0257 00545000 B @RC00232 0257 00546000 @RF00232 DS 0H 0258 00547000 */* IF TRACK WAS UNRECOVERABLE */ 00548000 * IF RETCODE = CPFAILS 0258 00549000 */* THEN INDICATE DISSOCIATION FAILS AND */ 00550000 */* TRACK IS UNRECOVERABLE */ 00551000 * THEN DO; 0258 00552000 * 0258 00553000 LA @10,4 0258 00554000 C @10,RETCODE 0258 00555000 BNE @RF00258 0258 00556000 * CONDCODE = DISFAILU; 0260 00557000 L @15,@PC00001+24 0260 00558000 ST @10,CONDCODE(,@15) 0260 00559000 * END; 0261 00560000 */* ELSE INDICATE DISSOCIATION FAILS */ 00561000 */* BUT TRACK RECOVERED */ 00562000 * ELSE DO; 0262 00563000 * 0262 00564000 B @RC00258 0262 00565000 @RF00258 DS 0H 0263 00566000 * CONDCODE = DISFAILS; 0263 00567000 L @10,@PC00001+24 0263 00568000 MVC CONDCODE(4,@10),@CF00140 0263 00569000 * END; 0264 00570000 */* END-ELSE (READ OPERATION FAILS) */ 00571000 * END; 0265 00572000 */* END-THEN (DEFECT-FLAG FOUND NOT TO BE SET) */ 00573000 * END; 0266 00574000 */* ELSE (READ OPERATION FAILS OR DEFECT FLAG SET) */ 00575000 * ELSE DO; 0267 00576000 * 0267 00577000 B @RC00229 0267 00578000 @RF00229 DS 0H 0268 00579000 */* IF READ OPERATION FAILS */ 00580000 * IF RETCODE = CPFAILS 0268 00581000 */* THEN INDICATE DISSOCIATION FAILS */ 00582000 * THEN DO; CONDCODE = DISFAILU; END; 0268 00583000 LA @10,4 0268 00584000 C @10,RETCODE 0268 00585000 BNE @RF00268 0268 00586000 L @15,@PC00001+24 0270 00587000 ST @10,CONDCODE(,@15) 0270 00588000 */* END-ELSE */ 00589000 * END; 0272 00590000 @RF00268 DS 0H 0273 00591000 */* END-THEN (PRIMARY ASSOCIATED WITH ALTERNATE) */ 00592000 * END; 0273 00593000 @RC00229 DS 0H 0274 00594000 */* END-THEN (NO ERRORS FOUND) */ 00595000 * END; 0274 00596000 @RF00226 DS 0H 0275 00597000 */* END-PROCEDURE RECLAIM_PRIMARY_TRACK */ 00598000 * IF GDTDBG = NULLPTR 0275 00599000 * THEN; 0275 00600000 @RF00224 L @10,@PC00001 0275 00601000 L @10,GDTDBG(,@10) 0275 00602000 LTR @10,@10 0275 00603000 BZ @RT00275 0275 00604000 * ELSE 0277 00605000 * CALL ICKDB010 (GDTTBL 0277 00606000 * ,'RP99'); 0277 00607000 L @10,@PC00001 0277 00608000 ST @10,@AL00001 0277 00609000 LA @15,@CC00522 0277 00610000 ST @15,@AL00001+4 0277 00611000 MVI @AL00001+4,X'80' 0277 00612000 L @15,GDTDBG(,@10) 0277 00613000 LA @01,@AL00001 0277 00614000 BALR @14,@15 0277 00615000 * CALL ICKSAFP0 (GDTTBL 0278 00616000 * ,POOLID); 0278 00617000 @RT00275 L @10,@PC00001 0278 00618000 ST @10,@AL00001 0278 00619000 LA @15,POOLID 0278 00620000 ST @15,@AL00001+4 0278 00621000 MVI @AL00001+4,X'80' 0278 00622000 L @15,GDTFPL(,@10) 0278 00623000 LA @01,@AL00001 0278 00624000 BALR @14,@15 0278 00625000 * CALL ICKSAEP0(GDTTBL,MODID); 0279 00626000 * 0279 00627000 * 0279 00628000 L @10,@PC00001 0279 00629000 ST @10,@AL00001 0279 00630000 LA @15,MODID 0279 00631000 ST @15,@AL00001+4 0279 00632000 MVI @AL00001+4,X'80' 0279 00633000 L @15,GDTEPL(,@10) 0279 00634000 LA @01,@AL00001 0279 00635000 BALR @14,@15 0279 00636000 * END ICKRP01 0280 00637000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00638000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00639000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00640000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00641000 *; 0280 00642000 @DATA DS 0H 00643000 @DATD DSECT 00644000 DS 0F 00645000 @SA00001 DS 18F 00646000 @PC00001 DS 7F 00647000 @AL00001 DS 9A 00648000 @AFTEMPS DS 1F 00649000 @ZTEMPS DS C 00650000 @ZTEMPND EQU * 00651000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00652000 ICKRP01 CSECT 00653000 DS 0F 00654000 @CF00169 DC F'1' 00655000 @CH00169 EQU @CF00169+2 00656000 @CF00120 DC F'2' 00657000 @CF00140 DC F'3' 00658000 @CH00140 EQU @CF00140+2 00659000 @CF00048 DC F'4' 00660000 @CF00123 DC F'6' 00661000 @CF00189 DC F'7' 00662000 @CF00165 DC F'8' 00663000 @DATD DSECT 00664000 DS 0D 00665000 LISTSCAN DS A 00666000 IOCSPTR DS A 00667000 OPNPTR DS A 00668000 DDSTRU DS A 00669000 FSADDR DS A 00670000 DMPINDEX DS A 00671000 RECNUM DS F 00672000 DUMMYPTR DS A 00673000 DUMMYLEN DS F 00674000 RZPTR DS A 00675000 RZLEN DS F 00676000 RETCODE DS F 00677000 LISTPTR DS A 00678000 SETRC DS H 00679000 TESTRC DS H 00680000 LISTLN DS FL1 00681000 DS CL3 00682000 CCODE DS 3F 00683000 INFOPTR DS 3A 00684000 INFOLEN DS 3F 00685000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00686000 @ENDDATD EQU * 00687000 ICKRP01 CSECT 00688000 DS 0F 00689000 @SIZDATD DC AL1(0) 00690000 DC AL3(@ENDDATD-@DATD) 00691000 DS 0D 00692000 @CC00519 DC C'RP00' 00693000 @CC00522 DC C'RP99' 00694000 MODID DC CL4'RP01' 00695000 POOLID DC CL4'RP01' 00696000 PTCHRP01 DS CL256 00697000 ORG PTCHRP01 00698000 @NM00018 DC 256X'00' 00699000 ORG PTCHRP01+256 00700000 INFOVECT DC F'206' 00701000 DC F'207' 00702000 DC F'204' 00703000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00704000 @01 EQU 01 00705000 @02 EQU 02 00706000 @03 EQU 03 00707000 @04 EQU 04 00708000 @05 EQU 05 00709000 @06 EQU 06 00710000 @07 EQU 07 00711000 @08 EQU 08 00712000 @09 EQU 09 00713000 @10 EQU 10 00714000 @11 EQU 11 00715000 @12 EQU 12 00716000 @13 EQU 13 00717000 @14 EQU 14 00718000 @15 EQU 15 00719000 I EQU @02 00720000 REG12 EQU @12 00721000 REG0 EQU @00 00722000 REG1 EQU @01 00723000 REG10 EQU @10 00724000 REG11 EQU @11 00725000 REG13 EQU @13 00726000 REG14 EQU @14 00727000 REG15 EQU @15 00728000 REG2 EQU @02 00729000 REG3 EQU @03 00730000 REG4 EQU @04 00731000 REG5 EQU @05 00732000 REG6 EQU @06 00733000 REG7 EQU @07 00734000 REG8 EQU @08 00735000 REG9 EQU @09 00736000 RTNREG EQU @15 00737000 ICKSAEP0 EQU 0 00738000 ICKSAFP0 EQU 0 00739000 TRACE1 EQU 0 00740000 OLDERID1 EQU TRACE1 00741000 TRACE2 EQU 0 00742000 STAEPARM EQU 0 00743000 STAEPFX EQU STAEPARM 00744000 IOCSTR EQU 0 00745000 IOCDSO EQU IOCSTR+13 00746000 IOCRFM EQU IOCSTR+14 00747000 IOCMAC EQU IOCSTR+15 00748000 IOCMSG EQU IOCSTR+16 00749000 OPNAGL EQU 0 00750000 OPNOPT EQU OPNAGL 00751000 OPNRFM EQU OPNAGL+1 00752000 OPNTYP EQU OPNAGL+2 00753000 OPNMOD EQU OPNAGL+3 00754000 UVOLLIST EQU 0 00755000 UVOLENT EQU UVOLLIST+2 00756000 ICKDVIN0 EQU 0 00757000 ICKDVOP0 EQU 0 00758000 DARGLIST EQU 0 00759000 DARGSTID EQU DARGLIST+8 00760000 DARGARY EQU DARGLIST+20 00761000 DARGINS EQU DARGARY 00762000 DARGINL EQU DARGARY+2 00763000 FMTLIST EQU 0 00764000 FMTFLGS EQU FMTLIST 00765000 FMTSPF EQU FMTLIST+2 00766000 FMTRFNO EQU FMTSPF 00767000 FMTILEN EQU FMTRFNO 00768000 FMTIOFF EQU FMTLIST+4 00769000 FMTTRBC EQU FMTIOFF 00770000 FMTSTO EQU FMTTRBC 00771000 FMTOCOL EQU FMTLIST+6 00772000 FMTCNVF EQU FMTLIST+10 00773000 ICKDB010 EQU 0 00774000 DMPITM EQU 0 00775000 DMPARY EQU 0 00776000 RZACCHH EQU 0 00777000 FIRSTALT EQU 0 00778000 LASTALT EQU 0 00779000 DMPTRM EQU 0 00780000 ICKDVCL0 EQU 0 00781000 ICKDVON0 EQU 0 00782000 ICKIOCL0 EQU 0 00783000 ICKIOGT0 EQU 0 00784000 ICKIOIT0 EQU 0 00785000 ICKIOOP0 EQU 0 00786000 ICKIOPT0 EQU 0 00787000 ICKIOTM0 EQU 0 00788000 ICKSACL0 EQU 0 00789000 ICKSADE0 EQU 0 00790000 ICKSAFS0 EQU 0 00791000 ICKSAGP0 EQU 0 00792000 ICKSAGS0 EQU 0 00793000 ICKSALD0 EQU 0 00794000 ICKSAPR0 EQU 0 00795000 ICKSASC0 EQU 0 00796000 ICKSASN0 EQU 0 00797000 ICKSAST0 EQU 0 00798000 ICKSATI0 EQU 0 00799000 ICKSAVC0 EQU 0 00800000 ICKSAWO0 EQU 0 00801000 ICKTPEA0 EQU 0 00802000 ICKTPES0 EQU 0 00803000 ICKTPPR0 EQU 0 00804000 ICKTPRE0 EQU 0 00805000 ICKTPRS0 EQU 0 00806000 LISTTEST EQU 0 00807000 NEWERID1 EQU 5 00808000 NEWERID2 EQU 5 00809000 TRKSPCYL EQU 0 00810000 GDTTBL EQU 0 00811000 GDTTR1 EQU GDTTBL+8 00812000 GDTTR2 EQU GDTTBL+12 00813000 GDTDIN EQU GDTTBL+44 00814000 GDTDOP EQU GDTTBL+48 00815000 GDTDBG EQU GDTTBL+52 00816000 GDTDVO EQU GDTTBL+56 00817000 GDTPRT EQU GDTTBL+60 00818000 GDTESS EQU GDTTBL+64 00819000 GDTESA EQU GDTTBL+68 00820000 GDTRST EQU GDTTBL+72 00821000 GDTRES EQU GDTTBL+76 00822000 GDTCAL EQU GDTTBL+80 00823000 GDTGSP EQU GDTTBL+84 00824000 GDTFSP EQU GDTTBL+88 00825000 GDTGPL EQU GDTTBL+92 00826000 GDTFPL EQU GDTTBL+96 00827000 GDTLOD EQU GDTTBL+100 00828000 GDTDEL EQU GDTTBL+104 00829000 GDTPRL EQU GDTTBL+108 00830000 GDTEPL EQU GDTTBL+112 00831000 GDTTIM EQU GDTTBL+116 00832000 GDTIIO EQU GDTTBL+120 00833000 GDTTIO EQU GDTTBL+124 00834000 GDTOPN EQU GDTTBL+136 00835000 GDTCLS EQU GDTTBL+140 00836000 GDTGET EQU GDTTBL+144 00837000 GDTPUT EQU GDTTBL+148 00838000 GDTSNP EQU GDTTBL+160 00839000 GDTWTO EQU GDTTBL+168 00840000 GDTSCR EQU GDTTBL+172 00841000 GDTVCK EQU GDTTBL+176 00842000 GDTDVC EQU GDTTBL+180 00843000 GDTSTE EQU GDTTBL+188 00844000 VOLIB EQU 0 00845000 PRCCHH EQU 0 00846000 ALCCHH EQU 0 00847000 ALTCOUNT EQU 0 00848000 ALTPTR EQU 0 00849000 CONDCODE EQU 0 00850000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00851000 ALTPTRT EQU ALTPTR+2 00852000 ALTPTRC EQU ALTPTR 00853000 ALCCHHT EQU ALCCHH+2 00854000 ALCCHHC EQU ALCCHH 00855000 GDTCVR EQU GDTTBL+184 00856000 GDTSPR EQU GDTTBL+164 00857000 GDTABH EQU GDTTBL+156 00858000 GDTABT EQU GDTTBL+152 00859000 GDTTOH EQU GDTTBL+132 00860000 GDTRIP EQU GDTTBL+128 00861000 GDTDVH EQU GDTTBL+40 00862000 GDTIOH EQU GDTTBL+36 00863000 GDTSAH EQU GDTTBL+32 00864000 GDTTPH EQU GDTTBL+28 00865000 GDTRIH EQU GDTTBL+24 00866000 GDTSTH EQU GDTTBL+20 00867000 GDTDBH EQU GDTTBL+16 00868000 GDTPRM EQU GDTTBL+4 00869000 GDTHDR EQU GDTTBL 00870000 @NM00017 EQU DMPARY+15 00871000 DMPARYTP EQU DMPARY+14 00872000 DMPARYEX EQU DMPARY+12 00873000 DMPARYIC EQU DMPARY+10 00874000 DMPARYSZ EQU DMPARY+8 00875000 DMPARYNM EQU DMPARY 00876000 @NM00016 EQU DMPITM+15 00877000 DMPITMTP EQU DMPITM+14 00878000 DMPITMLN EQU DMPITM+12 00879000 DMPITMPT EQU DMPITM+8 00880000 DMPITMNM EQU DMPITM 00881000 @NM00015 EQU FMTCNVF+1 00882000 FMTBS EQU FMTCNVF+1 00883000 FMTSS EQU FMTCNVF+1 00884000 FMTAL EQU FMTCNVF+1 00885000 FMTZS EQU FMTCNVF+1 00886000 @NM00014 EQU FMTCNVF 00887000 FMTPU EQU FMTCNVF 00888000 FMTBD EQU FMTCNVF 00889000 FMTBHD EQU FMTCNVF 00890000 FMTBHA EQU FMTCNVF 00891000 FMTBH EQU FMTCNVF 00892000 FMTOLEN EQU FMTLIST+8 00893000 FMTRIO EQU FMTOCOL 00894000 FMTSPT EQU FMTSTO 00895000 FMTSTL EQU FMTILEN 00896000 @NM00013 EQU FMTFLGS+1 00897000 FMTHDF EQU FMTFLGS 00898000 FMTDFF EQU FMTFLGS 00899000 FMTSTF EQU FMTFLGS 00900000 FMTREPF EQU FMTFLGS 00901000 FMTBDF EQU FMTFLGS 00902000 FMTIDF EQU FMTFLGS 00903000 FMTSCF EQU FMTFLGS 00904000 FMTEOLF EQU FMTFLGS 00905000 DARGDTM EQU DARGARY+4 00906000 DARGPCT EQU DARGINL 00907000 DARGREP EQU DARGINS 00908000 @NM00012 EQU DARGLIST+19 00909000 DARGIND EQU DARGLIST+18 00910000 DARGRETL EQU DARGLIST+16 00911000 DARGCNT EQU DARGLIST+14 00912000 DARGILP EQU DARGLIST+12 00913000 DARGSENT EQU DARGSTID+3 00914000 DARGSMOD EQU DARGSTID 00915000 DARGRETP EQU DARGLIST+4 00916000 DARGDBP EQU DARGLIST 00917000 UVOLVOL EQU UVOLENT+4 00918000 UVOLDEV EQU UVOLENT 00919000 UVOLCNT EQU UVOLLIST 00920000 OPNRSVD EQU OPNAGL+28 00921000 OPNVOL EQU OPNAGL+24 00922000 OPNBLK EQU OPNAGL+20 00923000 OPNREC EQU OPNAGL+16 00924000 OPNDSN EQU OPNAGL+12 00925000 OPNDDN EQU OPNAGL+8 00926000 OPNIOC EQU OPNAGL+4 00927000 @NM00011 EQU OPNMOD 00928000 OPNMODRC EQU OPNMOD 00929000 OPNMODAC EQU OPNMOD 00930000 @NM00010 EQU OPNTYP 00931000 OPNTYPSO EQU OPNTYP 00932000 OPNTYPSI EQU OPNTYP 00933000 @NM00009 EQU OPNRFM 00934000 OPNRFMBK EQU OPNRFM 00935000 OPNRFMSF EQU OPNRFM 00936000 OPNRFMUN EQU OPNRFM 00937000 OPNRFMVR EQU OPNRFM 00938000 OPNRFMFX EQU OPNRFM 00939000 @NM00008 EQU OPNOPT 00940000 OPNOPTJM EQU OPNOPT 00941000 OPNOPTKS EQU OPNOPT 00942000 OPNOPTBK EQU OPNOPT 00943000 OPNOPTUP EQU OPNOPT 00944000 OPNOPTOT EQU OPNOPT 00945000 OPNOPTIN EQU OPNOPT 00946000 IOCEXT EQU IOCSTR+36 00947000 IOCRRN EQU IOCSTR+32 00948000 @NM00007 EQU IOCSTR+30 00949000 IOCPNM EQU IOCSTR+28 00950000 IOCCBP EQU IOCSTR+24 00951000 IOCDSN EQU IOCSTR+20 00952000 @NM00006 EQU IOCSTR+17 00953000 @NM00005 EQU IOCMSG 00954000 IOCMSGOP EQU IOCMSG 00955000 IOCMACPA EQU IOCMAC 00956000 @NM00004 EQU IOCMAC 00957000 IOCMACBK EQU IOCMAC 00958000 IOCMACUP EQU IOCMAC 00959000 IOCMACOT EQU IOCMAC 00960000 IOCMACIN EQU IOCMAC 00961000 @NM00003 EQU IOCRFM 00962000 IOCRFMBK EQU IOCRFM 00963000 IOCRFMSF EQU IOCRFM 00964000 IOCRFMUN EQU IOCRFM 00965000 IOCRFMVR EQU IOCRFM 00966000 IOCRFMFX EQU IOCRFM 00967000 @NM00002 EQU IOCDSO 00968000 IOCDSOPS EQU IOCDSO 00969000 IOCKYL EQU IOCSTR+12 00970000 IOCTRN EQU IOCSTR+8 00971000 IOCDLN EQU IOCSTR+4 00972000 IOCDAD EQU IOCSTR 00973000 STAEWORK EQU STAEPARM+32 00974000 STARPTR EQU STAEPFX+28 00975000 STASPTR EQU STAEPFX+24 00976000 STALEN EQU STAEPFX+20 00977000 STAID EQU STAEPFX+16 00978000 STAEPA EQU STAEPFX+12 00979000 STAGDT EQU STAEPFX+8 00980000 STABPTR EQU STAEPFX+4 00981000 STAFPTR EQU STAEPFX 00982000 NEWID2 EQU TRACE2+95 00983000 OLDERID2 EQU TRACE2 00984000 NEWID1 EQU TRACE1+95 00985000 CALLID EQU OLDERID1+90 00986000 @NM00001 EQU OLDERID1 00987000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00988000 @RC00232 EQU @RC00229 00989000 @RC00258 EQU @RC00229 00990000 @RF00234 EQU @RC00232 00991000 @RF00247 EQU @RC00232 00992000 @RF00250 EQU @RC00232 00993000 @ENDDATA EQU * 00994000 END ICKRP01,(C'PLS1733',0701,78192) 00995000