22 lines
1.6 KiB
COBOL
22 lines
1.6 KiB
COBOL
00001 ******************************************************************02/02/05
|
|
00002 * EWGRECF - STANDARD FORMAT FOR QUARTERLY WAGE *EWGRECF
|
|
00003 * - REPORTING RECORD * LV001
|
|
00004 * - FINAL RECORD *EWGRECF
|
|
00005 * DATE: - 02-28-96 *EWGRECF
|
|
00006 ******************************************************************EWGRECF
|
|
00007 01 WAGE-RECORD-F. EWGRECF
|
|
00008 05 F-RECORD-ID PIC X(1) VALUE 'F'. EWGRECF
|
|
00009 05 F-TOT-EMPLOYEE PIC 9(10). EWGRECF
|
|
00010 05 F-TOT-EMPLOYER PIC 9(10). EWGRECF
|
|
00011 05 F-ENTITY-CODE PIC X(4) VALUE 'UTAX'. EWGRECF
|
|
00012 05 F-GROSS-WAGE PIC 9(13)V99. EWGRECF
|
|
00013 05 F-TOTAL-WAGE PIC 9(13)V99. EWGRECF
|
|
00014 05 F-EXCESS-WAGE PIC 9(13)V99. EWGRECF
|
|
00015 05 F-TAXABLE-WAGE PIC 9(13)V99. EWGRECF
|
|
00016 05 F-DIS-TAXABLE-WAGE PIC 9(13)V99. EWGRECF
|
|
00017 05 F-TIP-WAGE PIC 9(13)V99. EWGRECF
|
|
00018 05 F-MONTH-1 PIC X(8). EWGRECF
|
|
00019 05 F-MONTH-2 PIC X(8). EWGRECF
|
|
00020 05 F-MONTH-3 PIC X(8). EWGRECF
|
|
00021 05 FILLER PIC X(136). EWGRECF
|