RE: Override problem -- RPG400-L

Jeff,

Off the top of my head, it sounds as if there is a difference between the
two systems in the call level used for the override.

Check that the program is created with the same activation group parms on
both systems.  Also, check that the default for the OVRSCOPE parm of the
OVRDBF command is the same on both systems.


HTH,
Charles
 

> -----Original Message-----
> From: Jeff Markel [mailto:JMarkel@xxxxxxxxxx]
> Sent: Tuesday, September 07, 2004 1:50 PM
> To: 'Midrange RPG/400 mailing list'
> Cc: Jeff Haddix; Kenneth Seeber; David Tilbrook; Blake Kennedy; Don
> LaLiberte
> Subject: Override problem
> 
> 
> I am having a problem with an override data base operation. My file is
> internally defined:
> 
>       FInfile    if   f10000     5aiDisk    Infds(Dsfile) Usropn    
> 
> In the program I override to the desired file:
> 
>        * Override and open file
> 
>       C                   Eval      %subst(Cmdovr:23:21) = 
> %Trimr(Lib) +
> '/' +    
>       C                             File
> 
>       
> 
>       C                   Call      'QCMDEXC'
> 
>       C                   Parm                    CmdOvr
> 
>       C                   Parm                    CmdLen
> 
>       
> 
>       C                   Open      InFile
> 
> 
> When I run this on our development box, everything is fine. 
> However, when I
> run this on our production box, I receive the following error:
> 
>       Message ID . . . . . . :                CPF4101
> Severity . . . . . . . :              40              
>       Message type . . . . . :                Escape
> 
>       Date sent  . . . . . . :   09/07/04      Time sent  . . 
> . . . . :
> 10:27:24   
>       
> 
>       Message . . . . :   File  in library  not found or 
> inline data file
> missing.   
>       Cause . . . . . :   The file was not opened.  The 
> reason code is 01.
> The       
>         reason codes and their meanings are as follows:
> 
>           01 - THE LIBRARY DOES NOT EXIST.
> 
> 
> The file and library do exist, there aren't any typos, the 
> override command
> is correctly executed, displaying active overrides shows InFile being
> overridden to the correct file.
> 
> If I call the program and specify *LIBL for the library, I 
> receive the exact
> same error message. If it said "file not found" I would 
> understand. But how
> can *LIBL generate this error?!
> 
> Any help would be appreciated.
> /jam
> 
> Jeff Markel                                           
> Developer, Information Access
> IBM Certified Specialist - iSeries RPG IV Developer
> Costco Wholesale Corporate Office
> Issaquah, Washington
> 
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>