RE: Member Override in V5R1

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Yes and no.
You can override to a member name in V5R1 using the EXTMBR keyword on
the File specification.
For example:

 FCustMast    IF    E           DISK       ExtMbr('DIV6')

Cause member DIV6 to be opened when the program is started.

There is also the EXTFILE keyword. It is used like this:

 FCustMast    IF    E           DISK       ExtFile('MIDWEST/CUSTMAST')

This opens the CUSTMAST file in the MIDWEST library.
You can also use the two keywords together, like this:

 FCustMast    IF    E           DISK       ExtFile('MIDWEST/CUSTMAST')
 F                                         ExtMbr('DIV6')


In addition, both keywords support the ability to specify a field name
in place of the literal file name. For example:

 FCustMast    IF    E           DISK       ExtFile(custfile) USROPN
 F                                         ExtMbr(custmbr)

 D CustFile       S            21A
 D CustMbr        S            10A


 CSR         *INZSR      BEGSR
 C                       Eval      CustFile = 'MIDWEST/CUSTMAST'
 C                       Eval      CustMbr = 'DIV6'
 C                       Open      CUSTMAST
 CSR                     ENDSR


Note the use of the USROPN keyword. If you forget that keyword, you'll
get a runtime error as the RPG cycle attempts to open the file before a
file and member name are assigned. Also, the *INZSR subroutine is used
to set the values of the fields used by the keywords. *INZSR is run
_after_ the files are open, so you really do need the USROPN keyword and
the OPEN opcode to make this work.

Okay, so that's the YES answer. The NO answer is that those are the only
things you can override within RPG IV without the OVRDBF keyword.

Hope this helps.

Bob
www.rpgiv.com/seminars


-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of JJW
Sent: Wednesday, August 21, 2002 9:47 AM
To: rpg400-l@midrange.com
Subject: Member Override in V5R1


Hello

Is it now possible to override to a specific member of a physical file
in V5R1 by just using the F-Spec?

If so can someone please supply an example.

TIA
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.