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