54 lines
4.2 KiB
COBOL
54 lines
4.2 KiB
COBOL
00001 ***** 06/19/13
|
|
00002 * DTSIMRTE
|
|
00003 * DTSIMRTE MASTER 'FILE RATE' RECORD DEFINITION. LV006
|
|
00004 * DTSIMRTE
|
|
00005 * DTSIMRTE
|
|
00006 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMRTE
|
|
00007 * 07/05/2002 ADDED MRTE-RATE-TYPE. GD DTSIMRTE
|
|
00008 * 04/29/2013 ADDED MRTE-MREL-PRED-NO AND DTSIMRTE
|
|
00009 * MRTE-MREL-EFF-DATE TO RELATE A DTSIMRTE
|
|
00010 * RATE CHANGE TO A RELATIONSHIP DTSIMRTE
|
|
00011 * INVOLVING SUTA DUMPING DETECTION. GD DTSIMRTE
|
|
00012 * DTSIMRTE
|
|
00013 ***** DTSIMRTE
|
|
00014 DTSIMRTE
|
|
00015 10 MRTE-KEY-AREA. DTSIMRTE
|
|
00016 15 MRTE-EMP-NO PIC S9(07) COMP-3. DTSIMRTE
|
|
00017 15 MRTE-REC-TYPE PIC S9(04) COMP. DTSIMRTE
|
|
00018 88 MRTE-RTE-88 VALUE +05. DTSIMRTE
|
|
00019 15 MRTE-EFF-YRQ PIC S9(05) COMP-3. DTSIMRTE
|
|
00020 15 MRTE-KEY-FILLER PIC X(07). DTSIMRTE
|
|
00021 DTSIMRTE
|
|
00022 DTSIMRTE
|
|
00023 10 MRTE-PURGE-DATE PIC S9(09) COMP-3. DTSIMRTE
|
|
00024 DTSIMRTE
|
|
00025 DTSIMRTE
|
|
00026 10 MRTE-DATA-AREA. DTSIMRTE
|
|
00027 15 MRTE-END-YRQ PIC S9(05) COMP-3. DTSIMRTE
|
|
00028 DTSIMRTE
|
|
00029 15 MRTE-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMRTE
|
|
00030 DTSIMRTE
|
|
00031 15 MRTE-NOTICE-DATE PIC S9(09) COMP-3. DTSIMRTE
|
|
00032 DTSIMRTE
|
|
00033 15 MRTE-RATE-TYPE-IND PIC X(01). DTSIMRTE
|
|
00034 88 MRTE-RATE-TYPE-REG-88 VALUE 'R'. DTSIMRTE
|
|
00035 88 MRTE-RATE-TYPE-ESTIM-88 VALUE 'E'. DTSIMRTE
|
|
00036 88 MRTE-RATE-TYPE-TRANS-88 VALUE 'T'. DTSIMRTE
|
|
00037 88 MRTE-RATE-TYPE-FINAL-88 VALUE 'F'. DTSIMRTE
|
|
00038 DTSIMRTE
|
|
00039 DTSIMRTE
|
|
00040 15 MRTE-MREL-PRED-NO PIC S9(07) COMP-3. DTSIMRTE
|
|
00041 DTSIMRTE
|
|
00042 15 MRTE-MREL-EFF-DATE PIC S9(09) COMP-3. DTSIMRTE
|
|
00043 DTSIMRTE
|
|
00044 15 FILLER PIC X(02). DTSIMRTE
|
|
00045 DTSIMRTE
|
|
00046 DTSIMRTE
|
|
00047 15 MRTE-CONVERTED-IND PIC X(01). DTSIMRTE
|
|
00048 88 MRTE-CONVERTED-88 VALUE 'Y'. DTSIMRTE
|
|
00049 88 MRTE-NOT-CONVERTED-88 VALUE 'N'. DTSIMRTE
|
|
00050 DTSIMRTE
|
|
00051 15 MRTE-ESTB-DATE PIC S9(09) COMP-3. DTSIMRTE
|
|
00052 DTSIMRTE
|
|
00053 15 MRTE-CHNG-DATE PIC S9(09) COMP-3. DTSIMRTE
|