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

61
Copybook/DTSIMCMP.cpy Normal file
View File

@ -0,0 +1,61 @@
00001 ***** 12/09/04
00002 * DTSIMCMP
00003 * DTSIMCMP MASTER FILE 'COMPROMISE SETTLEMENT' LV001
00004 * RECORD DEFINITION. DTSIMCMP
00005 * DTSIMCMP
00006 * DTSIMCMP
00007 * 04/22/2004 INITIAL DEVELOPMENT GD DTSIMCMP
00008 * DTSIMCMP
00009 ***** DTSIMCMP
00010 DTSIMCMP
00011 10 MCMP-KEY-AREA. DTSIMCMP
00012 15 MCMP-EMP-NO PIC S9(07) COMP-3. DTSIMCMP
00013 15 MCMP-REC-TYPE PIC S9(04) COMP. DTSIMCMP
00014 88 MCMP-CMP-88 VALUE +36. DTSIMCMP
00015 15 MCMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMCMP
00016 15 MCMP-KEY-FILLER PIC X(02). DTSIMCMP
00017 DTSIMCMP
00018 DTSIMCMP
00019 10 MCMP-PURGE-DATE PIC S9(09) COMP-3. DTSIMCMP
00020 DTSIMCMP
00021 DTSIMCMP
00022 10 MCMP-DATA-AREA. DTSIMCMP
00023 15 MCMP-STATUS-CD PIC X(01). DTSIMCMP
00024 88 MCMP-STATUS-PENDING-88 VALUE 'P'. DTSIMCMP
00025 88 MCMP-STATUS-FINAL-88 VALUE 'F'. DTSIMCMP
00026 88 MCMP-STATUS-WITHDRAWN-88 VALUE 'W'. DTSIMCMP
00027 DTSIMCMP
00028 15 MCMP-MAILING-ADDRESS. DTSIMCMP
00029 20 MCMP-MAILING-LINE-1 PIC X(40). DTSIMCMP
00030 20 MCMP-MAILING-LINE-2 PIC X(40). DTSIMCMP
00031 20 MCMP-MAILING-LINE-3 PIC X(40). DTSIMCMP
00032 20 MCMP-MAILING-LINE-4 PIC X(40). DTSIMCMP
00033 20 MCMP-MAILING-LINE-5 PIC X(40). DTSIMCMP
00034 DTSIMCMP
00035 15 MCMP-SETTLEMENT-DATE PIC S9(09) COMP-3. DTSIMCMP
00036 15 MCMP-INT-COMP-DATE PIC S9(09) COMP-3. DTSIMCMP
00037 DTSIMCMP
00038 15 MCMP-TAX-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
00039 15 MCMP-PEN-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
00040 15 MCMP-INT-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
00041 15 MCMP-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSIMCMP
00042 DTSIMCMP
00043 15 MCMP-AUTHORIZE-OP-ID PIC X(08). DTSIMCMP
00044 DTSIMCMP
00045 15 MCMP-COV-CNT PIC S9(04) COMP. DTSIMCMP
00046 15 MCMP-COVERED-YRQ OCCURS 20 DTSIMCMP
00047 INDEXED BY MCMP-COV-IDX DTSIMCMP
00048 PIC S9(05) COMP-3. DTSIMCMP
00049 DTSIMCMP
00050 DTSIMCMP
00051 15 FILLER PIC X(43). DTSIMCMP
00052 DTSIMCMP
00053 DTSIMCMP
00054 15 MCMP-CONVERTED-IND PIC X(01). DTSIMCMP
00055 88 MCMP-CONVERTED-88 VALUE 'Y'. DTSIMCMP
00056 88 MCMP-NOT-CONVERTED-88 VALUE 'N'. DTSIMCMP
00057 DTSIMCMP
00058 DTSIMCMP
00059 15 MCMP-ESTB-DATE PIC S9(09) COMP-3. DTSIMCMP
00060 DTSIMCMP
00061 15 MCMP-CHNG-DATE PIC S9(09) COMP-3. DTSIMCMP