Re: RPG ILE Recursivity RNX8888

[Andre Dubreuil <andredub.misc@xxxxxxxxx>]

Hi Joe,

As you seemed convinced that it was possible, I reviewed both programs once
more and found the problem.
It was something really stupid and I guess I was too close to the tree to
see the forest.

In the program that did not work, I had coded a CALLB instead of a CALL,
thus it was trying to run within the same activation group and therefore the
recursivity error happened.

This is brilliant! I Love it!

I did not think I would solve this one, so I had already started planning
the program changes to push and pop the global variables that needed to be
saved into a multiple occurence DS, and use a sub-procedure recursion
instead.

Thanks for taking the time to look into my problem and help me find the
solution.
It's really appreciated.

If you think I may be able to help you some day, feel free to email me.
andredub.misc@xxxxxxxxx

Kind Regards,
Andre Dubreuil


On 12/18/05, Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx> wrote:
>
> Well, as far as I know, the issue is the activation group.  If as you
> suspect it's because of a file, then you should have no problem coming up
> with a simple non-proprietary program that blows up the same way.
>
> Otherwise, without seeing the actual code that's failing, it's hard to be
> of
> much help.
>
> Joe
>
> > From: Andre Dubreuil
> >
> > Hi Joe,
> > This first source code is in my initial message but unfortunately I am
> not
> > in liberty to publish the source of the 2nd program.
> >
> > What I can say is that it uses a couple of files, INPUT and OUTPUT and
> is
> > made of several modules binded together through CRTBNDRPG and BNDDIR()
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>