00001 ***** 08/08/12 00002 * DTSITSKL 00003 * DTSITSKL SKELETAL TRANSACTION RECORD. LV009 00004 * DTSITSKL 00005 * DTSITSKL 00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSITSKL 00007 * DTSITSKL 00008 * 07/23/2003 ADDED TSKL-QTR-REPORT-88 AND DTSITSKL 00009 * TSKL-AUTO-EMP-STATUS-88. GD DTSITSKL 00010 * DTSITSKL 00011 * 01/18/2005 ADDED TSKL-NOTEPAD-88 GD DTSITSKL 00012 * 04/26/2012 ADDED TSKL-AUDIT-88 ZL1 DTSITSKL 00013 * DTSITSKL 00014 ***** DTSITSKL 00015 DTSITSKL 00016 10 TSKL-LENGTH PIC S9(04) COMP. DTSITSKL 00017 DTSITSKL 00018 10 TSKL-COMMON-AREA. DTSITSKL 00019 15 TSKL-REC-TYPE PIC X(03). DTSITSKL 00020 88 TSKL-REGISTRATION-88 VALUE '001'. DTSITSKL 00021 88 TSKL-AUTO-EMP-STATUS-88 VALUE '002'. DTSITSKL 00022 88 TSKL-NOTEPAD-88 VALUE '003'. DTSITSKL 00023 88 TSKL-RATING-88 VALUE '006'. DTSITSKL 00024 88 TSKL-COLLECTION-88 VALUE '011'. DTSITSKL 00025 88 TSKL-LMI-EMP-88 VALUE '016'. DTSITSKL 00026 88 TSKL-FS-DOWNLOAD-88 VALUE '021'. DTSITSKL 00027 88 TSKL-PAYMENT-88 VALUE '025'. DTSITSKL 00028 88 TSKL-ESTB-ADJ-88 VALUE '026'. DTSITSKL 00029 88 TSKL-QTR-REPORT-88 VALUE '027'. DTSITSKL 00030 88 TSKL-AUTO-QTR-88 VALUE '031'. DTSITSKL 00031 88 TSKL-RPT-PRINT-88 VALUE '036'. DTSITSKL 00032 88 TSKL-WEB-AUDIT-88 VALUE '040'. DTSITSKL 00033 88 TSKL-ACCOUNTING-88 VALUE '051'. DTSITSKL 00034 15 TSKL-EMP-NO PIC S9(07) COMP-3. DTSITSKL 00035 15 TSKL-ORIGIN PIC X(10). DTSITSKL 00036 15 FILLER REDEFINES TSKL-ORIGIN. DTSITSKL 00037 20 TSKL-OP-ID PIC X(08). DTSITSKL 00038 20 TSKL-SCR-ID PIC X(02). DTSITSKL 00039 15 TSKL-SYS-DATE PIC S9(09) COMP-3. DTSITSKL 00040 15 TSKL-SYS-TIME PIC S9(07) COMP-3. DTSITSKL 00041 DTSITSKL 00042 10 TSKL-DATA-AREA. DTSITSKL 00043 15 TSKL-TRN-CD PIC X(02). DTSITSKL 00044 15 FILLER PIC X(4059). DTSITSKL