20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
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
|