Very nicely explained, Chuck. I now understand very clearly how to use OPNQRYF in instances such as this. Appreciate your assistance very much. Thank You,Raja
To: midrange-l@xxxxxxxxxxxx
From: CRPbottle@xxxxxxxxx
Subject: Re: Question Re OPNQRYF
Date: Mon, 26 Mar 2012 13:51:43 -0700

Responses inline. The comments will surely begin to sound repetitive
or otherwise redundant. So for a simple and concise reply [instead],
and an alternate suggestions, up front:

The FORMAT() parameter for the OPNQRYF must specify a database file
name that has the Record Format which defines all of the field names and
their data types\attributes for the intended\desired output file [FILE_3
in this scenario]. That database file with the desired RcdFmt must
exist before the OPNQRYF runs.

To see what changed, why not just journal the file being changed, and
then use the Compare Journal Images [CMPJRNIMG] command to get a report
of what the changes were?

The Compare Physical File Member [CMPPFM] might also suffice to
report changes for this scenario, without using journaling.?

Regards, Chuck

On 25-Mar-2012 01:20 , Raja Ayyer wrote:

Please read my answers in red <ed: inline> to your questions below:

CRPence on Date: Sat, 24 Mar 2012 11:49:03 -0700 wrote:

On 24-Mar-2012 01:44 , Raja Ayyer wrote:
<<SNIP>> a question re OPNQRYF: One of my CL program creates 2
temporary files in QTEMP:

one containing a before image of data (FILE_1) from a physical
file and the

other containing after image (FILE_2) from the same physical

So both FILE_1 and FILE_2 have the same Record Format?

Yes, both files have the same record format. Basically, they result
from a CPYF of a physical file, one that is done before updating
data in the physical file and another after data has been updated in
the physical file. The FILE 3 that is a resultant is like an audit
file for purpose of verifying the updates.

FILE_3 has to be created explicitly to some specifications, both
outside of and prior, to the OPNQRYF [and eventual CPYFRMQRYF], else the
Record Format for FILE_3 will be identical to FILE_1 and FILE_2. This
is further explained, later.

The OPNQRYF maps all required fields from FILE 1 and then attempting
to map the UPDATED field from FILE 2.

Assuming "all required fields..." means "all fields...", then:

Because FILE_3 does not have any additional fields, beyond those
having already been assigned from FILE_1, there is no remaining column
to which any data from FILE_2 can be mapped to FILE_3.

Assuming "all required fields" means that some fields in FILE_3 are
not yet explicitly mapped [from either FILE_1 or FILE_2]:

Any such remaining unmapped fields in FILE_3 that are compatible with
the data type of the field(s) that remain to be mapped from FILE_2
[after all of FILE_1 fields have been mapped already], then the data
from field(s) in FILE_2 can be mapped into those fields of FILE_3 [even
though the field /name/ might not be any of desirable, accurate, or
apropos]. Consider for example the following scenario where the file F3
can accommodate the data of field "B" from both file F1 and F2 [and for
lack of %NULL or *DFT for the extra field "D", that is assigned a value
of zero]:

create table f1 (a char, b int)
create table f2 (a char, b int)
create table f3 (a char, b int, c char(10), d dec)
opnqryf file((f1) (f2)) format(f3) jfld((1/a 2/a *eq))
mapfld( (a '1/a') (b '1/b') (c '2/b') (d 0) )

Because the format is the same i.e. all the fields are derived from
the same Physical File (into FILE 1 and FILE 2), OPNQRYF is giving an
error when mapping this field from FILE 1 as well as from FILE 2 as 2
different fields into FILE 3.

Given three files all having the identical format, as described by
the SQL request to CREATE TABLE with a column list (f1 char, f2 char),
only the following possibilities for mapping like-named fields into
FILE_3 would be available:

(1/f1,1/f2) -- both fields from file_1
(1/f1,2/f2) -- first field from file_1, second field from file_2
(2/f1,1/f2) -- first field from file_2, second field from file_1
(2/f1,2/f2) -- both fields from file_2

