problem passing a MODS

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

Hi all,

I'd like to know why this code crashes on the SECOND call to mysp :
In mysp, at the execution of "eval  parmError = blank", I'm getting  MCH3601 'pointer not defined for referenced memory position' 

If I do : "%OCCUR ( myMODS ) = 1;"  before the call to mysp, the problem does not occur.

The code in module2 was just to encapsulate the rpgIII that returned a MODS. But note the parameter definitions : in module2, parmMods is NOT a MODS.
How does it work?

Thanks in advance!


********************************************
Module 1
 
D myMODS  DS         likeds(ref_mods)
D                    occurs(20)

 DOU condition                                                  
                                      
   mysp ( parm : myMODS : Error );                               
  
   FOR wJ = 1 TO %ELEM ( myMODS );                            
       %OCCUR ( myMODS ) = wJ;                                
       // do stuff                                           
   ENDFOR;                                                     
                                                               
ENDDO;                                                         

**********************************************
Module 2
D ref_mods e ds      extname(a_file)
d mysp        pi
d parm                   6
d parmMods                 like(ref_mods)
d parmerror


c            call 'rpgiii'
c            parm            parm
c            parm            parmMods
c            parm            rpgIIIerror

c            eval            parmError = blank