DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
31
Copybook/EWGRECA.cpy
Normal file
31
Copybook/EWGRECA.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ******************************************************************05/02/12
|
||||
00002 * EWGRECA - STANDARD FORMAT FOR QUARTERLY WAGE *EWGRECA
|
||||
00003 * - REPORTING RECORD * LV003
|
||||
00004 * - TRANSMITTER RECORD *EWGRECA
|
||||
00005 * DATE: - 02-27-96 *EWGRECA
|
||||
00006 ******************************************************************EWGRECA
|
||||
00007 01 WAGE-RECORD-A. EWGRECA
|
||||
00008 05 A-RECORD-ID PIC X(1) VALUE 'A'. EWGRECA
|
||||
00009 05 A-YEAR PIC X(4). EWGRECA
|
||||
00010 05 A-FEDERAL-EIN PIC 9(9). EWGRECA
|
||||
00011 05 A-ENTITY-CODE PIC X(4) VALUE 'UTAX'. EWGRECA
|
||||
00012 05 A-FILLER PIC X(5). EWGRECA
|
||||
00013 05 EMPLOYER-INFO. EWGRECA
|
||||
00014 10 A-NAME PIC X(50). EWGRECA
|
||||
00015 10 A-STREET PIC X(40). EWGRECA
|
||||
00016 10 A-CITY PIC X(25). EWGRECA
|
||||
00017 10 A-STATE PIC X(2). EWGRECA
|
||||
00018 10 FILLER PIC X(13). EWGRECA
|
||||
00019 10 A-ZIP-CODE PIC X(5). EWGRECA
|
||||
00020 10 A-ZIP-CODE-EXT PIC X(5). EWGRECA
|
||||
00021 05 A-CONTACT PIC X(30). EWGRECA
|
||||
00022 05 A-CONTACT-PHONE PIC X(10). EWGRECA
|
||||
00023 05 A-PHONE-BOX PIC X(4). EWGRECA
|
||||
00024 05 A-TAPE-AUTHOR PIC X(6). EWGRECA
|
||||
00025 05 A-C3-DATA PIC X(1). EWGRECA
|
||||
00026 05 A-SUFFIX-CODE PIC X(5). EWGRECA
|
||||
00027 05 A-ALLOCAT-LIST PIC X(1). EWGRECA
|
||||
00028 05 A-AGENT-ID PIC X(9). EWGRECA
|
||||
00029 05 A-REMITT-AMOUNT PIC X(13). EWGRECA
|
||||
00030 05 A-MEDIA-DATE PIC X(8). EWGRECA
|
||||
00031 05 A-LOG-REMIT PIC X(25). EWGRECA
|
||||
Reference in New Issue
Block a user