Sorry it took so long to get back to you, I ran away for the weekend.
The steps I use are:
1. Define a file with two fields - File Name/Library Name.
File Name : VFPPFPP Library . : WAGSLIB File Type : PF
Rec. Format: VFPPFPR Rec Length: 20 # of Fields: 10
Description: Physical File Path Control
Field Type Size Key Beg End S Field Description
FPPFNAME Char 10 1 1 10 File Name
FPPFLIBR Char 10 11 20 Library
2. In your F specs, define your files as USROPN and with an EXTFILE
variable.
*File Location Control
FVFpPfpP IF E K DISK usropn
F ExtFile(XxVFpPfpP)
* Error Handling
FVEeErrP IF E K DISK usropn
F ExtFile(XxVEeErrP)
B* Program Name Master
FSPNPGMP IF E K DISK usropn
F ExtFile(XxSPnPgmP)
3. Get from your User I.D. file the proper library, Load it into the
file control variable (XxVFpPfpP) and open the file.
C eval XxVFpPfpP = <users library> +
C '/VFPPFPP'
C Open(e) VFpPfpP
4. Get residing library for desired file and open
C 'SPNPGMP' Chain VFpPfpR
C Close(e) VFpPfpP
C eval XxSpmPgmP = <FPPFLIBR> +
C '/SPNPGMP'
C Open(e) SPNPGMP
5. Do your business logic and close the file.
<Logic here>
C Close(e) SPNPGMP
Naturally there's logic to check that the file exists, and I've put
this logic in a subroute with passed variables so that it doesn't
junk up the code but I trimmed all that out and just showed the nut
of the solution.
I've used this logic for, not only multiple companies, but multiple
languages.
Hope this helps.
Dan
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get fast access to your favorite Yahoo! Groups. Make Yahoo! your home page
http://us.click.yahoo.com/dpRU5A/wUILAA/yQLSAA/wbFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Easy400Group/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
