DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
28
Copybook/DTSIX143.cpy
Normal file
28
Copybook/DTSIX143.cpy
Normal file
@ -0,0 +1,28 @@
|
||||
00001 ***** 09/30/24
|
||||
00002 * DTSIX143
|
||||
00003 * DTSIX143 EMPLOYEE WAGE CHANGE EXTRACT RECORD LV007
|
||||
00004 * DTSIX143
|
||||
00005 * USED FOR INCREMENTAL UPDATE OF WAGE FILE - CONTAINS DTSIX143
|
||||
00006 * DATA FOR NEW/DELETED/MODIFIED WAGE ITEMS. DTSIX143
|
||||
00007 * DTSIX143
|
||||
00008 * DTSIX143
|
||||
00009 * >>> SPECIAL VERSION - CONTAINS CHANGE DATE. <<< CL**2
|
||||
00010 * CL**2
|
||||
00011 ***** DTSIX143
|
||||
00012 DTSIX143
|
||||
00013 15 X143-REC-TYPE PIC X(03) VALUE '143'. DTSIX143
|
||||
00014 15 FILLER PIC X(01) VALUE ','. DTSIX143
|
||||
00015 15 X143-EMP-NO PIC 9(06). DTSIX143
|
||||
00016 15 FILLER PIC X(01) VALUE ','. DTSIX143
|
||||
00017 15 X143-SSN PIC 9(09). DTSIX143
|
||||
00018 15 FILLER PIC X(01) VALUE ','. DTSIX143
|
||||
00019 15 X143-QUARTER PIC X(06). DTSIX143
|
||||
00020 15 FILLER PIC X(01) VALUE ','. DTSIX143
|
||||
00021 15 X143-WAGE-ACTION PIC X(01). DTSIX143
|
||||
00022 88 X143-INSERT-88 VALUE 'I'. DTSIX143
|
||||
00023 88 X143-DELETE-88 VALUE 'D'. DTSIX143
|
||||
00024 88 X143-UPDATE-88 VALUE 'U'. DTSIX143
|
||||
00025 15 FILLER PIC X(01) VALUE ','. DTSIX143
|
||||
00026 15 X143-EARNINGS PIC 9(11).99. CL**7
|
||||
00027 15 FILLER PIC X(01) VALUE ','. CL**5
|
||||
00028 15 X143-CHNG-DATE PIC X(10). CL**5
|
||||
Reference in New Issue
Block a user