RE: Recursive calls in RPG ILE

Here's a simple test program I fiddled with to aquaint myself with RPG
recursion in case anyone wants to see what it's like...

     h dftactgrp(*no) actgrp('RECURSIVE') option(*nodebugio)
     d proc1           pr              n
     d  status                        1a   Const
     d DoNumber        s              5i 0 Inz(10)
     d Flag            s               n
      /free
         Flag = proc1('Y');
         *inlr=*On;
         return;
      /end-free
     pproc1            B
     d proc1           pi              n
     d  status                        1a   Const
     d i               s              5i 0 Static
      /free
       Select;
        When i <> DoNumber;
          i += 1;
           If Status ='Y';
             Flag = proc1('N');
           Else;
             Flag = proc1('Y');
           EndIf;
        EndSl;

        Return Flag;
      /end-free
     pproc1            E        


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
Sent: Wednesday, March 22, 2006 11:01 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Recursive calls in RPG ILE

Coolness thanks guys... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, March 22, 2006 10:51 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Recursive calls in RPG ILE

It's not a problem with procedures.

On 3/22/06, Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx> wrote:
>
> do you know of any issues with recursive call processing in sub
procs??
>
> basically I want to mimic the C functionality where a function can
call
> itself & return values etc...
>
> I know historically recursive calls on the 400 has not been a good
> thing...
>
>
> Thanks,
> Tommy Holden
>
>
> --
> 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.
>
>