Re: Program explosion report

Roger, thank you for your reply.  Your suggestion to add the predicate "and
WHFNAM <> WHPNAM" had no impact on the behavior.

- Dan



On Mon, May 11, 2015 at 4:18 PM, CRPence <crpbottle@xxxxxxxxx> wrote:

> On 08-May-2015 09:37 -0500, Dan wrote:
>
>> On 07-May-2015 11:22 -0500, Jonathan Mason wrote:
>>
>>>
>>> I use the following UDTF which produces an indented hierarchical
>>> list of objects and programs/modules/service programs that call
>>> them. <<SNIP>>
>>>
>>>
>> Are there any scenarios of which you're aware that would cause
>> this query to loop endlessly? I just tried this on another program,
>> and let the query run for a good 10 minutes before I killed it.
>> The job had no halts; the CPU was running, and the temp storage on
>> the job was climbing into the tens of gigabytes. I'm not sure how I
>> would debug this. The other five programs I tried with this finished
>> within 5 seconds. I would expect the depth on this program to be no
>> more than 10 levels, probably closer to 5.
>> <<SNIP>>
>>
>
>   In the looping case, for which the CYCLE specifications apparently could
> not properly stop the iterative processing of recursion, what was the
> result set for the initialization SELECT; i.e. what was the result-set of
> the following query, replacing :iObject with the the program name specified
> as the value for which the looping was exhibited as the effect?:
>
>      select WHFNAM, WHOTYP, WHLNAM, WHPNAM
>        from PGMREFS
>       where WHFNAM = :iObject
>         and WHLNAM not in('QSYS', 'QGPL')
>
>   And what was the Display Program References (DSPPGMREF) that generated
> the data for the Output File (OUTFILE) named PGMREFS that was referenced in
> the above SELECT?
>
>   Just a SWAG, but if the following predicate was appended, ANDed as
> composed, to the above query, does the problematic looping persist or is
> the issue resolved?:
>         and WHFNAM <> WHPNAM
>
> --
> Regards, Chuck
>
>
> --
> 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,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>