29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
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
|