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 ?
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 ?