|
Hi, First I must say that I often search and read these forums. Thank you all for your help. Here's something I would appreciate your help with. >From what I've been reading... RPG ILE does not support recursivity. That is an RPG program calling itself either directly or indirectly. And that is true because I have a situation where I tried it and I received the RNX888 RPGPGM1 was called recursively. Where I get confused is another recursivity test that I have done and IT WORKED! I wrote a program with ACTGRP(*NEW) Here's the code H ACTGRP(*NEW) D @Var1ds DS D @Var1arr 10a dim(10) D @Var1Ptr s * Inz(%Addr(@Var1ds)) D @Var2 s Based(@Var2Ptr) Like(@Var1ds) D @Var2Ptr s * C *Entry Plist C Parm @Var2Ptr C If %Parms = 0 C Eval @Var1Arr(2)='Hello' C Call 'A1' C Parm @Var1Ptr C Else C Eval @Var1ds = @Var2 C EndIf C Eval *InLr = *ON C Return This is working. Here's a screen shot of the program stack Job: ADUBREUIB User: ADUBREUIL Number: 511186 Thread: 00000064 Program Rqs or ---Activation Group--- Lvl Procedure Number Name QCMD 0000000001 *DFTACTGRP 1 QCMD 0000000001 *DFTACTGRP < RNP_PEP_A1 0000015122 15122 A1 0000015122 15122 < RNP_PEP_A1 0000015400 15400 A1 0000015400 15400 QTEVIREF 0000000001 *DFTACTGRP _C_pep 0000014635 QTEDBGAG main 0000014635 QTEDBGAG qtescren 0000014635 QTEDBGAG < gramSource 0000014635 QTEDBGAG More... Can someone tell me why recursivity some times works and some times it doesn't? What are the conditions that stops it from working and how can I get around them? Regards, Andre
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.