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