82 lines
6.4 KiB
COBOL
82 lines
6.4 KiB
COBOL
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
|