00001 *****                                                             08/08/12
00002 *                                                                 DTSIX158
00003 *    DTSIX158    EMPLOYEE WAGE EXTRACT RECORD                        LV001
00004 *                                                                 DTSIX158
00005 *    IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL                DTSIX158
00006 *    APPLICATIONS.                                                DTSIX158
00007 *                                                                 DTSIX158
00008 *    02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001.   GD     DTSIX158
00009 *                                                                 DTSIX158
00010 *    03-13-2012 ADDED TAXABLE WAGE FIELD.                  GD     DTSIX158
00011 *                                                                 DTSIX158
00012 *****                                                             DTSIX158
00013                                                                   DTSIX158
00014          15  X158-REC-TYPE              PIC  X(03) VALUE '144'.   DTSIX158
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00016          15  X158-EMP-NO                PIC  9(06).               DTSIX158
00017          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00018          15  X158-QUARTER               PIC  X(06).               DTSIX158
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00020          15  X158-SSN                   PIC  9(09).               DTSIX158
00021          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00022          15  X158-WAGE-STATUS           PIC  X(01).               DTSIX158
00023              88  X158-ICESA-88            VALUE '1'.              DTSIX158
00024              88  X158-PAPER-RPT-88        VALUE '2'.              DTSIX158
00025              88  X158-WAGE-ONLY-DISK-88   VALUE '3'.              DTSIX158
00026              88  X158-ANNUAL-RPT-88       VALUE '4'.              DTSIX158
00027              88  X158-WEB-RPT-88          VALUE '5'.              DTSIX158
00028              88  X158-AMEND-RPT-88        VALUE '6'.              DTSIX158
00029              88  X158-BENEFITS-88         VALUE '7'.              DTSIX158
00030              88  X158-UNKNOWN-88          VALUE '0'.              DTSIX158
00031          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00032          15  X158-EARNINGS              PIC  --------9.99.        DTSIX158
00033          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00034          15  X158-TAXABLE-WAGES         PIC  --------9.99.        DTSIX158
00035          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00036          15  X158-LAST-NAME             PIC  X(20).               DTSIX158
00037          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00038          15  X158-FIRST-NAME            PIC  X(15).               DTSIX158
00039          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX158
00040          15  X158-MID-INIT              PIC  X(01).               DTSIX158
00041          15  FILLER                     PIC  X(432).              DTSIX158