× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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




As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.