30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 06/29/02
|
|
00002 * DTSIR317
|
|
00003 * DTSIR317 TAXABLE WAGE ERROR LETTER TO EMPLOYER LV001
|
|
00004 * REPORT RECORDS. DTSIR317
|
|
00005 * DTSIR317
|
|
00006 * DTSIR317
|
|
00007 * 04/22/2002 INITIAL DEVELOPMENT. GD DTSIR317
|
|
00008 * DTSIR317
|
|
00009 ***** DTSIR317
|
|
00010 DTSIR317
|
|
00011 10 R317-LENGTH PIC S9(04) COMP. DTSIR317
|
|
00012 DTSIR317
|
|
00013 10 R317-SORT-AREA. DTSIR317
|
|
00014 15 R317-REC-TYPE PIC X(03). DTSIR317
|
|
00015 15 R317-EMP-NO PIC S9(07) COMP-3. DTSIR317
|
|
00016 15 R317-YRQ PIC S9(05) COMP-3. DTSIR317
|
|
00017 DTSIR317
|
|
00018 10 R317-DATA-AREA. DTSIR317
|
|
00019 15 R317-MAIL-DATE PIC S9(09) COMP-3. DTSIR317
|
|
00020 15 R317-REPORTED-TAX-WAGE PIC S9(09)V9(02) COMP-3.DTSIR317
|
|
00021 15 R317-CALC-TAX-WAGE PIC S9(09)V9(02) COMP-3.DTSIR317
|
|
00022 15 R317-UI-TAX-DUE PIC S9(09)V9(02) COMP-3.DTSIR317
|
|
00023 15 R317-REMIT-AMT PIC S9(09)V9(02) COMP-3.DTSIR317
|
|
00024 15 R317-FMT-ADDR. DTSIR317
|
|
00025 20 R317-FMT-LINE OCCURS 5 TIMES DTSIR317
|
|
00026 INDEXED BY R317-FMT-IDX DTSIR317
|
|
00027 PIC X(40). DTSIR317
|
|
00028 15 R317-ZIP PIC X(10). DTSIR317
|
|
00029 15 R317-ADVANCED-BARCODE PIC X(14). DTSIR317
|