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