DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
84
Copybook/DTSIR904.cpy
Normal file
84
Copybook/DTSIR904.cpy
Normal file
@ -0,0 +1,84 @@
|
||||
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
|
||||
Reference in New Issue
Block a user