32 lines
2.4 KiB
COBOL
32 lines
2.4 KiB
COBOL
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
|