Re: Recursive calls don't work

Hi Charles,

I've seen something like this only without recursion:

PGMA
----
PGM
DCL &FILE *CHAR 10
DCL &LIB *CHAR 10
DCL &MBR *CHAR 10

MAIN10:
OVRDBF FILE(ABC) TOFILE(&LIB/&FILE) MBR(&MBR)
CALL PGMB (&LIB &FILE &MBR)
IF COND(&LIB *NE '*END*') THEN(GOTO MAIN10)
ENDPGM

PGMB
----
fABC ip e k disk
d PGMB pr extpgm(PGMB)
d peLIB 10a
d peFILE 10a
d peMBR 10a

d PGMB pi
d peLIB 10a
d peFILE 10a
d peMBR 10a

/free
...do something...
if somecondition;
peLIB = '*END*';
else;
peLIB = 'FOO';
peFILE = 'BAR';
peMBR = 'XYZ';
endif;
*inLR = *on;
/end-free

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /



Charles St-Laurent wrote:

Hi!

I try to develop a program that call itself recursively. I compiled it with DFTACTGRP(*NO) ACTGRP(*NEW). When I call my program recursively, I call the CLP that does the OVRDBF. Then, in my CLP, I call my RPG/ILE program back with my new OVRDBF.

When I debug my RPG/ILE, nothing seems to happen at this line:
C CALL 'LSTWRDP' PLIST1

I believe that my call is not performed. Or, if it is performed, no update is made to my file by my second level call.

LSTWRDP calls LSTWRDR that calls LSTWRDP with different parameters to do new OVRDBF...

Am I missing something?

Charles