RE: ILE RPG recursion.

You may want to provide some means of bailing out if the recursion
(purposely or accidentally) gets too deep.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, May 08, 2013 12:09 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: ILE RPG recursion.

I might play with that.

My work around was to put an intermediate program and use the new activation
group mypgm calls mypgm2.
mypgm2 calls mypgm, which has actgrp(*new)

this may make more sense since mypgm2 could do some processing.

also mypgm is someone else's original code that was originally written with
no subprocedures and several subroutines. Doing it this way makes the jump
easier.

I am hoping that I don't have to go more than a few levels deep in
recursion.

Thank you all.


Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail
to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: Alan Campin <alan0307d@xxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>,
Date: 05/08/2013 03:03 PM
Subject: Re: ILE RPG recursion.
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



No, RPG IV does support recursion but only from V6R1 forward. Must use
Main
keyword.

h Option(*SrcStmt:*Nodebugio:*NoShowCpy:*NoUnref)
h Main(GetDrivers)

/copy *libl/qsrcf,cb_StdType
/copy *libl/qsrcf,cb_Std_Con

d GetDrivers...
d pr ExtPgm('CVTSAFMTG2')

p GetDrivers...
p b
d pi




On Wed, May 8, 2013 at 12:51 PM, Mark S Waterbury <
mark.s.waterbury@xxxxxxxxxxxxx> wrote:

Hi, Rob:

AFAIK, ILE RPG IV supports recursive procedures, but not recursive
(main) programs.

Depending on exactly what it is you are trying to do, you could, for
example, create a *SRVPGM with the procedure, and then call it from e.g.
a CLLE program via CALLPRC, and then it can call itself recursively.

HTH,

Mark S. Waterbury

> On 5/8/2013 2:26 PM, rob@xxxxxxxxx wrote:

Resending with a subject line...


H Option( *SrcStmt ) BndDir( 'QC2LE' ) dftactgrp(*no)

actgrp(*new)

**-- *ENTRY PLIST:
-----------------------------------------------------**
D mypgm PR
D Pxmyvar like(myvar)
D mypgm PI *ENTRY PLIST
D Pxmyvar like(myvar)

D myvar s 300a Varying Template
D testParm s like(myvar)
...
mypgm(testParm);
// results in RNX8888 MYPGM was called recursively during
execution
Changing the PR by adding EXTPGM('MYPGM') prevents the compile with
RNF7545: The main procedure cannot be called from this module when it

is

an external program call.

How do I work around this?



Rob Berendt

--
This is the RPG programming on the IBM i (AS/400 and 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.