× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



FWiW: While overrides supersede what is specified in name for the action of /open/, as managed by the Common Data Management, whether the /extract/ of the definition of a file honors the override is function-specific; i.e. a compiler [and other applications] have a choice of how to implement, whether or not the override effects redirection to the overridden-to named file for retrieving the file definition. The implementation for EXTDESC could have just as easily been done without redirect as with; or perhaps even have been coded to give the choice of whether overrides would be honored. See for example, the Retrieve Database File Description (QDBRTVFD) API for a parameter offering the choice of whether to honor overrides.

-- Regards, Chuck

On 03-Jun-2015 05:38 -0600, Buck Calabro wrote:
Overrides supersede, or, well, override the specified settings. The
RPG source code specified PRDLIB but the override says 'Hey, ignore
whatever the other guy tells you. I'm telling you to use *LIBL' So
when the compiler goes looking for MYFILE, the override forces its
hand, it looks in *LIBL and MYFILE isn't there.
--buck

On 3 June 2015 at 07:32, Doug Davie wrote:
Thanks Buck.
There is an override, and that's what causes the RNF2120 in the
compile.

So now the question is why?


I've broken it down to this simple test case.
I put this in a CLLE:

ADDLIBLE PRDLIB
OVRDBF FILE(MYFILE) TOFILE(*LIBL/MYFILE)
RMVLIBLE PRDLIB
CRTBNDRPG PGM(DEVLIB/MYPGM) SRCFILE(DEVLIB/QRPGLESRC) SRCMBR(MYPGM)

where:

DEVLIB/QRPGLESRC(MYPGM) uses
DCL-F MYFILE DISK(*EXT) USAGE(*INPUT) KEYED
EXTDESC('PRDLIB/MYFILE') EXTFILE(*EXTDESC);

When I call the CLLE, I receive the RNF2120 in the compile.

So, I can understand that if I have an override to MYFILE in *LIBL,
and try to use MYFILE when it is not in the *LIBL I would get a
file not found condition.
BUT!
Shouldn't EXTDESC('PRDLIB/MYFILE') trump the override?

I would expect EXTDESC('*LIBL/MYFILE') or EXTDESC('MYFILE') to
cause the RNF2120.
But here I specifically indicate PRDLIB, and would expect the file
to be found regardless of any overrides.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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 copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.