To enable more choices, the FILE_3 must have *additional fields*
defined; above and beyond what fields are in the two identical files
FILE_1 and FILE_2. Refer to the prior example using FORMAT(F3), in
which the INT field "B" was represented by the CHAR(10) field "C"; and
if all of the values for "B" were known to be less than five digits, the
data for the INT field "B" could have been represented instead by the
DEC(5) field "D".

After creation of these temporary files in QTEMP,

Are these files created using DDS sources, or CRTDUPOBJ from
existing database *FILE objects? What is the status of the source
or objects [from which the files in QTEMP are derived] as far as
restrictions on /promotion/ with this scenario?

The FILE 3 is created (as a *OUTFILE) using the OPNID of the OPNQRYF
from the same CL Program that issues the OPNQRYF command

If FILE_3 is created using CRTFILE(*YES) with CPYFRMQRYF, then the
Record Format of FILE_3 is obtained from the file name that was either
specified or defaulted for the FORMAT() parameter of the OPNQRYF
request. Presumably the default FORMAT(*FILE) was the effect. The
FORMAT(*FILE) means that [see the help text for that parameter] the
external query Record Format is derived from the /first file/ specified
on the FILE() parameter of the OPNQRYF; i.e. FILE_3 will be created
identical to the FILE_1 [which is identical to FILE_2], when
CRTFILE(*YES) is used on the eventual CPYFRMQRYF.

That is a conundrum, because there are only the field names from the
Record Format of FILE_1, into which all of the desired data\fields from
the relevant fields of both FILE_1 *and* FILE_2 must be mapped.

No response was provided for the possibility of getting sources [DDS
or DDL] or Objects promoted, from which these objects in QTEMP can be
created. Since having an existing named database file available for and
specified for the FORMAT() is the means to resolve the duplicate field
names issue, that is a very important detail.

the program then does an OPNQRYF joining these two temporary
files to extract data into a third file (FILE_3).

So did the program create FILE_3 also? Same questions as above,
for how.

Perhaps to clarify, that join described using SQL?

So CPYFRMQRYF TOFILE(FILE_3) from the join query ODP.? And either
OPNQRYF FORMAT(FILE_3) was used, or FORMAT(*FILE) causes the query
to use the RcdFmt of FILE_1, per FILE_1 being the first file in the
join? Is the record format of FILE_3 different than the FILE_1
and\or FILE_2, and if so, how?

The FILE 3 is created (as a *OUTFILE) using the OPNID of the OPNQRYF
(CPYFRMQRYF) from the same CL Program that issues the OPNQRYF
command. The record format will be different in FILE 3 (with the
added field from FILE 2 i.e the field ECESDATE containing updated
data). However, FILE 3 is yet to get created

There was no response giving either or both the OPNQRYF command
string to include the FORMAT() specification and the JOIN related
parameter information, nor the SQL equivalent JOIN specifications.
Knowing the equivalent SQL variation for what is the desired effect,
better describes what the intent is, for an OPNQRYF that obviously is
not yet fully understood\functional.

Understood that the file is yet able to be created. The OPNQRYF must
be able to complete, before that file can be created; i.e. awaits
resolution of the error CPD3107 for the duplicate field name. And the
step that actually creates FILE_3, the CPYFRMQRYF which can only operate
against the specified Open Identifier, requires that an ODP was
previously created, which of course awaits the ability of OPNQRYF to
complete without errors.

Aside from various /tricks/ to get a FILE_3 created.... Effectively,
the FILE_3 must be pre-created. A Record Format that should define the
FILE_3 must exist in the form of another database *FILE [a model file],
perhaps created from source before the OPNQRYF or be an altered [ALTER
TABLE] version of the currently identical formats. By whatever means
that FORMAT() file is created [and\or altered] *prior to* the OPNQRYF,
that file must be named on the FORMAT() [or directed-to by overrides,
because that parm honors overrides IIRC] of the OPNQRYF request, to
avoid the CPD3107 when trying to map the data.

