CLLE Procedure mit EVAL aufrufen
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 ?
Andreas
***Wer einen Schreibfehler findet darf ihn behalten***
Bookmarks