Procedur Rückgabewert

[Stefan_Sk]

Hallo

Folgende Frage:
Ist es möglich das ich von einer Procedur ein Array als
Rückgabewert bekomme.
Mit Einzelnwerten ist es ja kein Problem.
Wenn es möglich ist bitte ein kleines Beispiel.

Danke für eure Hilfe.

mfg Stefan

[B.Hauser]

Hallo Stefan,

Du kannst alles, was Du in den D-Bestimmungen definieren kannst auch als Rückgabe-Wert von Funktionen definieren.

  * Prototyp
 D InitArray       PR            10A   Dim(10)  
 D    ParInit                    10A   Const
  *------------------------------------------------------
 D MyArray         S             10A   dim(10)      
  *------------------------------------------------------
  /Free                             
    MyArray = InitArray('ABC');    
    Dsply MyArray(3);              
    *InLR = *On;     
  /End-Free 

P InitArray       B                   Export             
                                                         
D InitArray       PI            10A   Dim(10)            
D    ParInit                    10A   Const              
                                                         
D  Array          S             10A   Dim(10)            
 *-------------------------------------------------------
 /Free                                                   
   Array = ParInit;                                      
   Return Array;                                         
 /End-Free                                               
P InitArray       E 

Birgitta

[Stefan_Sk]

besten dank für die hilfe und das beispiel
genau das habe ich gebraucht.

mfg stefan