TITLE 'IFCOFFLD-CONTROL MODULE QUICK DUMP OF SERLOG' 00001000 IFCOFFLD CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IFCOFFLD 79.011' 0001 00007000 DROP @15 00008000 @PROLOG ST @14,12(,@13) 0001 00009000 STM @00,@12,20(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 ST @13,@SA00001+4 0001 00014000 LA @14,@SA00001 0001 00015000 ST @14,8(,@13) 0001 00016000 LR @13,@14 0001 00017000 *PACC = YES; /*WILL WRITE A HISTORY TAPE @Z427VLS*/ 00018000 *PLOGREC = YES; /*OPEN THE LOGREC DATA SET @Z427VLS*/ 00019000 OI PACC,B'01000010' 0058 00020000 *R2 = ADDR(PARM); /*SET ADDRESS OF THE COMM TABLE */ 00021000 LA R2,PARM 0059 00022000 *OTOURIST = YES; /*OPEN THE TOURIST DATA SET @Z427VLS*/ 00023000 *OEREPPT = YES; /*OPEN THE ERREP PRINT DATA SET */ 00024000 *OSERLOG = YES; /*DATA IS FROM SERLOG @Z427VLS*/ 00025000 OI OTOURIST,B'11100000' 0062 00026000 *SYSUM = YES; /*NOT NEEDED BUT FOR ANY DUMP BEST HV*/ 00027000 OI SYSUM,B'00000100' 0063 00028000 *OACCDEV = YES; /*OPEN THE OUTPUT TAPE DATA SET */ 00029000 OI OACCDEV,B'00001000' 0064 00030000 *CALL IOHND(IOOPEN); /*HAVE THE IO PROCESSOR OPEN THE SETS*/ 00031000 L @15,ADIOHND 0065 00032000 LA @01,@AL00065 0065 00033000 BALR @14,@15 0065 00034000 *IF R15 = ZERO THEN /*BEFORE WE KEEP GOING CHECK FOR ERR */ 00035000 LTR R15,R15 0066 00036000 BNZ @RF00066 0066 00037000 * DO; /*@Z427VLS*/ 00038000 * ZEROALL = YES; /*SET TO WIPE CLEAN SERLOG AT EOJ */ 00039000 OI ZEROALL,B'01000000' 0068 00040000 * GEN(TIME DEC); /*HAVE OS TELL US TODAYS DATE */ 00041000 TIME DEC 00042000 * GEN(STCM R1,X'7',YYDDD); /*SAVE THE DAY FROM THE REG */ 00043000 STCM R1,X'7',YYDDD 00044000 * UNPK(HOLDAREA,YYDDD); /*CHANGE TO PRINTABLE @Z427VLS*/ 00045000 UNPK HOLDAREA(5),YYDDD(3) 0071 00046000 * DAYNOW = HOLDAREA(3:5); /*SAVE THE DAY @Z427VLS*/ 00047000 MVC DAYNOW(3),HOLDAREA+2 0072 00048000 * YEARNOW = HOLDAREA(1:2); /*SAVE THE YEAR @Z427VLS*/ 00049000 MVC YEARNOW(2),HOLDAREA 0073 00050000 * DAYDATE = DATENOW; /*MOVE TODAYS DATE INTO THE MSG*/ 00051000 MVC DAYDATE(6),DATENOW 0074 00052000 * GEN(MVC PRTLINE+45(42),HEADLINE);/* MESSAGE INTO THE BUFFER */ 00053000 MVC PRTLINE+45(42),HEADLINE 00054000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00055000 LA @03,PRINTLIN 0076 00056000 ST @03,PRINTADR 0076 00057000 * CALL IOHND(RITEPRTR); /*GO PRINT THE MESSAGE @0001VLS*/ 00058000 L @15,ADIOHND 0077 00059000 LA @01,@AL00077 0077 00060000 BALR @14,@15 0077 00061000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00062000 LA @03,PRINTLIN 0078 00063000 ST @03,PRINTADR 0078 00064000 * CALL IOHND(RITEPRTR); /*GO PRINT A BLANK LINE @0001VLS*/ 00065000 L @15,ADIOHND 0079 00066000 LA @01,@AL00079 0079 00067000 BALR @14,@15 0079 00068000 * PRTLINE = PARMS; /*MOVE IN PARMS FOR THIS EXCUTION*/ 00069000 MVI PRTLINE+42,C' ' 0080 00070000 MVC PRTLINE+43(89),PRTLINE+42 0080 00071000 MVC PRTLINE(42),PARMS 0080 00072000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00073000 LA @03,PRINTLIN 0081 00074000 ST @03,PRINTADR 0081 00075000 * CALL IOHND(RITEPRTR); /*GO PRINT THE LINE OF INFO */ 00076000 L @15,ADIOHND 0082 00077000 LA @01,@AL00082 0082 00078000 BALR @14,@15 0082 00079000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00080000 LA @03,PRINTLIN 0083 00081000 ST @03,PRINTADR 0083 00082000 * CALL IOHND(RITEPRTR); /*GO PRINT A BLANK LINE @0001VLS*/ 00083000 L @15,ADIOHND 0084 00084000 LA @01,@AL00084 0084 00085000 BALR @14,@15 0084 00086000 * PRTLINE = TYPEJOB; /*PRINT THE TYPE OF JOB @0001VLS*/ 00087000 MVI PRTLINE+36,C' ' 0085 00088000 MVC PRTLINE+37(95),PRTLINE+36 0085 00089000 MVC PRTLINE(36),TYPEJOB 0085 00090000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00091000 LA @03,PRINTLIN 0086 00092000 ST @03,PRINTADR 0086 00093000 * CALL IOHND(RITEPRTR); /*GO PRINT THE LINE OF INFO */ 00094000 L @15,ADIOHND 0087 00095000 LA @01,@AL00087 0087 00096000 BALR @14,@15 0087 00097000 * PRINTADR = ADDR(PRINTLIN); /*TELL I/O WHERE THE BUFFER IS */ 00098000 LA @03,PRINTLIN 0088 00099000 ST @03,PRINTADR 0088 00100000 * CALL IOHND(RITEPRTR); /*GO PRINT A BLANK LINE @0001VLS*/ 00101000 L @15,ADIOHND 0089 00102000 LA @01,@AL00089 0089 00103000 BALR @14,@15 0089 00104000 * R15=1; /*SET TO NOT FALL THROUGH THE LOOP*/ 0090 00105000 LA R15,1 0090 00106000 * CALL IFCFILT2; /*GO LET THE FILTER DO IT'S THING */ 00107000 L @15,@CV00505 0091 00108000 BALR @14,@15 0091 00109000 * IF R15 = ZERO /*ONLY GO ON IF GOOD RETURN @Z427VLS*/ 00110000 * THEN 0092 00111000 LTR R15,R15 0092 00112000 BNZ @RF00092 0092 00113000 * CALL IFCSYSUM; /*LET THE FILTER DO IT'S THING */ 00114000 L @15,@CV00506 0093 00115000 BALR @14,@15 0093 00116000 * RESPECIFY (R0,R1) RESTRICTED; /*@Z427VLS*/ 00117000 @RF00092 DS 0H 0095 00118000 * IF SORTNUM ^= ZERO THEN /*FREE CORE ONLY IF SOME THING FOUND */ 00119000 L @03,SORTNUM 0095 00120000 SLR @15,@15 0095 00121000 CR @03,@15 0095 00122000 BE @RF00095 0095 00123000 * DO; /*@Z427VLS*/ 00124000 * R1 = SORTADR; /*LOAD THE ADDRESS OF WHERE DATA IS */ 00125000 L R1,SORTADR 0097 00126000 * R0 = SORTNUM * THIRTEEN; /* DETERMINE THE LENGTH OF SORTTABLE* 00127000 MH @03,@CH00472 0098 00128000 LR R0,@03 0098 00129000 * IF (R0 & '00000007'X) /*MAKE SURE DOUBLE WORD BOUNDRY */ 00130000 * ^= ZERO THEN 0099 00131000 LR @03,R0 0099 00132000 N @03,@CF00507 0099 00133000 CR @03,@15 0099 00134000 BE @RF00099 0099 00135000 * DO; /*@Z427VLS*/ 00136000 * R0 = (R0 & 'FFFFFFF8'X); /*MOVE THE VALUE TO DOUBLE WORD */ 00137000 N R0,@CF00508 0101 00138000 * /*FILT2 LEFT SOME EXTRA BYTES TO */ 00139000 * /*MAKE THIS OK @Z427VLS*/ 00140000 * R0 = R0 + EIGHT; /*DO SAME AS FILTER DID IT */ 00141000 AL R0,@CF00062 0102 00142000 * END; /*@Z427VLS*/ 00143000 * GEN(FREEMAIN R,LV=(0),A=(1)); /*AT LAST GO FREE THE CORE */ 00144000 @RF00099 DS 0H 0104 00145000 FREEMAIN R,LV=(0),A=(1) 00146000 * END; /*@Z427VLS*/ 00147000 * END; /*@Z427VLS*/ 00148000 @RF00095 DS 0H 0107 00149000 *CLOSEIO = 'FFFF'X; /*CLOSE ANY THING THAT IS OPEN */ 00150000 @RF00066 MVC CLOSEIO(2),@CB00259 0107 00151000 *CALL IOHND(IOCLOSE); /*GO TO IOHANDLER TO CLOSE DATA SETS */ 00152000 L @15,ADIOHND 0108 00153000 LA @01,@AL00108 0108 00154000 BALR @14,@15 0108 00155000 * R15 = SYSRETRN; /*@ZA25584*/ 00156000 SLR R15,R15 0109 00157000 IC R15,SYSRETRN 0109 00158000 *END /*@Z427VLS*/ 00159000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00160000 */*%INCLUDE SYSLIB (COMTABLE) * 00161000 *; 0110 00162000 @EL00001 L @13,4(,@13) 0110 00163000 @EF00001 DS 0H 0110 00164000 @ER00001 L @14,12(,@13) 0110 00165000 LM @00,@12,20(@13) 0110 00166000 BR @14 0110 00167000 @DATA DS 0H 00168000 @CH00051 DC H'1' 00169000 @CH00071 DC H'2' 00170000 @CH00080 DC H'7' 00171000 @CH00472 DC H'13' 00172000 DS 0F 00173000 @AL00065 DC A(@CH00051) LIST WITH 1 ARGUMENT(S) 00174000 @AL00077 EQU * LIST WITH 1 ARGUMENT(S) 00175000 @AL00079 EQU * LIST WITH 1 ARGUMENT(S) 00176000 @AL00082 EQU * LIST WITH 1 ARGUMENT(S) 00177000 @AL00084 EQU * LIST WITH 1 ARGUMENT(S) 00178000 @AL00087 EQU * LIST WITH 1 ARGUMENT(S) 00179000 @AL00089 DC A(@CH00071) LIST WITH 1 ARGUMENT(S) 00180000 @AL00108 DC A(@CH00080) LIST WITH 1 ARGUMENT(S) 00181000 DS 0F 00182000 @SA00001 DS 18F 00183000 DS 0F 00184000 @CF00062 DC F'8' 00185000 @CF00507 DC XL4'00000007' 00186000 @CF00508 DC XL4'FFFFFFF8' 00187000 @CV00296 DC V(IFCIOHND) 00188000 @CV00297 DC V(IFCMSG01) 00189000 @CV00505 DC V(IFCFILT2) 00190000 @CV00506 DC V(IFCSYSUM) 00191000 DS 0D 00192000 @CB00259 DC X'FFFF' 00193000 DS CL2 00194000 PARM DS CL328 00195000 ORG PARM 00196000 RECTYPE DC X'FFE0' 00197000 ORG RECTYPE 00198000 PMCH DS BL1 00199000 PCHAN EQU RECTYPE+0 00200000 POBR EQU RECTYPE+0 00201000 PSOFT EQU RECTYPE+0 00202000 PIPL EQU RECTYPE+0 00203000 PDDR EQU RECTYPE+0 00204000 PMIH EQU RECTYPE+0 00205000 PEOD EQU RECTYPE+0 00206000 PTTYP DS BL1 00207000 PMCHFRAM EQU RECTYPE+1 00208000 PCCHFRAM EQU RECTYPE+1 00209000 ORG PARM+2 00210000 SWITCHES DC X'0100' 00211000 ORG SWITCHES 00212000 RDESUM DS BL1 00213000 PARMMES EQU SWITCHES+0 00214000 SHORTOBR EQU SWITCHES+0 00215000 TREND EQU SWITCHES+0 00216000 PARMTHR EQU SWITCHES+0 00217000 SYSUM EQU SWITCHES+0 00218000 TIMESEQ EQU SWITCHES+0 00219000 NOSDR EQU SWITCHES+0 00220000 NOTALL DS BL1 00221000 ZEROALL EQU SWITCHES+1 00222000 DEVEXCL EQU SWITCHES+1 00223000 SHIFT3RD EQU SWITCHES+1 00224000 ANALYSIS EQU SWITCHES+1 00225000 COREFAIL EQU SWITCHES+1 00226000 SORTBRK EQU SWITCHES+1 00227000 ORG PARM+4 00228000 DEBUG DC X'00000000' 00229000 ORG DEBUG 00230000 DEBUG0 DS BL1 00231000 DEBUG1 EQU DEBUG+0 00232000 DEBUG2 EQU DEBUG+0 00233000 DEBUG3 EQU DEBUG+0 00234000 DEBUG4 EQU DEBUG+0 00235000 DEBUG5 EQU DEBUG+0 00236000 DEBUG6 EQU DEBUG+0 00237000 DEBUG7 EQU DEBUG+0 00238000 DEBUG8 DS BL1 00239000 DEBUG9 EQU DEBUG+1 00240000 DEBUG10 EQU DEBUG+1 00241000 DEBUG11 EQU DEBUG+1 00242000 DEBUG12 EQU DEBUG+1 00243000 DEBUG13 EQU DEBUG+1 00244000 DEBUG14 EQU DEBUG+1 00245000 DEBUG15 EQU DEBUG+1 00246000 DEBUG16 DS BL1 00247000 DEBUG17 EQU DEBUG+2 00248000 DEBUG18 EQU DEBUG+2 00249000 DEBUG19 EQU DEBUG+2 00250000 DEBUG20 EQU DEBUG+2 00251000 DEBUG21 EQU DEBUG+2 00252000 DEBUG22 EQU DEBUG+2 00253000 DEBUG23 EQU DEBUG+2 00254000 DEBUG24 DS BL1 00255000 DEBUG25 EQU DEBUG+3 00256000 DEBUG26 EQU DEBUG+3 00257000 DEBUG27 EQU DEBUG+3 00258000 DEBUG28 EQU DEBUG+3 00259000 DEBUG29 EQU DEBUG+3 00260000 DEBUG30 EQU DEBUG+3 00261000 DEBUG31 EQU DEBUG+3 00262000 ORG PARM+8 00263000 DEBUGA DC X'00000000' 00264000 ORG DEBUGA 00265000 DEBUG32 DS BL1 00266000 DEBUG33 EQU DEBUGA+0 00267000 DEBUG34 EQU DEBUGA+0 00268000 DEBUG35 EQU DEBUGA+0 00269000 DEBUG36 EQU DEBUGA+0 00270000 DEBUG37 EQU DEBUGA+0 00271000 DEBUG38 EQU DEBUGA+0 00272000 DEBUG39 EQU DEBUGA+0 00273000 DEBUG40 DS BL1 00274000 DEBUG41 EQU DEBUGA+1 00275000 DEBUG42 EQU DEBUGA+1 00276000 DEBUG43 EQU DEBUGA+1 00277000 DEBUG44 EQU DEBUGA+1 00278000 DEBUG45 EQU DEBUGA+1 00279000 DEBUG46 EQU DEBUGA+1 00280000 DEBUG47 EQU DEBUGA+1 00281000 DEBUG48 DS BL1 00282000 DEBUG49 EQU DEBUGA+2 00283000 DEBUG50 EQU DEBUGA+2 00284000 DEBUG51 EQU DEBUGA+2 00285000 DEBUG52 EQU DEBUGA+2 00286000 DEBUG53 EQU DEBUGA+2 00287000 DEBUG54 EQU DEBUGA+2 00288000 DEBUG55 EQU DEBUGA+2 00289000 DEBUG56 DS BL1 00290000 DEBUG57 EQU DEBUGA+3 00291000 DEBUG58 EQU DEBUGA+3 00292000 DEBUG59 EQU DEBUGA+3 00293000 DEBUG60 EQU DEBUGA+3 00294000 DEBUG61 EQU DEBUGA+3 00295000 DEBUG62 EQU DEBUGA+3 00296000 DEBUG63 EQU DEBUGA+3 00297000 ORG PARM+12 00298000 MISC DC X'4A' 00299000 ORG MISC 00300000 PZERO DS BL1 00301000 PACC EQU MISC+0 00302000 PHIST EQU MISC+0 00303000 PRINTES EQU MISC+0 00304000 ORG PRINTES 00305000 PEDIT EQU PRINTES+0 00306000 PSUM EQU PRINTES+0 00307000 ORG MISC+0 00308000 ERRORID EQU MISC+0 00309000 PLOGREC EQU MISC+0 00310000 PASSFLAG EQU MISC+0 00311000 ORG PARM+13 00312000 OPENCLSE DS CL4 00313000 ORG OPENCLSE 00314000 OPENIO DC X'8000' 00315000 ORG OPENIO 00316000 OTOURIST DS BL1 00317000 OEREPPT EQU OPENIO+0 00318000 OSERLOG EQU OPENIO+0 00319000 OACCIN EQU OPENIO+0 00320000 OACCDEV EQU OPENIO+0 00321000 OSYSIN EQU OPENIO+0 00322000 ODRCTWRK EQU OPENIO+0 00323000 OSNAP EQU OPENIO+0 00324000 ORG OPENCLSE+2 00325000 CLOSEIO DC X'0000' 00326000 ORG CLOSEIO 00327000 CTOURIST DS BL1 00328000 CEREPPT EQU CLOSEIO+0 00329000 CSERLOG EQU CLOSEIO+0 00330000 CACCIN EQU CLOSEIO+0 00331000 CACCDEV EQU CLOSEIO+0 00332000 CSYSIN EQU CLOSEIO+0 00333000 CDRCTWRK EQU CLOSEIO+0 00334000 CSNAP EQU CLOSEIO+0 00335000 ORG PARM+17 00336000 DATENOW DC CL6' ' 00337000 ORG DATENOW 00338000 DAYNOW DS CL3 00339000 @NM00001 DS CL1 00340000 YEARNOW DS CL2 00341000 ORG PARM+23 00342000 STDT DS CL8 00343000 ORG STDT 00344000 STDATE DS CL4 00345000 ORG STDATE 00346000 @NM00002 DC X'00' 00347000 PSTD DC X'00000F' 00348000 ORG PSTD 00349000 PSTYR DS BL1 00350000 PSTDY DS BL2 00351000 ORG STDT+4 00352000 @NM00003 DC X'00000000' 00353000 ORG PARM+31 00354000 ENDDT DS CL8 00355000 ORG ENDDT 00356000 ENDDATE DS CL4 00357000 ORG ENDDATE 00358000 @NM00004 DC X'7F' 00359000 PEND DC X'FFFFFF' 00360000 ORG PEND 00361000 PENYR DS BL1 00362000 PENDY DS BL2 00363000 ORG ENDDT+4 00364000 @NM00005 DC X'24000000' 00365000 ORG PARM+39 00366000 STTIME1 DC X'00000000' 00367000 ORG STTIME1 00368000 PSTHOUR1 DS BL1 00369000 PSTMIN1 DS BL1 00370000 PSTSEC1 DS BL1 00371000 ORG PARM+43 00372000 ENDTIME1 DC X'24000000' 00373000 ORG ENDTIME1 00374000 PENHOUR1 DS BL1 00375000 PENMIN1 DS BL1 00376000 PENSEC1 DS BL1 00377000 ORG PARM+47 00378000 STTIME2 DC X'00000000' 00379000 ORG STTIME2 00380000 PSTHOUR2 DS BL1 00381000 PSTMIN2 DS BL1 00382000 PSTSEC2 DS BL1 00383000 ORG PARM+51 00384000 ENDTIME2 DC X'24000000' 00385000 ORG ENDTIME2 00386000 PENHOUR2 DS BL1 00387000 PENMIN2 DS BL1 00388000 PENSEC2 DS BL1 00389000 ORG PARM+55 00390000 STRTDATE DS CL3 00391000 ORG STRTDATE 00392000 EVSYEAR DC X'7F' 00393000 EVSDAY DC X'FFFF' 00394000 ORG PARM+58 00395000 TERM DC CL8' ' 00396000 RDTHRSH DC CL3'000' 00397000 WRTHRSH DC CL3'000' 00398000 @NM00006 DC CL3'000' 00399000 ORG @NM00006 00400000 NUMIN222 DC H'150' 00401000 ORG PARM+75 00402000 @NM00007 DC CL3'000' 00403000 ORG @NM00007 00404000 SYSRETRN DC X'00' 00405000 ORG PARM+80 00406000 TABSIZE DC XL4'00006000' 00407000 SORTNUM DC F'0' 00408000 NUMDAYS DC F'0' 00409000 ERRID DS CL10 00410000 ORG ERRID 00411000 IDVALUE DC X'0000' 00412000 @NM00008 DC X'00' 00413000 IDCPU DC X'FF' 00414000 IDASID DC X'0000' 00415000 IDTIMEA DS CL4 00416000 ORG IDTIMEA 00417000 IDTIME DS CL4 00418000 ORG IDTIME 00419000 IDHOUR DC XL1'00' 00420000 IDMIN DC XL1'00' 00421000 IDSEC DC XL1'00' 00422000 IDTSEC DC XL1'00' 00423000 ORG PARM+102 00424000 USERPGM DC CL8' ' 00425000 DS CL2 00426000 CCHHRLNG DS CL8 00427000 ORG CCHHRLNG 00428000 RECCCHHR DC X'0000000000' 00429000 @NM00009 DS CL1 00430000 RECLNGTH DC H'0' 00431000 ORG PARM+120 00432000 LINECT DC H'50' 00433000 DS CL2 00434000 ADIOHND DC VL4(IFCIOHND) 00435000 ADIFCMSG DC VL4(IFCMSG01) 00436000 ADEDITB DC A(0) 00437000 EVPTR DC A(0) 00438000 SORTADR DC A(0) 00439000 ADCPUT DC A(0) 00440000 PRINTADR DC A(0) 00441000 CUAPTR DC A(0) 00442000 DEVPTR DC A(0) 00443000 MODPTR DC A(0) 00444000 SERPTR DC A(0) 00445000 VOLPTR DC A(0) 00446000 CPUPTR DC A(0) 00447000 CPCUAPTR DC A(0) 00448000 LIBADPTR DC A(0) 00449000 SYMCDPTR DC A(0) 00450000 SYSUMPTR DC A(0) 00451000 TRENPTR DC A(0) 00452000 SHAREPTR DC A(0) 00453000 FRAMEPTR DC A(0) 00454000 RECLNGT1 DC F'0' 00455000 MERDCPTR DC AL4(NEWCPU) 00456000 @NM00010 DC A(0) 00457000 DS 3XL4 00458000 DUMPTABL DS CL100 00459000 ORG DUMPTABL 00460000 DUMPNUM DC H'1' 00461000 DS CL2 00462000 DUMPINFO DS CL8 00463000 ORG DUMPINFO+0 00464000 DUMPADR DC F'0' 00465000 DUMPSIZE DC F'0' 00466000 ORG PARM+328 00467000 NEWCPU DS CL8 00468000 ORG NEWCPU 00469000 MRDNUMBR DC H'3' 00470000 MODEL DC X'3033' 00471000 DC X'3032' 00472000 DC X'3031' 00473000 ORG NEWCPU+8 00474000 HOLDAREA DC CL5' ' 00475000 PARMS DC CL42'PARAMETER OPTIONS VALID FOR THIS EXECUTION' 00476000 PRINTLIN DC CL134' ' 00477000 ORG PRINTLIN 00478000 DDTYPE DC CL1'1' 00479000 SPACING DS CL1 00480000 PRTLINE DS CL132 00481000 ORG PRINTLIN+134 00482000 HEADLINE DC CL44' ' 00483000 ORG HEADLINE 00484000 @NM00012 DC CL36'EREP INFORMATIONAL MESSAGES DATE - ' 00485000 DAYDATE DS CL6 00486000 ORG HEADLINE+44 00487000 TYPEJOB DC CL36' ' 00488000 ORG TYPEJOB 00489000 @NM00013 DC CL40' OFFLOAD IS BEING EXECUTED' 00490000 ORG TYPEJOB+40 00491000 YYDDD DC CL3' ' 00492000 PATCH DC CL40'PATCH AREA' 00493000 SUPERZAP DC 3CL10'SUPERZAP' 00494000 IFCOFFLD CSECT 00495000 DC S(SUPERZAP) 00496000 IFCOFFLD CSECT 00497000 ENTRY PARM 00498000 IFCOFFLD CSECT 00499000 DC S(PATCH) @0001VLS 00500000 IFCOFFLD CSECT 00501000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00502000 @01 EQU 01 00503000 @02 EQU 02 00504000 @03 EQU 03 00505000 @04 EQU 04 00506000 @05 EQU 05 00507000 @06 EQU 06 00508000 @07 EQU 07 00509000 @08 EQU 08 00510000 @09 EQU 09 00511000 @10 EQU 10 00512000 @11 EQU 11 00513000 @12 EQU 12 00514000 @13 EQU 13 00515000 @14 EQU 14 00516000 @15 EQU 15 00517000 R0 EQU @00 00518000 R1 EQU @01 00519000 R2 EQU @02 00520000 R15 EQU @15 00521000 R10 EQU @10 00522000 R11 EQU @11 00523000 R12 EQU @12 00524000 R13 EQU @13 00525000 R14 EQU @14 00526000 R3 EQU @03 00527000 R4 EQU @04 00528000 R5 EQU @05 00529000 R6 EQU @06 00530000 R7 EQU @07 00531000 R8 EQU @08 00532000 R9 EQU @09 00533000 IOHND EQU 0 00534000 TRENDONE EQU 0 00535000 TREGEN EQU TRENDONE+8 00536000 TRECCH0 EQU TREGEN+8 00537000 TREND2 EQU 0 00538000 TRENDKEY EQU TREND2 00539000 TRENDRT EQU TRENDKEY+1 00540000 TRENCPUS EQU TRENDKEY+3 00541000 TRENDITM EQU TRENDKEY+4 00542000 EVTABLE EQU 0 00543000 EVSTOP EQU EVTABLE 00544000 EVKEY EQU EVTABLE+6 00545000 SORTABLE EQU 0 00546000 SORTKEY EQU SORTABLE 00547000 SORTCCHR EQU SORTABLE+5 00548000 SYSUMONE EQU 0 00549000 SYSUM2 EQU 0 00550000 SYSUMKEY EQU SYSUM2 00551000 SYSRT EQU SYSUMKEY+1 00552000 SYSCPUS EQU SYSUMKEY+3 00553000 SYSITEM EQU SYSUMKEY+4 00554000 SHARE EQU 0 00555000 SHAREIO EQU SHARE+2 00556000 SHRBASE EQU SHAREIO+1 00557000 SHRCUCPU EQU SHAREIO+8 00558000 EDITLOAD EQU 0 00559000 EDITABLE EQU EDITLOAD+4 00560000 CUA EQU 0 00561000 CUAVAL EQU CUA+2 00562000 DEVICE EQU 0 00563000 MODELS EQU 0 00564000 DEVSERAL EQU 0 00565000 VOLUME EQU 0 00566000 CPUS EQU 0 00567000 CPUCUAS EQU 0 00568000 CPUCUAV EQU CPUCUAS+2 00569000 LIBADR EQU 0 00570000 SYMCODE EQU 0 00571000 SYMVAL EQU SYMCODE+2 00572000 IFCMSG EQU 0 00573000 TRECCH EQU TRECCH0 00574000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00575000 SYMVAL2 EQU SYMVAL+2 00576000 SYMVAL1 EQU SYMVAL 00577000 SYMCDNUM EQU SYMCODE 00578000 LIBVAL EQU LIBADR+2 00579000 LIBADNUM EQU LIBADR 00580000 CPUCUX3 EQU CPUCUAV+5 00581000 CPUCUX2 EQU CPUCUAV+3 00582000 CPUCUX1 EQU CPUCUAV 00583000 CPCUANUM EQU CPUCUAS 00584000 CPUVAL EQU CPUS+2 00585000 CPUNUM EQU CPUS 00586000 VOLVAL EQU VOLUME+2 00587000 VOLNUM EQU VOLUME 00588000 SERVAL EQU DEVSERAL+2 00589000 SERNUM EQU DEVSERAL 00590000 MODVAL EQU MODELS+2 00591000 MODNUM EQU MODELS 00592000 MDRVAL EQU DEVICE+204 00593000 MDRNUM EQU DEVICE+202 00594000 DEVVAL EQU DEVICE+2 00595000 DEVNUM EQU DEVICE 00596000 CUA2 EQU CUAVAL+2 00597000 CUA1 EQU CUAVAL 00598000 CUANUM EQU CUA 00599000 LOADPTR EQU EDITABLE+8 00600000 LOADNAME EQU EDITABLE 00601000 EDITNUM EQU EDITLOAD 00602000 SHARLET EQU SHAREIO+15 00603000 SHRCUAAH EQU SHRCUCPU+5 00604000 SHRCUAAL EQU SHRCUCPU+3 00605000 SHARSERA EQU SHRCUCPU 00606000 SHRCUABH EQU SHRBASE+5 00607000 SHRCUABL EQU SHRBASE+3 00608000 SHARSERB EQU SHRBASE 00609000 SHAREFLG EQU SHAREIO 00610000 SHARENUM EQU SHARE 00611000 SYSTEMP EQU SYSUM2+10 00612000 SYSPERM EQU SYSUM2+8 00613000 SYSRANGE EQU SYSUM2+7 00614000 SYSDEV EQU SYSUM2+5 00615000 SYSOLDA EQU SYSITEM 00616000 SYS3705 EQU SYSITEM 00617000 SYSOLD EQU SYSCPUS 00618000 SYSCPU EQU SYSCPUS 00619000 SYSTROLL EQU SYSRT+1 00620000 SYSSPAN EQU SYSRT+1 00621000 SYSCUA EQU SYSRT 00622000 SYSGROUP EQU SYSUMKEY 00623000 SYSUMEOD EQU SYSUMONE+96 00624000 SYSUMPER EQU SYSUMONE+92 00625000 SYSUMPEA EQU SYSUMONE+88 00626000 SYSUMPEI EQU SYSUMONE+84 00627000 SYSUMCH EQU SYSUMONE+20 00628000 SYSUMMCN EQU SYSUMONE+16 00629000 SYSUMMCR EQU SYSUMONE+12 00630000 SYSUMNXT EQU SYSUMONE+8 00631000 SYSUMIPL EQU SYSUMONE+4 00632000 SYSUMNUM EQU SYSUMONE 00633000 SORTCORE EQU SORTCCHR 00634000 SORTTIME EQU SORTKEY+1 00635000 SORTYEAR EQU SORTKEY 00636000 EVLETTER EQU EVKEY+5 00637000 EVSERIAL EQU EVKEY+2 00638000 EVMODEL EQU EVKEY 00639000 EVNUM EQU EVTABLE+4 00640000 EVDAY EQU EVSTOP+1 00641000 EVYEAR EQU EVSTOP 00642000 TRETMP EQU TREND2+10 00643000 TREPRM EQU TREND2+8 00644000 TRENDDEV EQU TREND2+6 00645000 TRENDDAT EQU TRENDKEY+5 00646000 TRENDOD EQU TRENDITM 00647000 TREND037 EQU TRENDITM 00648000 TRENDOLD EQU TRENCPUS 00649000 TRENDCPU EQU TRENCPUS 00650000 @NM00011 EQU TRENDRT+1 00651000 TRENDCUA EQU TRENDRT 00652000 TRENDGRP EQU TRENDKEY 00653000 TREPRE EQU TREGEN+72 00654000 TRECCHF EQU TREGEN+68 00655000 TRECCHE EQU TREGEN+64 00656000 TRECCHD EQU TREGEN+60 00657000 TRECCHC EQU TREGEN+56 00658000 TRECCHB EQU TREGEN+52 00659000 TRECCHA EQU TREGEN+48 00660000 TRECCH9 EQU TREGEN+44 00661000 TRECCH8 EQU TREGEN+40 00662000 TRECCH7 EQU TREGEN+36 00663000 TRECCH6 EQU TREGEN+32 00664000 TRECCH5 EQU TREGEN+28 00665000 TRECCH4 EQU TREGEN+24 00666000 TRECCH3 EQU TREGEN+20 00667000 TRECCH2 EQU TREGEN+16 00668000 TRECCH1 EQU TREGEN+12 00669000 TREMCH EQU TREGEN+4 00670000 TREIPL EQU TREGEN 00671000 TRENUM EQU TRENDONE+4 00672000 TRENEXT EQU TRENDONE 00673000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00674000 @ENDDATA EQU * 00675000 END IFCOFFLD 00676000