89 lines
7.0 KiB
COBOL
89 lines
7.0 KiB
COBOL
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
|