SQL UDF mit Tabel

[malzusrex]

Hmm...

Problem bleibt.

Habe jetzt das RPG noch erweiter/geändert um

dcl-ds ds_return  qualified dim(10);    
  Wert1 char(10);                       
  Wert2 char(10);                       
  Wert3 char(10);                       
  Wert4 char(10);                       
  Wert5 char(10);                       

end-ds;                                 
dcl-s Anzahl_Saetze int(5) inz(1); 

  endmon;
  Status = '02000';
  ds_return(1).Wert1 = 'BlaBla';
  ds_return(1).Wert2 = 'b hsh';
  ds_return(1).Wert3 = '1111';
  ds_return(1).Wert4 = 'gfs41';
  ds_return(1).Wert5 = 'kdjdj';

  exec sql set result sets with return array :ds_return            
                                       for :Anzahl_Saetze rows;  
  return; 

Gruß
Ronald