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