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

88
Copybook/DTSIMDPC.cpy Normal file
View File

@ -0,0 +1,88 @@
00001 ***** 08/28/98
00002 * DTSIMDPC
00003 * DTSIMDPC MASTER FILE 'DEFERRED PAYMENT CONTRACT' LV002
00004 * RECORD DEFINITION. DTSIMDPC
00005 * CL**2
00006 * CL**2
00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00008 * CL**2
00009 ***** DTSIMDPC
00010 CL**2
00011 10 MDPC-KEY-AREA. DTSIMDPC
00012 15 MDPC-EMP-NO PIC S9(07) COMP-3. DTSIMDPC
00013 15 MDPC-REC-TYPE PIC S9(04) COMP. DTSIMDPC
00014 88 MDPC-DPC-88 VALUE +34. DTSIMDPC
00015 15 MDPC-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMDPC
00016 15 MDPC-KEY-FILLER PIC X(02). DTSIMDPC
00017 CL**2
00018 CL**2
00019 10 MDPC-PURGE-DATE PIC S9(09) COMP-3. CL**2
00020 CL**2
00021 CL**2
00022 10 MDPC-DATA-AREA. DTSIMDPC
00023 15 MDPC-STATUS-CD PIC X(01). DTSIMDPC
00024 88 MDPC-STATUS-OPEN-88 VALUE 'O'. DTSIMDPC
00025 88 MDPC-STATUS-MANUAL-88 VALUE 'M'. DTSIMDPC
00026 88 MDPC-STATUS-PENDING-88 VALUE 'P'. DTSIMDPC
00027 88 MDPC-STATUS-SATISFIED-88 VALUE 'S'. DTSIMDPC
00028 88 MDPC-STATUS-WITHDRAWN-88 VALUE 'W'. DTSIMDPC
00029 88 MDPC-STATUS-ACTIVE-88 VALUE 'O' 'M'. DTSIMDPC
00030 CL**2
00031 15 MDPC-STATUS-DATE PIC S9(09) COMP-3.DTSIMDPC
00032 CL**2
00033 15 MDPC-STATUS-OP-ID PIC X(08). DTSIMDPC
00034 88 MDPC-STATUS-SYSTEM-88 VALUE 'SYSTEM'. DTSIMDPC
00035 CL**2
00036 15 MDPC-MAILING-ADDRESS. DTSIMDPC
00037 20 MDPC-MAILING-LINE-1 PIC X(40). DTSIMDPC
00038 20 MDPC-MAILING-LINE-2 PIC X(40). DTSIMDPC
00039 20 MDPC-MAILING-LINE-3 PIC X(40). DTSIMDPC
00040 20 MDPC-MAILING-LINE-4 PIC X(40). DTSIMDPC
00041 20 MDPC-MAILING-LINE-5 PIC X(40). DTSIMDPC
00042 CL**2
00043 15 MDPC-STMT-DATE PIC S9(09) COMP-3.DTSIMDPC
00044 CL**2
00045 15 MDPC-COMP-DATE PIC S9(09) COMP-3.DTSIMDPC
00046 CL**2
00047 15 MDPC-STMT-DUE-AMT PIC S9(09)V9(02) COMP-3.DTSIMDPC
00048 CL**2
00049 15 MDPC-STMT-ACCRUE-AMT PIC S9(09)V9(02) COMP-3.DTSIMDPC
00050 CL**2
00051 15 MDPC-PMT-FREQUENCY PIC X(01). DTSIMDPC
00052 88 MDPC-FREQ-WEEKLY-88 VALUE 'W'. DTSIMDPC
00053 88 MDPC-FREQ-BIWEEKLY-88 VALUE 'B'. DTSIMDPC
00054 88 MDPC-FREQ-MONTHLY-88 VALUE 'M'. DTSIMDPC
00055 88 MDPC-FREQ-OTHER-88 VALUE 'O'. DTSIMDPC
00056 CL**2
00057 15 MDPC-INSTALL-PMT-AMT PIC S9(09)V9(02) COMP-3. DTSIMDPC
00058 CL**2
00059 15 MDPC-PMT-BEGIN-DATE PIC S9(09) COMP-3. DTSIMDPC
00060 CL**2
00061 15 MDPC-PMT-DUE-DAY PIC S9(03) COMP-3. DTSIMDPC
00062 CL**2
00063 15 MDPC-RESPONSIBLE-OP-ID PIC X(08). DTSIMDPC
00064 CL**2
00065 15 MDPC-EMPLOYER-SIGNEE PIC X(32). DTSIMDPC
00066 CL**2
00067 15 MDPC-SIGN-DATE PIC S9(09) COMP-3. DTSIMDPC
00068 CL**2
00069 15 MDPC-NOTE PIC X(60). DTSIMDPC
00070 CL**2
00071 CL**2
00072 15 MDPC-COV-CNT PIC S9(04) COMP. DTSIMDPC
00073 15 MDPC-COVERED-YRQ OCCURS 20 DTSIMDPC
00074 INDEXED BY MDPC-COV-IDX DTSIMDPC
00075 PIC S9(05) COMP-3. DTSIMDPC
00076 CL**2
00077 CL**2
00078 15 FILLER PIC X(48). DTSIMDPC
00079 CL**2
00080 CL**2
00081 15 MDPC-CONVERTED-IND PIC X(01). DTSIMDPC
00082 88 MDPC-CONVERTED-88 VALUE 'Y'. DTSIMDPC
00083 88 MDPC-NOT-CONVERTED-88 VALUE 'N'. DTSIMDPC
00084 CL**2
00085 CL**2
00086 15 MDPC-ESTB-DATE PIC S9(09) COMP-3. DTSIMDPC
00087 CL**2
00088 15 MDPC-CHNG-DATE PIC S9(09) COMP-3. DTSIMDPC