|
Just wondering, what's wrong with specifying the real file name in your F Spec, it will handle the compile issue? You are doing override in the program so it should not be a problem at run time. -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of daparnin@xxxxxxxxxxxxxx Sent: Friday, September 02, 2005 12:39 PM To: RPG programming on the AS400 / iSeries Subject: Re: Override in H-Spec? I like the EXTFILE keyword that you and Charles suggested. It doesn't address the comple issue (how come?) but it would work for runtime plus it's semi-self-documenting. They can put a man on the moon but they still can't pre-define file overrides for the RPG compiler. Dave Parnin -- Nishikawa Standard Company Topeka, IN 46571 daparnin@xxxxxxxxxxxxxx Tony Carolla <carolla@xxxxxxxxx To: RPG programming on the AS400 / iSeries > <rpg400-l@xxxxxxxxxxxx> Sent by: cc: rpg400-l-bounces@m Subject: Re: Override in H-Spec? idrange.com 09/02/2005 01:59 PM Please respond to RPG programming on the AS400 / iSeries You can avoid the CL by using the EXTFILE keyword on the F-Spec. If the three files given are always in these three libraries, try: FCKDESCMS1 IF E K DISK Rename(DESCMSFM:DESCMSFM1) Prefix(S1) F ExtFile('CLOCFILE01/CKDESCMS') F UsrOpn FCKDESCMS2 IF E K DISK Rename(DESCMSFM:DESCMSFM2) Prefix(S2) F ExtFile('CLOCFILE02/CKDESCMS') F UsrOpn FCKDESCMS3 IF E K DISK Rename(DESCMSFM:DESCMSFM3) Prefix(S3) F ExtFile('CLOCFILE03/CKDESCMS') F UsrOpn You would still have to OVRDBF to compile (or create empty copies in a work library), but once compiled, the files should be found okay. On 9/2/05, daparnin@xxxxxxxxxxxxxx <daparnin@xxxxxxxxxxxxxx> wrote: > > > > > > I'm wondering if I can do the following with H-specs instead of writing a > CL program to both compile and execute a RPGLLE program. I've got the a > file with the same name in three different libraries that I want to > override to a different name within the RPG as follows: > > FCKDESCMS1 IF E K DISK Rename(DESCMSFM:DESCMSFM1) Prefix(S1) > FCKDESCMS2 IF E K DISK Rename(DESCMSFM:DESCMSFM2) Prefix(S2) > FCKDESCMS3 IF E K DISK Rename(DESCMSFM:DESCMSFM3) Prefix(S3) > > Normally I would write a CL program with the following: > > OVRDBF FILE(CKDESCMS1) TOFILE(CLOCFILE01/CKDESCMS) + > SHARE(*YES) > OVRDBF FILE(CKDESCMS2) TOFILE(CLOCFILE02/CKDESCMS) + > SHARE(*YES) > OVRDBF FILE(CKDESCMS3) TOFILE(CLOCFILE03/CKDESCMS) + > SHARE(*YES) > > Can I avoid the CL program for both compiling and execution? Thanks. > > > Dave Parnin > -- > Nishikawa Standard Company > Topeka, IN 46571 > daparnin@xxxxxxxxxxxxxx > > -- > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > -- "Enter any 11-digit prime number to continue..." "In Hebrew SQL, how do you use right() and left()?..." - Random Thought "If all you have is a hammer, all your problems begin to look like nails" -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.