59 lines
4.5 KiB
COBOL
59 lines
4.5 KiB
COBOL
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
|