Re: ILE RPG recursion.

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.