38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
00001 ******************************************************************11/22/06
|
|
00002 * EWGRECT - STANDARD FORMAT FOR QUARTERLY WAGE *EWGRECT
|
|
00003 * - REPORTING RECORD * LV003
|
|
00004 * - TOTAL RECORD *EWGRECT
|
|
00005 * DATE: - 02-28-96 *EWGRECT
|
|
00006 * 12/20/2005: CHANGED T-TOT-PMT-DUE FROM 9(11) TO 9(9)V99 GD *EWGRECT
|
|
00007 ******************************************************************EWGRECT
|
|
00008 01 WAGE-RECORD-T. EWGRECT
|
|
00009 05 T-RECORD-ID PIC X(1) VALUE 'T'. EWGRECT
|
|
00010 05 T-TOT-EMPLOYEE PIC 9(7). EWGRECT
|
|
00011 05 T-ENTITY-CODE PIC X(4) VALUE 'UTAX'. EWGRECT
|
|
00012 05 T-GROSS-WAGE PIC 9(12)V99. EWGRECT
|
|
00013 05 T-TOTAL-WAGE PIC 9(12)V99. EWGRECT
|
|
00014 05 T-EXCESS-WAGE PIC 9(12)V99. EWGRECT
|
|
00015 05 T-TAXABLE-WAGE PIC 9(12)V99. EWGRECT
|
|
00016 05 T-TIP-WAGE PIC 9(11)V99. EWGRECT
|
|
00017 05 T-TAX-RATE PIC X(6). EWGRECT
|
|
00018 05 T-TAX-DUE PIC 9(11)V99. EWGRECT
|
|
00019 05 T-PREV-QTR-UNDERPMT PIC 9(09)V99. EWGRECT
|
|
00020 05 T-INTEREST PIC 9(09)V99. EWGRECT
|
|
00021 05 T-PENALTY PIC 9(09)V99. EWGRECT
|
|
00022 05 T-CREDIT-OVERPMT PIC 9(09)V99. EWGRECT
|
|
00023 05 T-EMPLOYER-ASSESS-RATE PIC X(4). EWGRECT
|
|
00024 05 T-EMPLOYER-ASSESS-AMT PIC X(11). EWGRECT
|
|
00025 05 T-EMPLOYEE-ASSESS-RATE PIC X(4). EWGRECT
|
|
00026 05 T-EMPLOYEE-ASSESS-AMT PIC 9(11). EWGRECT
|
|
00027 05 T-TOT-PMT-DUE PIC 9(09)V99. EWGRECT
|
|
00028 05 T-ALLICAT-AMT PIC 9(13). EWGRECT
|
|
00029 05 T-WAGE-SUBJECT-TAX PIC 9(14). EWGRECT
|
|
00030 05 T-TAX-WITH-HELD PIC 9(14). EWGRECT
|
|
00031 05 T-MONTH-1 PIC X(7). EWGRECT
|
|
00032 05 T-MONTH-2 PIC X(7). EWGRECT
|
|
00033 05 T-MONTH-3 PIC X(7). EWGRECT
|
|
00034 05 T-CNTY-CODE PIC X(3). EWGRECT
|
|
00035 05 T-CNTY-EMPLOYEE PIC X(7). EWGRECT
|
|
00036 05 T-DOC-CNTRL-NO PIC X(10). EWGRECT
|
|
00037 05 FILLER PIC X(8). EWGRECT
|