PDA

View Full Version : CLLE Procedure mit EVAL aufrufen



AndreasH
08-10-03, 11:02
Hallo Forum,
ich möchte mit einem EVAL

zb: Eval MsgTxt = P#RTVMSG(MSGID MSGF MSGD) ;

den Nachrichtentext einer Nachricht auslesen.
Die Procedure P#RTVMSG ist ein CLLE

PGM PARM(&MSGID &MSGF &MSGDTA &MSG)
dcl....
RTVMSG MSGID(&MSGID) MSGF(&MSGF) MSGDTA(&MSGDTA) +
MSG(&MSG)

return
endpgm

Wie bringe ich dem CLLE nun bei, dass es nur einen Rückgabewert hat?
Return im CLLE kennt keinen Parameter.

Oder bleibt nur der Weg über CALLP ?

Fuerchau
08-10-03, 14:15
CL kennt leider keinen Rückkehrwert, daher nur ein Aufruf mit CALLB/CALLP.

AndreasH
08-10-03, 15:33
Läßt sich dann nicht ändern.
Vielen Dank