Re: Member Override in V5R1

["JJW" <rpgilejjw@xxxxxxxxxxx>]

Great answer Bob...this helps me out tremendously!!!


On Wed, 21 Aug 2002 10:03:24 -0500
  "Bob Cozzi" <cozzi@rpgiv.com> wrote:
>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.
>
>
>
>_______________________________________________
>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.
>

<TEXTAREA NAME="Signature" ROWS="4" COLS="60"><TEXTAREA
NAME="Signature" ROWS="4" COLS="60">