DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
Copybook/DTSIXVEM.cpy
Normal file
19
Copybook/DTSIXVEM.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 11/18/05
|
||||
00002 * DTSIXVEM
|
||||
00003 * DTSIXVEM EMPLOYER DATA FILE FOR VOS. LV001
|
||||
00004 * DTSIXVEM
|
||||
00005 * DTSIXVEM
|
||||
00006 * 01/11/2005 INITIAL DEVELOPMENT. GD DTSIXVEM
|
||||
00007 * DTSIXVEM
|
||||
00008 ***** DTSIXVEM
|
||||
00009 DTSIXVEM
|
||||
00010 10 XVEM-FEIN PIC 9(09). DTSIXVEM
|
||||
00011 10 FILLER PIC X(01) VALUE ','. DTSIXVEM
|
||||
00012 10 XVEM-EMP-NO PIC X(06). DTSIXVEM
|
||||
00013 10 FILLER PIC X(01) VALUE ','. DTSIXVEM
|
||||
00014 10 XVEM-EMP-NAME PIC X(70). DTSIXVEM
|
||||
00015 10 FILLER PIC X(01) VALUE ','. DTSIXVEM
|
||||
00016 10 XVEM-SOURCE PIC X(01). DTSIXVEM
|
||||
00017 88 XVEM-SOURCE-DOES-88 VALUE '0'. DTSIXVEM
|
||||
00018 88 XVEM-SOURCE-NEWHIRE-88 VALUE '1'. DTSIXVEM
|
||||
00019 88 XVEM-SOURCE-OTR-88 VALUE '2'. DTSIXVEM
|
||||
Reference in New Issue
Block a user