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