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

82
Copybook/DTSIMTCK.cpy Normal file
View File

@ -0,0 +1,82 @@
00001 ***** 12/09/04
00002 * DTSIMTCK
00003 * DTSIMTCK MASTER FILE 'TICKLER' RECORD DEFINITION. LV007
00004 * DTSIMTCK
00005 * DTSIMTCK
00006 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMTCK
00007 * 05/10/2004 ADDED FIELDS FOR COMPROMISE DTSIMTCK
00008 * SETTLEMENTS (CMP). GD DTSIMTCK
00009 * DTSIMTCK
00010 ***** DTSIMTCK
00011 DTSIMTCK
00012 10 MTCK-KEY-AREA. DTSIMTCK
00013 15 MTCK-EMP-NO PIC S9(07) COMP-3. DTSIMTCK
00014 15 MTCK-REC-TYPE PIC S9(04) COMP. DTSIMTCK
00015 88 MTCK-TCK-88 VALUE +23. DTSIMTCK
00016 15 MTCK-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMTCK
00017 15 MTCK-KEY-FILLER PIC X(02). DTSIMTCK
00018 DTSIMTCK
00019 DTSIMTCK
00020 10 MTCK-PURGE-DATE PIC S9(09) COMP-3. DTSIMTCK
00021 DTSIMTCK
00022 DTSIMTCK
00023 10 MTCK-DATA-AREA. DTSIMTCK
00024 15 MTCK-TYPE PIC X(03). DTSIMTCK
00025 88 MTCK-TYPE-CYCLE-A-88 VALUE 'ERA'. DTSIMTCK
00026 88 MTCK-TYPE-LIEN-88 VALUE 'L01'. DTSIMTCK
00027 88 MTCK-TYPE-CHK-LATE-88 VALUE 'LTE'. DTSIMTCK
00028 88 MTCK-TYPE-DPC-PEND-88 VALUE 'DPC'. DTSIMTCK
00029 88 MTCK-TYPE-CMP-PEND-88 VALUE 'CMP'. DTSIMTCK
00030 88 MTCK-TYPE-MANUAL-88 VALUE 'MAN'. DTSIMTCK
00031 DTSIMTCK
00032 88 MTCK-TYPE-SYSTEM-88 VALUE DTSIMTCK
00033 'ERA' 'L01' 'LTE' 'DPC' 'CMP'. DTSIMTCK
00034 DTSIMTCK
00035 15 MTCK-TRIGGER-DATE PIC S9(09) COMP-3. DTSIMTCK
00036 DTSIMTCK
00037 15 MTCK-ACKNOWLEDGED-DATE PIC S9(09) COMP-3. DTSIMTCK
00038 DTSIMTCK
00039 15 MTCK-SOURCE-OP-ID PIC X(08). DTSIMTCK
00040 88 MTCK-SOURCE-SYSTEM-88 VALUE 'SYSTEM'. DTSIMTCK
00041 DTSIMTCK
00042 15 MTCK-DEST-OP-ID PIC X(08). DTSIMTCK
00043 88 MTCK-DEST-SYSTEM-88 VALUE 'SYSTEM'. DTSIMTCK
00044 DTSIMTCK
00045 15 MTCK-ALTERNATE-ID PIC X(10). DTSIMTCK
00046 15 FILLER REDEFINES MTCK-ALTERNATE-ID. DTSIMTCK
00047 20 MTCK-L01-ESTB-ABSTIME DTSIMTCK
00048 PIC S9(15) COMP-3. DTSIMTCK
00049 20 FILLER PIC X(02). DTSIMTCK
00050 15 FILLER REDEFINES MTCK-ALTERNATE-ID. DTSIMTCK
00051 20 MTCK-DPC-ESTB-ABSTIME DTSIMTCK
00052 PIC S9(15) COMP-3. DTSIMTCK
00053 20 FILLER PIC X(02). DTSIMTCK
00054 15 FILLER REDEFINES MTCK-ALTERNATE-ID. DTSIMTCK
00055 20 MTCK-CMP-ESTB-ABSTIME DTSIMTCK
00056 PIC S9(15) COMP-3. DTSIMTCK
00057 20 FILLER PIC X(02). DTSIMTCK
00058 15 FILLER REDEFINES MTCK-ALTERNATE-ID. DTSIMTCK
00059 20 MTCK-LTE-YRQ DTSIMTCK
00060 PIC S9(05) COMP-3. DTSIMTCK
00061 20 FILLER PIC X(07). DTSIMTCK
00062 DTSIMTCK
00063 DTSIMTCK
00064 15 FILLER PIC X(32). DTSIMTCK
00065 DTSIMTCK
00066 DTSIMTCK
00067 15 MTCK-CONVERTED-IND PIC X(01). DTSIMTCK
00068 88 MTCK-CONVERTED-88 VALUE 'Y'. DTSIMTCK
00069 88 MTCK-NOT-CONVERTED-88 VALUE 'N'. DTSIMTCK
00070 DTSIMTCK
00071 DTSIMTCK
00072 15 MTCK-ESTB-DATE PIC S9(09) COMP-3. DTSIMTCK
00073 DTSIMTCK
00074 15 MTCK-CHNG-DATE PIC S9(09) COMP-3. DTSIMTCK
00075 DTSIMTCK
00076 DTSIMTCK
00077 15 MTCK-TEXT-CNT PIC S9(04) COMP. DTSIMTCK
00078 DTSIMTCK
00079 15 MTCK-TEXT-AREA. DTSIMTCK
00080 20 MTCK-TEXT OCCURS 8 TIMES DTSIMTCK
00081 INDEXED BY MTCK-TEXT-IDX DTSIMTCK
00082 PIC X(72). DTSIMTCK