On 18 Dec 2012 13:19, Stone, Joel wrote:
I have a CL pgm with the following:
Ovrdbf &fileIN &libIN/&fileIN
...
rtvmbrd &fileIN nbrcurrcd(&Nrecs)
When run, it seems to do the RTVMBRD using the *LIBL, and ignores
the OVRDBF. Is this possible?
The RTVMBRD does not honor overrides. And there is no option to ask
the Retrieve Member Description to honor overrides :-(
The simplest resolution for the given example is to just use &libIN
in place of *LIBL for the Library portion of the qualified FILE() name;
assuming nothing about what is effected in place of the ellipses would
prevent that as resolution.
Either of the following APIs can be used to implement what is
desired. The first can directly replace the RTVMBRD CL and the second
could get the values to specify for both parts of the qualified name on
FILE() and the name on the MBR() parameter if the member name might also
be overridden:
_i Retrieve Member Description (QUSRMBRD) API i_
http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/topic/apis/qusrmbrd.htm
"Retrieve Member Description (QUSRMBRD) API
Required Parameter Group:
1 Receiver variable Output Char(*)
2 Length of receiver variable Input Binary(4)
3 Format name Input Char(8)
4 Qualified database file name Input Char(20)
5 Database member name Input Char(10)
6 Override processing Input Char(1)
Optional Parameter Group 1:
7 Error code I/O Char(*)
Optional Parameter Group 2:
8 Find member processing Input Char(1)
Default Public Authority: *USE
Threadsafe: Conditional; see Usage Notes.
The Retrieve Member Description (QUSRMBRD) API retrieves specific
information about a single database file member and returns the
information to the calling program in a receiver variable. The length of
the receiver variable determines the amount of data returned. ...
...
Override processing
INPUT; CHAR(1)
Whether overrides are to be processed. The possible values are:
0 Overrides are not processed
1 Overrides are processed
...
"
Note: If the library name for the qualified TOFILE() specification,
the value for &libIN is the special value *LIBL, the the choice or
default for "Find member processing" when using the above API should be
considered for its effect as well.
_i Retrieve File Override Information (QDMRTVFO) API i_
http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/topic/apis/qdmrtvfo.htm
" Required Parameter Group:
1 Returned override information Output Char(*)
2 Length of override information Input Binary(4)
3 Format name Input Char(8)
4 File name Input Char(10)
5 Error code I/O Char(*)
Default Public Authority: *EXCLUDE
Threadsafe: Yes
The Retrieve File Override Information (QDMRTVFO) API returns the name
of the file, library, member and final type of override that result from
processing TOFILE or MBR overrides for the user specified file name. ..."
midrange.com
