RE: OPNQRYF fail ....

Hello Gauri,

What you are doing is combining an OPM CL program with an ILE RPG program. 
That is a recipe for problems. You could try to find out under which 
conditions they might work together, but it is probably quicker to make 
both either OPM or ILE. To make your CL program ILE: change member type to 
CLLE and compile with DFTACTGRP(*NO).

The error from CPYFRMQRYF suggests that the OPNQRYF is not executing 
properly. I should expect messages in the joblog about that.

Joep Beckeringh







"Gauri Kulkarni" <gauri.kulkarni@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
23-02-2006 13:52
Please respond to RPG programming on the AS400 / iSeries
 
        To:     "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        RE: OPNQRYF fail ....


Hello Joep,

I am not very well aware with the activation groups. Can you please tell 
me
where should I specify OVRSCOPE(*JOB) ?
Well, I am compiling the CL with normal 14 option .. whereas using CRTPGM
command with param ACTGRP(*CALLER) for RPGILE.

Another thing is, I usaually use CPYFRMQRYF command to check out whether 
the
OPNQRYF has been executed properly or not. In this case, I am getting the
error as "Open-identifier for FROMOPNID is not valid" when I try to run
CPYFRMQRYF after exec of OPNQRYF stmt.


Thanks,
Gauri.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx
Sent: Thursday, February 23, 2006 3:58 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: OPNQRYF fail ....


Hi Gauri,

Ignore the message about QAQQINI, it has nothing to do with your problem.
Most likely cause is that CL and RPG are running in different activation
groups. You could use OVRSCOPE(*JOB) for the override to quickly solve the
problem, but you should make sure both programs run in the same activation
group.

Joep Beckeringh






"Gauri Kulkarni" <gauri.kulkarni@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
23-02-2006 11:21
Please respond to RPG programming on the AS400 / iSeries

        To:     "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
        cc:
        Fax to:
        Subject:        OPNQRYF fail ....


Hello,

I am not able to execute my OPNQRYF statement properly in my program.
So the file read in RPG is the entire file and not the one with selected
records.

The JobLog is as below:

CALL J57II61
  5300 - CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)
 11700 - OVRDBF FILE(F57II6) SHARE(*YES)
 12200 - OPNQRYF FILE((F57II6)) OPTION(*ALL) QRYSLT('Z1@MVT =
  %VALUES("101" "102")')
Unable to retrieve query options file.
****************************************************************************
*************
F1 on this :

 Message ID . . . . . . :   CPI433A       Severity . . . . . . . :   00
 Message type . . . . . :   Information
 Date sent  . . . . . . :   02/23/06      Time sent  . . . . . . :
05:13:44

 Message . . . . :   Unable to retrieve query options file.
 Cause . . . . . :   Unable to retrieve the query options from member
QAQQINI
   in file QAQQINI in library QUSRSYS for reason code 2.  The reason codes
and
   their meanings follow:
     1 - Library QUSRSYS was not found.
     2 - File QAQQINI in library QUSRSYS was not found.
     3 - The file was damaged.
     4 - The file was locked by another process which prevented successful
   retrieval of the query options.
     5 - File QAQQINI and the internal query options structures are out of
   sync.
     6 - An unexpected error occurred while trying to retrieve the options

****************************************************************************
*************
Arrival sequence access was used for file F57II6.
Open of member F57II6 was changed to SEQONLY(*NO).
Member F57II6 file F57II6 in PATNIDTA opened.
Step completed at line 126


Please help on this ..


Thanks and Regards,
Gauri.




http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail.
_____________________________________________________________________
--
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.


--
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.



http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail. 
_____________________________________________________________________