TITLE '********* IDCDB02: DEBUGGING AIDS (SYMBOLIC DUMP) **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 IDCDB02 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCDB02 75.077' 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(8),0(@01) 0002 00032000 * /*PATCH AREA FOR MAINTENANCE */ 00033000 * /************************************************************/ 00034000 * /* */ 00035000 * /* INITIALIZE 'UPRINT' MACRO ARGUMENTS */ 00036000 * /* */ 00037000 * /************************************************************/ 00038000 * 0189 00039000 * OUTLINE = BLANK; 0189 00040000 MVI OUTLINE+1,C' ' 0189 00041000 MVC OUTLINE+2(118),OUTLINE+1 0189 00042000 MVI OUTLINE,C' ' 0189 00043000 * OUTPTR = ADDR(OUTLINE); 0190 00044000 * 0190 00045000 LA @10,OUTLINE 0190 00046000 LR OUTPTR,@10 0190 00047000 * DDSTRU = ADDR(PRNTLIST); 0191 00048000 LA @09,PRNTLIST 0191 00049000 LR DDSTRU,@09 0191 00050000 * PRNTPTR = ADDR(PRNTLIST); 0192 00051000 ST @09,PRNTPTR 0192 00052000 * PRNTLIST = '00'X; 0193 00053000 XC PRNTLIST+1(19),PRNTLIST+1 0193 00054000 MVI PRNTLIST,X'00' 0193 00055000 * DARGDBP = ADDR(OUTLINE); 0194 00056000 ST @10,DARGDBP(,DDSTRU) 0194 00057000 * DARGILP = LENGTH(OUTLINE); 0195 00058000 * 0195 00059000 LA @10,120 0195 00060000 STH @10,DARGILP(,DDSTRU) 0195 00061000 * FSADDR = ADDR(FRMTLIST); 0196 00062000 LA @09,FRMTLIST 0196 00063000 ST @09,FSADDR 0196 00064000 * FRMTLIST = '00'X; 0197 00065000 XC FRMTLIST+1(11),FRMTLIST+1 0197 00066000 MVI FRMTLIST,X'00' 0197 00067000 * FMTEOLF = '1'B; 0198 00068000 * FMTBDF = '1'B; 0199 00069000 OI FMTEOLF(@09),B'10010000' 0199 00070000 * FMTILEN = LENGTH(OUTLINE); 0200 00071000 STH @10,FMTILEN(,@09) 0200 00072000 * FMTOCOL = 1; 0201 00073000 MVC FMTOCOL(2,@09),@CH00210 0201 00074000 * FMTOLEN = LENGTH(OUTLINE); 0202 00075000 * 0202 00076000 STH @10,FMTOLEN(,@09) 0202 00077000 * DDSTRU = ADDR(MSGLIST); 0203 00078000 LA @10,MSGLIST 0203 00079000 LR DDSTRU,@10 0203 00080000 * MSGPTR = ADDR(MSGLIST); 0204 00081000 ST @10,MSGPTR 0204 00082000 * MSGLIST = '00'X; 0205 00083000 * 0205 00084000 XC MSGLIST+1(19),MSGLIST+1 0205 00085000 MVI MSGLIST,X'00' 0205 00086000 * CALL AMSTP011(GDTTBL,PRTFILE,PRNTPTR,FSADDR); 0206 00087000 * 0206 00088000 L @10,@PC00001 0206 00089000 ST @10,@AL00001 0206 00090000 LA @09,@CF00108 0206 00091000 ST @09,@AL00001+4 0206 00092000 LA @09,PRNTPTR 0206 00093000 ST @09,@AL00001+8 0206 00094000 LA @09,FSADDR 0206 00095000 ST @09,@AL00001+12 0206 00096000 MVI @AL00001+12,X'80' 0206 00097000 L @15,GDTPRT(,@10) 0206 00098000 LA @01,@AL00001 0206 00099000 BALR @14,@15 0206 00100000 * /************************************************************/ 00101000 * /* */ 00102000 * /* SCAN THE DUMP LIST - PROCESS EACH DUMP LIST ELEMENT, */ 00103000 * /* FORMAT THE OUTPUT, AND PRINT THE SYMBOLIC DUMP UNTIL */ 00104000 * /* THE END OF THE DUMP LIST IS ENCOUNTERED */ 00105000 * /* */ 00106000 * /************************************************************/ 00107000 * 0207 00108000 * LINEFILL = 0; 0207 00109000 SLR @10,@10 0207 00110000 LR LINEFILL,@10 0207 00111000 * ARRYINDX = 0; 0208 00112000 * 0208 00113000 LR ARRYINDX,@10 0208 00114000 *SCANLIST:DO LISTINDX = DUMPLIST BY ITEMSIZE WHILE(DUMPTERM^=TERMFLAG); 00115000 * 0209 00116000 SCANLIST L @10,@PC00001+4 0209 00117000 L LISTINDX,DUMPLIST(,@10) 0209 00118000 B @DE00209 0209 00119000 @DL00209 DS 0H 0210 00120000 * /**********************************************************/ 00121000 * /* */ 00122000 * /* DETERMINE IF THE CURRENT DUMP LIST ELEMENT IS AN */ 00123000 * /* ARRAY HEADER OR AN INDIVIDUAL DUMP ELEMENT */ 00124000 * /* */ 00125000 * /**********************************************************/ 00126000 * 0210 00127000 * IF ITEMTYPE = TYPEARRY 0210 00128000 * THEN 0210 00129000 CLI ITEMTYPE(LISTINDX),C'A' 0210 00130000 BNE @RF00210 0210 00131000 * DO; 0211 00132000 * /****************************************************/ 00133000 * /* */ 00134000 * /* PROCESS ARRAY HEADER */ 00135000 * /* */ 00136000 * /****************************************************/ 00137000 * 0212 00138000 * CALL ARRAYHDR; 0212 00139000 BAL @14,ARRAYHDR 0212 00140000 * END; 0213 00141000 * ELSE 0214 00142000 * DO; 0214 00143000 B @RC00210 0214 00144000 @RF00210 DS 0H 0215 00145000 * /****************************************************/ 00146000 * /* */ 00147000 * /* PROCESS INDIVIDUAL DUMP ELEMENT */ 00148000 * /* */ 00149000 * /****************************************************/ 00150000 * 0215 00151000 * CALL ITEMDUMP; 0215 00152000 BAL @14,ITEMDUMP 0215 00153000 * END; 0216 00154000 * 0216 00155000 * /**********************************************************/ 00156000 * /* */ 00157000 * /* DETERMINE IF DUMP LIST PROCESSING IS CURRENTLY */ 00158000 * /* WITHIN AN ARRAY SPECIFICATION */ 00159000 * /* */ 00160000 * /**********************************************************/ 00161000 * 0217 00162000 * IF ARRYINDX ^= 0 0217 00163000 * THEN 0217 00164000 @RC00210 LTR ARRYINDX,ARRYINDX 0217 00165000 BZ @RF00217 0217 00166000 *INARRAY: DO; 0218 00167000 INARRAY DS 0H 0219 00168000 * /****************************************************/ 00169000 * /* */ 00170000 * /* DETERMINE IF THE END OF THE ARRAY ITEMS */ 00171000 * /* HAS BEEN REACHED (FOR ONE ITERATION) */ 00172000 * /* */ 00173000 * /****************************************************/ 00174000 * 0219 00175000 * IF LISTINDX = ARRYEND 0219 00176000 * THEN 0219 00177000 CR LISTINDX,ARRYEND 0219 00178000 BNE @RF00219 0219 00179000 * DO; 0220 00180000 * /**********************************************/ 00181000 * /* */ 00182000 * /* DETERMINE IF THE END OF THE ARRAY */ 00183000 * /* HAS BEEN REACHED (FOR EVERY EXTENT) */ 00184000 * /* */ 00185000 * /**********************************************/ 00186000 * 0221 00187000 * IF (ARRYSTRT -> ARRYEXT) = ARRYINDX 0221 00188000 * THEN 0221 00189000 L @10,ARRYSTRT 0221 00190000 CH ARRYINDX,ARRYEXT(,@10) 0221 00191000 BNE @RF00221 0221 00192000 * ARRYINDX = 0; 0222 00193000 SLR ARRYINDX,ARRYINDX 0222 00194000 * ELSE 0223 00195000 * DO; 0223 00196000 B @RC00221 0223 00197000 @RF00221 DS 0H 0224 00198000 * /****************************************/ 00199000 * /* */ 00200000 * /* FURTHER ITERATIONS THROUGH ARRAY */ 00201000 * /* REMAIN - INCREMENT THE ARRAY INDEX, */ 00202000 * /* AND RESET THE DUMP LIST INDEX TO */ 00203000 * /* THE START OF THE ARRAY */ 00204000 * /* */ 00205000 * /****************************************/ 00206000 * 0224 00207000 * ARRYINDX = ARRYINDX + 1; 0224 00208000 AL ARRYINDX,@CF00210 0224 00209000 * LISTINDX = ARRYSTRT; 0225 00210000 L LISTINDX,ARRYSTRT 0225 00211000 * END; 0226 00212000 * 0226 00213000 * END; 0227 00214000 * 0227 00215000 @RC00221 DS 0H 0228 00216000 * END INARRAY; 0228 00217000 * 0228 00218000 @RF00219 DS 0H 0229 00219000 * END SCANLIST; 0229 00220000 * 0229 00221000 @RF00217 AL LISTINDX,@CF00464 0229 00222000 @DE00209 CLI DUMPTERM(LISTINDX),X'FF' 0229 00223000 BNE @DL00209 0229 00224000 * /************************************************************/ 00225000 * /* */ 00226000 * /* PRINT THE FINAL OUTPUT LINE OF SYMBOLIC DUMP ITEMS */ 00227000 * /* */ 00228000 * /************************************************************/ 00229000 * 0230 00230000 * CALL AMSTP011(GDTTBL,PRTFILE,PRNTPTR,FSADDR); 0230 00231000 * 0230 00232000 L @10,@PC00001 0230 00233000 ST @10,@AL00001 0230 00234000 LA @15,@CF00108 0230 00235000 ST @15,@AL00001+4 0230 00236000 LA @15,PRNTPTR 0230 00237000 ST @15,@AL00001+8 0230 00238000 LA @15,FSADDR 0230 00239000 ST @15,@AL00001+12 0230 00240000 MVI @AL00001+12,X'80' 0230 00241000 L @15,GDTPRT(,@10) 0230 00242000 LA @01,@AL00001 0230 00243000 BALR @14,@15 0230 00244000 * /************************************************************/ 00245000 * /* */ 00246000 * /* RETURN TO THE MAIN IDCAMS DUMP ROUTINE (IDCDB01) */ 00247000 * /* */ 00248000 * /************************************************************/ 00249000 * 0231 00250000 * CALL IDCSAEP0(GDTTBL,MODID); 0231 00251000 L @10,@PC00001 0231 00252000 ST @10,@AL00001 0231 00253000 LA @15,MODID 0231 00254000 ST @15,@AL00001+4 0231 00255000 MVI @AL00001+4,X'80' 0231 00256000 L @15,GDTEPL(,@10) 0231 00257000 LA @01,@AL00001 0231 00258000 BALR @14,@15 0231 00259000 */********************************************************************/ 00260000 */* */ 00261000 */* PROCEDURE NAME - ARRAYHDR */ 00262000 */* */ 00263000 */* FUNCTION - THIS PROCEDURE PROCESSES ANY ARRAY HEADER ELEMENTS */ 00264000 */* (TYPE = 'A') OCCURRING IN THE DUMP LIST */ 00265000 */* */ 00266000 */* INPUT - DUMPARRY (THE ARRAY HEADER ELEMENT ENCOUNTERED IN THE */ 00267000 */* DUMP LIST) */ 00268000 */* ARRYINDX (THE ARRAY INDEX - INITIALLY SET TO ZERO) */ 00269000 */* */ 00270000 */* OUTPUT - INITIALIZED ARRAY PARAMETERS */ 00271000 */* ARRYINDX (THE ARRAY INDEX - SET TO ONE) */ 00272000 */* ARRYSTRT (ARRAY STARTING ADDRESS IN THE DUMP LIST) */ 00273000 */* ARRYEND (ARRAY ENDING ADDRESS IN THE DUMP LIST) */ 00274000 */* */ 00275000 */* ANY PARTIALLY FILLED OUTPUT LINE IS PRINTED, AND THE */ 00276000 */* ARRAY NAME IS INSERTED AT THE BEGINNING OF A NEW */ 00277000 */* OUTPUT LINE. THE ARRAY PARAMETERS (ABOVE) ARE USED */ 00278000 */* WHEN PROCEEDING THROUGH THE SUBSEQUENT ARRAY ELEMENTS */ 00279000 */* IN THE DUMP LIST. */ 00280000 */* */ 00281000 */********************************************************************/ 00282000 * 0232 00283000 *ARRAYHDR: PROCEDURE; 0232 00284000 * 0232 00285000 @EL00001 L @13,4(,@13) 0232 00286000 @EF00001 L @00,@SIZDATD 0232 00287000 LR @01,@11 0232 00288000 FREEMAIN R,LV=(0),A=(1) 00289000 @ER00001 LM @14,@12,12(@13) 0232 00290000 BR @14 0232 00291000 ARRAYHDR STM @14,@01,@SA00002 0232 00292000 ST @03,@SA00002+16 0232 00293000 ST @05,@SA00002+20 0232 00294000 ST @07,@SA00002+24 0232 00295000 STM @09,@12,@SA00002+28 0232 00296000 * OLDERID2 = NEWERID2; 0233 00297000 L @10,@PC00001 0233 00298000 L @10,GDTTR2(,@10) 0233 00299000 MVC @TS00001(95),NEWERID2(@10) 0233 00300000 MVC OLDERID2(95,@10),@TS00001 0233 00301000 * NEWID2 = 'DB2A'; 0234 00302000 * 0234 00303000 MVC NEWID2(4,@10),@CC00660 0234 00304000 * /************************************************************/ 00305000 * /* */ 00306000 * /* PROCESS ARRAY HEADER IF PARAMETERS ARE VALID */ 00307000 * /* */ 00308000 * /************************************************************/ 00309000 * 0235 00310000 * IF ARRYEXT > 0 & ARRYEXT <= 99 & ARRYINDX = 0 & ARRYITEM > 0 00311000 * THEN 0235 00312000 SLR @10,@10 0235 00313000 LH @09,ARRYEXT(,LISTINDX) 0235 00314000 CR @09,@10 0235 00315000 BNH @RF00235 0235 00316000 C @09,@CF00661 0235 00317000 BH @RF00235 0235 00318000 CR ARRYINDX,@10 0235 00319000 BNE @RF00235 0235 00320000 CH @10,ARRYITEM(,LISTINDX) 0235 00321000 BNL @RF00235 0235 00322000 *VALIDHDR: DO; 0236 00323000 VALIDHDR DS 0H 0237 00324000 * /******************************************************/ 00325000 * /* */ 00326000 * /* BEGIN ARRAY DUMPING ON NEW OUTPUT LINE */ 00327000 * /* */ 00328000 * /******************************************************/ 00329000 * 0237 00330000 * IF LINEFILL ^= 0 0237 00331000 * THEN 0237 00332000 LTR LINEFILL,LINEFILL 0237 00333000 BZ @RF00237 0237 00334000 * DO; 0238 00335000 * CALL AMSTP011(GDTTBL,PRTFILE,PRNTPTR,FSADDR); 0239 00336000 * 0239 00337000 L @10,@PC00001 0239 00338000 ST @10,@AL00001 0239 00339000 LA @09,@CF00108 0239 00340000 ST @09,@AL00001+4 0239 00341000 LA @09,PRNTPTR 0239 00342000 ST @09,@AL00001+8 0239 00343000 LA @09,FSADDR 0239 00344000 ST @09,@AL00001+12 0239 00345000 MVI @AL00001+12,X'80' 0239 00346000 L @15,GDTPRT(,@10) 0239 00347000 LA @01,@AL00001 0239 00348000 BALR @14,@15 0239 00349000 * LINEFILL = 0; 0240 00350000 SLR LINEFILL,LINEFILL 0240 00351000 * OUTLINE = BLANK; 0241 00352000 MVI OUTLINE+1,C' ' 0241 00353000 MVC OUTLINE+2(118),OUTLINE+1 0241 00354000 MVI OUTLINE,C' ' 0241 00355000 * OUTPTR = ADDR(OUTLINE); 0242 00356000 LA OUTPTR,OUTLINE 0242 00357000 * END; 0243 00358000 * 0243 00359000 * /******************************************************/ 00360000 * /* */ 00361000 * /* OBTAIN THE SYMBOLIC NAME OF ARRAY */ 00362000 * /* AND PLACE IT IN THE OUTPUT LINE */ 00363000 * /* */ 00364000 * /******************************************************/ 00365000 * 0244 00366000 * SYMNAME = BLANK; 0244 00367000 @RF00237 MVI SYMNAME+1,C' ' 0244 00368000 MVC SYMNAME+2(13),SYMNAME+1 0244 00369000 MVI SYMNAME,C' ' 0244 00370000 * SYMNAME(1:8) = ARRYNAME; 0245 00371000 * 0245 00372000 MVC SYMNAME(8),ARRYNAME(LISTINDX) 0245 00373000 * NAMESCAN = ON; 0246 00374000 * 0246 00375000 OI NAMESCAN,B'10000000' 0246 00376000 * DO NAMEINDX = 8 TO 1 BY -1 WHILE (NAMESCAN = ON); 0247 00377000 * 0247 00378000 LA NAMEINDX,8 0247 00379000 @DL00247 TM NAMESCAN,B'10000000' 0247 00380000 BNO @DC00247 0247 00381000 * IF SYMNAME(NAMEINDX) ^= BLANK 0248 00382000 * THEN 0248 00383000 LA @10,SYMNAME-1(NAMEINDX) 0248 00384000 CLI 0(@10),C' ' 0248 00385000 BE @RF00248 0248 00386000 * DO; 0249 00387000 * SYMNAME(NAMEINDX+1) = ':'; 0250 00388000 LA @10,SYMNAME(NAMEINDX) 0250 00389000 MVI 0(@10),C':' 0250 00390000 * NAMESCAN = OFF; 0251 00391000 NI NAMESCAN,B'01111111' 0251 00392000 * END; 0252 00393000 * END; 0253 00394000 * 0253 00395000 @RF00248 BCTR NAMEINDX,0 0253 00396000 LTR NAMEINDX,NAMEINDX 0253 00397000 BP @DL00247 0253 00398000 @DC00247 DS 0H 0254 00399000 * OUTSEG(6:13) = 'IN ARRAY'; 0254 00400000 MVC OUTSEG+5(8,OUTPTR),@CC00667 0254 00401000 * OUTSEG(15:23) = SYMNAME; 0255 00402000 MVC OUTSEG+14(9,OUTPTR),SYMNAME 0255 00403000 * OUTPTR = OUTPTR + 23; 0256 00404000 AL OUTPTR,@CF00668 0256 00405000 * LINEFILL = 1; 0257 00406000 * 0257 00407000 LA @10,1 0257 00408000 LR LINEFILL,@10 0257 00409000 * /******************************************************/ 00410000 * /* */ 00411000 * /* INITIALIZE ARRAY PROCESSING POINTERS AND COUNTS */ 00412000 * /* */ 00413000 * /******************************************************/ 00414000 * 0258 00415000 * ARRYINDX = 1; 0258 00416000 LR ARRYINDX,@10 0258 00417000 * ARRYSTRT = LISTINDX; 0259 00418000 ST LISTINDX,ARRYSTRT 0259 00419000 * ARRYEND = ARRYSTRT + ITEMSIZE * ARRYITEM; 0260 00420000 * 0260 00421000 L @10,ARRYSTRT 0260 00422000 LH ARRYEND,ARRYITEM(,LISTINDX) 0260 00423000 SLA ARRYEND,4 0260 00424000 ALR @10,ARRYEND 0260 00425000 LR ARRYEND,@10 0260 00426000 * END VALIDHDR; 0261 00427000 * 0261 00428000 * ELSE 0262 00429000 *BADHDR: DO; 0262 00430000 B @RC00235 0262 00431000 @RF00235 DS 0H 0262 00432000 BADHDR DS 0H 0263 00433000 * /******************************************************/ 00434000 * /* */ 00435000 * /* ARRAY HEADER PARAMETERS ARE INVALID - */ 00436000 * /* PRINT MESSAGE AND IGNORE ARRAY SPECIFICATION */ 00437000 * /* */ 00438000 * /******************************************************/ 00439000 * 0263 00440000 * DARGSMOD = MSGMOD; 0263 00441000 MVC DARGSMOD(3,DDSTRU),@CC00642 0263 00442000 * DARGSENT = ARRYMSG; 0264 00443000 MVI DARGSENT(DDSTRU),X'06' 0264 00444000 * DARGDBP = ADDR(ARRYNAME); 0265 00445000 ST LISTINDX,DARGDBP(,DDSTRU) 0265 00446000 * DARGILP = LENGTH(ARRYNAME); 0266 00447000 * 0266 00448000 MVC DARGILP(2,DDSTRU),@CH00170 0266 00449000 * CALL AMSTP011(GDTTBL,PRTFILE,MSGPTR); 0267 00450000 * 0267 00451000 L @10,@PC00001 0267 00452000 ST @10,@AL00001 0267 00453000 LA @09,@CF00108 0267 00454000 ST @09,@AL00001+4 0267 00455000 LA @09,MSGPTR 0267 00456000 ST @09,@AL00001+8 0267 00457000 MVI @AL00001+8,X'80' 0267 00458000 L @15,GDTPRT(,@10) 0267 00459000 LA @01,@AL00001 0267 00460000 BALR @14,@15 0267 00461000 * END BADHDR; 0268 00462000 * 0268 00463000 * RETURN; 0269 00464000 * 0269 00465000 @EL00002 DS 0H 0269 00466000 @EF00002 DS 0H 0269 00467000 @ER00002 LM @14,@01,@SA00002 0269 00468000 L @03,@SA00002+16 0269 00469000 L @05,@SA00002+20 0269 00470000 L @07,@SA00002+24 0269 00471000 LM @09,@12,@SA00002+28 0269 00472000 BR @14 0269 00473000 * END ARRAYHDR; 0270 00474000 B @EL00002 0270 00475000 */********************************************************************/ 00476000 */* */ 00477000 */* PROCEDURE NAME - ITEMDUMP */ 00478000 */* */ 00479000 */* FUNCTION - THIS PROCEDURE PROCESSES ANY INDIVIDUAL DUMP LIST */ 00480000 */* ELEMENTS IN THE DUMP LIST (INCLUDING THOSE WITHIN */ 00481000 */* THE SCOPE OF AN ARRAY HEADER SPECIFICATION) */ 00482000 */* */ 00483000 */* INPUT - DUMPITEM (THE INDIVIDUAL DUMP ELEMENT ENCOUNTERED IN */ 00484000 */* THE DUMP LIST) */ 00485000 */* */ 00486000 */* OUTPUT - THE DUMP ITEM IS CONVERTED TO THE SPECIFIED OUTPUT */ 00487000 */* FORMAT, AND PLACED IN THE OUTPUT LINE FOLLOWING ITS */ 00488000 */* SYMBOLIC NAME. */ 00489000 */* AS EACH OUTPUT LINE IS FILLED, IT IS PRINTED. */ 00490000 */* */ 00491000 */********************************************************************/ 00492000 * 0271 00493000 *ITEMDUMP: PROCEDURE; 0271 00494000 * 0271 00495000 ITEMDUMP STM @14,@01,@SA00003 0271 00496000 STM @03,@07,@SA00003+16 0271 00497000 STM @09,@12,@SA00003+36 0271 00498000 * OLDERID2 = NEWERID2; 0272 00499000 L @10,@PC00001 0272 00500000 L @10,GDTTR2(,@10) 0272 00501000 MVC @TS00001(95),NEWERID2(@10) 0272 00502000 MVC OLDERID2(95,@10),@TS00001 0272 00503000 * NEWID2 = 'DB2I'; 0273 00504000 * 0273 00505000 MVC NEWID2(4,@10),@CC00674 0273 00506000 * /************************************************************/ 00507000 * /* */ 00508000 * /* DETERMINE ITEM TYPE - HEX, BINARY, CHARACTER, FIXED */ 00509000 * /* */ 00510000 * /************************************************************/ 00511000 * 0274 00512000 * TYPEMTCH = NO; 0274 00513000 * 0274 00514000 NI TYPEMTCH,B'01111111' 0274 00515000 * DO TYPEINDX = 0 TO TYPECNT-1 WHILE (TYPEMTCH = NO); 0275 00516000 * 0275 00517000 SLR TYPEINDX,TYPEINDX 0275 00518000 @DL00275 TM TYPEMTCH,B'10000000' 0275 00519000 BNZ @DC00275 0275 00520000 * IF OUTTYPE(TYPEINDX+1) = ITEMTYPE 0276 00521000 * THEN 0276 00522000 LR @10,TYPEINDX 0276 00523000 SLA @10,3 0276 00524000 LA @01,OUTTYPE(@10) 0276 00525000 CLC 0(1,@01),ITEMTYPE(LISTINDX) 0276 00526000 BNE @RF00276 0276 00527000 * TYPEMTCH = YES; 0277 00528000 * 0277 00529000 OI TYPEMTCH,B'10000000' 0277 00530000 * END; 0278 00531000 * 0278 00532000 @RF00276 AL TYPEINDX,@CF00210 0278 00533000 C TYPEINDX,@CF00153 0278 00534000 BNH @DL00275 0278 00535000 @DC00275 DS 0H 0279 00536000 * /************************************************************/ 00537000 * /* */ 00538000 * /* DETERMINE IF ITEM TYPE IS VALID AND ITEM LENGTH IS */ 00539000 * /* VALID FOR SPECIFIED ITEM TYPE */ 00540000 * /* */ 00541000 * /************************************************************/ 00542000 * 0279 00543000 * IF TYPEMTCH = YES & ITEMLEN > 0 & ITEMLEN <= MAXLEN(TYPEINDX) 00544000 * THEN 0279 00545000 TM TYPEMTCH,B'10000000' 0279 00546000 BNO @RF00279 0279 00547000 LH @10,ITEMLEN(,LISTINDX) 0279 00548000 LTR @10,@10 0279 00549000 BNP @RF00279 0279 00550000 LR @15,TYPEINDX 0279 00551000 SLA @15,3 0279 00552000 CH @10,MAXLEN-8(@15) 0279 00553000 BH @RF00279 0279 00554000 *ITEMOKAY: DO; 0280 00555000 ITEMOKAY DS 0H 0281 00556000 * /******************************************************/ 00557000 * /* */ 00558000 * /* PROCESS THE DUMP ITEM UNTIL CONVERTED */ 00559000 * /* AND FORMATTED INTO THE OUTPUT LINE */ 00560000 * /* */ 00561000 * /******************************************************/ 00562000 * 0281 00563000 * IF ARRYINDX = 0 0281 00564000 * THEN 0281 00565000 SLR @10,@10 0281 00566000 CR ARRYINDX,@10 0281 00567000 BNE @RF00281 0281 00568000 * ITEMOFST = 0; 0282 00569000 SLR @15,@15 0282 00570000 LR ITEMOFST,@15 0282 00571000 * ELSE 0283 00572000 * ITEMOFST = (ARRYINDX - 1) * (ARRYSTRT -> ARRYSIZE); 00573000 * 0283 00574000 B @RC00281 0283 00575000 @RF00281 LR @01,ARRYINDX 0283 00576000 BCTR @01,0 0283 00577000 L @15,ARRYSTRT 0283 00578000 MH @01,ARRYSIZE(,@15) 0283 00579000 LR ITEMOFST,@01 0283 00580000 * VALUEPTR = ITEMPTR + ITEMOFST; 0284 00581000 * 0284 00582000 @RC00281 LR VALUEPTR,ITEMOFST 0284 00583000 AL VALUEPTR,ITEMPTR(,LISTINDX) 0284 00584000 * CNVRTLEN = 0; 0285 00585000 * 0285 00586000 SLR CNVRTLEN,CNVRTLEN 0285 00587000 *ITEMOUT: DO WHILE (VALUEPTR < (ITEMPTR + ITEMOFST) + ITEMLEN); 00588000 * 0286 00589000 ITEMOUT B @DE00286 0286 00590000 @DL00286 DS 0H 0287 00591000 * CNVRTLEN = (ITEMPTR + ITEMOFST + ITEMLEN) - VALUEPTR; 00592000 * 0287 00593000 LR CNVRTLEN,ITEMOFST 0287 00594000 AL CNVRTLEN,ITEMPTR(,LISTINDX) 0287 00595000 AH CNVRTLEN,ITEMLEN(,LISTINDX) 0287 00596000 SLR CNVRTLEN,VALUEPTR 0287 00597000 * /****************************************************/ 00598000 * /* */ 00599000 * /* DETERMINE IF AT START OF NEW OUTPUT LINE, OR IF */ 00600000 * /* (BASED UPON ITEM LENGTH AND TYPE) ITEM WILL FIT */ 00601000 * /* ON CURRENT LINE */ 00602000 * /* */ 00603000 * /****************************************************/ 00604000 * 0288 00605000 * OUTLEN = MAXLINE(TYPEINDX)-OUTEXP(TYPEINDX)*LINEFILL; 00606000 * 0288 00607000 LR @15,TYPEINDX 0288 00608000 SLA @15,3 0288 00609000 LR OUTLEN,LINEFILL 0288 00610000 MH OUTLEN,OUTEXP-8(@15) 0288 00611000 LCR OUTLEN,OUTLEN 0288 00612000 AH OUTLEN,MAXLINE-8(@15) 0288 00613000 * IF CNVRTLEN > OUTLEN & LINEFILL ^= 0 0289 00614000 * THEN 0289 00615000 CR CNVRTLEN,OUTLEN 0289 00616000 BNH @RF00289 0289 00617000 LTR LINEFILL,LINEFILL 0289 00618000 BZ @RF00289 0289 00619000 * DO; 0290 00620000 * /**********************************************/ 00621000 * /* */ 00622000 * /* CURRENT OUTPUT LINE FULL - PRINT THE LINE */ 00623000 * /* */ 00624000 * /**********************************************/ 00625000 * 0291 00626000 * CALL AMSTP011(GDTTBL,PRTFILE,PRNTPTR,FSADDR); 00627000 * 0291 00628000 L @02,@PC00001 0291 00629000 ST @02,@AL00001 0291 00630000 LA @15,@CF00108 0291 00631000 ST @15,@AL00001+4 0291 00632000 LA @15,PRNTPTR 0291 00633000 ST @15,@AL00001+8 0291 00634000 LA @15,FSADDR 0291 00635000 ST @15,@AL00001+12 0291 00636000 MVI @AL00001+12,X'80' 0291 00637000 L @15,GDTPRT(,@02) 0291 00638000 LA @01,@AL00001 0291 00639000 BALR @14,@15 0291 00640000 * LINEFILL = 0; 0292 00641000 * 0292 00642000 SLR LINEFILL,LINEFILL 0292 00643000 * OUTLINE = BLANK; 0293 00644000 MVI OUTLINE+1,C' ' 0293 00645000 MVC OUTLINE+2(118),OUTLINE+1 0293 00646000 MVI OUTLINE,C' ' 0293 00647000 * END; 0294 00648000 * 0294 00649000 * /****************************************************/ 00650000 * /* */ 00651000 * /* CONVERT AND FORMAT DUMP ITEM INTO OUTPUT LINE */ 00652000 * /* */ 00653000 * /****************************************************/ 00654000 * 0295 00655000 * CNVRTLEN = MIN(CNVRTLEN,MAXLINE(TYPEINDX)); 0295 00656000 * 0295 00657000 @RF00289 LR @15,TYPEINDX 0295 00658000 SLA @15,3 0295 00659000 LH @15,MAXLINE-8(@15) 0295 00660000 CR CNVRTLEN,@15 0295 00661000 BNH *+6 00662000 LR CNVRTLEN,@15 0295 00663000 * OUTPTR = ADDR(OUTLINE) + 27 * LINEFILL; 0296 00664000 * 0296 00665000 LA OUTPTR,OUTLINE 0296 00666000 LR @15,LINEFILL 0296 00667000 MH @15,@CH00606 0296 00668000 ALR OUTPTR,@15 0296 00669000 * /****************************************************/ 00670000 * /* */ 00671000 * /* PLACE SYMBOLIC NAME OF DUMP ITEM IN OUTPUT LINE */ 00672000 * /* */ 00673000 * /****************************************************/ 00674000 * 0297 00675000 * CALL NAMEFLD; 0297 00676000 * 0297 00677000 BAL @14,NAMEFLD 0297 00678000 * OUTPTR = OUTPTR + 14; 0298 00679000 * 0298 00680000 AL OUTPTR,@CF00681 0298 00681000 * /****************************************************/ 00682000 * /* */ 00683000 * /* PERFORM CONVERSION ON DUMP ITEM VALUE AND */ 00684000 * /* FORMAT INTO THE OUTPUT LINE - CONVERSION */ 00685000 * /* DEPENDENT UPON ITEM TYPE */ 00686000 * /* */ 00687000 * /****************************************************/ 00688000 * 0299 00689000 * IF ITEMTYPE = TYPEHEX 0299 00690000 * THEN 0299 00691000 CLI ITEMTYPE(LISTINDX),C'H' 0299 00692000 BNE @RF00299 0299 00693000 * CALL HCONVERT; 0300 00694000 * 0300 00695000 BAL @14,HCONVERT 0300 00696000 * IF ITEMTYPE = TYPEBIN 0301 00697000 * THEN 0301 00698000 @RF00299 CLI ITEMTYPE(LISTINDX),C'B' 0301 00699000 BNE @RF00301 0301 00700000 * CALL BCONVERT; 0302 00701000 * 0302 00702000 BAL @14,BCONVERT 0302 00703000 * IF ITEMTYPE = TYPECHAR 0303 00704000 * THEN 0303 00705000 @RF00301 CLI ITEMTYPE(LISTINDX),C'C' 0303 00706000 BNE @RF00303 0303 00707000 * CALL CCONVERT; 0304 00708000 * 0304 00709000 BAL @14,CCONVERT 0304 00710000 * IF ITEMTYPE = TYPEFIX 0305 00711000 * THEN 0305 00712000 @RF00303 CLI ITEMTYPE(LISTINDX),C'F' 0305 00713000 BNE @RF00305 0305 00714000 * CALL FCONVERT; 0306 00715000 * 0306 00716000 BAL @14,FCONVERT 0306 00717000 * LINEFILL = (OUTPTR - ADDR(OUTLINE))/27 + 1; 0307 00718000 * 0307 00719000 @RF00305 LA @00,OUTLINE 0307 00720000 LCR @00,@00 0307 00721000 ALR @00,OUTPTR 0307 00722000 SRDA @00,32 0307 00723000 D @00,@CF00606 0307 00724000 AL @01,@CF00210 0307 00725000 LR LINEFILL,@01 0307 00726000 * END ITEMOUT; 0308 00727000 * 0308 00728000 @DE00286 LR @04,ITEMOFST 0308 00729000 AL @04,ITEMPTR(,LISTINDX) 0308 00730000 AH @04,ITEMLEN(,LISTINDX) 0308 00731000 CR VALUEPTR,@04 0308 00732000 BL @DL00286 0308 00733000 * END ITEMOKAY; 0309 00734000 * 0309 00735000 * ELSE 0310 00736000 *ITEMBAD: DO; 0310 00737000 B @RC00279 0310 00738000 @RF00279 DS 0H 0310 00739000 ITEMBAD DS 0H 0311 00740000 * /******************************************************/ 00741000 * /* */ 00742000 * /* ITEM TYPE OR LENGTH INVALID - IGNORE DUMP ITEM */ 00743000 * /* */ 00744000 * /******************************************************/ 00745000 * 0311 00746000 * DARGSMOD = MSGMOD; 0311 00747000 MVC DARGSMOD(3,DDSTRU),@CC00642 0311 00748000 * DARGSENT = ITEMMSG; 0312 00749000 MVI DARGSENT(DDSTRU),X'05' 0312 00750000 * DARGDBP = ADDR(ITEMNAME); 0313 00751000 ST LISTINDX,DARGDBP(,DDSTRU) 0313 00752000 * DARGILP = LENGTH(ITEMNAME); 0314 00753000 * 0314 00754000 MVC DARGILP(2,DDSTRU),@CH00170 0314 00755000 * CALL AMSTP011(GDTTBL,PRTFILE,MSGPTR); 0315 00756000 * 0315 00757000 L @10,@PC00001 0315 00758000 ST @10,@AL00001 0315 00759000 LA @09,@CF00108 0315 00760000 ST @09,@AL00001+4 0315 00761000 LA @09,MSGPTR 0315 00762000 ST @09,@AL00001+8 0315 00763000 MVI @AL00001+8,X'80' 0315 00764000 L @15,GDTPRT(,@10) 0315 00765000 LA @01,@AL00001 0315 00766000 BALR @14,@15 0315 00767000 * END ITEMBAD; 0316 00768000 * 0316 00769000 * RETURN; 0317 00770000 @EL00003 DS 0H 0317 00771000 @EF00003 DS 0H 0317 00772000 @ER00003 LM @14,@01,@SA00003 0317 00773000 LM @03,@07,@SA00003+16 0317 00774000 LM @09,@12,@SA00003+36 0317 00775000 BR @14 0317 00776000 */********************************************************************/ 00777000 */* */ 00778000 */* PROCEDURE NAME - NAMEFLD */ 00779000 */* */ 00780000 */* FUNCTION - THIS PROCEDURE INSERTS THE SYMBOLIC NAME OF THE DUMP */ 00781000 */* ELEMENT INTO THE PROPER POSITION IN THE OUTPUT LINE. */ 00782000 */* IF THE ELEMENT IS WITHIN AN ARRAY SPECIFICATION, */ 00783000 */* A SUBSCRIPT IS INSERTED FOLLOWING THE SYMBOLIC NAME. */ 00784000 */* IF THE ELEMENT IS CONTINUED FROM THE PREVIOUS OUTPUT */ 00785000 */* LINE, AN OFFSET VALUE IS INSERTED FOLLOWING THE */ 00786000 */* SYMBOLIC NAME. */ 00787000 */* */ 00788000 */* INPUT - DUMPITEM (THE INDIVIDUAL DUMP ELEMENT CURRENTLY BEING */ 00789000 */* PROCESSED) */ 00790000 */* */ 00791000 */* OUTPUT - THE SYMBOLIC NAME OF THE DUMP ITEM AND ANY ARRAY INDEX */ 00792000 */* OR CONTINUATION OFFSET IS INSERTED IN THE OUTPUT LINE */ 00793000 */* (THE OUTPUT LINE INDICES ARE UPDATED TO REFLECT THE */ 00794000 */* INSERTION OF THE SYMBOLIC NAME) */ 00795000 */* */ 00796000 */********************************************************************/ 00797000 * 0318 00798000 *NAMEFLD: PROCEDURE; 0318 00799000 * 0318 00800000 NAMEFLD STM @14,@12,@SA00004 0318 00801000 * OLDERID2 = NEWERID2; 0319 00802000 L @10,@PC00001 0319 00803000 L @10,GDTTR2(,@10) 0319 00804000 MVC @TS00001(95),NEWERID2(@10) 0319 00805000 MVC OLDERID2(95,@10),@TS00001 0319 00806000 * NEWID2 = 'DB2N'; 0320 00807000 * 0320 00808000 MVC NEWID2(4,@10),@CC00691 0320 00809000 * /************************************************************/ 00810000 * /* */ 00811000 * /* OBTAIN SYMBOLIC NAME OF ITEM AND RIGHT-JUSTIFY THE */ 00812000 * /* NAME FOR PLACEMENT IN THE OUTPUT LINE */ 00813000 * /* */ 00814000 * /************************************************************/ 00815000 * 0321 00816000 * SYMNAME = BLANK; 0321 00817000 * 0321 00818000 MVI SYMNAME+1,C' ' 0321 00819000 MVC SYMNAME+2(13),SYMNAME+1 0321 00820000 MVI SYMNAME,C' ' 0321 00821000 * SYMNAME(8:15) = ITEMNAME; 0322 00822000 * 0322 00823000 MVC SYMNAME+7(8),ITEMNAME(LISTINDX) 0322 00824000 * NAMESCAN = ON; 0323 00825000 * 0323 00826000 OI NAMESCAN,B'10000000' 0323 00827000 * DO NAMEINDX = 8 TO 1 BY -1 WHILE (NAMESCAN = ON); 0324 00828000 * 0324 00829000 LA NAMEINDX,8 0324 00830000 @DL00324 TM NAMESCAN,B'10000000' 0324 00831000 BNO @DC00324 0324 00832000 * IF ITEMNAME(NAMEINDX) ^= BLANK 0325 00833000 * THEN 0325 00834000 LR @10,LISTINDX 0325 00835000 ALR @10,NAMEINDX 0325 00836000 AL @10,@CF00664 0325 00837000 CLI ITEMNAME(@10),C' ' 0325 00838000 BE @RF00325 0325 00839000 * NAMESCAN = OFF; 0326 00840000 * 0326 00841000 NI NAMESCAN,B'01111111' 0326 00842000 * END; 0327 00843000 * 0327 00844000 @RF00325 BCTR NAMEINDX,0 0327 00845000 LTR NAMEINDX,NAMEINDX 0327 00846000 BP @DL00324 0327 00847000 @DC00324 DS 0H 0328 00848000 * SYMNAME(8-NAMEINDX:8) = SYMNAME(8:8+NAMEINDX); 0328 00849000 * 0328 00850000 LA @10,8 0328 00851000 LR @07,@10 0328 00852000 SLR @07,NAMEINDX 0328 00853000 LA @01,SYMNAME-1(@07) 0328 00854000 SLR @10,@07 0328 00855000 MVC @TS00001(15),SYMNAME+7 0328 00856000 EX @10,@SM00726 0328 00857000 * /************************************************************/ 00858000 * /* */ 00859000 * /* PLACE THE SYMBOLIC ITEM NAME IN THE OUTPUT LINE */ 00860000 * /* */ 00861000 * /************************************************************/ 00862000 * 0329 00863000 * IF ARRYINDX = 0 0329 00864000 * THEN 0329 00865000 LTR ARRYINDX,ARRYINDX 0329 00866000 BNZ @RF00329 0329 00867000 *NAMEITEM: DO; 0330 00868000 NAMEITEM DS 0H 0331 00869000 * /******************************************************/ 00870000 * /* */ 00871000 * /* ITEM IS NOT WITHIN AN ARRAY (NO SUBSCRIPT NEEDED) */ 00872000 * /* */ 00873000 * /******************************************************/ 00874000 * 0331 00875000 * IF VALUEPTR = ITEMPTR 0331 00876000 * THEN 0331 00877000 C VALUEPTR,ITEMPTR(,LISTINDX) 0331 00878000 BNE @RF00331 0331 00879000 * DO; 0332 00880000 * /************************************************/ 00881000 * /* */ 00882000 * /* ITEM IS NOT CONTINUED FROM PREVIOUS LINE */ 00883000 * /* */ 00884000 * /************************************************/ 00885000 * 0333 00886000 * OUTSEG(4:11) = SYMNAME; 0333 00887000 MVC OUTSEG+3(8,OUTPTR),SYMNAME 0333 00888000 * END; 0334 00889000 * 0334 00890000 * ELSE 0335 00891000 * DO; 0335 00892000 B @RC00331 0335 00893000 @RF00331 DS 0H 0336 00894000 * /************************************************/ 00895000 * /* */ 00896000 * /* ITEM IS CONTINUED FROM PREVIOUS LINE - */ 00897000 * /* INSERT OFFSET FOLLOWING SYMBOLIC NAME */ 00898000 * /* */ 00899000 * /************************************************/ 00900000 * 0336 00901000 * OUTSEG(1:8) = SYMNAME; 0336 00902000 MVC OUTSEG(8,OUTPTR),SYMNAME 0336 00903000 * OUTSEG(9) = '+'; 0337 00904000 * 0337 00905000 MVI OUTSEG+8(OUTPTR),C'+' 0337 00906000 * RESPECIFY (REG7,REG8) RESTRICTED; 0338 00907000 * 0338 00908000 * REG7 = VALUEPTR - ITEMPTR; 0339 00909000 LR REG7,VALUEPTR 0339 00910000 SL REG7,ITEMPTR(,LISTINDX) 0339 00911000 * REG8 = OUTPTR; 0340 00912000 * 0340 00913000 LR REG8,OUTPTR 0340 00914000 * GEN(CVD REG7,DOUBLE); 0341 00915000 CVD REG7,DOUBLE 00916000 * GEN(OI DOUBLE+7,X'0F'); 0342 00917000 OI DOUBLE+7,X'0F' 00918000 * GEN(UNPK 9(3,REG8),DOUBLE+6(2)); 0343 00919000 * 0343 00920000 UNPK 9(3,REG8),DOUBLE+6(2) 00921000 * RESPECIFY (REG7,REG8) UNRESTRICTED; 0344 00922000 * END; 0345 00923000 * 0345 00924000 * END NAMEITEM; 0346 00925000 * 0346 00926000 * ELSE 0347 00927000 *NAMEARRY: DO; 0347 00928000 B @RC00329 0347 00929000 @RF00329 DS 0H 0347 00930000 NAMEARRY DS 0H 0348 00931000 * /******************************************************/ 00932000 * /* */ 00933000 * /* ITEM IS WITHIN AN ARRAY - INSERT ARRAY SUBSCRIPT */ 00934000 * /* FOLLOWING SYMBOLIC NAME */ 00935000 * /* */ 00936000 * /******************************************************/ 00937000 * 0348 00938000 * OUTSEG(1:8) = SYMNAME; 0348 00939000 MVC OUTSEG(8,OUTPTR),SYMNAME 0348 00940000 * OUTSEG(9:12) = '( )'; 0349 00941000 * 0349 00942000 MVC OUTSEG+8(4,OUTPTR),@CC00698 0349 00943000 * RESPECIFY (REG7,REG8) RESTRICTED; 0350 00944000 * 0350 00945000 * REG7 = ARRYINDX; 0351 00946000 LR REG7,ARRYINDX 0351 00947000 * REG8 = OUTPTR; 0352 00948000 * 0352 00949000 LR REG8,OUTPTR 0352 00950000 * GEN(CVD REG7,DOUBLE); 0353 00951000 CVD REG7,DOUBLE 00952000 * GEN(OI DOUBLE+7,X'0F'); 0354 00953000 OI DOUBLE+7,X'0F' 00954000 * GEN(UNPK 9(2,REG8),DOUBLE+6(2)); 0355 00955000 * 0355 00956000 UNPK 9(2,REG8),DOUBLE+6(2) 00957000 * RESPECIFY (REG7,REG8) UNRESTRICTED; 0356 00958000 * 0356 00959000 * IF ARRYINDX < 10 0357 00960000 * THEN 0357 00961000 C ARRYINDX,@CF00434 0357 00962000 BNL @RF00357 0357 00963000 * OUTSEG(10:12) = OUTSEG(11:13); 0358 00964000 * 0358 00965000 MVC @TS00001(3),OUTSEG+10(OUTPTR) 0358 00966000 MVC OUTSEG+9(3,OUTPTR),@TS00001 0358 00967000 * END NAMEARRY; 0359 00968000 * 0359 00969000 @RF00357 DS 0H 0360 00970000 * OUTSEG(13) = '='; 0360 00971000 * 0360 00972000 @RC00329 MVI OUTSEG+12(OUTPTR),C'=' 0360 00973000 * RETURN; 0361 00974000 * 0361 00975000 @EL00004 DS 0H 0361 00976000 @EF00004 DS 0H 0361 00977000 @ER00004 LM @14,@12,@SA00004 0361 00978000 BR @14 0361 00979000 * END NAMEFLD; 0362 00980000 */********************************************************************/ 00981000 */* */ 00982000 */* PROCEDURE NAME - HCONVERT */ 00983000 */* */ 00984000 */* FUNCTION - THIS PROCEDURE CONVERTS THE VALUE OF THE CURRENT */ 00985000 */* DUMP ITEM TO HEXIDECIMAL REPRESENTATION */ 00986000 */* */ 00987000 */* INPUT - VALUEPTR (THE ADDRESS OF THE DUMP ITEM TO BE CONVERTED) */ 00988000 */* CNVRTLEN (THE LENGTH OF THE DUMP ITEM TO BE CONVERTED) */ 00989000 */* OUTPTR (THE ADDRESS IN THE OUTPUT LINE TO PLACE */ 00990000 */* THE CONVERTED VALUE) */ 00991000 */* */ 00992000 */* OUTPUT - THE CONVERTED (HEXIDECIMAL) REPRESENTATION IS INSERTED */ 00993000 */* IN THE OUTPUT LINE (OUTPTR IS UPDATED TO REFLECT THE */ 00994000 */* LENGTH OF THE CONVERTED VALUE IN THE OUTPUT LINE) */ 00995000 */* */ 00996000 */********************************************************************/ 00997000 * 0363 00998000 *HCONVERT: PROCEDURE; 0363 00999000 * 0363 01000000 HCONVERT STM @14,@01,@SA00005 0363 01001000 STM @03,@04,@SA00005+16 0363 01002000 STM @06,@12,@SA00005+24 0363 01003000 * OLDERID2 = NEWERID2; 0364 01004000 L @10,@PC00001 0364 01005000 L @10,GDTTR2(,@10) 0364 01006000 MVC @TS00001(95),NEWERID2(@10) 0364 01007000 MVC OLDERID2(95,@10),@TS00001 0364 01008000 * NEWID2 = 'DB2H'; 0365 01009000 * 0365 01010000 MVC NEWID2(4,@10),@CC00703 0365 01011000 * /************************************************************/ 01012000 * /* */ 01013000 * /* CONVERT DUMP ITEM VALUE TO HEXIDECIMAL FORM (FOUR BYTES */ 01014000 * /* AT A TIME) INTO OUTPUT LINE */ 01015000 * /* */ 01016000 * /************************************************************/ 01017000 * 0366 01018000 * RESPECIFY (REG7,REG8) RESTRICTED; 0366 01019000 * 0366 01020000 * DO CVRTINDX = CNVRTLEN TO 1 BY -4; 0367 01021000 * 0367 01022000 LR CVRTINDX,CNVRTLEN 0367 01023000 B @DE00367 0367 01024000 @DL00367 DS 0H 0368 01025000 * REG7 = OUTPTR; 0368 01026000 LR REG7,OUTPTR 0368 01027000 * REG8 = VALUEPTR; 0369 01028000 * 0369 01029000 LR REG8,VALUEPTR 0369 01030000 * /************************************************************/ 01031000 * /* */ 01032000 * /* CHECK FOR UNPK GOING OUT OF RANGE */ 01033000 * /* */ 01034000 * /************************************************************/ 01035000 * 0370 01036000 * IF CNVRTLEN <= 4 & /*@Y30SSLO*/ 01037000 * CNVRTLEN > 0 /*@Y30SSLO*/ 01038000 * THEN /*@Y30SSLO*/ 01039000 C CNVRTLEN,@CF00037 0370 01040000 BH @RF00370 0370 01041000 LTR CNVRTLEN,CNVRTLEN 0370 01042000 BNP @RF00370 0370 01043000 * DO; /*@Y30SSLO*/ 01044000 * WRKAREA(1:CNVRTLEN) = REG8 -> CORE(1:CNVRTLEN) ; 0372 01045000 LR @10,CNVRTLEN 0372 01046000 BCTR @10,0 0372 01047000 EX @10,@SM00728 0372 01048000 * GEN(UNPK 0(9,REG7),WRKAREA(5)); /*@Y30SSLO*/ 01049000 UNPK 0(9,REG7),WRKAREA(5) 01050000 * GEN(TR 0(8,REG7),HEXTRANS-240); /*@Y30SSLO*/ 01051000 TR 0(8,REG7),HEXTRANS-240 01052000 * GEN(MVI 8(REG7),C' '); /*@Y30SSLO*/ 01053000 MVI 8(REG7),C' ' 01054000 * END; /*@Y30SSLO*/ 01055000 * /*@Y30SSLO*/ 01056000 * ELSE /*@Y30SSLO*/ 01057000 * DO; /*@Y30SSLO*/ 01058000 B @RC00370 0377 01059000 @RF00370 DS 0H 0378 01060000 * GEN(UNPK 0(9,REG7),0(5,REG8)); 0378 01061000 UNPK 0(9,REG7),0(5,REG8) 01062000 * GEN(TR 0(8,REG7),HEXTRANS-240); 0379 01063000 TR 0(8,REG7),HEXTRANS-240 01064000 * GEN(MVI 8(REG7),C' '); 0380 01065000 MVI 8(REG7),C' ' 01066000 * END; /*@Y30SSLO*/ 01067000 * 0381 01068000 * OUTPTR = OUTPTR + 9; 0382 01069000 @RC00370 AL OUTPTR,@CF00694 0382 01070000 * VALUEPTR = VALUEPTR + 4; 0383 01071000 AL VALUEPTR,@CF00037 0383 01072000 * END; 0384 01073000 * 0384 01074000 AL CVRTINDX,@CF00704 0384 01075000 @DE00367 LTR CVRTINDX,CVRTINDX 0384 01076000 BP @DL00367 0384 01077000 * RESPECIFY (REG7,REG8) UNRESTRICTED; 0385 01078000 * 0385 01079000 * /************************************************************/ 01080000 * /* */ 01081000 * /* BLANK OUT EXTRANEOUS DATA (IF ANY) OBTAINED DURING THE */ 01082000 * /* FINAL FOUR-BYTE CONVERSION */ 01083000 * /* */ 01084000 * /************************************************************/ 01085000 * 0386 01086000 * IF CVRTINDX < 0 0386 01087000 * THEN 0386 01088000 LTR CVRTINDX,CVRTINDX 0386 01089000 BNM @RF00386 0386 01090000 * DO; 0387 01091000 * OUTPTR = OUTPTR - 1 + 2 * CVRTINDX; 0388 01092000 * 0388 01093000 LR @10,OUTPTR 0388 01094000 BCTR @10,0 0388 01095000 LR @15,CVRTINDX 0388 01096000 ALR @15,@15 0388 01097000 ALR @10,@15 0388 01098000 LR OUTPTR,@10 0388 01099000 * OUTSEG(1:6) = ' '; 0389 01100000 * 0389 01101000 MVC OUTSEG(6,OUTPTR),@CC00705 0389 01102000 * OUTPTR = OUTPTR + 1; 0390 01103000 AL OUTPTR,@CF00210 0390 01104000 * END; 0391 01105000 * 0391 01106000 * RETURN; 0392 01107000 * 0392 01108000 @EL00005 DS 0H 0392 01109000 @EF00005 DS 0H 0392 01110000 @ER00005 LM @14,@01,@SA00005 0392 01111000 LM @03,@04,@SA00005+16 0392 01112000 LM @06,@12,@SA00005+24 0392 01113000 BR @14 0392 01114000 * END HCONVERT; 0393 01115000 B @EL00005 0393 01116000 */********************************************************************/ 01117000 */* */ 01118000 */* PROCEDURE NAME - BCONVERT */ 01119000 */* */ 01120000 */* FUNCTION - THIS PROCEDURE CONVERTS THE VALUE OF THE CURRENT */ 01121000 */* DUMP ITEM TO BIT (BINARY) REPRESENTATION */ 01122000 */* */ 01123000 */* INPUT - VALUEPTR (THE ADDRESS OF THE DUMP ITEM TO BE CONVERTED) */ 01124000 */* CNVRTLEN (THE LENGTH OF THE DUMP ITEM TO BE CONVERTED) */ 01125000 */* OUTPTR (THE ADDRESS IN THE OUTPUT LINE TO PLACE */ 01126000 */* THE CONVERTED VALUE) */ 01127000 */* */ 01128000 */* OUTPUT - THE CONVERTED (BIT) REPRESENTATION IS INSERTED INTO */ 01129000 */* THE OUTPUT LINE (OUTPTR IS UPDATED TO REFLECT THE */ 01130000 */* LENGTH OF THE CONVERTED VALUE IN THE OUTPUT LINE) */ 01131000 */* */ 01132000 */********************************************************************/ 01133000 * 0394 01134000 *BCONVERT: PROCEDURE; 0394 01135000 * 0394 01136000 BCONVERT STM @14,@01,12(@13) 0394 01137000 STM @03,@04,32(@13) 0394 01138000 STM @06,@12,44(@13) 0394 01139000 * OLDERID2 = NEWERID2; 0395 01140000 L @10,@PC00001 0395 01141000 L @10,GDTTR2(,@10) 0395 01142000 MVC @TS00001(95),NEWERID2(@10) 0395 01143000 MVC OLDERID2(95,@10),@TS00001 0395 01144000 * NEWID2 = 'DB2B'; 0396 01145000 * 0396 01146000 MVC NEWID2(4,@10),@CC00709 0396 01147000 * OUTSEG(1) = ''''; 0397 01148000 MVI OUTSEG(OUTPTR),C'''' 0397 01149000 * CNVRTVAL = 0; 0398 01150000 * 0398 01151000 SLR @10,@10 0398 01152000 ST @10,CNVRTVAL 0398 01153000 * /************************************************************/ 01154000 * /* */ 01155000 * /* CONVERT DUMP ITEM TO BINARY FORM (ONE BYTE AT A TIME) */ 01156000 * /* INTO THE OUTPUT LINE */ 01157000 * /* */ 01158000 * /************************************************************/ 01159000 * 0399 01160000 * DO CVRTINDX = CNVRTLEN TO 1 BY -1; 0399 01161000 * 0399 01162000 LR CVRTINDX,CNVRTLEN 0399 01163000 B @DE00399 0399 01164000 @DL00399 DS 0H 0400 01165000 * OUTPTR = OUTPTR + 1; 0400 01166000 AL OUTPTR,@CF00210 0400 01167000 * OUTSEG(1:8) = '00000000'; 0401 01168000 * 0401 01169000 MVC OUTSEG(8,OUTPTR),@CC00711 0401 01170000 * CVRTCHAR(4) = INSEG(1); 0402 01171000 * 0402 01172000 MVC CVRTCHAR+3(1),INSEG(VALUEPTR) 0402 01173000 * /**********************************************************/ 01174000 * /* */ 01175000 * /* SCAN EACH BIT OF THE INPUT BYTE AND SET OUTPUT BYTE */ 01176000 * /* ACCORDINGLY TO '1' OR '0' */ 01177000 * /* */ 01178000 * /**********************************************************/ 01179000 * 0403 01180000 * DO OUTINDX = 8 TO 1 BY -1 WHILE(CNVRTVAL ^= 0); 0403 01181000 * 0403 01182000 LA OUTINDX,8 0403 01183000 @DL00403 L @10,CNVRTVAL 0403 01184000 LTR @10,@10 0403 01185000 BZ @DC00403 0403 01186000 * IF CNVRTVAL // 2 = 1 0404 01187000 * THEN 0404 01188000 LR @00,@10 0404 01189000 SRDA @00,32 0404 01190000 D @00,@CF00144 0404 01191000 C @00,@CF00210 0404 01192000 BNE @RF00404 0404 01193000 * OUTSEG(OUTINDX) = '1'; 0405 01194000 * 0405 01195000 LR @10,OUTPTR 0405 01196000 ALR @10,OUTINDX 0405 01197000 AL @10,@CF00664 0405 01198000 MVI OUTSEG(@10),C'1' 0405 01199000 * CNVRTVAL = CNVRTVAL / 2; 0406 01200000 @RF00404 L @00,CNVRTVAL 0406 01201000 SRDA @00,32 0406 01202000 D @00,@CF00144 0406 01203000 ST @01,CNVRTVAL 0406 01204000 * END; 0407 01205000 * 0407 01206000 BCTR OUTINDX,0 0407 01207000 LTR OUTINDX,OUTINDX 0407 01208000 BP @DL00403 0407 01209000 @DC00403 DS 0H 0408 01210000 * OUTPTR = OUTPTR + 8; 0408 01211000 AL OUTPTR,@CF00170 0408 01212000 * VALUEPTR = VALUEPTR + 1; 0409 01213000 * 0409 01214000 AL VALUEPTR,@CF00210 0409 01215000 * END; 0410 01216000 * 0410 01217000 BCTR CVRTINDX,0 0410 01218000 @DE00399 LTR CVRTINDX,CVRTINDX 0410 01219000 BP @DL00399 0410 01220000 * OUTSEG(1) = ''''; 0411 01221000 MVI OUTSEG(OUTPTR),C'''' 0411 01222000 * OUTPTR = OUTPTR + 1; 0412 01223000 * 0412 01224000 AL OUTPTR,@CF00210 0412 01225000 * RETURN; 0413 01226000 * 0413 01227000 @EL00006 DS 0H 0413 01228000 @EF00006 DS 0H 0413 01229000 @ER00006 LM @14,@01,12(@13) 0413 01230000 LM @03,@04,32(@13) 0413 01231000 LM @06,@12,44(@13) 0413 01232000 BR @14 0413 01233000 * END BCONVERT; 0414 01234000 */********************************************************************/ 01235000 */* */ 01236000 */* PROCEDURE NAME - CCONVERT */ 01237000 */* */ 01238000 */* FUNCTION - THIS PROCEDURE CONVERTS THE VALUE OF THE CURRENT */ 01239000 */* DUMP ITEM TO CHARACTER REPRESENTATION */ 01240000 */* */ 01241000 */* INPUT - VALUEPTR (THE ADDRESS OF THE DUMP ITEM TO BE CONVERTED) */ 01242000 */* CNVRTLEN (THE LENGTH OF THE DUMP ITEM TO BE CONVERTED) */ 01243000 */* OUTPTR (THE ADDRESS IN THE OUTPUT LINE TO PLACE */ 01244000 */* THE CONVERTED VALUE) */ 01245000 */* */ 01246000 */* OUTPUT - THE CONVERTED (CHARACTER) REPRESENTATION IS INSERTED */ 01247000 */* IN THE OUTPUT LINE (OUTPTR IS UPDATED TO REFLECT THE */ 01248000 */* LENGTH OF THE CONVERTED VALUE IN THE OUTPUT LINE) */ 01249000 */* */ 01250000 */********************************************************************/ 01251000 * 0415 01252000 *CCONVERT: PROCEDURE; 0415 01253000 * 0415 01254000 CCONVERT STM @14,@01,12(@13) 0415 01255000 STM @03,@04,32(@13) 0415 01256000 STM @06,@12,44(@13) 0415 01257000 * OLDERID2 = NEWERID2; 0416 01258000 L @10,@PC00001 0416 01259000 L @10,GDTTR2(,@10) 0416 01260000 MVC @TS00001(95),NEWERID2(@10) 0416 01261000 MVC OLDERID2(95,@10),@TS00001 0416 01262000 * NEWID2 = 'DB2C'; 0417 01263000 * 0417 01264000 MVC NEWID2(4,@10),@CC00716 0417 01265000 * OUTSEG(1) = ''''; 0418 01266000 * 0418 01267000 MVI OUTSEG(OUTPTR),C'''' 0418 01268000 * /************************************************************/ 01269000 * /* */ 01270000 * /* CONVERT DUMP ITEM TO CHARACTER FORM INTO OUTPUT LINE */ 01271000 * /* */ 01272000 * /************************************************************/ 01273000 * 0419 01274000 * OUTSEG(2:CNVRTLEN+1) = INSEG(1:CNVRTLEN); 0419 01275000 * 0419 01276000 LR @10,CNVRTLEN 0419 01277000 BCTR @10,0 0419 01278000 EX @10,@SM00730 0419 01279000 * OUTSEG(CNVRTLEN+2) = ''''; 0420 01280000 * 0420 01281000 LR @10,OUTPTR 0420 01282000 ALR @10,CNVRTLEN 0420 01283000 MVI OUTSEG+1(@10),C'''' 0420 01284000 * OUTPTR = OUTPTR + CNVRTLEN + 2; 0421 01285000 LR @10,OUTPTR 0421 01286000 ALR @10,CNVRTLEN 0421 01287000 AL @10,@CF00144 0421 01288000 LR OUTPTR,@10 0421 01289000 * VALUEPTR = VALUEPTR + CNVRTLEN; 0422 01290000 * 0422 01291000 ALR VALUEPTR,CNVRTLEN 0422 01292000 * RETURN; 0423 01293000 * 0423 01294000 @EL00007 DS 0H 0423 01295000 @EF00007 DS 0H 0423 01296000 @ER00007 LM @14,@01,12(@13) 0423 01297000 LM @03,@04,32(@13) 0423 01298000 LM @06,@12,44(@13) 0423 01299000 BR @14 0423 01300000 * END CCONVERT; 0424 01301000 */********************************************************************/ 01302000 */* */ 01303000 */* PROCEDURE NAME - FCONVERT */ 01304000 */* */ 01305000 */* FUNCTION - THIS PROCEDURE CONVERTS THE VALUE OF THE CURRENT */ 01306000 */* DUMP ITEM TO FIXED (INTEGER) REPRESENTATION */ 01307000 */* */ 01308000 */* INPUT - VALUEPTR (THE ADDRESS OF THE DUMP ITEM TO BE CONVERTED) */ 01309000 */* CNVRTLEN (THE LENGTH OF THE DUMP ITEM TO BE CONVERTED) */ 01310000 */* OUTPTR (THE ADDRESS IN THE OUTPUT LINE TO PLACE */ 01311000 */* THE CONVERTED VALUE) */ 01312000 */* */ 01313000 */* OUTPUT - THE CONVERTED (FIXED) REPRESENTATION IS INSERTED INTO */ 01314000 */* THE OUTPUT LINE (OUTPTR IS UPDATED TO REFLECT THE */ 01315000 */* LENGTH OF THE CONVERTED VALUE IN THE OUTPUT LINE) */ 01316000 */* */ 01317000 */********************************************************************/ 01318000 * 0425 01319000 *FCONVERT: PROCEDURE; 0425 01320000 * 0425 01321000 FCONVERT STM @14,@01,@SA00008 0425 01322000 STM @03,@04,@SA00008+16 0425 01323000 STM @06,@12,@SA00008+24 0425 01324000 * OLDERID2 = NEWERID2; 0426 01325000 L @10,@PC00001 0426 01326000 L @10,GDTTR2(,@10) 0426 01327000 MVC @TS00001(95),NEWERID2(@10) 0426 01328000 MVC OLDERID2(95,@10),@TS00001 0426 01329000 * NEWID2 = 'DB2F'; 0427 01330000 * 0427 01331000 MVC NEWID2(4,@10),@CC00720 0427 01332000 * OUTPTR = OUTPTR - 1; 0428 01333000 BCTR OUTPTR,0 0428 01334000 * CNVRTVAL = 0; 0429 01335000 * 0429 01336000 SLR @10,@10 0429 01337000 ST @10,CNVRTVAL 0429 01338000 * /************************************************************/ 01339000 * /* */ 01340000 * /* OBTAIN DUMP ITEM VALUE FOR 'FIXED' FORMAT CONVERSION */ 01341000 * /* */ 01342000 * /************************************************************/ 01343000 * 0430 01344000 * CVRTCHAR(5-CNVRTLEN:4) = INSEG(1:CNVRTLEN); 0430 01345000 * 0430 01346000 LA @10,5 0430 01347000 SLR @10,CNVRTLEN 0430 01348000 LA @03,CVRTCHAR-1(@10) 0430 01349000 LCR @10,@10 0430 01350000 AL @10,@CF00037 0430 01351000 EX @10,@SM00732 0430 01352000 * /************************************************************/ 01353000 * /* */ 01354000 * /* PROPAGATE THE SIGN BIT IF A TWO-BYTE FIELD IS SPECIFIED */ 01355000 * /* (A SIGNED-VALUE IS ASSUMED FOR FIELD LENGTHS OF 2 OR 4) */ 01356000 * /* */ 01357000 * /************************************************************/ 01358000 * 0431 01359000 * IF CNVRTLEN = 2 0431 01360000 * THEN 0431 01361000 C CNVRTLEN,@CF00144 0431 01362000 BNE @RF00431 0431 01363000 * CNVRTVAL = CVRTHALF; 0432 01364000 * 0432 01365000 LH @10,CVRTHALF 0432 01366000 ST @10,CNVRTVAL 0432 01367000 * /************************************************************/ 01368000 * /* */ 01369000 * /* CONVERT DUMP ITEM TO 'FIXED' OUTPUT REPRESENTATION */ 01370000 * /* AND PLACE INTO THE OUTPUT LINE */ 01371000 * /* */ 01372000 * /************************************************************/ 01373000 * 0433 01374000 * IF CNVRTVAL ^= 0 0433 01375000 * THEN 0433 01376000 @RF00431 L @10,CNVRTVAL 0433 01377000 LTR @10,@10 0433 01378000 BZ @RF00433 0433 01379000 * DO; 0434 01380000 * RESPECIFY (REG7,REG8) RESTRICTED; 0435 01381000 * 0435 01382000 * REG7 = CNVRTVAL; 0436 01383000 LR REG7,@10 0436 01384000 * REG8 = OUTPTR; 0437 01385000 * 0437 01386000 LR REG8,OUTPTR 0437 01387000 * GEN(CVD REG7,DOUBLE); 0438 01388000 CVD REG7,DOUBLE 01389000 * GEN(OI DOUBLE+7,X'0F'); 0439 01390000 OI DOUBLE+7,X'0F' 01391000 * GEN(UNPK 1(11,REG8),DOUBLE+2(6)); 0440 01392000 * 0440 01393000 UNPK 1(11,REG8),DOUBLE+2(6) 01394000 * RESPECIFY (REG7,REG8) UNRESTRICTED; 0441 01395000 * 0441 01396000 * /******************************************************/ 01397000 * /* */ 01398000 * /* INSERT PRECEDING MINUS SIGN IF VALUE IS NEGATIVE */ 01399000 * /* */ 01400000 * /******************************************************/ 01401000 * 0442 01402000 * IF CNVRTVAL < 0 0442 01403000 * THEN 0442 01404000 L @10,CNVRTVAL 0442 01405000 LTR @10,@10 0442 01406000 BNM @RF00442 0442 01407000 * OUTSEG(1) = '-'; 0443 01408000 * 0443 01409000 MVI OUTSEG(OUTPTR),C'-' 0443 01410000 * /******************************************************/ 01411000 * /* */ 01412000 * /* SUPPRESS LEADING ZEROES IN THE OUTPUT LINE VALUE */ 01413000 * /* */ 01414000 * /******************************************************/ 01415000 * 0444 01416000 * DO WHILE (OUTSEG(2) = '0'); 0444 01417000 * 0444 01418000 @RF00442 B @DE00444 0444 01419000 @DL00444 DS 0H 0445 01420000 * OUTSEG(2:12) = OUTSEG(3:13); 0445 01421000 * 0445 01422000 MVC @TS00001(11),OUTSEG+2(OUTPTR) 0445 01423000 MVC OUTSEG+1(11,OUTPTR),@TS00001 0445 01424000 * END; 0446 01425000 * 0446 01426000 @DE00444 CLI OUTSEG+1(OUTPTR),C'0' 0446 01427000 BE @DL00444 0446 01428000 * END; 0447 01429000 * 0447 01430000 * ELSE 0448 01431000 * OUTSEG(2) = '0'; 0448 01432000 * 0448 01433000 B @RC00433 0448 01434000 @RF00433 MVI OUTSEG+1(OUTPTR),C'0' 0448 01435000 * OUTPTR = OUTPTR + 13; 0449 01436000 @RC00433 AL OUTPTR,@CF00666 0449 01437000 * VALUEPTR = VALUEPTR + CNVRTLEN; 0450 01438000 * 0450 01439000 ALR VALUEPTR,CNVRTLEN 0450 01440000 * RETURN; 0451 01441000 * 0451 01442000 @EL00008 DS 0H 0451 01443000 @EF00008 DS 0H 0451 01444000 @ER00008 LM @14,@01,@SA00008 0451 01445000 LM @03,@04,@SA00008+16 0451 01446000 LM @06,@12,@SA00008+24 0451 01447000 BR @14 0451 01448000 * END FCONVERT; 0452 01449000 * 0452 01450000 * 0452 01451000 * END ITEMDUMP; 0453 01452000 * 0453 01453000 * 0453 01454000 B @EL00003 0453 01455000 * END IDCDB02 0454 01456000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01457000 */*%INCLUDE SYSLIB (AMSDF01 ) * 01458000 */*%INCLUDE SYSLIB (AMSDF00 ) * 01459000 */*@INCLUDE SYSLIB (AMSDF02 ) * 01460000 *; 0454 01461000 @DATA DS 0H 01462000 @SM00726 MVC 0(0,@01),@TS00001 01463000 @SM00728 MVC WRKAREA(0),CORE(REG8) 01464000 @SM00730 MVC OUTSEG+1(0,OUTPTR),INSEG(VALUEPTR) 01465000 @SM00732 MVC 0(0,@03),INSEG(VALUEPTR) 01466000 @DATD DSECT 01467000 DS 0F 01468000 @SA00001 DS 18F 01469000 @PC00001 DS 2F 01470000 @SA00002 DS 11F 01471000 @SA00003 DS 13F 01472000 @SA00004 DS 15F 01473000 @SA00005 DS 13F 01474000 @SA00008 DS 13F 01475000 @AL00001 DS 4A 01476000 IDCDB02 CSECT 01477000 DS 0F 01478000 @CF00108 DC F'0' 01479000 @CF00210 DC F'1' 01480000 @CH00210 EQU @CF00210+2 01481000 @CF00144 DC F'2' 01482000 @CF00153 DC F'3' 01483000 @CF00037 DC F'4' 01484000 @CF00170 DC F'8' 01485000 @CH00170 EQU @CF00170+2 01486000 @CF00694 DC F'9' 01487000 @CF00434 DC F'10' 01488000 @CF00666 DC F'13' 01489000 @CF00681 DC F'14' 01490000 @CF00464 DC F'16' 01491000 @CF00668 DC F'23' 01492000 @CF00606 DC F'27' 01493000 @CH00606 EQU @CF00606+2 01494000 @CF00661 DC F'99' 01495000 @CF00704 DC F'-4' 01496000 @CF00664 DC F'-1' 01497000 @DATD DSECT 01498000 DS 0D 01499000 LISTSCAN DS A 01500000 IOCSPTR DS A 01501000 OPNPTR DS A 01502000 FSADDR DS A 01503000 ERCNVADR DS A 01504000 DMPINDEX DS A 01505000 CNVRTVAL DS F 01506000 ARRYSTRT DS A 01507000 PRNTPTR DS A 01508000 MSGPTR DS A 01509000 LISTPTR DS A 01510000 SETRC DS H 01511000 TESTRC DS H 01512000 LISTLN DS FL1 01513000 @TS00001 DS CL95 01514000 TYPEMTCH DS BL1 01515000 OUTLINE DS CL120 01516000 SYMNAME DS CL15 01517000 NAMESCAN DS BL1 01518000 DS CL3 01519000 WRKAREA DS CL5 01520000 DS CL3 01521000 PRNTLIST DS CL20 01522000 MSGLIST DS CL20 01523000 FRMTLIST DS CL12 01524000 DOUBLE DS CL8 01525000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01526000 @ENDDATD EQU * 01527000 IDCDB02 CSECT 01528000 DS 0F 01529000 @SIZDATD DC AL1(0) 01530000 DC AL3(@ENDDATD-@DATD) 01531000 DS 0D 01532000 @CC00667 DC C'IN ARRAY' 01533000 @CC00711 DC C'00000000' 01534000 @CC00705 DC C' ' 01535000 @CC00660 DC C'DB2A' 01536000 @CC00674 DC C'DB2I' 01537000 @CC00691 DC C'DB2N' 01538000 @CC00698 DC C'( )' 01539000 @CC00703 DC C'DB2H' 01540000 @CC00709 DC C'DB2B' 01541000 @CC00716 DC C'DB2C' 01542000 @CC00720 DC C'DB2F' 01543000 @CC00642 DC C'EX0' 01544000 ALL DC CL3'ALL' 01545000 FORMAT DC CL4'FORM' 01546000 HSECOND DC CL4'HSEC' 01547000 CLOCK DC CL4'KLOK' 01548000 SETZERO DC CL4'ZERO' 01549000 SETBLANK DC CL4'BLNK' 01550000 NOSET DC CL4'NSET' 01551000 OVERRIDE DC CL4'OVRD' 01552000 ACQUIRE DC CL8'ACQUIRE ' 01553000 RELINQ DC CL8'RELINQ ' 01554000 MOUNT DC CL8'MOUNT ' 01555000 DEMOUNT DC CL8'DEMOUNT ' 01556000 DEFINE DC CL8'DEFINE ' 01557000 MOVE DC CL8'MOVE ' 01558000 TRACEQ DC CL8'TRACEQ ' 01559000 COPYTABL DC CL8'COPYTABL' 01560000 COPYCRTG DC CL8'COPYCRTG' 01561000 COPYVOL DC CL8'COPYVOL ' 01562000 VVIC DC CL8'VVIC ' 01563000 TUNE DC CL8'TUNE ' 01564000 NAMES DC CL4'NAME' 01565000 UNIT DC CL4'UNIT' 01566000 SHR DC CL4'SHR ' 01567000 EXCL DC CL4'EXCL' 01568000 NOWAIT DC CL4'NWAI' 01569000 WAIT DC CL4'WAIT' 01570000 MODID DC CL4'DB02' 01571000 HEXTRANS DC CL16'0123456789ABCDEF' 01572000 FIXAREA DS CL150 01573000 ORG FIXAREA 01574000 @NM00038 DC 150X'00' 01575000 ORG FIXAREA+150 01576000 TYPELEN DS CL8 01577000 ORG TYPELEN+0 01578000 OUTTYPE DC CL1'H' 01579000 @NM00037 DC CL1' ' 01580000 MAXLEN DC H'256' 01581000 MAXLINE DC H'44' 01582000 OUTEXP DC H'12' 01583000 ORG TYPELEN+8 01584000 ORG TYPELEN+8 01585000 DC CL1'B' 01586000 DS CL1 01587000 DC H'256' 01588000 DC H'11' 01589000 DC H'3' 01590000 ORG TYPELEN+16 01591000 ORG TYPELEN+16 01592000 DC CL1'C' 01593000 DS CL1 01594000 DC H'256' 01595000 DC H'100' 01596000 DC H'27' 01597000 ORG TYPELEN+24 01598000 ORG TYPELEN+24 01599000 DC CL1'F' 01600000 DS CL1 01601000 DC H'4' 01602000 DC H'108' 01603000 DC H'27' 01604000 ORG TYPELEN+32 01605000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01606000 @01 EQU 01 01607000 @02 EQU 02 01608000 @03 EQU 03 01609000 @04 EQU 04 01610000 @05 EQU 05 01611000 @06 EQU 06 01612000 @07 EQU 07 01613000 @08 EQU 08 01614000 @09 EQU 09 01615000 @10 EQU 10 01616000 @11 EQU 11 01617000 @12 EQU 12 01618000 @13 EQU 13 01619000 @14 EQU 14 01620000 @15 EQU 15 01621000 ITEMOFST EQU @10 01622000 ARRYINDX EQU @06 01623000 ARRYEND EQU @04 01624000 OUTINDX EQU @06 01625000 CVRTINDX EQU @03 01626000 CNVRTLEN EQU @04 01627000 VALUEPTR EQU @05 01628000 NAMEINDX EQU @04 01629000 LINEFILL EQU @08 01630000 OUTLEN EQU @02 01631000 OUTPTR EQU @02 01632000 TYPEINDX EQU @09 01633000 LISTINDX EQU @03 01634000 DDSTRU EQU @07 01635000 REG7 EQU @07 01636000 REG8 EQU @08 01637000 REG0 EQU @00 01638000 REG1 EQU @01 01639000 REG10 EQU @10 01640000 REG11 EQU @11 01641000 REG12 EQU @12 01642000 REG13 EQU @13 01643000 REG14 EQU @14 01644000 REG15 EQU @15 01645000 REG2 EQU @02 01646000 REG3 EQU @03 01647000 REG4 EQU @04 01648000 REG5 EQU @05 01649000 REG6 EQU @06 01650000 REG9 EQU @09 01651000 RTNREG EQU @15 01652000 IDCSAEP0 EQU 0 01653000 TRACE1 EQU 0 01654000 OLDERID1 EQU TRACE1 01655000 TRACE2 EQU 0 01656000 OLDERID2 EQU TRACE2 01657000 NEWID2 EQU TRACE2+95 01658000 NEWERID2 EQU 5 01659000 CIRAGL EQU 0 01660000 CIRTYPE EQU CIRAGL 01661000 ALLAGL EQU 0 01662000 ALLSTS EQU ALLAGL+24 01663000 ALLDSP EQU ALLAGL+25 01664000 ALLORG EQU ALLAGL+26 01665000 ALLOPT EQU ALLAGL+28 01666000 UNITABL EQU 0 01667000 UNITADR EQU UNITABL+4 01668000 @NM00010 EQU UNITADR 01669000 UNITSTAT EQU UNITABL+6 01670000 IOCSTR EQU 0 01671000 IOCDSO EQU IOCSTR+16 01672000 IOCRFM EQU IOCSTR+17 01673000 IOCMAC EQU IOCSTR+18 01674000 IOCMAC2 EQU IOCSTR+19 01675000 IOCCHP EQU IOCSTR+20 01676000 IOCMSG EQU IOCSTR+21 01677000 IOCRBA EQU IOCSTR+40 01678000 IOCTTR EQU IOCRBA 01679000 IOCMEM EQU IOCSTR+44 01680000 IOCNWM EQU IOCSTR+48 01681000 OPNAGL EQU 0 01682000 OPNOPT EQU OPNAGL 01683000 OPNRFM EQU OPNAGL+1 01684000 OPNTYP EQU OPNAGL+2 01685000 OPNMOD EQU OPNAGL+3 01686000 OPNDEV EQU OPNAGL+24 01687000 OPNDSO EQU OPNAGL+41 01688000 OPNOPT2 EQU OPNAGL+42 01689000 IOINFOPT EQU 0 01690000 UVOLLIST EQU 0 01691000 UVOLENT EQU UVOLLIST+2 01692000 AMSTP011 EQU 0 01693000 DARGLIST EQU 0 01694000 DARGDBP EQU DARGLIST 01695000 DARGSTID EQU DARGLIST+8 01696000 DARGSMOD EQU DARGSTID 01697000 DARGSENT EQU DARGSTID+3 01698000 DARGILP EQU DARGLIST+12 01699000 DARGARY EQU DARGLIST+20 01700000 DARGINS EQU DARGARY 01701000 DARGINL EQU DARGARY+2 01702000 FMTLIST EQU 0 01703000 FMTFLGS EQU FMTLIST 01704000 FMTEOLF EQU FMTFLGS 01705000 FMTBDF EQU FMTFLGS 01706000 FMTSPF EQU FMTLIST+2 01707000 FMTRFNO EQU FMTSPF 01708000 FMTILEN EQU FMTRFNO 01709000 FMTIOFF EQU FMTLIST+4 01710000 FMTTRBC EQU FMTIOFF 01711000 FMTSTO EQU FMTTRBC 01712000 FMTOCOL EQU FMTLIST+6 01713000 FMTOLEN EQU FMTLIST+8 01714000 FMTCNVF EQU FMTLIST+10 01715000 ERCNVTAB EQU 0 01716000 ERTYPE EQU ERCNVTAB 01717000 EROPER EQU ERCNVTAB+1 01718000 DMPITM EQU 0 01719000 DMPARY EQU 0 01720000 DUMPITEM EQU 0 01721000 ITEMNAME EQU DUMPITEM 01722000 ITEMPTR EQU DUMPITEM+8 01723000 ITEMLEN EQU DUMPITEM+12 01724000 ITEMTYPE EQU DUMPITEM+14 01725000 DUMPARRY EQU 0 01726000 ARRYNAME EQU DUMPARRY 01727000 ARRYSIZE EQU DUMPARRY+8 01728000 ARRYITEM EQU DUMPARRY+10 01729000 ARRYEXT EQU DUMPARRY+12 01730000 DUMPTERM EQU 0 01731000 OUTSEG EQU 0 01732000 CORE EQU 0 01733000 INSEG EQU 0 01734000 AMSTP041 EQU 0 01735000 AMSTP042 EQU 0 01736000 AMSTP043 EQU 0 01737000 AMSTP044 EQU 0 01738000 DMPTRM EQU 0 01739000 IDCDB010 EQU 0 01740000 IDCIOCL0 EQU 0 01741000 IDCIOCO0 EQU 0 01742000 IDCIOGT0 EQU 0 01743000 IDCIOIT0 EQU 0 01744000 IDCIOOP0 EQU 0 01745000 IDCIOPO0 EQU 0 01746000 IDCIOPT0 EQU 0 01747000 IDCIOSI0 EQU 0 01748000 IDCIOST0 EQU 0 01749000 IDCIOTM0 EQU 0 01750000 IDCIOVY0 EQU 0 01751000 IDCIO050 EQU 0 01752000 IDCSAAL0 EQU 0 01753000 IDCSACA0 EQU 0 01754000 IDCSACL0 EQU 0 01755000 IDCSACR0 EQU 0 01756000 IDCSADE0 EQU 0 01757000 IDCSADL0 EQU 0 01758000 IDCSADQ0 EQU 0 01759000 IDCSAFP0 EQU 0 01760000 IDCSAFS0 EQU 0 01761000 IDCSAGP0 EQU 0 01762000 IDCSAGS0 EQU 0 01763000 IDCSAID0 EQU 0 01764000 IDCSALD0 EQU 0 01765000 IDCSALK0 EQU 0 01766000 IDCSANQ0 EQU 0 01767000 IDCSAPR0 EQU 0 01768000 IDCSAPT0 EQU 0 01769000 IDCSAQL0 EQU 0 01770000 IDCSARC0 EQU 0 01771000 IDCSARV0 EQU 0 01772000 IDCSASC0 EQU 0 01773000 IDCSASI0 EQU 0 01774000 IDCSASN0 EQU 0 01775000 IDCSASS0 EQU 0 01776000 IDCSAST0 EQU 0 01777000 IDCSATI0 EQU 0 01778000 IDCSAWO0 EQU 0 01779000 IDCSA060 EQU 0 01780000 IDCST010 EQU 0 01781000 IDCTPER0 EQU 0 01782000 LISTTEST EQU 0 01783000 NEWERID1 EQU 5 01784000 GDTTBL EQU 0 01785000 GDTTR1 EQU GDTTBL+8 01786000 GDTTR2 EQU GDTTBL+12 01787000 GDTDBG EQU GDTTBL+40 01788000 GDTSTC EQU GDTTBL+44 01789000 GDTPRT EQU GDTTBL+48 01790000 GDTESS EQU GDTTBL+52 01791000 GDTESA EQU GDTTBL+56 01792000 GDTRST EQU GDTTBL+60 01793000 GDTRES EQU GDTTBL+64 01794000 GDTCAL EQU GDTTBL+68 01795000 GDTGSP EQU GDTTBL+72 01796000 GDTFSP EQU GDTTBL+76 01797000 GDTGPL EQU GDTTBL+80 01798000 GDTFPL EQU GDTTBL+84 01799000 GDTLOD EQU GDTTBL+88 01800000 GDTDEL EQU GDTTBL+92 01801000 GDTPRL EQU GDTTBL+96 01802000 GDTEPL EQU GDTTBL+100 01803000 GDTTIM EQU GDTTBL+104 01804000 GDTIIO EQU GDTTBL+108 01805000 GDTTIO EQU GDTTBL+112 01806000 GDTOPN EQU GDTTBL+124 01807000 GDTCLS EQU GDTTBL+128 01808000 GDTGET EQU GDTTBL+132 01809000 GDTPUT EQU GDTTBL+136 01810000 GDTPOS EQU GDTTBL+140 01811000 GDTCPY EQU GDTTBL+144 01812000 GDTCAT EQU GDTTBL+148 01813000 GDTSNP EQU GDTTBL+164 01814000 GDTVFY EQU GDTTBL+172 01815000 GDTUID EQU GDTTBL+192 01816000 GDTPMT EQU GDTTBL+196 01817000 GDTCIR EQU GDTTBL+200 01818000 GDTLNK EQU GDTTBL+204 01819000 GDTALC EQU GDTTBL+208 01820000 GDTDLC EQU GDTTBL+212 01821000 GDTQAL EQU GDTTBL+216 01822000 GDTSTW EQU GDTTBL+220 01823000 GDTSSC EQU GDTTBL+224 01824000 GDTENQ EQU GDTTBL+228 01825000 GDTRSV EQU GDTTBL+232 01826000 GDTDEQ EQU GDTTBL+236 01827000 GDTSFO EQU GDTTBL+240 01828000 GDTWTO EQU GDTTBL+244 01829000 GDTSCR EQU GDTTBL+248 01830000 GDTUNT EQU GDTTBL+252 01831000 GDTRCT EQU GDTTBL+256 01832000 GDTIFO EQU GDTTBL+260 01833000 GDTEXP EQU GDTTBL+264 01834000 GDTSTA EQU GDTTBL+268 01835000 GDTERR EQU GDTTBL+272 01836000 DUMPLIST EQU 0 01837000 CVRTCHAR EQU CNVRTVAL 01838000 CVRTHALF EQU CNVRTVAL+2 01839000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01840000 GDTECT EQU GDTTBL+188 01841000 GDTPSB EQU GDTTBL+184 01842000 GDTUPT EQU GDTTBL+180 01843000 GDTCMB EQU GDTTBL+176 01844000 GDTSPR EQU GDTTBL+168 01845000 @NM00001 EQU GDTTBL+160 01846000 GDTABH EQU GDTTBL+156 01847000 GDTABT EQU GDTTBL+152 01848000 GDTTOH EQU GDTTBL+120 01849000 GDTRIP EQU GDTTBL+116 01850000 GDTIOH EQU GDTTBL+36 01851000 GDTSAH EQU GDTTBL+32 01852000 GDTTPH EQU GDTTBL+28 01853000 GDTRIH EQU GDTTBL+24 01854000 GDTSTH EQU GDTTBL+20 01855000 GDTDBH EQU GDTTBL+16 01856000 GDTPRM EQU GDTTBL+4 01857000 GDTHDR EQU GDTTBL 01858000 ARRYTYPE EQU DUMPARRY+14 01859000 @NM00036 EQU DMPARY+15 01860000 DMPARYTP EQU DMPARY+14 01861000 DMPARYEX EQU DMPARY+12 01862000 DMPARYIC EQU DMPARY+10 01863000 DMPARYSZ EQU DMPARY+8 01864000 DMPARYNM EQU DMPARY 01865000 @NM00035 EQU DMPITM+15 01866000 DMPITMTP EQU DMPITM+14 01867000 DMPITMLN EQU DMPITM+12 01868000 DMPITMPT EQU DMPITM+8 01869000 DMPITMNM EQU DMPITM 01870000 @NM00034 EQU ERCNVTAB+24 01871000 ERCPLPT EQU ERCNVTAB+20 01872000 ERCATRC EQU ERCNVTAB+16 01873000 ERDSNM EQU ERCNVTAB+12 01874000 @NM00033 EQU ERCNVTAB+4 01875000 @NM00032 EQU ERCNVTAB+2 01876000 @NM00031 EQU EROPER 01877000 ERCATAL EQU EROPER 01878000 ERCATDL EQU EROPER 01879000 ERCATDE EQU EROPER 01880000 ERCATLC EQU EROPER 01881000 @NM00030 EQU ERTYPE 01882000 ERCATLG EQU ERTYPE 01883000 @NM00029 EQU FMTCNVF+1 01884000 FMTBS EQU FMTCNVF+1 01885000 FMTSS EQU FMTCNVF+1 01886000 FMTAL EQU FMTCNVF+1 01887000 FMTZS EQU FMTCNVF+1 01888000 @NM00028 EQU FMTCNVF 01889000 FMTPU EQU FMTCNVF 01890000 FMTBD EQU FMTCNVF 01891000 FMTBHD EQU FMTCNVF 01892000 FMTBHA EQU FMTCNVF 01893000 FMTBH EQU FMTCNVF 01894000 FMTRIO EQU FMTOCOL 01895000 FMTSPT EQU FMTSTO 01896000 FMTSTL EQU FMTILEN 01897000 @NM00027 EQU FMTFLGS+1 01898000 FMTHDF EQU FMTFLGS 01899000 FMTDFF EQU FMTFLGS 01900000 FMTSTF EQU FMTFLGS 01901000 FMTREPF EQU FMTFLGS 01902000 FMTIDF EQU FMTFLGS 01903000 FMTSCF EQU FMTFLGS 01904000 DARGDTM EQU DARGARY+4 01905000 DARGPCT EQU DARGINL 01906000 DARGREP EQU DARGINS 01907000 @NM00026 EQU DARGLIST+19 01908000 DARGIND EQU DARGLIST+18 01909000 DARGRETL EQU DARGLIST+16 01910000 DARGCNT EQU DARGLIST+14 01911000 DARGRETP EQU DARGLIST+4 01912000 UVOLVOL EQU UVOLENT+4 01913000 UVOLDEV EQU UVOLENT 01914000 UVOLCNT EQU UVOLLIST 01915000 @NM00025 EQU IOINFOPT 01916000 IOINFTMS EQU IOINFOPT 01917000 IOINFSUP EQU IOINFOPT 01918000 IOINFDSN EQU IOINFOPT 01919000 IOINFVOL EQU IOINFOPT 01920000 IOINFDVT EQU IOINFOPT 01921000 OPNVOL EQU OPNAGL+44 01922000 @NM00024 EQU OPNAGL+43 01923000 @NM00023 EQU OPNOPT2 01924000 OPNOPTJM EQU OPNOPT2 01925000 @NM00022 EQU OPNOPT2 01926000 OPNOPTAS EQU OPNOPT2 01927000 @NM00021 EQU OPNDSO 01928000 OPNDSOPO EQU OPNDSO 01929000 OPNDSOIS EQU OPNDSO 01930000 OPNDSOPS EQU OPNDSO 01931000 OPNDSOAM EQU OPNDSO 01932000 OPNKYL EQU OPNAGL+40 01933000 OPNBLK EQU OPNAGL+36 01934000 OPNREC EQU OPNAGL+32 01935000 OPNDEVIX EQU OPNDEV+4 01936000 OPNDEVDT EQU OPNDEV 01937000 OPNCBP EQU OPNAGL+20 01938000 OPNDSN EQU OPNAGL+16 01939000 OPNPWA EQU OPNAGL+12 01940000 OPNDDN EQU OPNAGL+8 01941000 OPNIOC EQU OPNAGL+4 01942000 OPNMODRP EQU OPNMOD 01943000 OPNMODUB EQU OPNMOD 01944000 OPNMODRS EQU OPNMOD 01945000 OPNMODAX EQU OPNMOD 01946000 OPNMODRR EQU OPNMOD 01947000 OPNMODRC EQU OPNMOD 01948000 OPNMODAC EQU OPNMOD 01949000 OPNMODPD EQU OPNMOD 01950000 @NM00020 EQU OPNTYP 01951000 OPNTYPRV EQU OPNTYP 01952000 OPNTYPEX EQU OPNTYP 01953000 OPNTYPRA EQU OPNTYP 01954000 OPNTYPXM EQU OPNTYP 01955000 OPNTYPCI EQU OPNTYP 01956000 OPNTYPSO EQU OPNTYP 01957000 OPNTYPSI EQU OPNTYP 01958000 @NM00019 EQU OPNRFM 01959000 OPNRFMBK EQU OPNRFM 01960000 OPNRFMSF EQU OPNRFM 01961000 OPNRFMUN EQU OPNRFM 01962000 OPNRFMVR EQU OPNRFM 01963000 OPNRFMFX EQU OPNRFM 01964000 OPNOPTSK EQU OPNOPT 01965000 OPNOPTDR EQU OPNOPT 01966000 OPNOPTCR EQU OPNOPT 01967000 OPNOPTKS EQU OPNOPT 01968000 OPNOPTBK EQU OPNOPT 01969000 OPNOPTUP EQU OPNOPT 01970000 OPNOPTOT EQU OPNOPT 01971000 OPNOPTIN EQU OPNOPT 01972000 IOCEXT EQU IOCSTR+64 01973000 IOCREL EQU IOCSTR+60 01974000 IOCWORK EQU IOCSTR+56 01975000 IOCRRN EQU IOCSTR+52 01976000 IOCPNM EQU IOCNWM+2 01977000 IOCPTL EQU IOCNWM 01978000 IOCKYA EQU IOCMEM 01979000 IOCVRC EQU IOCTTR 01980000 IOCCBP EQU IOCSTR+36 01981000 IOCDSN EQU IOCSTR+32 01982000 IOCHURBA EQU IOCSTR+28 01983000 IOCVOLSR EQU IOCSTR+22 01984000 @NM00018 EQU IOCMSG 01985000 IOCMSGAE EQU IOCMSG 01986000 IOCMSGCE EQU IOCMSG 01987000 IOCMSGOE EQU IOCMSG 01988000 IOCMSGOP EQU IOCMSG 01989000 @NM00017 EQU IOCMSG 01990000 IOCCHPSY EQU IOCCHP 01991000 IOCCHPAS EQU IOCCHP 01992000 IOCCHPBK EQU IOCCHP 01993000 IOCCHPCR EQU IOCCHP 01994000 IOCCHPKS EQU IOCCHP 01995000 IOCCHPSK EQU IOCCHP 01996000 IOCCHPDR EQU IOCCHP 01997000 IOCCHPSQ EQU IOCCHP 01998000 @NM00016 EQU IOCMAC2 01999000 IOCMACPA EQU IOCMAC2 02000000 @NM00015 EQU IOCMAC2 02001000 IOCMACCP EQU IOCMAC2 02002000 IOCMACRR EQU IOCMAC2 02003000 IOCMACAS EQU IOCMAC2 02004000 IOCMACSK EQU IOCMAC2 02005000 @NM00014 EQU IOCMAC 02006000 IOCMACCC EQU IOCMAC 02007000 IOCMACDR EQU IOCMAC 02008000 IOCMACBK EQU IOCMAC 02009000 IOCMACCR EQU IOCMAC 02010000 IOCMACUP EQU IOCMAC 02011000 IOCMACOT EQU IOCMAC 02012000 IOCMACIN EQU IOCMAC 02013000 @NM00013 EQU IOCRFM 02014000 IOCRFMBK EQU IOCRFM 02015000 IOCRFMSF EQU IOCRFM 02016000 IOCRFMUN EQU IOCRFM 02017000 IOCRFMVR EQU IOCRFM 02018000 IOCRFMFX EQU IOCRFM 02019000 @NM00012 EQU IOCDSO 02020000 IOCDSOPO EQU IOCDSO 02021000 IOCDSOIS EQU IOCDSO 02022000 IOCDSOPS EQU IOCDSO 02023000 IOCDSOAM EQU IOCDSO 02024000 IOCRKP EQU IOCSTR+13 02025000 IOCKYL EQU IOCSTR+12 02026000 IOCTRN EQU IOCSTR+8 02027000 IOCDLN EQU IOCSTR+4 02028000 IOCDAD EQU IOCSTR 02029000 UNITVTOC EQU UNITABL+7 02030000 @NM00011 EQU UNITSTAT 02031000 UNITXSHR EQU UNITSTAT 02032000 UNITISHR EQU UNITSTAT 02033000 UNITUA EQU @NM00010+1 02034000 UNITCHA EQU @NM00010 02035000 UNITUCB EQU UNITABL 02036000 ALLUNCNT EQU ALLAGL+30 02037000 ALLVLCNT EQU ALLAGL+29 02038000 @NM00009 EQU ALLOPT 02039000 ALLOPTUN EQU ALLOPT 02040000 ALLOPTPV EQU ALLOPT 02041000 ALLOPTDS EQU ALLOPT 02042000 ALLOPTVL EQU ALLOPT 02043000 @NM00008 EQU ALLORG+1 02044000 ALLORGVS EQU ALLORG+1 02045000 @NM00007 EQU ALLORG+1 02046000 ALLORGGS EQU ALLORG+1 02047000 ALLORGUN EQU ALLORG 02048000 ALLORGPO EQU ALLORG 02049000 ALLORGMQ EQU ALLORG 02050000 ALLORGCQ EQU ALLORG 02051000 ALLORGCX EQU ALLORG 02052000 ALLORGDA EQU ALLORG 02053000 ALLORGPS EQU ALLORG 02054000 ALLORGIS EQU ALLORG 02055000 ALLDSPUN EQU ALLDSP 02056000 ALLDSPCG EQU ALLDSP 02057000 ALLDSPDE EQU ALLDSP 02058000 ALLDSPKP EQU ALLDSP 02059000 @NM00006 EQU ALLDSP 02060000 ALLSTSOD EQU ALLSTS 02061000 ALLSTSMD EQU ALLSTS 02062000 ALLSTSNW EQU ALLSTS 02063000 ALLSTSSR EQU ALLSTS 02064000 @NM00005 EQU ALLSTS 02065000 ALLPWD EQU ALLAGL+20 02066000 ALLVLP EQU ALLAGL+16 02067000 ALLULP EQU ALLAGL+12 02068000 ALLDDN EQU ALLAGL+4 02069000 ALLDSN EQU ALLAGL 02070000 CIRPID EQU CIRAGL+28 02071000 CIRPWD EQU CIRAGL+24 02072000 CIRCAT EQU CIRAGL+20 02073000 CIRWKP EQU CIRAGL+16 02074000 CIRTLR EQU CIRAGL+12 02075000 CIRHDR EQU CIRAGL+8 02076000 CIRTLN EQU CIRAGL+6 02077000 CIRHLN EQU CIRAGL+4 02078000 @NM00004 EQU CIRAGL+1 02079000 @NM00003 EQU CIRTYPE 02080000 CIRTYPAQ EQU CIRTYPE 02081000 CIRTYP1Q EQU CIRTYPE 02082000 NEWID1 EQU TRACE1+95 02083000 CALLID EQU OLDERID1+90 02084000 @NM00002 EQU OLDERID1 02085000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02086000 @RC00235 EQU @EL00002 02087000 @RC00279 EQU @EL00003 02088000 @RC00331 EQU @RC00329 02089000 @RF00386 EQU @EL00005 02090000 @PB00003 EQU @EL00001 02091000 @PB00002 EQU @PB00003 02092000 @ENDDATA EQU * 02093000 END IDCDB02,(C'PLS1843',0602,75077) 02094000