Du musst Referenz-Datenstrukturen bilden, die in die Copy-Strecke in der der Prototyp integriert wird eingebunden werden.
Die Dimension (Schlüssel-Wort DIM()) wird aus einer Referenz-Struktur nicht übernommen, sonder muss explizit im Prototypen bzw. Procedure Interfache angegeben werden. Deshalb habe ich in dem Beispiel die Referez-Struktur RefVEDS auch ohne Dimension definiert.

Etwa so:
Code:
D getFlVeValues     PR
D    p#fa                          2 0 value
D    p#obj                         7 0 value
D    p#objA                        1 0 value
D    p#objG                        1 0 value
D    p#jahr                        4 0 value
D    p#monat                       2 0 value
D    p#VEDS                            LikeDS(RefVeDS) Dim(10)

 * Definition von Referenz-Datenstrukturen 
 * Template (ab 6.1) = Verwendung nur zur Compile-Zeit
D    RefVeDs         DS                Qualified Template
D       Fl                         5
D       Ve                             LikeDs(RefVeDs) Dim(10)

D    RefVeDs         DS                Qualified Template
D      p#VeNumbers                 6 0 Dim(1000)
D      p#VeValues                 13 4 Dim(1000)
In der Procedure mit dem Procedure Interface ist die Definition der Datenstruktur nicht erforderlich, da über den Prototypen/Procedure Interface definiert.
In den rufenden Prozeduren muss eine (locale) Datenstruktur über LIKEDS basierend auf der Referenz-Struktur (Template!) definiert werden.

Birgitta