29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
00001 ***** 11/18/05
|
|
00002 * DTSIXTRO
|
|
00003 * DTSIXTRO TAX AND REVENUE EMPLOYER OUTPUT FILE LV001
|
|
00004 * DTSIXTRO
|
|
00005 * DTSIXTRO
|
|
00006 * 01/11/2005 INITIAL DEVELOPMENT. GD DTSIXTRO
|
|
00007 * DTSIXTRO
|
|
00008 ***** DTSIXTRO
|
|
00009 DTSIXTRO
|
|
00010 10 XTRO-FEIN PIC 9(09). DTSIXTRO
|
|
00011 10 XTRO-EMP-NO PIC 9(06). DTSIXTRO
|
|
00012 10 XTRO-SOURCE PIC X(01). DTSIXTRO
|
|
00013 88 XTRO-SOURCE-DOES-88 VALUE '0'. DTSIXTRO
|
|
00014 88 XTRO-SOURCE-NEWHIRE-88 VALUE '1'. DTSIXTRO
|
|
00015 88 XTRO-SOURCE-OTR-88 VALUE '2'. DTSIXTRO
|
|
00016 10 XTRO-EMP-NAME PIC X(70). DTSIXTRO
|
|
00017 10 XTRO-ADDRESS-1. DTSIXTRO
|
|
00018 20 XTRO-STREET-1 PIC X(60). DTSIXTRO
|
|
00019 20 XTRO-CITY-1 PIC X(20). DTSIXTRO
|
|
00020 20 XTRO-STATE-1 PIC X(02). DTSIXTRO
|
|
00021 20 XTRO-ZIP-1 PIC X(10). DTSIXTRO
|
|
00022 10 XTRO-PHONE-1 PIC X(10). DTSIXTRO
|
|
00023 10 XTRO-ADDRESS-2. DTSIXTRO
|
|
00024 20 XTRO-STREET-2 PIC X(60). DTSIXTRO
|
|
00025 20 XTRO-CITY-2 PIC X(20). DTSIXTRO
|
|
00026 20 XTRO-STATE-2 PIC X(02). DTSIXTRO
|
|
00027 20 XTRO-ZIP-2 PIC X(10). DTSIXTRO
|
|
00028 10 XTRO-PHONE-2 PIC X(10). DTSIXTRO
|