Hi Forum,
manchmal sieht man den Wald vor Bäumen nicht, heute ist wieder so ein Tag...
einfaches CLLE
Code:
PGM PARM(&OBJ &OBJTYPE &OBJTEXT &ERROR)
DCL VAR(&OBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&OBJTYPE) TYPE(*CHAR) LEN(10)
DCL VAR(&OBJText) TYPE(*CHAR) LEN(50)
DCL VAR(&Error ) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&ERROR) VALUE('0')
RTVOBJD OBJ(&OBJ) OBJTYPE(&OBJTYPE) TEXT(&OBJTEXT)
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&ERROR) +
VALUE('1'))
ENDPGM
Das ganze als *MOD umgewandelt und ins BNDDIR gestellt.
möchte ich per Prototype in RPGLE einbinden
Code:
* PROTOTYPE Retrieve Objecttext
D P#RTVOBJT PR
D Object 10A VALUE
D ObjType 10A VALUE
D ObjText 50A VALUE
D E#ERROR 1N
*
C CALLP P#RTVOBJT(PROJECT:'*LIB':D#PRXTXT:E#ERROR)
Nach Aufruf gibt es dann aber leider den berühmten MCH3601 und im CL kommen keine Parameterwerte an.
Kann mir bitte jemand nen Stups geben, wo mein Denkfehler liegt?
Danke
Bookmarks