Hallo, ich erhalte von einer Prozedur keinen Wert zurück, obwohl die Prozedur die Werte ermittelt. Hat jemand eine Idee?

Main-Routine:

Read_request_r(Read_f); (Liest Daten)

Display_subf(RetrnRQDS); (zeigt diese an)


1. Prozedur:

P Read_request_r B export
D PI likeds(RetrnRQDS)
D DIM(%Elem(RetrnRQDS))
D Read_File like(name)
D value
d RetrnRQ DS likeds(RetrnRQDS)D DIM(%Elem(RetrnRQDS))

...
Return RetrnRQ;
/end-free
P E

RetrnRQ ist am Ende der Prozedur gefüllt. RetrnRQDS im Hauptprogramm enthält aber nix.

Prototyp:

D Read_request_r PR likeds(RetrnRQDS)
D DIM(%Elem(RetrnRQDS))
D Read_F like(name)
D value