Parameter-Uebergabe - RNF5343: Feldgruppe hat zu viele übergangene Indizes

[Rainer Ross]

was hälst Du von folgender Idee

dcl-s    $arr       char(3) dim(100);

$arr(01) = 'AAA';   
                    
myproc(%addr($arr));

dcl-proc myproc;                                        
dcl-pi *n;                                              
        array_p     pointer const;                      
end-pi;                                                 
                                                        
dcl-s   piarr       like($arr) dim(100) based(array_p); 
                                                        
  piarr(02) = 'BBB';                                    
                                                        
end-proc; 

Viele Grüße
Rainer