35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
00001 ***** 05/03/13
|
|
00002 * DTSIR316
|
|
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV002
|
|
00004 * REPORT RECORDS. DTSIR316
|
|
00005 * DTSIR316
|
|
00006 * DTSIR316
|
|
00007 * 12/18/1998 CREATED FOR DC. EHH. DTSIR316
|
|
00008 * DTSIR316
|
|
00009 ***** DTSIR316
|
|
00010 DTSIR316
|
|
00011 10 R316-LENGTH PIC S9(04) COMP. DTSIR316
|
|
00012 DTSIR316
|
|
00013 10 R316-SORT-AREA. DTSIR316
|
|
00014 15 R316-REC-TYPE PIC X(03). DTSIR316
|
|
00015 15 R316-EMP-NO PIC S9(07) COMP-3. DTSIR316
|
|
00016 15 R316-YRQ PIC S9(05) COMP-3. DTSIR316
|
|
00017 DTSIR316
|
|
00018 10 R316-DATA-AREA. DTSIR316
|
|
00019 15 R316-EMP-FILING PIC X(01). CL**2
|
|
00020 88 R316-QTR-FILING-88 VALUE 'Q'. CL**2
|
|
00021 88 R316-ANN-FILING-88 VALUE 'A'. CL**2
|
|
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. DTSIR316
|
|
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
|
00024 15 R316-SUR-TAX-CHARGED-AMT DTSIR316
|
|
00025 PIC S9(09)V9(02) COMP-3.DTSIR316
|
|
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
|
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
|
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3.DTSIR316
|
|
00029 15 R316-FMT-ADDR. DTSIR316
|
|
00030 20 R316-FMT-LINE OCCURS 5 TIMES DTSIR316
|
|
00031 INDEXED BY R316-FMT-IDX DTSIR316
|
|
00032 PIC X(40). DTSIR316
|
|
00033 15 R316-ZIP PIC X(10). DTSIR316
|
|
00034 15 R316-ADVANCED-BARCODE PIC X(14). DTSIR316
|