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

81
Copybook/DTSIMEVL.cpy Normal file
View File

@ -0,0 +1,81 @@
00001 ***** 10/10/12
00002 * DTSIMEVL
00003 * DTSIMEVL MASTER FILE 'EVENT LOG' RECORD DEFINITION. LV002
00004 * DTSIMEVL
00005 * DTSIMEVL
00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMEVL
00007 * 10/15/2006 MODIFIED TO TRACK STAFF WORK. ZL1 DTSIMEVL
00008 * 08/18/2009 ADDED CASE TRACKING ACTIVITY DTSIMEVL
00009 * CODES FOR COLLECTIONS AND DTSIMEVL
00010 * REPORT DELINQUENCY GD DTSIMEVL
00011 * 11/25/2009 ADDED LEVEL-88S FOR STATUS CHANGE DTSIMEVL
00012 * APPROVAL PROCESS DTSIMEVL
00013 * ADDED MEVL-DOC-ID FOR PRIMARY KEY DTSIMEVL
00014 * OF DOCUMENT SET ON THE SERVER DTSIMEVL
00015 * CONTAINING THE SOURCE DOCUMENTS DTSIMEVL
00016 * RELATED TO THIS STATUS CHANGE GD DTSIMEVL
00017 ***** DTSIMEVL
00018 DTSIMEVL
00019 10 MEVL-KEY-AREA. DTSIMEVL
00020 15 MEVL-EMP-NO PIC S9(07) COMP-3. DTSIMEVL
00021 15 MEVL-REC-TYPE PIC S9(04) COMP. DTSIMEVL
00022 88 MEVL-EVL-88 VALUE +21. DTSIMEVL
00023 15 MEVL-DATE PIC S9(09) COMP-3. DTSIMEVL
00024 15 MEVL-TIME PIC S9(07) COMP-3. DTSIMEVL
00025 15 MEVL-KEY-FILLER PIC X(01). DTSIMEVL
00026 DTSIMEVL
00027 DTSIMEVL
00028 10 MEVL-PURGE-DATE PIC S9(09) COMP-3. DTSIMEVL
00029 DTSIMEVL
00030 DTSIMEVL
00031 10 MEVL-DATA-AREA. DTSIMEVL
00032 15 MEVL-TEXT PIC X(50). DTSIMEVL
00033 DTSIMEVL
00034 15 MEVL-SOURCE PIC X(08). DTSIMEVL
00035 88 MEVL-SOURCE-SYSTEM-88 VALUE 'SYSTEM'. DTSIMEVL
00036 DTSIMEVL
00037 DTSIMEVL
00038 15 MEVL-BUSINESS-AREA PIC X(02). DTSIMEVL
00039 88 MEVL-BA-STATUS-88 VALUE '01'. DTSIMEVL
00040 88 MEVL-BA-ACCOUNTING-88 VALUE '02'. DTSIMEVL
00041 88 MEVL-BA-COLLECTIONS-88 VALUE '03'. DTSIMEVL
00042 88 MEVL-BA-AUDIT-88 VALUE '04'. DTSIMEVL
00043 88 MEVL-BA-RATING-88 VALUE '05'. DTSIMEVL
00044 88 MEVL-BA-STATUS-APPRV-88 VALUE '06'. DTSIMEVL
00045 DTSIMEVL
00046 15 MEVL-ACTIVITY-CODE PIC X(03). DTSIMEVL
00047 88 MEVL-ACT-CALL-EMP-88 VALUE '100'. DTSIMEVL
00048 88 MEVL-ACT-LETR-EMP-AGNT-88 VALUE '101'. CL**2
00049 88 MEVL-ACT-CALL-AGNT-88 VALUE '102'. DTSIMEVL
00050 88 MEVL-ACT-LETR-AGNT-88 VALUE '103'. DTSIMEVL
00051 88 MEVL-ACT-FLD-VISIT-88 VALUE '104'. DTSIMEVL
00052 88 MEVL-ACT-SRCH-DUTAS-88 VALUE '105'. DTSIMEVL
00053 88 MEVL-ACT-SRCH-EXTRNL-88 VALUE '106'. DTSIMEVL
00054 88 MEVL-ACT-SRCH-TAX-FILE-88 VALUE '107'. DTSIMEVL
00055 88 MEVL-ACT-PROC-CALL-LTR-88 VALUE '108'. DTSIMEVL
00056 88 MEVL-ACT-SEND-FR500-88 VALUE '109'. DTSIMEVL
00057 88 MEVL-ACT-SEND-UC30-88 VALUE '110'. DTSIMEVL
00058 88 MEVL-ACT-SEND-UC226-88 VALUE '111'. DTSIMEVL
00059 88 MEVL-ACT-RSLV-BLK-CLM-88 VALUE '112'. DTSIMEVL
00060 88 MEVL-ACT-PRE-AUDIT-88 VALUE '113'. DTSIMEVL
00061 88 MEVL-ACT-EMP-VISIT-88 VALUE '114'. DTSIMEVL
00062 88 MEVL-ACT-CT-COLLECT-88 VALUE '115'. DTSIMEVL
00063 88 MEVL-ACT-CT-RPT-DEL-88 VALUE '116'. DTSIMEVL
00064 88 MEVL-ACT-APPRV-SUCC-88 VALUE '117'. DTSIMEVL
00065 88 MEVL-ACT-APPRV-INACT-88 VALUE '118'. DTSIMEVL
00066 88 MEVL-ACT-APPRV-RATE-88 VALUE '119'. DTSIMEVL
00067 88 MEVL-ACT-APPRV-WO-88 VALUE '120'. CL**2
00068 DTSIMEVL
00069 15 MEVL-DOC-ID PIC S9(11) COMP-3. DTSIMEVL
00070 DTSIMEVL
00071 15 FILLER PIC X(05). DTSIMEVL
00072 DTSIMEVL
00073 DTSIMEVL
00074 15 MEVL-CONVERTED-IND PIC X(01). DTSIMEVL
00075 88 MEVL-CONVERTED-88 VALUE 'Y'. DTSIMEVL
00076 88 MEVL-NOT-CONVERTED-88 VALUE 'N'. DTSIMEVL
00077 DTSIMEVL
00078 DTSIMEVL
00079 15 MEVL-ESTB-DATE PIC S9(09) COMP-3. DTSIMEVL
00080 DTSIMEVL
00081 15 MEVL-CHNG-DATE PIC S9(09) COMP-3. DTSIMEVL