119 lines
9.3 KiB
COBOL
119 lines
9.3 KiB
COBOL
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
|