00001 ***** 02/08/13 00002 * DTSIX153 00003 * DTSIX153 EMPLOYEE WORKER NAME EXTRACT RECORD LV001 00004 * DTSIX153 00005 * THIS RECORD PASSES WAGE RECORDS WITHOUT SSNS TO THE SERVER DTSIX153 00006 * DATABASE. THESE WAGES ARE NOT ADDED TO THE REGULAR WAGE DTSIX153 00007 * FILE, BUT ARE STORED SEPARATELY SO THE WAGES CAN BE FOUND DTSIX153 00008 * BY NAME IF THE WORKER FILES A CLAIM. DTSIX153 00009 * DTSIX153 00010 ***** DTSIX153 00011 DTSIX153 00012 15 X153-REC-TYPE PIC X(03) VALUE '153'. DTSIX153 00013 15 FILLER PIC X(01) VALUE ','. DTSIX153 00014 15 X153-EMP-NO PIC 9(06). DTSIX153 00015 15 FILLER PIC X(01) VALUE ','. DTSIX153 00016 15 X153-QUARTER PIC X(06). DTSIX153 00017 15 FILLER PIC X(01) VALUE ','. DTSIX153 00018 15 X153-EARNINGS PIC --------9.99. DTSIX153 00019 15 FILLER PIC X(01) VALUE ','. DTSIX153 00020 15 X153-BATCH PIC 9(05). DTSIX153 00021 15 FILLER PIC X(01) VALUE ','. DTSIX153 00022 15 X153-ITEM PIC 9(03). DTSIX153 00023 15 FILLER PIC X(01) VALUE ','. DTSIX153 00024 15 X153-WAGE-SOURCE PIC 9(02). DTSIX153 00025 88 X153-ICESA-88 VALUE 1. DTSIX153 00026 88 X153-PAPER-RPT-88 VALUE 2. DTSIX153 00027 88 X153-WAGE-ONLY-DISK-88 VALUE 3. DTSIX153 00028 88 X153-ANNUAL-RPT-88 VALUE 4. DTSIX153 00029 88 X153-WEB-RPT-88 VALUE 5. DTSIX153 00030 88 X153-AMENDMENT-88 VALUE 6. DTSIX153 00031 88 X153-BENEFITS-88 VALUE 7. DTSIX153 00032 88 X153-UNKNOWN-88 VALUE 0. DTSIX153 00033 15 FILLER PIC X(01) VALUE ','. DTSIX153 00034 15 X153-LAST-NAME PIC X(20). DTSIX153 00035 15 FILLER PIC X(01) VALUE ','. DTSIX153 00036 15 X153-FIRST-NAME PIC X(15). DTSIX153 00037 15 FILLER PIC X(01) VALUE ','. DTSIX153 00038 15 X153-MID-INIT PIC X(01). DTSIX153 00039 15 FILLER PIC X(01) VALUE ','. DTSIX153 00040 15 X153-DATE PIC X(10). DTSIX153