I have a requirement whereby the third file (as a result of the
OPNQRY) contains most of the information from FILE_1 and one field

What about the scenario and\or the join makes that a requirement?
Perhaps because the field ECESDATE is a\the join field? Or perhaps as
an effect /compare/ of before\after effects, the desire is to show a
copy of both the before and after values for column ECESDATE in the
final output [file]?

FILE 1 contains ECESDATE with un-updated data and the same field in
FILE 2 contains updated data. I would like to have ECESDATE from FILE
1 and FILE 2 in the resultant file FILE 3.

Pre-create FILE_3 with a field for both the original ECESDATE and for
the changed [e.g. field ECESDATEX with same attributes as ECESDATE] and
use FORMAT(FILE_3); include the MAPFLD specification (ECESDATEX
'2/ECESDATE') on the Open Query File request.

In trying to create FILE 3 from FILE 1 and FILE 2, my OPNQRYF joins
key fields from FILE 1 and FILE 2 and then MAPS required fields from
FILE 1, just like how you have illustrated below (MAPFLD(A '1/A'
blue highlighted field above is the one that OPNQRYF doesn't like.

In order to use MAPFLD specifications (ECESDATE1 '1/ECESDATE') and
(ECESDATE2 '2/ECESDATE') requires that the file named on the FORMAT()
keyword has the two field names ECESDATE1 and ECESDATE2 defined in its
named [or defaulted *ONLY] Record Format.

Tomorrow, I shall send the entire OPNQRYF script used by the

I have not received this reply [to my private email]... I am
responding via the NewsGroup.

Perhaps a very simplified script showing the CREATE TABLE requests to
describe each of the three files, i.e. their record formats, and what
join type\logic will be performed, would help to clarify.?

Here I give an example of such a script. <<SNIP>>

This field also exists in FILE_1 which is also required to be
extracted into FILE_3.

The OPNQRYF file allows file qualifiers for the fields. The MAPFLD
allows mapping the data from one field into another.

However, during runtime, OPNQRYF is complaining about the same
field (ECESDATE) existing in both the files (FILE_1 and FILE_2).

Qualify the field with the file number in the Map Field just like
with the Join Fields.

Due to restrictions in promoting to the production environment,
I have not considered using RUNQRY or even RUNSQLSTM (because of
other object overheads involved in promotion). Can this be
achieved in OPNQRYF?

Very likely possible. Probably significantly easier to effect the
promotion of a *QMQRY or some program for the CLP to CALL.? Mostly
because the CLP is making the final or a temporary copy instead of
the data instead of passing the shared join query ODP to another

Again I have a question about just how near impossible to get
something promoted to production. Doing this OPNQRYF as a compare is
somewhat limited in capability [inserted and\or deleted rows are easily
overlooked; SQL queries or programs are probably easier and better], if
a FORMAT() file can not be promoted. Having to scrounge for a FORMAT()
to accommodate the field data is not a preferable solution, and
depending on what some other programs do with FILE_3, that may not even
be an option anyhow.

Although likely possible to accomplish whatever within the CL
without /promotion/ of more objects, more specifics about what is
available already without promoting new objects into production
would be of value to know first, to better explain how, without too
much guessing. Also, is the QSHELL available\installed for use if

The /trick/ used to ALTER TABLE, AFaIK [from what I have read]
requires that the QSHELL feature is installed. If promoting any
alternative objects is not acceptable, and this /trick/ might be
something to achieve the results, the answer to that question is pertinent.

Anyhow... Perhaps answer some of the questions about the record
formats, and give some examples of differences between them if
they exist, plus give the OPNQRYF request being used [attempted]
to accomplish the join. IMO, *best* [as in my example<code>] to
provide the answers as the scripted SQL that would do all of the
work, followed by what is attempted as the equivalent CL requests
[or as best as can be described by the OP] that should mimic that
scripted SQL.

This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives

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