00001 ***** 10/15/98 00002 * DTSIR904 00003 * DTSIR904 DAILY UPDATE CONTROL REPORT RECORD. LV003 00004 * DTSIR904 00005 * CL**2 00006 * 10/15/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00007 * CL**2 00008 ***** DTSIR904 00009 CL**2 00010 10 R904-LENGTH PIC S9(04) COMP. CL**2 00011 CL**2 00012 10 R904-SORT-AREA. DTSIR904 00013 15 R904-REC-TYPE PIC X(03) VALUE '904'. DTSIR904 00014 CL**2 00015 10 R904-DATA-AREA. DTSIR904 00016 15 R904-RUN-TYPE PIC X(01). DTSIR904 00017 88 R904-PRODUCTION VALUE 'P'. DTSIR904 00018 88 R904-TEST VALUE 'T'. DTSIR904 00019 CL**2 00020 15 R904-MHDR-AREA OCCURS 2 TIMES. DTSIR904 00021 20 R904-PRIOR-DATA. DTSIR904 00022 25 R904-PRIOR-RUN-DATE DTSIR904 00023 PIC S9(09) COMP-3. DTSIR904 00024 25 R904-PRIOR-MAIL-DATE DTSIR904 00025 PIC S9(09) COMP-3. DTSIR904 00026 20 R904-CURR-DATA. DTSIR904 00027 25 R904-CURR-RUN-DATE DTSIR904 00028 PIC S9(09) COMP-3. DTSIR904 00029 25 R904-CURR-MAIL-DATE DTSIR904 00030 PIC S9(09) COMP-3. DTSIR904 00031 20 R904-NEXT-DATA. DTSIR904 00032 25 R904-NEXT-RUN-DATE DTSIR904 00033 PIC S9(09) COMP-3. DTSIR904 00034 25 R904-NEXT-MAIL-DATE DTSIR904 00035 PIC S9(09) COMP-3. DTSIR904 00036 20 R904-CMPL-WEEK-DATA. DTSIR904 00037 25 R904-CMPL-WEEK-BEGIN-DATE DTSIR904 00038 PIC S9(09) COMP-3. DTSIR904 00039 25 R904-CMPL-WEEK-END-DATE DTSIR904 00040 PIC S9(09) COMP-3. DTSIR904 00041 20 R904-CMPL-MONTH-DATA. DTSIR904 00042 25 R904-CMPL-MONTH-BEGIN-DATE DTSIR904 00043 PIC S9(09) COMP-3. DTSIR904 00044 25 R904-CMPL-MONTH-END-DATE DTSIR904 00045 PIC S9(09) COMP-3. DTSIR904 00046 20 R904-CMPL-QTR-DATA. DTSIR904 00047 25 R904-CMPL-QTR-BEGIN-DATE DTSIR904 00048 PIC S9(09) COMP-3. DTSIR904 00049 25 R904-CMPL-QTR-END-DATE DTSIR904 00050 PIC S9(09) COMP-3. DTSIR904 00051 20 R904-CMPL-YEAR-DATA. DTSIR904 00052 25 R904-CMPL-YEAR-BEGIN-DATE DTSIR904 00053 PIC S9(09) COMP-3. DTSIR904 00054 25 R904-CMPL-YEAR-END-DATE DTSIR904 00055 PIC S9(09) COMP-3. DTSIR904 00056 20 R904-MISC-DATA. DTSIR904 00057 25 R904-LAST-USED-EMP-NO DTSIR904 00058 PIC S9(07) COMP-3. DTSIR904 00059 25 R904-LAST-USED-ASSIGN-NO DTSIR904 00060 PIC S9(09) COMP-3. DTSIR904 00061 25 R904-LAST-USED-BATCH-NO DTSIR904 00062 PIC S9(05) COMP-3. DTSIR904 00063 25 R904-LAST-USED-LEVY-NO CL**3 00064 PIC S9(08) COMP-3. CL**3 00065 25 R904-LAST-USED-LIEN-NO CL**3 00066 PIC S9(08) COMP-3. CL**3 00067 25 R904-LAST-USED-REFUND-NO CL**3 00068 PIC S9(08) COMP-3. CL**3 00069 20 R904-REPORT-DATA. DTSIR904 00070 25 R904-DEFAULT-RCV-DATE DTSIR904 00071 PIC S9(09) COMP-3. DTSIR904 00072 25 R904-LAST-UC30-MASS-MAIL-YRQ CL**3 00073 PIC S9(05) COMP-3. DTSIR904 00074 25 R904-LAST-PEN-ASSESSED-YRQ CL**3 00075 PIC S9(05) COMP-3. CL**3 00076 25 R904-LAST-UC30-DEL-MAIL-YRQ CL**3 00077 PIC S9(05) COMP-3. DTSIR904 00078 25 R904-FIRST-PURSUED-RPT-YRQ DTSIR904 00079 PIC S9(05) COMP-3. DTSIR904 00080 20 R904-RATE-DATA. DTSIR904 00081 25 R904-LAST-RATE-END-YRQ CL**3 00082 PIC S9(05) COMP-3. DTSIR904 00083 20 R904-LAST-MJRN-PURGE-DATE DTSIR904 00084 PIC S9(09) COMP-3. DTSIR904