Re: Override in H-Spec?

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.
> 
>