00001 *****                                                             06/19/13
00002 *                                                                 DTSIMREL
00003 *    DTSIMREL  MASTER FILE 'RELATIONSHIP' RECORD DEFINITION.         LV006
00004 *                                                                 DTSIMREL
00005 *                                                                 DTSIMREL
00006 *              08/31/1998  REVIEWED AND MODIFIED FOR DC.  EHH     DTSIMREL
00007 *              04/02/2013  ADDED A FIELD FOR SUTA DUMPING         DTSIMREL
00008 *                          INFORMATION                    GD      DTSIMREL
00009 *                                                                 DTSIMREL
00010 *****                                                             DTSIMREL
00011                                                                   DTSIMREL
00012          10  MREL-KEY-AREA.                                       DTSIMREL
00013              15  MREL-EMP-NO             PIC S9(07)       COMP-3. DTSIMREL
00014              15  MREL-REC-TYPE           PIC S9(04)       COMP.   DTSIMREL
00015                  88  MREL-REL-88             VALUE +06.           DTSIMREL
00016              15  MREL-EFF-DATE           PIC S9(09)       COMP-3. DTSIMREL
00017              15  MREL-PRED-EMP-NO        PIC S9(07)       COMP-3. DTSIMREL
00018              15  MREL-KEY-FILLER         PIC  X(01).              DTSIMREL
00019                                                                   DTSIMREL
00020                                                                   DTSIMREL
00021          10  MREL-PURGE-DATE             PIC S9(09)       COMP-3. DTSIMREL
00022                                                                   DTSIMREL
00023                                                                   DTSIMREL
00024          10  MREL-DATA-AREA.                                      DTSIMREL
00025              15  MREL-RELATIONSHIP-CD    PIC  X(02).              DTSIMREL
00026                  88  MREL-REL-CHANGE-OWNER-88    VALUE '01'.      DTSIMREL
00027                  88  MREL-REL-ACQUIRED-88        VALUE '02'.      DTSIMREL
00028                  88  MREL-REL-MERGER-88          VALUE '03'.      DTSIMREL
00029                  88  MREL-REL-INC-88             VALUE '04'.      DTSIMREL
00030                  88  MREL-REL-SPLIT-88           VALUE '05'.      DTSIMREL
00031                  88  MREL-REL-REG-TO-REIMB-88    VALUE '08'.      DTSIMREL
00032                  88  MREL-REL-REIMB-TO-REG-88    VALUE '09'.      DTSIMREL
00033                  88  MREL-REL-LEASED-88          VALUE '10'.      DTSIMREL
00034                  88  MREL-REL-REC-VOID-88        VALUE '96'.      DTSIMREL
00035                  88  MREL-REL-REC-TRNSF-88       VALUE '97'.      DTSIMREL
00036                  88  MREL-REL-OTH-88             VALUE '98'.      DTSIMREL
00037                  88  MREL-REL-UNK-88             VALUE '99'.      DTSIMREL
00038                                                                   DTSIMREL
00039              15  MREL-SUCCESSOR-DET-IND  PIC  X(01).              DTSIMREL
00040                  88  MREL-SUCCESSOR-DET-YES-88   VALUE 'Y'.       DTSIMREL
00041                  88  MREL-SUCCESSOR-DET-NO-88    VALUE 'N'.       DTSIMREL
00042                                                                   DTSIMREL
00043              15  MREL-EXP-TRNSF-CD       PIC  X(01).              DTSIMREL
00044                  88  MREL-EXP-TRNSF-NO-88        VALUE 'N'.       DTSIMREL
00045                  88  MREL-EXP-TRNSF-YES-88       VALUE 'Y'.       DTSIMREL
00046                                                                   DTSIMREL
00047              15  MREL-PORTION-EXP-TRNSF  PIC S9(01)V9(04) COMP-3. DTSIMREL
00048                                                                   DTSIMREL
00049              15  MREL-SUTA-DUMPING-CD    PIC  X(01).              DTSIMREL
00050                  88  MREL-XFER-MANDATORY-88      VALUE 'M'.       DTSIMREL
00051                  88  MREL-XFER-PROHIBITED-88     VALUE 'P'.       DTSIMREL
00052                  88  MREL-NOT-SUTA-DUMPING-88    VALUE ' '.       DTSIMREL
00053                                                                   DTSIMREL
00054                                                                   DTSIMREL
00055              15  FILLER                  PIC  X(31).              DTSIMREL
00056                                                                   DTSIMREL
00057                                                                   DTSIMREL
00058              15  MREL-CONVERTED-IND      PIC  X(01).              DTSIMREL
00059                  88  MREL-CONVERTED-88           VALUE 'Y'.       DTSIMREL
00060                  88  MREL-NOT-CONVERTED-88       VALUE 'N'.       DTSIMREL
00061                                                                   DTSIMREL
00062                                                                   DTSIMREL
00063              15  MREL-ESTB-DATE          PIC S9(09)       COMP-3. DTSIMREL
00064                                                                   DTSIMREL
00065              15  MREL-CHNG-DATE          PIC S9(09)       COMP-3. DTSIMREL
00066                                                                   DTSIMREL
00067                                                                   DTSIMREL
00068              15  MREL-TEXT-CNT           PIC S9(04)       COMP.   DTSIMREL
00069                                                                   DTSIMREL
00070              15  MREL-TEXT-AREA.                                  DTSIMREL
00071                  20  MREL-TEXT   OCCURS 8 TIMES                   DTSIMREL
00072                                  INDEXED BY MREL-TEXT-IDX         DTSIMREL
00073                                          PIC  X(72).              DTSIMREL