29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
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
|