20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
00001 ***** 11/10/99
|
|
00002 * DTSITEDO
|
|
00003 * DTSITEDO RECORD FORMAT TAX AND ECON. DEVEL. EXTRACT. LV008
|
|
00004 * DTSITEDO
|
|
00005 ***** DTSITEDO
|
|
00006 05 TEDO-DATA. CL**7
|
|
00007 10 TEDO-EMP-ACCT-NO PIC S9(07) COMP-3. CL**7
|
|
00008 10 TEDO-YRQ PIC S9(05) COMP-3. CL**7
|
|
00009 10 TEDO-FEIN PIC S9(09) COMP-3. CL**7
|
|
00010 10 TEDO-SIC-CD PIC X(04). CL**7
|
|
00011 10 TEDO-NAICS-CD PIC X(06). CL**7
|
|
00012 10 TEDO-BUSINESS-TAX-ACCT-NO PIC S9(09) COMP-3. CL**7
|
|
00013 10 TEDO-RPT-DUE-DATE PIC S9(09) COMP-3. CL**7
|
|
00014 10 TEDO-TOT-WAGE PIC S9(11)V9(02) COMP-3. CL**7
|
|
00015 10 TEDO-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. CL**7
|
|
00016 10 TEDO-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. CL**7
|
|
00017 10 TEDO-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. CL**7
|
|
00018 * 10 TEDO-TOTAL-EMPL-CNT PIC S9(07) COMP-3. CL**8
|
|
00019 10 FILLER PIC X(04). CL**8
|