DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
37
Copybook/EWGRECE.cpy
Normal file
37
Copybook/EWGRECE.cpy
Normal file
@ -0,0 +1,37 @@
|
||||
00001 ******************************************************************02/02/05
|
||||
00002 * EWGRECE - STANDARD FORMAT FOR QUARTERLY WAGE *EWGRECE
|
||||
00003 * - REPORTING RECORD * LV001
|
||||
00004 * - EMPLOYER RECORD (MODIFIED 02-27-96 *EWGRECE
|
||||
00005 * DATE: - 02-27-96 *EWGRECE
|
||||
00006 ******************************************************************EWGRECE
|
||||
00007 01 WAGE-RECORD-E. EWGRECE
|
||||
00008 05 E-RECORD-ID PIC X(1) VALUE 'E'. EWGRECE
|
||||
00009 05 E-YEAR PIC X(4). EWGRECE
|
||||
00010 05 E-FEDERAL-EIN PIC 9(9). EWGRECE
|
||||
00011 05 FILLER PIC X(9). EWGRECE
|
||||
00012 05 EMPLOYER-INFO. EWGRECE
|
||||
00013 10 E-NAME PIC X(50). EWGRECE
|
||||
00014 10 E-STREET PIC X(40). EWGRECE
|
||||
00015 10 E-CITY PIC X(25). EWGRECE
|
||||
00016 10 E-STATE PIC X(2). EWGRECE
|
||||
00017 10 FILLER PIC X(8). EWGRECE
|
||||
00018 10 E-ZIP-CODE-EXT PIC X(5). EWGRECE
|
||||
00019 10 E-ZIP-CODE PIC X(5). EWGRECE
|
||||
00020 05 FILLER PIC X(1). EWGRECE
|
||||
00021 05 E-TYPE-EMPLOYMT PIC X(1). EWGRECE
|
||||
00022 05 E-BLOCK-FACTOR PIC X(2). EWGRECE
|
||||
00023 05 E-EST-COV-GROUP PIC X(4). EWGRECE
|
||||
00024 05 E-ENTITY-CODE PIC X(4) VALUE 'UTAX'. EWGRECE
|
||||
00025 05 E-STATE-CODE PIC X(2). EWGRECE
|
||||
00026 05 E-ACCOUNT-NO PIC X(15). EWGRECE
|
||||
00027 05 E-REPORT-PERIOD PIC 9(2). EWGRECE
|
||||
00028 05 E-WORKER-WAGE PIC 9(1). EWGRECE
|
||||
00029 05 E-TYPE-CODE PIC X(1). EWGRECE
|
||||
00030 05 E-TAX-ENTITY-CODE PIC X(5). EWGRECE
|
||||
00031 05 E-STATE-CONTROL PIC X(7). EWGRECE
|
||||
00032 05 E-UNIT-NO PIC X(5). EWGRECE
|
||||
00033 05 FILLER PIC X(47). EWGRECE
|
||||
00034 05 E-FOREIGN PIC X(1). EWGRECE
|
||||
00035 05 FILLER PIC X(1). EWGRECE
|
||||
00036 05 E-OTHER-EIN PIC X(9). EWGRECE
|
||||
00037 05 FILLER PIC X(9). EWGRECE
|
||||
Reference in New Issue
Block a user