RE: OPNQRYF - how to ensure PGMA uses the access path set up by OPNQRYF

Hey this could work - I will give it a try. Thanks!!

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Wednesday, December 12, 2012 3:51 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: OPNQRYF - how to ensure PGMA uses the access path set up by OPNQRYF

On 12 Dec 2012 14:06, Stone, Joel wrote:

In the CL below, PGMA is not reading the path built by OPNQRYF.
Instead it is reading physical file JRNFL.

How can I get my PGMA to use the OPNQRYF created path (without using
CPYFRMQRYF due to large record volume)


clof jrnfl
OVRDBF FILE(JRNFL) SHARE(*YES)
OPNQRYF FILE((JOESD *FIRST *ONLY) (JRNTEMPLAT *FIRST +
*ONLY)) FORMAT(JRNFL) JORDER(*FILE) +
MAPFLD((JOESD '1/joesd' *CALC *N *N +
*CALC)) OPNID(JRNFL)
call PGMA
clof jrnfl


COBOL PGMA file def:
select JRNFL assign to database-JRNFL.

The PGMA refers to the ODP for file name JRNFL but the OPNQRYF opens
and thus would want to share an ODP for file name JOESD. I believe the
following will work; having moved the Override to Database File request
after the Open Query File request [so as not to muck with the FORMAT()
spec] and having established the /connection/ to the file name JOESD for
the PGMA:

clof jrnfl
OPNQRYF FILE((JOESD *FIRST *ONLY) (JRNTEMPLAT *FIRST +
*ONLY)) FORMAT(JRNFL) JORDER(*FILE) +
MAPFLD((JOESD '1/joesd' *CALC *N *N +
*CALC)) OPNID(JRNFL)
OVRDBF FILE(JRNFL) TOFILE(JOESD) SHARE(*YES) OVRSCOPE(apropos)
call PGMA
clof jrnfl