RE: Problem with OVRDBF from a RPG program

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

> From: Malchow, Grizzly
>
> Hi,
> I'm running into a little problem. Here's my code and I will
> explain the error I keep receiving.
> D CmdArray        S             63A              DIM(1) CTDATA
> D  Cmd               S             63A
> D  Len                S             15P 5
>
> C                   MOVEA     CmdArray(1)   Cmd
> C                   Z-ADD     63            Len
> C                   CALL      'QCMDEXC'
> C                   PARM                    Cmd
> C                   PARM                    Len
>
> C                   READ        FILEC
> C    FILCFLD  CHAIN        FILEA
> C                   IF              Not %FOUND(FILEA)
> C                   WRITE       FILEA
> C                   ENDIF
>
> **
> OVRDBF FILE(FILEA) TOFILE(LIBB/FILEA) SHARE(*YES)

Where are you doing the OPEN to the file?

If you let RPG open the file, the open will occur before the override is in
place, and the override will be ignored.  You have to add USROPN to your
file specification and then add an OPEN FILEA instruction after the
override.

Joe