85 lines
6.6 KiB
COBOL
85 lines
6.6 KiB
COBOL
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
|