00001 ***** 09/30/24 00002 * DTSIX147 00003 * DTSIX147 EMPLOYEE AMENDED WAGES TO BE DELETED LV014 00004 * DTSIX147 00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSIX147 00006 * APPLICATIONS. DTSIX147 00007 * DTSIX147 00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSIX147 00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSIX147 00010 * 09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES ZL1 CL**9 00011 * DTSIX147 00012 * DTSIX147 00013 ***** DTSIX147 00014 DTSIX147 00015 15 X147-REC-TYPE PIC X(03) VALUE '147'. CL**9 00016 15 FILLER PIC X(01) VALUE ','. DTSIX147 00017 15 X147-EMP-NO PIC 9(06). CL**9 00018 15 FILLER PIC X(01) VALUE ','. DTSIX147 00019 15 X147-QUARTER PIC X(06). CL*13 00020 15 FILLER PIC X(01) VALUE ','. CL*12 00021 15 X147-SSN PIC 9(09). CL**9 00022 15 FILLER PIC X(01) VALUE ','. DTSIX147 00023 15 X147-WAGE-STATUS PIC X(01). CL**9 00024 88 X147-ICESA-88 VALUE '1'. CL**9 00025 88 X147-PAPER-RPT-88 VALUE '2'. CL**9 00026 88 X147-WAGE-ONLY-DISK-88 VALUE '3'. CL**9 00027 88 X147-ANNUAL-RPT-88 VALUE '4'. CL**9 00028 88 X147-WEB-RPT-88 VALUE '5'. CL**9 00029 88 X147-AMEND-RPT-88 VALUE '6'. CL**9 00030 88 X147-BENEFITS-88 VALUE '7'. CL**9 00031 88 X147-INTRANET-RPT-88 VALUE '8'. CL**9 00032 88 X147-CLAIMNT-WAGE-88 VALUE '9'. CL**9 00033 88 X147-UNKNOWN-88 VALUE '0'. CL**9 00034 15 FILLER PIC X(01) VALUE ','. DTSIX147 00035 * 15 X147-EARNINGS PIC --------9.99. CL*14 00036 15 X147-EARNINGS PIC 9(11)V99. CL*14 00037 15 FILLER PIC X(01) VALUE ','. DTSIX147 00038 15 X147-LAST-NAME PIC X(20). CL**9 00039 15 FILLER PIC X(01) VALUE ','. DTSIX147 00040 15 X147-FIRST-NAME PIC X(15). CL**9 00041 15 FILLER PIC X(01) VALUE ','. DTSIX147 00042 15 X147-MID-INIT PIC X(01). CL**9 00043 15 FILLER PIC X(431). CL*11