giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Copybook/DTSIMREL.cpy Normal file
View File

@ -0,0 +1,73 @@
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