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