74 lines
5.8 KiB
COBOL
74 lines
5.8 KiB
COBOL
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
|