35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
00001 ***** 02/04/99
|
|
00002 * DTSIR705
|
|
00003 * DTSIR705 FUTA FAILED CERTIFICATIONS REPORT RECORD. LV003
|
|
00004 * CL**2
|
|
00005 * CL**2
|
|
00006 * 02/04/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**3
|
|
00007 * CL**2
|
|
00008 ***** CL**2
|
|
00009 CL**2
|
|
00010 10 R705-LENGTH PIC S9(04) COMP. CL**2
|
|
00011 CL**2
|
|
00012 10 R705-SORT-AREA. CL**2
|
|
00013 15 R705-REC-TYPE PIC X(03) VALUE '705'. CL**2
|
|
00014 15 R705-FEIN PIC S9(09) COMP-3. CL**2
|
|
00015 15 R705-TAX-YEAR-MONTH. CL**2
|
|
00016 20 R705-TAX-YEAR PIC 9(04). CL**2
|
|
00017 20 R705-TAX-MONTH PIC 9(02). CL**2
|
|
00018 CL**2
|
|
00019 10 R705-DATA-AREA. CL**2
|
|
00020 15 R705-EMP-NO PIC S9(07) COMP-3. CL**2
|
|
00021 15 R705-ADDRESS-AREA. CL**2
|
|
00022 20 R705-ZIP-CODE PIC X(12). CL**2
|
|
00023 20 R705-STATE PIC X(02). CL**2
|
|
00024 20 R705-CITY PIC X(25). CL**2
|
|
00025 20 R705-STREET-ADDR PIC X(35). CL**2
|
|
00026 20 R705-NAME1 PIC X(35). CL**2
|
|
00027 20 R705-NAME2 PIC X(35). CL**2
|
|
00028 20 R705-NAME3 PIC X(35). CL**2
|
|
00029 20 R705-NAME4 PIC X(35). CL**2
|
|
00030 15 R705-XREF-FEIN PIC S9(09) COMP-3. CL**2
|
|
00031 15 R705-NAME-CONTROL PIC X(04). CL**2
|
|
00032 15 R705-MSG-TEXT. CL**2
|
|
00033 20 R705-MSG-TEXT-1 PIC X(40). CL**2
|
|
00034 20 R705-MSG-TEXT-2 PIC X(40). CL**2
|