26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 11/18/05
|
|
00002 * DTSIXVAD
|
|
00003 * DTSIXVAD EMPLOYER ADDRESS FILE FOR VOS. LV001
|
|
00004 * DTSIXVAD
|
|
00005 * DTSIXVAD
|
|
00006 * 01/11/2005 INITIAL DEVELOPMENT. GD DTSIXVAD
|
|
00007 * DTSIXVAD
|
|
00008 ***** DTSIXVAD
|
|
00009 DTSIXVAD
|
|
00010 10 XVAD-FEIN PIC 9(09). DTSIXVAD
|
|
00011 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00012 10 XVAD-SOURCE PIC X(01). DTSIXVAD
|
|
00013 88 XVAD-SOURCE-DOES-88 VALUE '0'. DTSIXVAD
|
|
00014 88 XVAD-SOURCE-NEWHIRE-88 VALUE '1'. DTSIXVAD
|
|
00015 88 XVAD-SOURCE-OTR-88 VALUE '2'. DTSIXVAD
|
|
00016 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00017 10 XVAD-STREET PIC X(60). DTSIXVAD
|
|
00018 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00019 10 XVAD-CITY PIC X(25). DTSIXVAD
|
|
00020 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00021 10 XVAD-STATE PIC X(02). DTSIXVAD
|
|
00022 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00023 10 XVAD-ZIP PIC X(10). DTSIXVAD
|
|
00024 10 FILLER PIC X(01) VALUE ','. DTSIXVAD
|
|
00025 10 XVAD-PHONE PIC X(15). DTSIXVAD
|