TITLE 'IFCMSG01-EREP MESSAGE MODULE' 00001000 IFCMSG01 CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IFCMSG01 79.011' 0001 00007000 DROP @15 00008000 @PROLOG ST @14,12(,@13) 0001 00009000 STM @00,@12,20(@13) 0001 00010000 BALR @10,0 0001 00011000 @PSTART LA @11,4095(,@10) 0001 00012000 USING @PSTART,@10 0001 00013000 USING @PSTART+4095,@11 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @14,@SA00001 0001 00016000 ST @14,8(,@13) 0001 00017000 LR @13,@14 0001 00018000 MVC @PC00001(8),0(@01) 0001 00019000 */********************************************************************/ 00020000 */* @0001VLS*/ 00021000 */* THE MESSAGE NUMBER IS PLACED IN THE FIRST 7 CHARACTERS OF THE */ 00022000 */* INPUT BUFFER. A BLANK IS SKIPPED. THE NEXT 50 CHARACTERS WILL */ 00023000 */* CONTAIN THE MESSAGE TEXT. @0001VLS*/ 00024000 */* @0001VLS*/ 00025000 */********************************************************************/ 00026000 * IF (DEBUG & '00000008'X) = '00000008'X & FIRSTTME = 0 THEN 0055 00027000 MVC @TS00001(4),DEBUG(SAVER2) 0055 00028000 NC @TS00001(4),@CB00906 0055 00029000 CLC @TS00001(4),@CB00906 0055 00030000 BNE @RF00055 0055 00031000 LH @12,FIRSTTME 0055 00032000 LTR @12,@12 0055 00033000 BNZ @RF00055 0055 00034000 * DO; /*@ZA25584*/ 00035000 * SAVE = PRINTADR; /*@ZA25584*/ 00036000 L @12,PRINTADR(,SAVER2) 0057 00037000 ST @12,SAVE 0057 00038000 * FIRSTTME = 1; /*@ZA25584*/ 00039000 LA @12,1 0058 00040000 STH @12,FIRSTTME 0058 00041000 * PRINT1 = PRINT1 && PRINT1 ; /*@ZA25584*/ 00042000 XC PRINT1(72),PRINT1 0059 00043000 * DO I = 1 BY 1 TO DIM(MSGTAB); /*@D3505GB*/ 00044000 STH @12,I 0060 00045000 @DL00060 DS 0H 0061 00046000 * PRINTLNE(1:7) = NUMBER(I); /*@ZA25584*/ 00047000 LA @15,58 0061 00048000 LR @01,@12 0061 00049000 MR @00,@15 0061 00050000 LA @12,NUMBER-58(@01) 0061 00051000 MVC PRINTLNE(7),0(@12) 0061 00052000 * PRINTLNE(9:58) = MESSAGE(I); /*@ZA25584*/ 00053000 LA @12,MESSAGE-58(@01) 0062 00054000 MVC PRINTLNE+8(50),0(@12) 0062 00055000 * IF RETURNED(MSGNO) = 0 THEN 0063 00056000 L @12,@PC00001 0063 00057000 M @14,MSGNO(,@12) 0063 00058000 SLR @12,@12 0063 00059000 IC @12,RETURNED-58(@15) 0063 00060000 C @12,@CF00064 0063 00061000 BNE @RF00063 0063 00062000 * RETURNC = 'F0'X; /*@ZA25584*/ 00063000 MVI RETURNC+1,X'00' 0064 00064000 MVI RETURNC,X'F0' 0064 00065000 * ELSE 0065 00066000 * IF RETURNED(MSGNO) = 12 THEN 0065 00067000 B @RC00063 0065 00068000 @RF00063 L @12,@PC00001 0065 00069000 L @12,MSGNO(,@12) 0065 00070000 MH @12,@CH00908 0065 00071000 SLR @15,@15 0065 00072000 IC @15,RETURNED-58(@12) 0065 00073000 C @15,@CF00070 0065 00074000 BNE @RF00065 0065 00075000 * RETURNC1= 'F1F2'X ; /*@ZA25584*/ 00076000 MVC RETURNC1(2),@CB00910 0066 00077000 * ELSE 0067 00078000 * IF RETURNED(MSGNO) = 8 THEN 0067 00079000 B @RC00065 0067 00080000 @RF00065 L @12,@PC00001 0067 00081000 L @12,MSGNO(,@12) 0067 00082000 MH @12,@CH00908 0067 00083000 SLR @15,@15 0067 00084000 IC @15,RETURNED-58(@12) 0067 00085000 C @15,@CF00068 0067 00086000 BNE @RF00067 0067 00087000 * RETURNC = 'F8'X ; /*@ZA25584*/ 00088000 MVI RETURNC+1,X'00' 0068 00089000 MVI RETURNC,X'F8' 0068 00090000 * ELSE 0069 00091000 * RETURNC1 = 'F1F6'X; /*@ZA25584*/ 00092000 B @RC00067 0069 00093000 @RF00067 MVC RETURNC1(2),@CB00912 0069 00094000 * PRINTADR = ADDR(PRTLINE1); /*@ZA25584*/ 00095000 @RC00067 DS 0H 0070 00096000 @RC00065 DS 0H 0070 00097000 @RC00063 LA @12,PRTLINE1 0070 00098000 ST @12,PRINTADR(,SAVER2) 0070 00099000 * CALL IOHND(RITEPRTR); /*@ZA25584*/ 00100000 L @15,ADIOHND(,SAVER2) 0071 00101000 LA @01,@AL00071 0071 00102000 BALR @14,@15 0071 00103000 * CALL IOHND(RITEPRTR); /*@ZA25584*/ 00104000 L @15,ADIOHND(,SAVER2) 0072 00105000 LA @01,@AL00072 0072 00106000 BALR @14,@15 0072 00107000 * END; /*@ZA25584*/ 00108000 LA @12,1 0073 00109000 AH @12,I 0073 00110000 STH @12,I 0073 00111000 C @12,@CF00473 0073 00112000 BNH @DL00060 0073 00113000 *PRINTADR = SAVE; /*@ZA25584*/ 00114000 L @12,SAVE 0074 00115000 ST @12,PRINTADR(,SAVER2) 0074 00116000 *END; /*@ZA25584*/ 00117000 *IF MSGNO > 199 & SYSRETRN < '0C'X THEN 0076 00118000 @RF00055 L @12,@PC00001 0076 00119000 L @12,MSGNO(,@12) 0076 00120000 C @12,@CF00914 0076 00121000 BNH @RF00076 0076 00122000 CLI SYSRETRN(SAVER2),X'0C' 0076 00123000 BNL @RF00076 0076 00124000 * SYSRETRN = '0C'X; /*@ZA25584*/ 00125000 MVI SYSRETRN(SAVER2),X'0C' 0077 00126000 *ELSE 0078 00127000 * IF RETURNED(MSGNO) > SYSRETRN THEN 0078 00128000 B @RC00076 0078 00129000 @RF00076 L @12,@PC00001 0078 00130000 L @12,MSGNO(,@12) 0078 00131000 MH @12,@CH00908 0078 00132000 LA @03,RETURNED-58(@12) 0078 00133000 CLC 0(1,@03),SYSRETRN(SAVER2) 0078 00134000 BNH @RF00078 0078 00135000 * SYSRETRN = RETURNED(MSGNO); /*@ZA25584*/ 00136000 LA @03,RETURNED-58(@12) 0079 00137000 MVC SYSRETRN(1,SAVER2),0(@03) 0079 00138000 * IF (DEBUGA & '80000000'X) = '80000000'X &((MSGNO < 200 & 0080 00139000 * RETURNED(MSGNO) = 8) | MSGNO > 199) THEN /*@D3505GB*/ 00140000 @RF00078 DS 0H 0080 00141000 @RC00076 MVC @TS00001(4),DEBUGA(SAVER2) 0080 00142000 NC @TS00001(4),@CB00915 0080 00143000 CLC @TS00001(4),@CB00915 0080 00144000 BNE @RF00080 0080 00145000 L @12,@PC00001 0080 00146000 L @12,MSGNO(,@12) 0080 00147000 C @12,@CF00916 0080 00148000 BNL @GL00004 0080 00149000 MH @12,@CH00908 0080 00150000 SLR @03,@03 0080 00151000 IC @03,RETURNED-58(@12) 0080 00152000 C @03,@CF00068 0080 00153000 BE @RT00080 0080 00154000 @GL00004 L @12,@PC00001 0080 00155000 L @12,MSGNO(,@12) 0080 00156000 C @12,@CF00914 0080 00157000 BNH @RF00080 0080 00158000 @RT00080 DS 0H 0081 00159000 * GEN(ABEND 620,DUMP); /*@ZA25584*/ 00160000 ABEND 620,DUMP 00161000 *IF MSGNO <= 200 THEN 0082 00162000 @RF00080 L @12,@PC00001 0082 00163000 L @12,MSGNO(,@12) 0082 00164000 C @12,@CF00916 0082 00165000 BH @RF00082 0082 00166000 * DO; /*@0001VLS*/ 00167000 * PRTLINE (1:7) = NUMBER(MSGNO); /*@0001VLS*/ 00168000 L @15,@PC00001+4 0084 00169000 L @15,MSGADDR(,@15) 0084 00170000 MH @12,@CH00908 0084 00171000 LA @14,NUMBER-58(@12) 0084 00172000 MVC PRTLINE(7,@15),0(@14) 0084 00173000 * PRTLINE (9:58) = MESSAGE(MSGNO); /*@0001VLS*/ 00174000 LA @14,MESSAGE-58(@12) 0085 00175000 MVC PRTLINE+8(50,@15),0(@14) 0085 00176000 * END; /*@0001VLS*/ 00177000 *IF MSGNO = 201 THEN 0087 00178000 @RF00082 L @12,@PC00001 0087 00179000 CLC MSGNO(4,@12),@CF00917 0087 00180000 BNE @RF00087 0087 00181000 * GENERATE; /*@0001VLS*/ 00182000 WTO 'IFC116I SYS1.LOGREC DATA SET HEADER CANNOT BE RESET. USC00183000 E IFCDIP00',ROUTCDE=11,DESC=7 @0001VLS 00184000 *IF MSGNO = 202 THEN 0089 00185000 @RF00087 L @12,@PC00001 0089 00186000 CLC MSGNO(4,@12),@CF00918 0089 00187000 BNE @RF00089 0089 00188000 * GENERATE; /*@0001VLS*/ 00189000 WTO 'IFC135I PROCESSING TERMINATED TOURIST WRITE ERROR', X00190000 ROUTCDE=11,DESC=7 00191000 *IF MSGNO = 203 THEN 0091 00192000 @RF00089 L @12,@PC00001 0091 00193000 CLC MSGNO(4,@12),@CF00919 0091 00194000 BNE @RF00091 0091 00195000 * GENERATE; /*@0001VLS*/ 00196000 WTO 'IFC104I TOURIST NOT OPEN WHEN WRITE REQUESTED', C00197000 ROUTCDE=11,DESC=7 @0001VLS 00198000 *IF MSGNO = 204 THEN 0093 00199000 @RF00091 L @12,@PC00001 0093 00200000 CLC MSGNO(4,@12),@CF00920 0093 00201000 BNE @RF00093 0093 00202000 * GENERATE; /*@0001VLS*/ 00203000 WTO 'IFC106I TOURIST CLOSE REQUESTED, TOURIST NOT OPEN', C00204000 ROUTCDE=11,DESC=7 @0001VLS 00205000 *IF MSGNO = 205 THEN 0095 00206000 @RF00093 L @12,@PC00001 0095 00207000 CLC MSGNO(4,@12),@CF00921 0095 00208000 BNE @RF00095 0095 00209000 * GENERATE; /*@0001VLS*/ 00210000 WTO 'IFC103I TOURIST DD STATEMENT MISSING OR INCORRECTLY CODED', X00211000 ROUTCDE=11,DESC=7 00212000 *RESPECIFY (R15) RESTRICTED; /*@0001VLS*/ 00213000 @RF00095 DS 0H 0098 00214000 *R15 = 0; /*@0001VLS*/ 00215000 SLR R15,R15 0098 00216000 *RETURN; /*@0001VLS*/ 00217000 @EL00001 L @13,4(,@13) 0099 00218000 @EF00001 DS 0H 0099 00219000 @ER00001 L @14,12(,@13) 0099 00220000 LM @00,@12,20(@13) 0099 00221000 BR @14 0099 00222000 *RESPECIFY (R15) UNRESTRICTED; /*@0001VLS*/ 00223000 *END IFCMSG01 /*@0001VLS*/ 00224000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00225000 */*%INCLUDE SYSLIB (COMTABLE) * 00226000 *; 0101 00227000 @DATA DS 0H 00228000 @CH00077 DC H'2' 00229000 @CH00908 DC H'58' 00230000 DS 0F 00231000 @AL00071 EQU * LIST WITH 1 ARGUMENT(S) 00232000 @AL00072 DC A(@CH00077) LIST WITH 1 ARGUMENT(S) 00233000 DS 0F 00234000 @SA00001 DS 18F 00235000 @PC00001 DS 2F 00236000 DS 0F 00237000 @CF00064 DC F'0' 00238000 @CF00068 DC F'8' 00239000 @CF00070 DC F'12' 00240000 @CF00473 DC F'112' 00241000 @CF00914 DC F'199' 00242000 @CF00916 DC F'200' 00243000 @CF00917 DC F'201' 00244000 @CF00918 DC F'202' 00245000 @CF00919 DC F'203' 00246000 @CF00920 DC F'204' 00247000 @CF00921 DC F'205' 00248000 DS 0D 00249000 SAVE DC F'0' 00250000 I DC H'0' 00251000 FIRSTTME DC H'0' 00252000 @TS00001 DS CL4 00253000 @CB00906 DC X'00000008' 00254000 @CB00915 DC X'80000000' 00255000 @CB00910 DC X'F1F2' 00256000 @CB00912 DC X'F1F6' 00257000 PRTLINE1 DC CL134' ' 00258000 ORG PRTLINE1 00259000 PRINTDD DC X'F2' 00260000 PRINTCC DC X'09' 00261000 PRINTLNE DS CL60 00262000 PRINT1 DS CL72 00263000 ORG PRTLINE1+134 00264000 SUPERZAP DC 3CL10'SUPERZAP' 00265000 MSGTAB DS CL58 00266000 ORG MSGTAB+0 00267000 RETURNED DC X'10' 00268000 NUMBER DC CL7'IFC101I' 00269000 MESSAGE DC CL50'REQUEST FOR NON-EXISTENT IO SERVICE' 00270000 ORG MSGTAB+58 00271000 ORG MSGTAB+58 00272000 DC X'10' 00273000 DC CL7'IFC102I' 00274000 DC CL50'ACCDEV OPEN REQUESTED, ALREADY OPEN' 00275000 ORG MSGTAB+116 00276000 ORG MSGTAB+116 00277000 DC X'0C' 00278000 DC CL7'IFC103I' 00279000 DC CL50'ACCDEV DD STATEMENT MISSING OR INCORRECTLY CODED' 00280000 ORG MSGTAB+174 00281000 ORG MSGTAB+174 00282000 DC X'10' 00283000 DC CL7'IFC104I' 00284000 DC CL50'ACCDEV NOT OPEN WHEN WRITE REQUESTED' 00285000 ORG MSGTAB+232 00286000 ORG MSGTAB+232 00287000 DC X'0C' 00288000 DC CL7'IFC138I' 00289000 DC CL50'FRAME LOST WHILE WRITING TO ACCDEV ' 00290000 ORG MSGTAB+290 00291000 ORG MSGTAB+290 00292000 DC X'0C' 00293000 DC CL7'IFC135I' 00294000 DC CL50'PROCESSING TERMINATED ACCDEV WRITE ERROR' 00295000 ORG MSGTAB+348 00296000 ORG MSGTAB+348 00297000 DC X'0C' 00298000 DC CL7'IFC135I' 00299000 DC CL50'PROCESSING TERMINATED ACCIN READ ERROR' 00300000 ORG MSGTAB+406 00301000 ORG MSGTAB+406 00302000 DC X'10' 00303000 DC CL7'IFC106I' 00304000 DC CL50'ACCDEV CLOSE REQUESTED, ACCDEV NOT OPEN ' 00305000 ORG MSGTAB+464 00306000 ORG MSGTAB+464 00307000 DC X'0C' 00308000 DC CL7'IFC103I' 00309000 DC CL50'ACCIN DD STATEMENT MISSING OR INCORRECTLY CODED' 00310000 ORG MSGTAB+522 00311000 ORG MSGTAB+522 00312000 DC X'0C' 00313000 DC CL7'IFC107I' 00314000 DC CL50'ACCIN RECORD FORMAT NOT V OR VB' 00315000 ORG MSGTAB+580 00316000 ORG MSGTAB+580 00317000 DC X'10' 00318000 DC CL7'IFC102I' 00319000 DC CL50'ACCIN OPEN REQUESTED, ALREADY OPEN' 00320000 ORG MSGTAB+638 00321000 ORG MSGTAB+638 00322000 DC X'10' 00323000 DC CL7'IFC106I' 00324000 DC CL50'ACCIN CLOSE REQUESTED, ACCIN NOT OPEN ' 00325000 ORG MSGTAB+696 00326000 ORG MSGTAB+696 00327000 DC X'0C' 00328000 DC CL7'IFC103I' 00329000 DC CL50'SERLOG DD STATEMENT MISSING OR INCORRECTLY CODED' 00330000 ORG MSGTAB+754 00331000 ORG MSGTAB+754 00332000 DC X'0C' 00333000 DC CL7'IFC108I' 00334000 DC CL50'ATTEMPTED TO READ OUTSIDE SERLOG EXTENT' 00335000 ORG MSGTAB+812 00336000 ORG MSGTAB+812 00337000 DC X'0C' 00338000 DC CL7'IFC109I' 00339000 DC CL50'SERLOG HEADER CANNOT BE READ' 00340000 ORG MSGTAB+870 00341000 ORG MSGTAB+870 00342000 DC X'0C' 00343000 DC CL7'IFC110I' 00344000 DC CL50'SERLOG HEADER CHECK BYTE INCORRECT' 00345000 ORG MSGTAB+928 00346000 ORG MSGTAB+928 00347000 DC X'10' 00348000 DC CL7'IFC111I' 00349000 DC CL50'OPEN REQUESTED, DATA SET NOT SPECIFIED' 00350000 ORG MSGTAB+986 00351000 ORG MSGTAB+986 00352000 DC X'0C' 00353000 DC CL7'IFC135I' 00354000 DC CL50'PROCESSING TERMINATED EREPPT WRITE ERROR' 00355000 ORG MSGTAB+1044 00356000 ORG MSGTAB+1044 00357000 DC X'10' 00358000 DC CL7'IFC104I' 00359000 DC CL50'EREPPT NOT OPEN WHEN WRITE REQUESTED' 00360000 ORG MSGTAB+1102 00361000 ORG MSGTAB+1102 00362000 DC X'00' 00363000 DC CL7'IFC139I' 00364000 DC CL50'XXX FRAME NN MISSING- MOD NNNN SER NNNNNN ' 00365000 ORG MSGTAB+1160 00366000 ORG MSGTAB+1160 00367000 DC X'10' 00368000 DC CL7'IFC112I' 00369000 DC CL50'READ REQUESTED, NO DATA SET OPEN' 00370000 ORG MSGTAB+1218 00371000 ORG MSGTAB+1218 00372000 DC X'10' 00373000 DC CL7'IFC106I' 00374000 DC CL50'EREPPT CLOSE REQUESTED, EREPPT NOT OPEN ' 00375000 ORG MSGTAB+1276 00376000 ORG MSGTAB+1276 00377000 DC X'10' 00378000 DC CL7'IFC102I' 00379000 DC CL50'TOURIST OPEN REQUESTED, ALREADY OPEN' 00380000 ORG MSGTAB+1334 00381000 ORG MSGTAB+1334 00382000 DC X'10' 00383000 DC CL7'IFC140I' 00384000 DC CL50'FRAME CPU-SERIAL-NUMBER TABLE OVERFLOWED ' 00385000 ORG MSGTAB+1392 00386000 ORG MSGTAB+1392 00387000 DC X'0C' 00388000 DC CL7'IFC105I' 00389000 DC CL50'RECORD IGNORED, SERLOG READ DIRECT ERROR' 00390000 ORG MSGTAB+1450 00391000 ORG MSGTAB+1450 00392000 DC X'0C' 00393000 DC CL7'IFC135I' 00394000 DC CL50'PROCESSING TERMINATED DIRECTWK WRITE ERROR' 00395000 ORG MSGTAB+1508 00396000 ORG MSGTAB+1508 00397000 DC X'0C' 00398000 DC CL7'IFC103I' 00399000 DC CL50'DIRECTWK DD STATEMENT MISSING OR INCORRECTLY CODED' 00400000 ORG MSGTAB+1566 00401000 ORG MSGTAB+1566 00402000 DC X'10' 00403000 DC CL7'IFC104I' 00404000 DC CL50'DIRECTWK NOT OPEN WHEN WRITE REQUESTED' 00405000 ORG MSGTAB+1624 00406000 ORG MSGTAB+1624 00407000 DC X'10' 00408000 DC CL7'IFC106I' 00409000 DC CL50'DIRECTWK CLOSE REQUESTED, DIRECTWK NOT OPEN' 00410000 ORG MSGTAB+1682 00411000 ORG MSGTAB+1682 00412000 DC X'0C' 00413000 DC CL7'IFC103I' 00414000 DC CL50'DIRECTWK DD STATEMENT MISSING OR INCORRECTLY CODED' 00415000 ORG MSGTAB+1740 00416000 ORG MSGTAB+1740 00417000 DC X'10' 00418000 DC CL7'IFC102I' 00419000 DC CL50'DIRECTWK OPEN REQUESTED, ALREADY OPEN' 00420000 ORG MSGTAB+1798 00421000 ORG MSGTAB+1798 00422000 DC X'10' 00423000 DC CL7'IFC136I' 00424000 DC CL50'CLOSE REQUESTED, NO DATA SET OPEN' 00425000 ORG MSGTAB+1856 00426000 ORG MSGTAB+1856 00427000 DC X'10' 00428000 DC CL7'IFC102I' 00429000 DC CL50'SYSIN OPEN REQUESTED, ALREADY OPEN' 00430000 ORG MSGTAB+1914 00431000 ORG MSGTAB+1914 00432000 DC X'10' 00433000 DC CL7'IFC106I' 00434000 DC CL50'SYSIN CLOSE REQUESTED, SYSIN NOT OPEN ' 00435000 ORG MSGTAB+1972 00436000 ORG MSGTAB+1972 00437000 DC X'10' 00438000 DC CL7'IFC104I' 00439000 DC CL50'SYSIN NOT OPEN WHEN READ REQUESTED' 00440000 ORG MSGTAB+2030 00441000 ORG MSGTAB+2030 00442000 DC X'0C' 00443000 DC CL7'IFC135I' 00444000 DC CL50'PROCESSING TERMINATED SYSIN READ ERROR' 00445000 ORG MSGTAB+2088 00446000 ORG MSGTAB+2088 00447000 DC X'04' 00448000 DC CL7'IFC113I' 00449000 DC CL50'RECORDS IGNORED, INSUFFICIENT SPACE ON DIRECTWK' 00450000 ORG MSGTAB+2146 00451000 ORG MSGTAB+2146 00452000 DC X'00' 00453000 DC CL7'IFC114I' 00454000 DC CL50'LAST RECORD PROCESSED WAS' 00455000 ORG MSGTAB+2204 00456000 ORG MSGTAB+2204 00457000 DC X'0C' 00458000 DC CL7'IFC135I' 00459000 DC CL50'PROCESSING TERMINATED SERLOG READ ERROR ' 00460000 ORG MSGTAB+2262 00461000 ORG MSGTAB+2262 00462000 DC X'08' 00463000 DC CL7'IFC141I' 00464000 DC CL50'CORE NOT AVAILABLE FOR FRAME PROCESSING ' 00465000 ORG MSGTAB+2320 00466000 ORG MSGTAB+2320 00467000 DC X'10' 00468000 DC CL7'IFC102I' 00469000 DC CL50'SERLOG OPEN REQUESTED, ALREADY OPEN' 00470000 ORG MSGTAB+2378 00471000 ORG MSGTAB+2378 00472000 DC X'0C' 00473000 DC CL7'IFC105I' 00474000 DC CL50'RECORD IGNORED, DIRECTWK READ ERROR' 00475000 ORG MSGTAB+2436 00476000 ORG MSGTAB+2436 00477000 DC X'00' 00478000 DC CL7'IFC142I' 00479000 DC CL50'NNNNNN RECORDS FOUND WITH INVALID DATE FIELD ' 00480000 ORG MSGTAB+2494 00481000 ORG MSGTAB+2494 00482000 DC X'0C' 00483000 DC CL7'IFC103I' 00484000 DC CL50'EREPPT DD STATEMENT MISSING OR INCORRECTLY CODED' 00485000 ORG MSGTAB+2552 00486000 ORG MSGTAB+2552 00487000 DC X'10' 00488000 DC CL7'IFC102I' 00489000 DC CL50'EREPPT OPEN REQUESTED, ALREADY OPEN' 00490000 ORG MSGTAB+2610 00491000 ORG MSGTAB+2610 00492000 DC X'10' 00493000 DC CL7'IFC104I' 00494000 DC CL50'DIRECTWK NOT OPEN WHEN READ REQUESTED' 00495000 ORG MSGTAB+2668 00496000 ORG MSGTAB+2668 00497000 DC X'10' 00498000 DC CL7'IFC104I' 00499000 DC CL50'SERLOG NOT OPEN WHEN READ REQUESTED' 00500000 ORG MSGTAB+2726 00501000 ORG MSGTAB+2726 00502000 DC X'0C' 00503000 DC CL7'IFC116I' 00504000 DC CL50'SYS1.LOGREC HEADER CANNOT BE RESET USE IFCDIP00' 00505000 ORG MSGTAB+2784 00506000 ORG MSGTAB+2784 00507000 DC X'0C' 00508000 DC CL7'IFC117I' 00509000 DC CL50'SERLOG CLOSED PREMATURELY' 00510000 ORG MSGTAB+2842 00511000 ORG MSGTAB+2842 00512000 DC X'0C' 00513000 DC CL7'IFC118I' 00514000 DC CL50'GETMAIN FAILURE WHILE CLEARING SYS1.LOGREC' 00515000 ORG MSGTAB+2900 00516000 ORG MSGTAB+2900 00517000 DC X'10' 00518000 DC CL7'IFC106I' 00519000 DC CL50'SERLOG CLOSE REQUESTED, SERLOG NOT OPEN' 00520000 ORG MSGTAB+2958 00521000 ORG MSGTAB+2958 00522000 DC X'00' 00523000 DC CL7'IFC143I' 00524000 DC CL50'NUMBER OF XXX TYPE RECORDS READ WAS ' 00525000 ORG MSGTAB+3016 00526000 ORG MSGTAB+3016 00527000 DC X'04' 00528000 DC CL7'IFC119I' 00529000 DC CL50'RECORDS IGNORED, TABSIZE ALLOCATION TOO SMALL' 00530000 ORG MSGTAB+3074 00531000 ORG MSGTAB+3074 00532000 DC X'00' 00533000 DC CL7'IFC120I' 00534000 DC CL50' RECORDS THAT PASSED FILTERING' 00535000 ORG MSGTAB+3132 00536000 ORG MSGTAB+3132 00537000 DC X'08' 00538000 DC CL7'IFC121I' 00539000 DC CL50'GETMAIN FAILED FOR SORT TABLE' 00540000 ORG MSGTAB+3190 00541000 ORG MSGTAB+3190 00542000 DC X'00' 00543000 DC CL7'IFC122I' 00544000 DC CL50' RECORDS IGNORED BECAUSE TRUNCATED BIT ON' 00545000 ORG MSGTAB+3248 00546000 ORG MSGTAB+3248 00547000 DC X'00' 00548000 DC CL7'IFC123I' 00549000 DC CL50' RECORDS IGNORED BECAUSE OF UNKNOWN TYPE' 00550000 ORG MSGTAB+3306 00551000 ORG MSGTAB+3306 00552000 DC X'08' 00553000 DC CL7'IFC124I' 00554000 DC CL50'INVALID RDE CTL CARD - CORRECT AND RERUN JOB' 00555000 ORG MSGTAB+3364 00556000 ORG MSGTAB+3364 00557000 DC X'08' 00558000 DC CL7'IFC125I' 00559000 DC CL50'INVALID START DATE - CORRECT AND RERUN JOB' 00560000 ORG MSGTAB+3422 00561000 ORG MSGTAB+3422 00562000 DC X'08' 00563000 DC CL7'IFC126I' 00564000 DC CL50'INVALID END DATE - CORRECT AND RERUN JOB' 00565000 ORG MSGTAB+3480 00566000 ORG MSGTAB+3480 00567000 DC X'08' 00568000 DC CL7'IFC127I' 00569000 DC CL50'INVALID CLUSTER VALUE - CORRECT AND RERUN JOB' 00570000 ORG MSGTAB+3538 00571000 ORG MSGTAB+3538 00572000 DC X'00' 00573000 DC CL7'IFC128I' 00574000 DC CL50'NO IPL RECORDS PROCESSED.' 00575000 ORG MSGTAB+3596 00576000 ORG MSGTAB+3596 00577000 DC X'0C' 00578000 DC CL7'IFC129I' 00579000 DC CL50' RCDS IGNORED BECAUSE DIRECTWK READ ERRORS' 00580000 ORG MSGTAB+3654 00581000 ORG MSGTAB+3654 00582000 DC X'0C' 00583000 DC CL7'IFC130I' 00584000 DC CL50'UNABLE TO FIND MODULE SPECIFIED BY USERPGM' 00585000 ORG MSGTAB+3712 00586000 ORG MSGTAB+3712 00587000 DC X'08' 00588000 DC CL7'IFC131I' 00589000 DC CL50'SYNTAX ERROR AT' 00590000 ORG MSGTAB+3770 00591000 ORG MSGTAB+3770 00592000 DC X'08' 00593000 DC CL7'IFC132I' 00594000 DC CL50'DUPLICATION AT' 00595000 ORG MSGTAB+3828 00596000 ORG MSGTAB+3828 00597000 DC X'08' 00598000 DC CL7'IFC133I' 00599000 DC CL50'PARAMETER CONFLICTS -' 00600000 ORG MSGTAB+3886 00601000 ORG MSGTAB+3886 00602000 DC X'08' 00603000 DC CL7'IFC134I' 00604000 DC CL50'MORE THAN 16 CPUS SPECIFIED WITH SHARE CARDS' 00605000 ORG MSGTAB+3944 00606000 ORG MSGTAB+3944 00607000 DC X'08' 00608000 DC CL7'IFC121I' 00609000 DC CL50'GETMAIN FAILED FOR SHARE TABLE ' 00610000 ORG MSGTAB+4002 00611000 ORG MSGTAB+4002 00612000 DC X'00' 00613000 DC CL7'IFC120I' 00614000 DC CL50' RECORDS SAVED FOR TREND PART1' 00615000 ORG MSGTAB+4060 00616000 ORG MSGTAB+4060 00617000 DC X'00' 00618000 DC CL7'IFC120I' 00619000 DC CL50' RECORDS SAVED FOR TREND PART2' 00620000 ORG MSGTAB+4118 00621000 ORG MSGTAB+4118 00622000 DC X'00' 00623000 DC CL7'IFC137I' 00624000 DC CL50'RECORD WITHOUT CPU SERIAL NUMBER ENCOUNTERED' 00625000 ORG MSGTAB+4176 00626000 ORG MSGTAB+4176 00627000 DC X'00' 00628000 DC CL7'IFC134I' 00629000 DC CL50'MORE THAN 16 CPUS ENCOUNTERED -' 00630000 ORG MSGTAB+4234 00631000 ORG MSGTAB+4234 00632000 DC X'00' 00633000 DC CL7'IFC134I' 00634000 DC CL50'MORE THAN 11 CPUS ENCOUNTERED -' 00635000 ORG MSGTAB+4292 00636000 ORG MSGTAB+4292 00637000 DC X'00' 00638000 DC CL7'IFC120I' 00639000 DC CL50' RECORDS SAVED FOR SYSUM PART1' 00640000 ORG MSGTAB+4350 00641000 ORG MSGTAB+4350 00642000 DC X'00' 00643000 DC CL7'IFC120I' 00644000 DC CL50' RECORDS SAVED FOR SYSUM PART2' 00645000 ORG MSGTAB+4408 00646000 ORG MSGTAB+4408 00647000 DC X'00' 00648000 DC CL7'IFC144I' 00649000 DC CL50'SCAN CODE ERROR AT *** ' 00650000 ORG MSGTAB+4466 00651000 ORG MSGTAB+4466 00652000 DC X'00' 00653000 DC CL7'IFC145I' 00654000 DC CL50'FRAME SET MISSING XXXX YYYYYY ' 00655000 ORG MSGTAB+4524 00656000 ORG MSGTAB+4524 00657000 DC X'00' 00658000 DC CL7'IFC146I' 00659000 DC CL50'NO FRAMES AVAIL. XXX MOD NNNN SER NNNNNN ' 00660000 ORG MSGTAB+4582 00661000 ORG MSGTAB+4582 00662000 DC X'00' 00663000 DC CL7'IFC147I' 00664000 DC CL50'LOG ERR- XXX FRAME NN MOD NNNN SER NNNNNN ' 00665000 ORG MSGTAB+4640 00666000 ORG MSGTAB+4640 00667000 DC X'00' 00668000 DC CL7'IFC148I' 00669000 DC CL50' RECORDS REQUESTED BUT NOT FOUND ' 00670000 ORG MSGTAB+4698 00671000 ORG MSGTAB+4698 00672000 DC X'00' 00673000 DC CL7'IFC149I' 00674000 DC CL50' DIRECT READ FAILURES ' 00675000 ORG MSGTAB+4756 00676000 ORG MSGTAB+4756 00677000 DC X'00' 00678000 DC CL7'IFC150I' 00679000 DC CL50' RECORDS READ FROM INPUT SOURCE ' 00680000 ORG MSGTAB+4814 00681000 ORG MSGTAB+4814 00682000 DC X'00' 00683000 DC CL7'IFC151I' 00684000 DC CL50' ' 00685000 ORG MSGTAB+4872 00686000 ORG MSGTAB+4872 00687000 DC X'10' 00688000 DC CL7'IFC152I' 00689000 DC CL50' ' 00690000 ORG MSGTAB+4930 00691000 ORG MSGTAB+4930 00692000 DC X'10' 00693000 DC CL7'IFC153I' 00694000 DC CL50' ' 00695000 ORG MSGTAB+4988 00696000 ORG MSGTAB+4988 00697000 DC X'10' 00698000 DC CL7'IFC154I' 00699000 DC CL50' ' 00700000 ORG MSGTAB+5046 00701000 ORG MSGTAB+5046 00702000 DC X'10' 00703000 DC CL7'IFC155I' 00704000 DC CL50' ' 00705000 ORG MSGTAB+5104 00706000 ORG MSGTAB+5104 00707000 DC X'10' 00708000 DC CL7'IFC156I' 00709000 DC CL50' ' 00710000 ORG MSGTAB+5162 00711000 ORG MSGTAB+5162 00712000 DC X'10' 00713000 DC CL7'IFC157I' 00714000 DC CL50' ' 00715000 ORG MSGTAB+5220 00716000 ORG MSGTAB+5220 00717000 DC X'10' 00718000 DC CL7'IFC158I' 00719000 DC CL50' ' 00720000 ORG MSGTAB+5278 00721000 ORG MSGTAB+5278 00722000 DC X'10' 00723000 DC CL7'IFC159I' 00724000 DC CL50' ' 00725000 ORG MSGTAB+5336 00726000 ORG MSGTAB+5336 00727000 DC X'10' 00728000 DC CL7'IFCNNNI' 00729000 DC CL50' ' 00730000 ORG MSGTAB+5394 00731000 ORG MSGTAB+5394 00732000 DC X'10' 00733000 DC CL7'IFCNNNI' 00734000 DC CL50' ' 00735000 ORG MSGTAB+5452 00736000 ORG MSGTAB+5452 00737000 DC X'10' 00738000 DC CL7'IFCNNNI' 00739000 DC CL50' ' 00740000 ORG MSGTAB+5510 00741000 ORG MSGTAB+5510 00742000 DC X'10' 00743000 DC CL7'IFCNNNI' 00744000 DC CL50' ' 00745000 ORG MSGTAB+5568 00746000 ORG MSGTAB+5568 00747000 DC X'10' 00748000 DC CL7'IFCNNNI' 00749000 DC CL50' ' 00750000 ORG MSGTAB+5626 00751000 ORG MSGTAB+5626 00752000 DC X'10' 00753000 DC CL7'IFCNNNI' 00754000 DC CL50' ' 00755000 ORG MSGTAB+5684 00756000 ORG MSGTAB+5684 00757000 DC X'10' 00758000 DC CL7'IFCNNNI' 00759000 DC CL50' ' 00760000 ORG MSGTAB+5742 00761000 ORG MSGTAB+5742 00762000 DC X'00' 00763000 DC CL7'IFC152I' 00764000 DC CL50' RECORD(S) FOUND WITH A ZERO VOLID ' 00765000 ORG MSGTAB+5800 00766000 ORG MSGTAB+5800 00767000 DC X'0C' 00768000 DC CL7'IFC153I' 00769000 DC CL50' GETMAIN FAILED FOR MODULE IFCSDASD ' 00770000 ORG MSGTAB+5858 00771000 ORG MSGTAB+5858 00772000 DC X'00' 00773000 DC CL7'IFC154I' 00774000 DC CL50' SORTBREAK FORCED DUE TO EXCESSIVE FAULT CODES ' 00775000 ORG MSGTAB+5916 00776000 ORG MSGTAB+5916 00777000 DC X'00' 00778000 DC CL7'IFC165I' 00779000 DC CL50' SORTBREAK FORCED DUE TO EXCESSIVE VOLIDS ' 00780000 ORG MSGTAB+5974 00781000 ORG MSGTAB+5974 00782000 DC X'0C' 00783000 DC CL7'IFC166I' 00784000 DC CL50' SHARE/CONTROLLER TABLE IS FULL,INCREASE TABSIZE ' 00785000 ORG MSGTAB+6032 00786000 ORG MSGTAB+6032 00787000 DC X'0C' 00788000 DC CL7'IFC167I' 00789000 DC CL50' CUA RANGE IS INVALID ON A SHARE/CONTROLLER CARD ' 00790000 ORG MSGTAB+6090 00791000 ORG MSGTAB+6090 00792000 DC X'0C' 00793000 DC CL7'IFC168I' 00794000 DC CL50' CUA OVERLAPS WITH ANOTHER SHARE/CONTROLLER ENTRY' 00795000 ORG MSGTAB+6148 00796000 ORG MSGTAB+6148 00797000 DC X'00' 00798000 DC CL7'IFC169I' 00799000 DC CL50' XXXX RECORDS NOT USED BY IFCNFPDR FOR THIS CUX ' 00800000 ORG MSGTAB+6206 00801000 ORG MSGTAB+6206 00802000 DC X'04' 00803000 DC CL7'IFC174I' 00804000 DC CL50' XXXX RECORDS WITH SB 3 && 4 EQUAL TO SB 8 && 9 C00805000 ' 00806000 ORG MSGTAB+6264 00807000 ORG MSGTAB+6264 00808000 DC X'0C' 00809000 DC CL7'IFC153I' 00810000 DC CL50' GETMAIN FAILED FOR MODULE IFCNFPDR ' 00811000 ORG MSGTAB+6322 00812000 ORG MSGTAB+6322 00813000 DC X'04' 00814000 DC CL7'IFC202I' 00815000 DC CL50'XXXX RECORDS IGNORED DUE TO EXCESSIVE DIRECTOR IDS' 00816000 ORG MSGTAB+6380 00817000 ORG MSGTAB+6380 00818000 DC X'04' 00819000 DC CL7'IFC201I' 00820000 DC CL50' RECORDS IGNORED DUE TO MORE THAN 15 CPUS ' 00821000 ORG MSGTAB+6438 00822000 ORG MSGTAB+6438 00823000 DC X'04' 00824000 DC CL7'IFC203I' 00825000 DC CL50' RECORDS IGNORED DUE TO STORAGE DIRECTOR ID = ZERO' 00826000 ORG MSGTAB+6496 00827000 IFCMSG01 CSECT 00828000 DC S(SUPERZAP) 00829000 IFCMSG01 CSECT 00830000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00831000 @01 EQU 01 00832000 @02 EQU 02 00833000 @03 EQU 03 00834000 @04 EQU 04 00835000 @05 EQU 05 00836000 @06 EQU 06 00837000 @07 EQU 07 00838000 @08 EQU 08 00839000 @09 EQU 09 00840000 @10 EQU 10 00841000 @11 EQU 11 00842000 @12 EQU 12 00843000 @13 EQU 13 00844000 @14 EQU 14 00845000 @15 EQU 15 00846000 R15 EQU @15 00847000 SAVER2 EQU @02 00848000 R0 EQU @00 00849000 R1 EQU @01 00850000 R10 EQU @10 00851000 R11 EQU @11 00852000 R12 EQU @12 00853000 R13 EQU @13 00854000 R14 EQU @14 00855000 R2 EQU @02 00856000 R3 EQU @03 00857000 R4 EQU @04 00858000 R5 EQU @05 00859000 R6 EQU @06 00860000 R7 EQU @07 00861000 R8 EQU @08 00862000 R9 EQU @09 00863000 IOHND EQU 0 00864000 PARM EQU 0 00865000 RECTYPE EQU PARM 00866000 SWITCHES EQU PARM+2 00867000 DEBUG EQU PARM+4 00868000 DEBUGA EQU PARM+8 00869000 MISC EQU PARM+12 00870000 PRINTES EQU MISC 00871000 OPENCLSE EQU PARM+13 00872000 OPENIO EQU OPENCLSE 00873000 CLOSEIO EQU OPENCLSE+2 00874000 DATENOW EQU PARM+17 00875000 STDT EQU PARM+23 00876000 STDATE EQU STDT 00877000 PSTD EQU STDATE+1 00878000 ENDDT EQU PARM+31 00879000 ENDDATE EQU ENDDT 00880000 PEND EQU ENDDATE+1 00881000 STTIME1 EQU PARM+39 00882000 ENDTIME1 EQU PARM+43 00883000 STTIME2 EQU PARM+47 00884000 ENDTIME2 EQU PARM+51 00885000 STRTDATE EQU PARM+55 00886000 @NM00006 EQU PARM+72 00887000 @NM00007 EQU PARM+75 00888000 SYSRETRN EQU @NM00007 00889000 ERRID EQU PARM+92 00890000 IDTIMEA EQU ERRID+6 00891000 IDTIME EQU IDTIMEA 00892000 CCHHRLNG EQU PARM+112 00893000 ADIOHND EQU PARM+124 00894000 ADIFCMSG EQU PARM+128 00895000 ADEDITB EQU PARM+132 00896000 EVPTR EQU PARM+136 00897000 SORTADR EQU PARM+140 00898000 PRINTADR EQU PARM+148 00899000 CUAPTR EQU PARM+152 00900000 DEVPTR EQU PARM+156 00901000 MODPTR EQU PARM+160 00902000 SERPTR EQU PARM+164 00903000 VOLPTR EQU PARM+168 00904000 CPUPTR EQU PARM+172 00905000 CPCUAPTR EQU PARM+176 00906000 LIBADPTR EQU PARM+180 00907000 SYMCDPTR EQU PARM+184 00908000 SYSUMPTR EQU PARM+188 00909000 TRENPTR EQU PARM+192 00910000 SHAREPTR EQU PARM+196 00911000 MERDCPTR EQU PARM+208 00912000 DUMPTABL EQU PARM+228 00913000 DUMPINFO EQU DUMPTABL+4 00914000 TRENDONE EQU 0 00915000 TREGEN EQU TRENDONE+8 00916000 TRECCH0 EQU TREGEN+8 00917000 TREND2 EQU 0 00918000 TRENDKEY EQU TREND2 00919000 TRENDRT EQU TRENDKEY+1 00920000 TRENCPUS EQU TRENDKEY+3 00921000 TRENDITM EQU TRENDKEY+4 00922000 EVTABLE EQU 0 00923000 EVSTOP EQU EVTABLE 00924000 EVKEY EQU EVTABLE+6 00925000 SORTABLE EQU 0 00926000 SORTKEY EQU SORTABLE 00927000 SORTCCHR EQU SORTABLE+5 00928000 SYSUMONE EQU 0 00929000 SYSUM2 EQU 0 00930000 SYSUMKEY EQU SYSUM2 00931000 SYSRT EQU SYSUMKEY+1 00932000 SYSCPUS EQU SYSUMKEY+3 00933000 SYSITEM EQU SYSUMKEY+4 00934000 SHARE EQU 0 00935000 SHAREIO EQU SHARE+2 00936000 SHRBASE EQU SHAREIO+1 00937000 SHRCUCPU EQU SHAREIO+8 00938000 EDITLOAD EQU 0 00939000 EDITABLE EQU EDITLOAD+4 00940000 CUA EQU 0 00941000 CUAVAL EQU CUA+2 00942000 DEVICE EQU 0 00943000 MODELS EQU 0 00944000 DEVSERAL EQU 0 00945000 VOLUME EQU 0 00946000 CPUS EQU 0 00947000 CPUCUAS EQU 0 00948000 CPUCUAV EQU CPUCUAS+2 00949000 LIBADR EQU 0 00950000 SYMCODE EQU 0 00951000 SYMVAL EQU SYMCODE+2 00952000 MERIDIAN EQU 0 00953000 PRTLINE EQU 0 00954000 IFCMSG EQU 0 00955000 MSGNO EQU 0 00956000 MSGADDR EQU 0 00957000 RETURNC EQU PRINTLNE+64 00958000 RETURNC1 EQU PRINTLNE+63 00959000 TRECCH EQU TRECCH0 00960000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00961000 MODEL EQU MERIDIAN+2 00962000 MRDNUMBR EQU MERIDIAN 00963000 SYMVAL2 EQU SYMVAL+2 00964000 SYMVAL1 EQU SYMVAL 00965000 SYMCDNUM EQU SYMCODE 00966000 LIBVAL EQU LIBADR+2 00967000 LIBADNUM EQU LIBADR 00968000 CPUCUX3 EQU CPUCUAV+5 00969000 CPUCUX2 EQU CPUCUAV+3 00970000 CPUCUX1 EQU CPUCUAV 00971000 CPCUANUM EQU CPUCUAS 00972000 CPUVAL EQU CPUS+2 00973000 CPUNUM EQU CPUS 00974000 VOLVAL EQU VOLUME+2 00975000 VOLNUM EQU VOLUME 00976000 SERVAL EQU DEVSERAL+2 00977000 SERNUM EQU DEVSERAL 00978000 MODVAL EQU MODELS+2 00979000 MODNUM EQU MODELS 00980000 MDRVAL EQU DEVICE+204 00981000 MDRNUM EQU DEVICE+202 00982000 DEVVAL EQU DEVICE+2 00983000 DEVNUM EQU DEVICE 00984000 CUA2 EQU CUAVAL+2 00985000 CUA1 EQU CUAVAL 00986000 CUANUM EQU CUA 00987000 LOADPTR EQU EDITABLE+8 00988000 LOADNAME EQU EDITABLE 00989000 EDITNUM EQU EDITLOAD 00990000 SHARLET EQU SHAREIO+15 00991000 SHRCUAAH EQU SHRCUCPU+5 00992000 SHRCUAAL EQU SHRCUCPU+3 00993000 SHARSERA EQU SHRCUCPU 00994000 SHRCUABH EQU SHRBASE+5 00995000 SHRCUABL EQU SHRBASE+3 00996000 SHARSERB EQU SHRBASE 00997000 SHAREFLG EQU SHAREIO 00998000 SHARENUM EQU SHARE 00999000 SYSTEMP EQU SYSUM2+10 01000000 SYSPERM EQU SYSUM2+8 01001000 SYSRANGE EQU SYSUM2+7 01002000 SYSDEV EQU SYSUM2+5 01003000 SYSOLDA EQU SYSITEM 01004000 SYS3705 EQU SYSITEM 01005000 SYSOLD EQU SYSCPUS 01006000 SYSCPU EQU SYSCPUS 01007000 SYSTROLL EQU SYSRT+1 01008000 SYSSPAN EQU SYSRT+1 01009000 SYSCUA EQU SYSRT 01010000 SYSGROUP EQU SYSUMKEY 01011000 SYSUMEOD EQU SYSUMONE+96 01012000 SYSUMPER EQU SYSUMONE+92 01013000 SYSUMPEA EQU SYSUMONE+88 01014000 SYSUMPEI EQU SYSUMONE+84 01015000 SYSUMCH EQU SYSUMONE+20 01016000 SYSUMMCN EQU SYSUMONE+16 01017000 SYSUMMCR EQU SYSUMONE+12 01018000 SYSUMNXT EQU SYSUMONE+8 01019000 SYSUMIPL EQU SYSUMONE+4 01020000 SYSUMNUM EQU SYSUMONE 01021000 SORTCORE EQU SORTCCHR 01022000 SORTTIME EQU SORTKEY+1 01023000 SORTYEAR EQU SORTKEY 01024000 EVLETTER EQU EVKEY+5 01025000 EVSERIAL EQU EVKEY+2 01026000 EVMODEL EQU EVKEY 01027000 EVNUM EQU EVTABLE+4 01028000 EVDAY EQU EVSTOP+1 01029000 EVYEAR EQU EVSTOP 01030000 TRETMP EQU TREND2+10 01031000 TREPRM EQU TREND2+8 01032000 TRENDDEV EQU TREND2+6 01033000 TRENDDAT EQU TRENDKEY+5 01034000 TRENDOD EQU TRENDITM 01035000 TREND037 EQU TRENDITM 01036000 TRENDOLD EQU TRENCPUS 01037000 TRENDCPU EQU TRENCPUS 01038000 @NM00011 EQU TRENDRT+1 01039000 TRENDCUA EQU TRENDRT 01040000 TRENDGRP EQU TRENDKEY 01041000 TREPRE EQU TREGEN+72 01042000 TRECCHF EQU TREGEN+68 01043000 TRECCHE EQU TREGEN+64 01044000 TRECCHD EQU TREGEN+60 01045000 TRECCHC EQU TREGEN+56 01046000 TRECCHB EQU TREGEN+52 01047000 TRECCHA EQU TREGEN+48 01048000 TRECCH9 EQU TREGEN+44 01049000 TRECCH8 EQU TREGEN+40 01050000 TRECCH7 EQU TREGEN+36 01051000 TRECCH6 EQU TREGEN+32 01052000 TRECCH5 EQU TREGEN+28 01053000 TRECCH4 EQU TREGEN+24 01054000 TRECCH3 EQU TREGEN+20 01055000 TRECCH2 EQU TREGEN+16 01056000 TRECCH1 EQU TREGEN+12 01057000 TREMCH EQU TREGEN+4 01058000 TREIPL EQU TREGEN 01059000 TRENUM EQU TRENDONE+4 01060000 TRENEXT EQU TRENDONE 01061000 DUMPSIZE EQU DUMPINFO+4 01062000 DUMPADR EQU DUMPINFO 01063000 DUMPNUM EQU DUMPTABL 01064000 @NM00010 EQU PARM+212 01065000 RECLNGT1 EQU PARM+204 01066000 FRAMEPTR EQU PARM+200 01067000 ADCPUT EQU PARM+144 01068000 LINECT EQU PARM+120 01069000 RECLNGTH EQU CCHHRLNG+6 01070000 @NM00009 EQU CCHHRLNG+5 01071000 RECCCHHR EQU CCHHRLNG 01072000 USERPGM EQU PARM+102 01073000 IDTSEC EQU IDTIME+3 01074000 IDSEC EQU IDTIME+2 01075000 IDMIN EQU IDTIME+1 01076000 IDHOUR EQU IDTIME 01077000 IDASID EQU ERRID+4 01078000 IDCPU EQU ERRID+3 01079000 @NM00008 EQU ERRID+2 01080000 IDVALUE EQU ERRID 01081000 NUMDAYS EQU PARM+88 01082000 SORTNUM EQU PARM+84 01083000 TABSIZE EQU PARM+80 01084000 NUMIN222 EQU @NM00006 01085000 WRTHRSH EQU PARM+69 01086000 RDTHRSH EQU PARM+66 01087000 TERM EQU PARM+58 01088000 EVSDAY EQU STRTDATE+1 01089000 EVSYEAR EQU STRTDATE 01090000 PENSEC2 EQU ENDTIME2+2 01091000 PENMIN2 EQU ENDTIME2+1 01092000 PENHOUR2 EQU ENDTIME2 01093000 PSTSEC2 EQU STTIME2+2 01094000 PSTMIN2 EQU STTIME2+1 01095000 PSTHOUR2 EQU STTIME2 01096000 PENSEC1 EQU ENDTIME1+2 01097000 PENMIN1 EQU ENDTIME1+1 01098000 PENHOUR1 EQU ENDTIME1 01099000 PSTSEC1 EQU STTIME1+2 01100000 PSTMIN1 EQU STTIME1+1 01101000 PSTHOUR1 EQU STTIME1 01102000 @NM00005 EQU ENDDT+4 01103000 PENDY EQU PEND+1 01104000 PENYR EQU PEND 01105000 @NM00004 EQU ENDDATE 01106000 @NM00003 EQU STDT+4 01107000 PSTDY EQU PSTD+1 01108000 PSTYR EQU PSTD 01109000 @NM00002 EQU STDATE 01110000 YEARNOW EQU DATENOW+4 01111000 @NM00001 EQU DATENOW+3 01112000 DAYNOW EQU DATENOW 01113000 CSNAP EQU CLOSEIO 01114000 CDRCTWRK EQU CLOSEIO 01115000 CSYSIN EQU CLOSEIO 01116000 CACCDEV EQU CLOSEIO 01117000 CACCIN EQU CLOSEIO 01118000 CSERLOG EQU CLOSEIO 01119000 CEREPPT EQU CLOSEIO 01120000 CTOURIST EQU CLOSEIO 01121000 OSNAP EQU OPENIO 01122000 ODRCTWRK EQU OPENIO 01123000 OSYSIN EQU OPENIO 01124000 OACCDEV EQU OPENIO 01125000 OACCIN EQU OPENIO 01126000 OSERLOG EQU OPENIO 01127000 OEREPPT EQU OPENIO 01128000 OTOURIST EQU OPENIO 01129000 PASSFLAG EQU MISC 01130000 PLOGREC EQU MISC 01131000 ERRORID EQU MISC 01132000 PSUM EQU PRINTES 01133000 PEDIT EQU PRINTES 01134000 PHIST EQU MISC 01135000 PACC EQU MISC 01136000 PZERO EQU MISC 01137000 DEBUG63 EQU DEBUGA+3 01138000 DEBUG62 EQU DEBUGA+3 01139000 DEBUG61 EQU DEBUGA+3 01140000 DEBUG60 EQU DEBUGA+3 01141000 DEBUG59 EQU DEBUGA+3 01142000 DEBUG58 EQU DEBUGA+3 01143000 DEBUG57 EQU DEBUGA+3 01144000 DEBUG56 EQU DEBUGA+3 01145000 DEBUG55 EQU DEBUGA+2 01146000 DEBUG54 EQU DEBUGA+2 01147000 DEBUG53 EQU DEBUGA+2 01148000 DEBUG52 EQU DEBUGA+2 01149000 DEBUG51 EQU DEBUGA+2 01150000 DEBUG50 EQU DEBUGA+2 01151000 DEBUG49 EQU DEBUGA+2 01152000 DEBUG48 EQU DEBUGA+2 01153000 DEBUG47 EQU DEBUGA+1 01154000 DEBUG46 EQU DEBUGA+1 01155000 DEBUG45 EQU DEBUGA+1 01156000 DEBUG44 EQU DEBUGA+1 01157000 DEBUG43 EQU DEBUGA+1 01158000 DEBUG42 EQU DEBUGA+1 01159000 DEBUG41 EQU DEBUGA+1 01160000 DEBUG40 EQU DEBUGA+1 01161000 DEBUG39 EQU DEBUGA 01162000 DEBUG38 EQU DEBUGA 01163000 DEBUG37 EQU DEBUGA 01164000 DEBUG36 EQU DEBUGA 01165000 DEBUG35 EQU DEBUGA 01166000 DEBUG34 EQU DEBUGA 01167000 DEBUG33 EQU DEBUGA 01168000 DEBUG32 EQU DEBUGA 01169000 DEBUG31 EQU DEBUG+3 01170000 DEBUG30 EQU DEBUG+3 01171000 DEBUG29 EQU DEBUG+3 01172000 DEBUG28 EQU DEBUG+3 01173000 DEBUG27 EQU DEBUG+3 01174000 DEBUG26 EQU DEBUG+3 01175000 DEBUG25 EQU DEBUG+3 01176000 DEBUG24 EQU DEBUG+3 01177000 DEBUG23 EQU DEBUG+2 01178000 DEBUG22 EQU DEBUG+2 01179000 DEBUG21 EQU DEBUG+2 01180000 DEBUG20 EQU DEBUG+2 01181000 DEBUG19 EQU DEBUG+2 01182000 DEBUG18 EQU DEBUG+2 01183000 DEBUG17 EQU DEBUG+2 01184000 DEBUG16 EQU DEBUG+2 01185000 DEBUG15 EQU DEBUG+1 01186000 DEBUG14 EQU DEBUG+1 01187000 DEBUG13 EQU DEBUG+1 01188000 DEBUG12 EQU DEBUG+1 01189000 DEBUG11 EQU DEBUG+1 01190000 DEBUG10 EQU DEBUG+1 01191000 DEBUG9 EQU DEBUG+1 01192000 DEBUG8 EQU DEBUG+1 01193000 DEBUG7 EQU DEBUG 01194000 DEBUG6 EQU DEBUG 01195000 DEBUG5 EQU DEBUG 01196000 DEBUG4 EQU DEBUG 01197000 DEBUG3 EQU DEBUG 01198000 DEBUG2 EQU DEBUG 01199000 DEBUG1 EQU DEBUG 01200000 DEBUG0 EQU DEBUG 01201000 SORTBRK EQU SWITCHES+1 01202000 COREFAIL EQU SWITCHES+1 01203000 ANALYSIS EQU SWITCHES+1 01204000 SHIFT3RD EQU SWITCHES+1 01205000 DEVEXCL EQU SWITCHES+1 01206000 ZEROALL EQU SWITCHES+1 01207000 NOTALL EQU SWITCHES+1 01208000 NOSDR EQU SWITCHES 01209000 TIMESEQ EQU SWITCHES 01210000 SYSUM EQU SWITCHES 01211000 PARMTHR EQU SWITCHES 01212000 TREND EQU SWITCHES 01213000 SHORTOBR EQU SWITCHES 01214000 PARMMES EQU SWITCHES 01215000 RDESUM EQU SWITCHES 01216000 PCCHFRAM EQU RECTYPE+1 01217000 PMCHFRAM EQU RECTYPE+1 01218000 PTTYP EQU RECTYPE+1 01219000 PEOD EQU RECTYPE 01220000 PMIH EQU RECTYPE 01221000 PDDR EQU RECTYPE 01222000 PIPL EQU RECTYPE 01223000 PSOFT EQU RECTYPE 01224000 POBR EQU RECTYPE 01225000 PCHAN EQU RECTYPE 01226000 PMCH EQU RECTYPE 01227000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01228000 @ENDDATA EQU * 01229000 END IFCMSG01 01230000