Procedur Rückgabewert

[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