00001 ***** 08/28/98 00002 * DTSIMDPC 00003 * DTSIMDPC MASTER FILE 'DEFERRED PAYMENT CONTRACT' LV002 00004 * RECORD DEFINITION. DTSIMDPC 00005 * CL**2 00006 * CL**2 00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00008 * CL**2 00009 ***** DTSIMDPC 00010 CL**2 00011 10 MDPC-KEY-AREA. DTSIMDPC 00012 15 MDPC-EMP-NO PIC S9(07) COMP-3. DTSIMDPC 00013 15 MDPC-REC-TYPE PIC S9(04) COMP. DTSIMDPC 00014 88 MDPC-DPC-88 VALUE +34. DTSIMDPC 00015 15 MDPC-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMDPC 00016 15 MDPC-KEY-FILLER PIC X(02). DTSIMDPC 00017 CL**2 00018 CL**2 00019 10 MDPC-PURGE-DATE PIC S9(09) COMP-3. CL**2 00020 CL**2 00021 CL**2 00022 10 MDPC-DATA-AREA. DTSIMDPC 00023 15 MDPC-STATUS-CD PIC X(01). DTSIMDPC 00024 88 MDPC-STATUS-OPEN-88 VALUE 'O'. DTSIMDPC 00025 88 MDPC-STATUS-MANUAL-88 VALUE 'M'. DTSIMDPC 00026 88 MDPC-STATUS-PENDING-88 VALUE 'P'. DTSIMDPC 00027 88 MDPC-STATUS-SATISFIED-88 VALUE 'S'. DTSIMDPC 00028 88 MDPC-STATUS-WITHDRAWN-88 VALUE 'W'. DTSIMDPC 00029 88 MDPC-STATUS-ACTIVE-88 VALUE 'O' 'M'. DTSIMDPC 00030 CL**2 00031 15 MDPC-STATUS-DATE PIC S9(09) COMP-3.DTSIMDPC 00032 CL**2 00033 15 MDPC-STATUS-OP-ID PIC X(08). DTSIMDPC 00034 88 MDPC-STATUS-SYSTEM-88 VALUE 'SYSTEM'. DTSIMDPC 00035 CL**2 00036 15 MDPC-MAILING-ADDRESS. DTSIMDPC 00037 20 MDPC-MAILING-LINE-1 PIC X(40). DTSIMDPC 00038 20 MDPC-MAILING-LINE-2 PIC X(40). DTSIMDPC 00039 20 MDPC-MAILING-LINE-3 PIC X(40). DTSIMDPC 00040 20 MDPC-MAILING-LINE-4 PIC X(40). DTSIMDPC 00041 20 MDPC-MAILING-LINE-5 PIC X(40). DTSIMDPC 00042 CL**2 00043 15 MDPC-STMT-DATE PIC S9(09) COMP-3.DTSIMDPC 00044 CL**2 00045 15 MDPC-COMP-DATE PIC S9(09) COMP-3.DTSIMDPC 00046 CL**2 00047 15 MDPC-STMT-DUE-AMT PIC S9(09)V9(02) COMP-3.DTSIMDPC 00048 CL**2 00049 15 MDPC-STMT-ACCRUE-AMT PIC S9(09)V9(02) COMP-3.DTSIMDPC 00050 CL**2 00051 15 MDPC-PMT-FREQUENCY PIC X(01). DTSIMDPC 00052 88 MDPC-FREQ-WEEKLY-88 VALUE 'W'. DTSIMDPC 00053 88 MDPC-FREQ-BIWEEKLY-88 VALUE 'B'. DTSIMDPC 00054 88 MDPC-FREQ-MONTHLY-88 VALUE 'M'. DTSIMDPC 00055 88 MDPC-FREQ-OTHER-88 VALUE 'O'. DTSIMDPC 00056 CL**2 00057 15 MDPC-INSTALL-PMT-AMT PIC S9(09)V9(02) COMP-3. DTSIMDPC 00058 CL**2 00059 15 MDPC-PMT-BEGIN-DATE PIC S9(09) COMP-3. DTSIMDPC 00060 CL**2 00061 15 MDPC-PMT-DUE-DAY PIC S9(03) COMP-3. DTSIMDPC 00062 CL**2 00063 15 MDPC-RESPONSIBLE-OP-ID PIC X(08). DTSIMDPC 00064 CL**2 00065 15 MDPC-EMPLOYER-SIGNEE PIC X(32). DTSIMDPC 00066 CL**2 00067 15 MDPC-SIGN-DATE PIC S9(09) COMP-3. DTSIMDPC 00068 CL**2 00069 15 MDPC-NOTE PIC X(60). DTSIMDPC 00070 CL**2 00071 CL**2 00072 15 MDPC-COV-CNT PIC S9(04) COMP. DTSIMDPC 00073 15 MDPC-COVERED-YRQ OCCURS 20 DTSIMDPC 00074 INDEXED BY MDPC-COV-IDX DTSIMDPC 00075 PIC S9(05) COMP-3. DTSIMDPC 00076 CL**2 00077 CL**2 00078 15 FILLER PIC X(48). DTSIMDPC 00079 CL**2 00080 CL**2 00081 15 MDPC-CONVERTED-IND PIC X(01). DTSIMDPC 00082 88 MDPC-CONVERTED-88 VALUE 'Y'. DTSIMDPC 00083 88 MDPC-NOT-CONVERTED-88 VALUE 'N'. DTSIMDPC 00084 CL**2 00085 CL**2 00086 15 MDPC-ESTB-DATE PIC S9(09) COMP-3. DTSIMDPC 00087 CL**2 00088 15 MDPC-CHNG-DATE PIC S9(09) COMP-3. DTSIMDPC