45 lines
3.5 KiB
COBOL
45 lines
3.5 KiB
COBOL
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
|