00001 *****                                                             03/20/18
00002 *                                                                 DTSEX147
00003 *    DTSIX147    EMPLOYEE AMENDED WAGES TO BE DELETED                LV005
00004 *                                                                 DTSEX147
00005 *    IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL                DTSEX147
00006 *    APPLICATIONS.                                                DTSEX147
00007 *                                                                 DTSEX147
00008 *    02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001.   GD     DTSEX147
00009 *    06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS.     GD     DTSEX147
00010 *    09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES  ZL1    DTSEX147
00011 *                                                                 DTSEX147
00012 *                                                                 DTSEX147
00013 *****                                                             DTSEX147
00014                                                                   DTSEX147
00015          15  X147-REC-TYPE              PIC  X(03) VALUE '147'.   DTSEX147
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSEX147
00017          15  X147-EMP-NO                PIC  9(06).               DTSEX147
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSEX147
00019          15  X147-QUARTER.                                           CL**5
00020              20  X147-YR                PIC  X(04).                  CL**5
00021              20  FILLER                 PIC  X(01).                  CL**5
00022              20  X147-QTR               PIC  X(01).                  CL**5
00023          15  FILLER                     PIC  X(01) VALUE ','.     DTSEX147
00024          15  FILLER                     PIC  X(08).                  CL**2
00025          15  FILLER                     PIC  X(01) VALUE ','.        CL**2
00026          15  X147-SSN                   PIC  9(09).               DTSEX147
00027          15  FILLER                     PIC  X(01) VALUE ','.     DTSEX147
00028          15  X147-FNAME                 PIC  X(30).                  CL**2
00029          15  FILLER                     PIC  X(01) VALUE ','.        CL**2
00030          15  X147-LNAME                 PIC  X(30).                  CL**2
00031          15  FILLER                     PIC  X(03) VALUE ','.        CL**3
00032          15  X147-WAGES                 PIC  ----------9.99.         CL**4
00033          15  FILLER                     PIC  X(432).                 CL**2