Re: OPNQRYF does not seem to be working

Nick_Runnalls@burmahcastrol.com wrote:
> 
> I have the following CL Program
> 
>              OVRDBF      LABCMPL1 SHARE(*YES)
> 
>              OPNQRYF    FILE((LABCMPL1)) OPTION(*INP) +
>                           QRYSLT(&QRYSEL) KEYFLD(*FILE)
> /*           CPYFRMQRYF FROMOPNID(LABCMPL1) TOFILE(QTEMP/LABCMP) +
>                           CRTFILE(*YES)  */
> 
> It is selecting no records in the RPG IV program (LBK0UPR).
> 
> If the commented out CPYFRMQRYF statements are run the data is selected 
>correctly in those files. Ihave tried using POSDBF
> 
> It does not help.
> 
> I have been through the archives and others are hinting at these problems. 
>The access paths were already shared open and i have tried removing the OVRDBF 
> commands none of it seems to make a diffrence. Am I going Mad. I have used 
>OPNQRYF much in the past, but with RPG III or 400 whatever
> 
> Anyone solved this

So, your program is ILE? What activation group is it running in? If it
runs anything but the *CALLER's activation group (which should be
default if the CL is OPM) then the overrides occur for the call level
and not across the activation groups.

If you change the OPNSCOPE to *JOB and the program works, then that is
probably your problem.

If I am not mistaken, you can only get the ILE program to run in the
*CALLER's activation group if you create the module and program as
separate steps.

-- 
===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified AS/400 Professional System Administrator
 -- IBM Certified AS/400 Professional Network Administrator

"The sum of all human knowledge is a fixed constant.
    It's the population that keeps growing!"
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---