62 lines
4.8 KiB
COBOL
62 lines
4.8 KiB
COBOL
00001 ***** 12/09/04
|
|
00002 * DTSIMCMP
|
|
00003 * DTSIMCMP MASTER FILE 'COMPROMISE SETTLEMENT' LV001
|
|
00004 * RECORD DEFINITION. DTSIMCMP
|
|
00005 * DTSIMCMP
|
|
00006 * DTSIMCMP
|
|
00007 * 04/22/2004 INITIAL DEVELOPMENT GD DTSIMCMP
|
|
00008 * DTSIMCMP
|
|
00009 ***** DTSIMCMP
|
|
00010 DTSIMCMP
|
|
00011 10 MCMP-KEY-AREA. DTSIMCMP
|
|
00012 15 MCMP-EMP-NO PIC S9(07) COMP-3. DTSIMCMP
|
|
00013 15 MCMP-REC-TYPE PIC S9(04) COMP. DTSIMCMP
|
|
00014 88 MCMP-CMP-88 VALUE +36. DTSIMCMP
|
|
00015 15 MCMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMCMP
|
|
00016 15 MCMP-KEY-FILLER PIC X(02). DTSIMCMP
|
|
00017 DTSIMCMP
|
|
00018 DTSIMCMP
|
|
00019 10 MCMP-PURGE-DATE PIC S9(09) COMP-3. DTSIMCMP
|
|
00020 DTSIMCMP
|
|
00021 DTSIMCMP
|
|
00022 10 MCMP-DATA-AREA. DTSIMCMP
|
|
00023 15 MCMP-STATUS-CD PIC X(01). DTSIMCMP
|
|
00024 88 MCMP-STATUS-PENDING-88 VALUE 'P'. DTSIMCMP
|
|
00025 88 MCMP-STATUS-FINAL-88 VALUE 'F'. DTSIMCMP
|
|
00026 88 MCMP-STATUS-WITHDRAWN-88 VALUE 'W'. DTSIMCMP
|
|
00027 DTSIMCMP
|
|
00028 15 MCMP-MAILING-ADDRESS. DTSIMCMP
|
|
00029 20 MCMP-MAILING-LINE-1 PIC X(40). DTSIMCMP
|
|
00030 20 MCMP-MAILING-LINE-2 PIC X(40). DTSIMCMP
|
|
00031 20 MCMP-MAILING-LINE-3 PIC X(40). DTSIMCMP
|
|
00032 20 MCMP-MAILING-LINE-4 PIC X(40). DTSIMCMP
|
|
00033 20 MCMP-MAILING-LINE-5 PIC X(40). DTSIMCMP
|
|
00034 DTSIMCMP
|
|
00035 15 MCMP-SETTLEMENT-DATE PIC S9(09) COMP-3. DTSIMCMP
|
|
00036 15 MCMP-INT-COMP-DATE PIC S9(09) COMP-3. DTSIMCMP
|
|
00037 DTSIMCMP
|
|
00038 15 MCMP-TAX-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
|
|
00039 15 MCMP-PEN-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
|
|
00040 15 MCMP-INT-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
|
|
00041 15 MCMP-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
|
|
00042 DTSIMCMP
|
|
00043 15 MCMP-AUTHORIZE-OP-ID PIC X(08). DTSIMCMP
|
|
00044 DTSIMCMP
|
|
00045 15 MCMP-COV-CNT PIC S9(04) COMP. DTSIMCMP
|
|
00046 15 MCMP-COVERED-YRQ OCCURS 20 DTSIMCMP
|
|
00047 INDEXED BY MCMP-COV-IDX DTSIMCMP
|
|
00048 PIC S9(05) COMP-3. DTSIMCMP
|
|
00049 DTSIMCMP
|
|
00050 DTSIMCMP
|
|
00051 15 FILLER PIC X(43). DTSIMCMP
|
|
00052 DTSIMCMP
|
|
00053 DTSIMCMP
|
|
00054 15 MCMP-CONVERTED-IND PIC X(01). DTSIMCMP
|
|
00055 88 MCMP-CONVERTED-88 VALUE 'Y'. DTSIMCMP
|
|
00056 88 MCMP-NOT-CONVERTED-88 VALUE 'N'. DTSIMCMP
|
|
00057 DTSIMCMP
|
|
00058 DTSIMCMP
|
|
00059 15 MCMP-ESTB-DATE PIC S9(09) COMP-3. DTSIMCMP
|
|
00060 DTSIMCMP
|
|
00061 15 MCMP-CHNG-DATE PIC S9(09) COMP-3. DTSIMCMP
|