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