DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
44
Copybook/DTSITSKL.cpy
Normal file
44
Copybook/DTSITSKL.cpy
Normal file
@ -0,0 +1,44 @@
|
||||
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
|
||||
Reference in New Issue
Block a user