Re: RPG Cycle doesnt work, then it does

[Charles Wilt <charles.wilt@xxxxxxxxx>]

"files being matched are files generated using the OPENQRYF"

Generated, as in using just OPNQRYF?  Or are you also using CPYFRMQRYF to
actually create *FILE objects?

Has this ever worked?

I too would like to see some actual code...

Feels to me that you're picking up an already opened data path, thus the
EOF; which then gets closed and when the program is rerun it works.

But really, OPNQRYF and the cycle...why?

Charles




On Fri, Jan 17, 2025 at 8:08 AM <tgarvey@xxxxxxxxxx> wrote:

> Back again, from late 2024.
>
>
>
> I appreciate all the responses to my original issue from late last year.
> I've tried all of them to no avail.
> I have to try being more specific in what is being done here, in the hopes
> a
> light will go off for someone.
>
>
>
> We have a process which generates RPGLE source code which uses the RPG
> matching records function.
> The files being matched are files generated using the OPENQRYF command. The
> Open Query files appear as f specs in the RPGLE source code as primary and
> secondary files.
>
> The necessary overrides are all done appropriately before the source code
> is
> generated and compiled.
>
> While I have been primarily testing and debugging this process
> interactively, I've also tested it in batch mode. The results are the same.
>
>
>
> When the generated program is called (BTW the program object is in QTEMP),
> only the INZSR is executed. The two primary and secondary files are both in
> status 0011 (end of file on a read) and I know this because I have the
> INFDS
> structures for both. So, LR is set on and nothing in the C specs gets
> executed.
>
> Since I am testing this interactively and using debug, as soon as the first
> execution ends I can call up a command line and issue the very same call
> command to the same generated program, as it is in QTEMP and all the
> overrides are intact.
> When I do that, the two input primary and secondary files have data in them
> and the program executes correctly. LR is not set on until both files have
> actually reached end of file.
>
>
>
> So, how/why would the two input files, which are the results of using
> openqryf, apparently NOT have data in them, and then suddenly have data in
> them when the program is called from a command line?
>
>
>
> BTW, I modified the process to call the generated program back to back and
> both executions result in the apparent empty primary and secondary files.
> But even then I can call the program from the command line, in the middle
> of
> the debug session, and it works.
>
>
>
> Any ideas?
>
>
>
> Warm Regards and thanks in advance
>
>
>
> Thomas Garvey
>
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.