Re: Recursive calls in RPG ILE

["Marvin Radding" <marvin.radding@xxxxxxxxxxxxxxxxxxxxx>]

Scott, 

You are absolutely correct.  I constructed the following program expecting the 
recursive_check array to fill as rte01 was called and recalled. To my surprise, 
each call started with a blank array. So unless there is something wrong with 
my program, you are correct, an internal subprocedure is completely recursive.  
I guess I was thinking of a *PGM object.

 * Recursive test with internal procedure (rte01)                               
     
 *==================================================                            
     
H dftactgrp(*no)                                                                
     
h usrprf(*user)                                                                 
     
H actgrp('recurstest')                                                          
     
h debug(*yes)                                                                   
     
h optimize(*none)                                                               
     
h option(*seclvl:*xref:*ext:*gen:*showcpy:*expdds:*srcstmt:*debugio)            
     
d rte01           pr                                                            
     
d   xCount                      10i 0                                           
     
d count           s             10i 0 inz                                       
     
 /free                                                                          
     
      rte01(count);                                                             
     
      *inlr = *on;                                                              
     
      return;                                                                   
     
 /end-free                                                                      
     
p rte01           b                                                             
     
d rte01           pi                                                            
     
d  pCount                       10i 0                                           
     
d recursive_check...                                                    
d                 s              3a   dim(10) inz                       
 /free                                                                  
  if pCount < 10;                                                       
       pCount += 1;                                                     
       recursive_check(pCount) = %char(pCount);                         
       rte01(pCount);                                                   
  endif;                                                                
 /end-free                                                              
p rte01           e                                                     

Marvin