34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 11/18/05
|
|
00002 * DTSIXTRI
|
|
00003 * DTSIXTRI TAX AND REVENUE EMPLOYER INPUT FILE LV001
|
|
00004 * DTSIXTRI
|
|
00005 * DTSIXTRI
|
|
00006 * 01/11/2005 INITIAL DEVELOPMENT. GD DTSIXTRI
|
|
00007 * DTSIXTRI
|
|
00008 ***** DTSIXTRI
|
|
00009 DTSIXTRI
|
|
00010 10 XTRI-EMP-NAME PIC X(70). DTSIXTRI
|
|
00011 10 FILLER PIC X(49). DTSIXTRI
|
|
00012 10 XTRI-TAX-TYPE PIC X(10). DTSIXTRI
|
|
00013 88 XTRI-TAX-TYPE-PROP-88 VALUE 'PERS PROP'. DTSIXTRI
|
|
00014 10 FILLER PIC X(32). DTSIXTRI
|
|
00015 10 XTRI-FEIN PIC X(09). DTSIXTRI
|
|
00016 10 XTRI-FEIN-9 REDEFINES XTRI-FEIN PIC 9(09). DTSIXTRI
|
|
00017 10 FILLER PIC X(03). DTSIXTRI
|
|
00018 10 XTRI-FEIN-SSN-CD PIC X(04). DTSIXTRI
|
|
00019 88 XTRI-FEIN-88 VALUE ' EIN'. DTSIXTRI
|
|
00020 10 XTRI-ADDRESS-1. DTSIXTRI
|
|
00021 20 XTRI-STREET-1 PIC X(60). DTSIXTRI
|
|
00022 20 XTRI-CITY-1 PIC X(20). DTSIXTRI
|
|
00023 20 XTRI-STATE-1 PIC X(02). DTSIXTRI
|
|
00024 20 XTRI-ZIP-1 PIC X(10). DTSIXTRI
|
|
00025 10 FILLER PIC X(70). DTSIXTRI
|
|
00026 10 XTRI-ADDRESS-2. DTSIXTRI
|
|
00027 20 XTRI-STREET-2 PIC X(60). DTSIXTRI
|
|
00028 20 XTRI-CITY-2 PIC X(20). DTSIXTRI
|
|
00029 20 XTRI-STATE-2 PIC X(02). DTSIXTRI
|
|
00030 20 XTRI-ZIP-2 PIC X(10). DTSIXTRI
|
|
00031 10 FILLER PIC X(241). DTSIXTRI
|
|
00032 10 XTRI-PHONE PIC X(10). DTSIXTRI
|
|
00033 10 FILLER PIC X(05). DTSIXTRI
|