00001 ******************************************************************02/02/05 00002 * ICESA FORMAT EMPLOYEE RECORD *EWGRECS 00003 * * LV001 00004 * ESP.APPL.PANSLIB(EWGRECS) *EWGRECS 00005 * *EWGRECS 00006 * *EWGRECS 00007 * - CODE S RECORD IS USED TO REPORT WAGE AND *EWGRECS 00008 * TAX DATA FOR AN EMPLOYEE *EWGRECS 00009 * *EWGRECS 00010 * - CODE S RECORD FOLLOWS THE RELATED CODE E *EWGRECS 00011 * - RECORD *EWGRECS 00012 * *EWGRECS 00013 * DATE: - 10-12-95 *EWGRECS 00014 * MODIFIED FOR YEAR 2000 RECORDS 10/08/98 BEJ *EWGRECS 00015 ******************************************************************EWGRECS 00016 EWGRECS 00017 01 WAGE-RECORD-S. EWGRECS 00018 05 S-RECORD-ID PIC X(01) VALUE 'S'. EWGRECS 00019 05 S-SSN PIC X(09). EWGRECS 00020 05 S-EMPLOYEE-INFO. EWGRECS 00021 10 S-LAST-NAME PIC X(20). EWGRECS 00022 10 S-FIRST-NAME PIC X(12). EWGRECS 00023 10 S-MIDDLE-INIT PIC X(01). EWGRECS 00024 05 S-STATE-CODE PIC X(02). EWGRECS 00025 05 S-QTR-YEAR PIC X(04). EWGRECS 00026 05 S-GROSS-WAGE PIC 9(12)V99. EWGRECS 00027 * 05 S-GROSS-WAGE PIC 9(14). EWGRECS 00028 05 S-UNEMP-WAGE PIC 9(12)V99. EWGRECS 00029 05 S-EXCESS-WAGE PIC 9(12)V99. EWGRECS 00030 05 S-TAXABLE-WAGE PIC 9(12)V99. EWGRECS 00031 05 S-DIS-TAXABLE-WAGE PIC 9(15). EWGRECS 00032 05 S-TIP-WAGE PIC 9(09). EWGRECS 00033 05 S-WEEKS-WORKED PIC X(02). EWGRECS 00034 05 S-HOURS-WORKED PIC X(03). EWGRECS 00035 05 S-DATE-FIRST-EMPL PIC X(04). EWGRECS 00036 05 S-DATE-SEPARATED PIC X(04). EWGRECS 00037 05 S-ENTITY-CODE PIC X(04) VALUE 'UTAX'. EWGRECS 00038 05 S-ACCOUNT-NO PIC X(15). EWGRECS 00039 05 S-UNIT-DIV PIC X(15). EWGRECS 00040 05 S-STATE-TAX-WAGE PIC 9(14). EWGRECS 00041 05 S-TAX-WITHHELD PIC 9(14). EWGRECS 00042 05 S-SEASONAL PIC X(02). EWGRECS 00043 05 S-EMPLOYER-INSUR PIC X(01). EWGRECS 00044 05 S-EMPLOYEE-INSUR PIC X(01). EWGRECS 00045 05 S-PROBAT-CODE PIC X(01). EWGRECS 00046 05 S-OFFICER-CODE PIC X(01). EWGRECS 00047 05 S-WAGE-PLAN-CODE PIC X(01). EWGRECS 00048 05 S-MONTH-1 PIC X(01). EWGRECS 00049 05 S-MONTH-2 PIC X(01). EWGRECS 00050 05 S-MONTH-3 PIC X(01). EWGRECS 00051 05 S-REPORTING-QTR-YR. EWGRECS 00052 10 S-REPT-MTH PIC X(02). EWGRECS 00053 10 S-REPT-CNTRY PIC X(02). EWGRECS 00054 10 S-REPT-YR PIC X(02). EWGRECS 00055 05 S-DATE-EMPLOYED PIC X(06). EWGRECS 00056 05 S-DATE-SEPARATED PIC X(06). EWGRECS 00057 05 FILLER PIC X(43). EWGRECS 00058 * 05 FILLER PIC X(61). EWGRECS