Prozedur gibt keinen Wert zurück. Warum?

[msost]

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

[mk]

HI,
bei dem Programmcode bitte die PHP Tags benutzen,
dann kann man das besser lersen.

Deine Read Prozedur sollte den Wert auch an ein Feld übergeben.


aString =Read_request_r(Read_f);


Display_subf(aString);


Gruß
Michael;)



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

[msost]

Ooops!!! Danke Dir!

Man sollte nach fünf nicht mehr programmieren.... :)