DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
28
Copybook/DTSIXTRO.cpy
Normal file
28
Copybook/DTSIXTRO.cpy
Normal file
@ -0,0 +1,28 @@
|
||||
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
|
||||
Reference in New Issue
Block a user