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