RE: RPG & recursive call

[Vanya Jovic <jovic@xxxxxxxxxxxx>]

OK ppl., it's time to calm down. Let's clarify a little. If RPG pgm. A
calls RPG pgm. B, and B calls A again it IS a recursion and it will fail
and generate RPG8888 because RPG is NOT recursive itself. However, if ILE
RPG subprocedure A calls ILE RPG subprocedure B, and B calls A, it would
work, and it is a recursion (by mathematical theory, and by ILE RPG
Programmer's Guide: 2.6.1.4).  There is a special case of recursion, when
ILE RPG subprocedure calls itself. We used to call it self or 
autorecursion, but it's a matter of agreement and definition.

Regards

Vanya Jovic
Saville, Canada

On Sat, 14 Nov 1998, Mark Lazarus wrote:

> 
> Brad,
> 
> At 08:28 AM 11/12/98 -0600, you wrote:
> >
> >> -----Original Message-----
> >> From:      Mark Lazarus [SMTP:mlazarus@ttec.com]
> >> Sent:      Wednesday, November 11, 1998 3:31 PM
> >> To:        MIDRANGE-L@midrange.com
> >> Subject:   RE: RPG & recursive call
> >> 
> >> Brad,
> >> 
> >> At 01:12 PM 11/10/98 -0600, you wrote:
> >> 
> >> >> >Is it possible to do a recursive call in an RPG III program ? If I
> >> >> try to do
> >> >> >that by a simple CALL I have the message RPG8888.
> >> >> >
> >> >> Some languages (CL) support recursion, but RPG and COBOL do not.  You
> >> >> can
> >> >> do a recursive call from a RPG program, but the call cannot be to
> >> >> another
> >> >> RPG program in the call stack.
> >> >> 
> >> >  [And Brad Said:]  Al, would this be considered recursion?  Just
> >> >wondering... A recursive call would call itself, which would inherintly
> >> >say that the program would already be in the call stack, correct?  So,
> >> >how can an RPG/III program make a recursive call?  ;)
> >> 
> >>  If the call from the RPG program is to a CLP that is already in the
> >> stack.
> >> 
> >>  -mark
> 
> >     [And Brad Said:]  That ain't recursion.  Recursion is a procedure
> >calling itself. 
> 
>  Not according to the AS/400 definition!  If RPG PgmA --> PgmB --> PgmA
> this will generate RPG8888.  Whether it's technically recursion or not (and
> I'm not sure about the definitive answer to that) is irrelevant.  The /400
> thinks that it is!
> 
>  -mark
> 


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---