DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
28
Copybook/EWGRECB.cpy
Normal file
28
Copybook/EWGRECB.cpy
Normal file
@ -0,0 +1,28 @@
|
||||
00001 ******************************************************************02/02/05
|
||||
00002 * EWGRECB - STANDARD FORMAT FOR QUARTERLY WAGE *EWGRECB
|
||||
00003 * - REPORTING RECORD * LV001
|
||||
00004 * - AUTHORIZATION RECORD *EWGRECB
|
||||
00005 * DATE: - 02-27-96 *EWGRECB
|
||||
00006 ******************************************************************EWGRECB
|
||||
00007 01 WAGE-RECORD-B. EWGRECB
|
||||
00008 05 B-RECORD-ID PIC X(1) VALUE 'B'. EWGRECB
|
||||
00009 05 B-YEAR PIC X(4). EWGRECB
|
||||
00010 05 B-FEDERAL-EIN PIC 9(9). EWGRECB
|
||||
00011 05 B-COMPUTER PIC X(8). EWGRECB
|
||||
00012 05 B-INTERN-LABEL PIC X(2). EWGRECB
|
||||
00013 05 FILLER PIC X(1). EWGRECB
|
||||
00014 05 B-DENSITY PIC X(2). EWGRECB
|
||||
00015 05 B-RECORD-CODE PIC X(3). EWGRECB
|
||||
00016 05 B-TRACKS PIC X(2). EWGRECB
|
||||
00017 05 B-BLOCK-FACTOR PIC X(2). EWGRECB
|
||||
00018 05 B-ENTITY-CODE PIC X(4) VALUE 'UTAX'. EWGRECB
|
||||
00019 05 FILLER PIC X(108). EWGRECB
|
||||
00020 05 B-ORGANIZ-INFO. EWGRECB
|
||||
00021 10 B-NAME PIC X(44). EWGRECB
|
||||
00022 10 B-STREET PIC X(35). EWGRECB
|
||||
00023 10 B-CITY PIC X(20). EWGRECB
|
||||
00024 10 B-STATE PIC X(2). EWGRECB
|
||||
00025 10 FILLER PIC X(5). EWGRECB
|
||||
00026 10 B-ZIP-CODE PIC X(5). EWGRECB
|
||||
00027 10 B-ZIP-CODE-EXT PIC X(5). EWGRECB
|
||||
00028 05 FILLER PIC X(13). EWGRECB
|
||||
Reference in New Issue
Block a user