DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
118
Copybook/DTSILECM.cpy
Normal file
118
Copybook/DTSILECM.cpy
Normal file
@ -0,0 +1,118 @@
|
||||
00001 ***** 03/01/12
|
||||
00002 * DTSILECM
|
||||
00003 * DTSILECM PERIODIC REPORT EXTRACT COMMON LINKAGE. LV010
|
||||
00004 * DTSILECM
|
||||
00005 * DTSILECM
|
||||
00006 * 10/05/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSILECM
|
||||
00007 * DTSILECM
|
||||
00008 * 05/24/1999 ADDED LECM-PICKUP-YRQ. DTSILECM
|
||||
00009 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSILECM
|
||||
00010 * DTSILECM
|
||||
00011 * 03/08/2011 ADDED LECM-NON-DOES-EMP-NO FOR THE DTSILECM
|
||||
00012 * NON-DOES CHECK PROCESS. DTSILECM
|
||||
00013 * REFERENCE: LOCKBOX PROGRAMMER: GD DTSILECM
|
||||
00014 * DTSILECM
|
||||
00015 ***** DTSILECM
|
||||
00016 DTSILECM
|
||||
00017 10 LECM-RUN-AREA. DTSILECM
|
||||
00018 15 LECM-RUN-TYPE PIC X(02). DTSILECM
|
||||
00019 88 LECM-WK-END VALUE 'WE'. DTSILECM
|
||||
00020 88 LECM-MNTH-COL VALUE 'MC'. DTSILECM
|
||||
00021 88 LECM-MNTH-END VALUE 'ME'. DTSILECM
|
||||
00022 88 LECM-QTR-MASS-UC30 VALUE 'QR'. DTSILECM
|
||||
00023 88 LECM-QTR-PEN-ASSESS VALUE 'QP'. DTSILECM
|
||||
00024 88 LECM-QTR-DEL-UC30 VALUE 'QD'. DTSILECM
|
||||
00025 88 LECM-QTR-FINAL-UC30 VALUE 'QF'. DTSILECM
|
||||
00026 88 LECM-QTR-END VALUE 'QE'. DTSILECM
|
||||
00027 88 LECM-YEAR-END VALUE 'YE'. DTSILECM
|
||||
00028 88 LECM-ON-REQ VALUE 'OR'. DTSILECM
|
||||
00029 DTSILECM
|
||||
00030 DTSILECM
|
||||
00031 15 LECM-PERIOD-START-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00032 DTSILECM
|
||||
00033 15 LECM-PERIOD-END-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00034 DTSILECM
|
||||
00035 DTSILECM
|
||||
00036 15 LECM-CURR-RUN-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00037 DTSILECM
|
||||
00038 15 LECM-CURR-MAIL-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00039 DTSILECM
|
||||
00040 DTSILECM
|
||||
00041 15 LECM-PRIOR-RUN-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00042 DTSILECM
|
||||
00043 15 LECM-PRIOR-MAIL-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00044 DTSILECM
|
||||
00045 DTSILECM
|
||||
00046 15 LECM-RUN-ABSTIME PIC S9(15) COMP-3. DTSILECM
|
||||
00047 DTSILECM
|
||||
00048 DTSILECM
|
||||
00049 15 LECM-SYS-DATE PIC S9(09) COMP-3. DTSILECM
|
||||
00050 DTSILECM
|
||||
00051 15 LECM-SYS-TIME PIC S9(07) COMP-3. DTSILECM
|
||||
00052 DTSILECM
|
||||
00053 DTSILECM
|
||||
00054 15 LECM-LAST-UC30-MASS-MAIL-YRQ DTSILECM
|
||||
00055 PIC S9(05) COMP-3. DTSILECM
|
||||
00056 DTSILECM
|
||||
00057 15 LECM-LAST-PEN-ASSESSED-YRQ DTSILECM
|
||||
00058 PIC S9(05) COMP-3. DTSILECM
|
||||
00059 DTSILECM
|
||||
00060 15 LECM-LAST-UC30-DEL-MAIL-YRQ DTSILECM
|
||||
00061 PIC S9(05) COMP-3. DTSILECM
|
||||
00062 DTSILECM
|
||||
00063 15 LECM-FIRST-PURSUED-RPT-YRQ DTSILECM
|
||||
00064 PIC S9(05) COMP-3. DTSILECM
|
||||
00065 DTSILECM
|
||||
00066 15 LECM-LAST-RATE-END-YRQ DTSILECM
|
||||
00067 PIC S9(05) COMP-3. DTSILECM
|
||||
00068 DTSILECM
|
||||
00069 15 LECM-LAST-MJRN-PURGE-DATE DTSILECM
|
||||
00070 PIC S9(09) COMP-3. DTSILECM
|
||||
00071 DTSILECM
|
||||
00072 DTSILECM
|
||||
00073 15 LECM-TRACE-IND PIC X(01). DTSILECM
|
||||
00074 DTSILECM
|
||||
00075 15 LECM-PICKUP-YRQ DTSILECM
|
||||
00076 PIC S9(05) COMP-3. DTSILECM
|
||||
00077 DTSILECM
|
||||
00078 15 LECM-NON-DOES-EMP-NO PIC S9(07) COMP-3 DTSILECM
|
||||
00079 VALUE +168065. DTSILECM
|
||||
00080 DTSILECM
|
||||
00081 DTSILECM
|
||||
00082 10 FILLER PIC X(17). DTSILECM
|
||||
00083 DTSILECM
|
||||
00084 DTSILECM
|
||||
00085 DTSILECM
|
||||
00086 10 LECM-EMP-AREA. DTSILECM
|
||||
00087 15 LECM-EMP-ABSTIME PIC S9(15) COMP-3. DTSILECM
|
||||
00088 DTSILECM
|
||||
00089 15 LECM-EMP-UPDATED-IND PIC X(01). DTSILECM
|
||||
00090 88 LECM-EMP-UPDATED-NO-88 VALUE 'N'. DTSILECM
|
||||
00091 88 LECM-EMP-UPDATED-YES-88 VALUE 'Y'. DTSILECM
|
||||
00092 DTSILECM
|
||||
00093 DTSILECM
|
||||
00094 DTSILECM
|
||||
00095 10 FILLER PIC X(30). DTSILECM
|
||||
00096 DTSILECM
|
||||
00097 DTSILECM
|
||||
00098 DTSILECM
|
||||
00099 10 LECM-CALL-TYPE-IND PIC X(01). DTSILECM
|
||||
00100 88 LECM-INITIALIZE-88 VALUE 'I'. DTSILECM
|
||||
00101 88 LECM-PROCESS-88 VALUE 'P'. DTSILECM
|
||||
00102 88 LECM-TERMINATE-88 VALUE 'T'. DTSILECM
|
||||
00103 DTSILECM
|
||||
00104 DTSILECM
|
||||
00105 DTSILECM
|
||||
00106 10 LECM-INIT-RETURN-INDICATORS. DTSILECM
|
||||
00107 15 LECM-MST-OPEN-IND PIC X(01). DTSILECM
|
||||
00108 88 LECM-MST-OPEN-READ-88 VALUE '1'. DTSILECM
|
||||
00109 88 LECM-MST-OPEN-UPDATE-HDR-88 VALUE '2'. DTSILECM
|
||||
00110 88 LECM-MST-OPEN-UPDATE-88 VALUE '3'. DTSILECM
|
||||
00111 DTSILECM
|
||||
00112 15 LECM-REF-OPEN-IND PIC X(01). DTSILECM
|
||||
00113 88 LECM-REF-OPEN-READ-88 VALUE '1'. DTSILECM
|
||||
00114 88 LECM-REF-OPEN-UPDATE-88 VALUE '3'. DTSILECM
|
||||
00115 DTSILECM
|
||||
00116 DTSILECM
|
||||
00117 DTSILECM
|
||||
00118 10 LECM-EXTRACT-PARMS PIC X(68). DTSILECM
|
||||
Reference in New Issue
Block a user