83 lines
6.5 KiB
COBOL
83 lines
6.5 KiB
COBOL
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
|