Re: RTVOBJD in CLLE subproc

[GKern@xxxxxxxxxxxxxxxx]

Hi Peter - thanks for responding:

"I assume you meant the USEDATE parm of the RTVOBJD command (I don't know 
what the RTVOBJA cmd is)." Yes USEDATE on the RTVOBJD command (Sorry - I 
made a typo...). 

"And you're compiling the CLLE subproc as a module and using the CRTPGM 
command to bind it with the RPGLE program." Correct
 
"And in the RPGLE pgm you prototyped the call to the CLLE subproc.  What 
does the prototype look like?" It looks like this. ReturnVal is a 27 byte 
field: 

      * Retrieve date last used  
     D ZFndpdmy        PR            27A   ExtProc('ZFNDPDMY')  
     D   Object                      10A  
     D   Library                     10A  
     D   LastUsed                     7A  
     C                   Eval      ReturnVal = 
ZFndpdmy(ZZMBR:ZZLIB:'0000000') 

"Does it expect a returned value, or are you using one of the parameters 
to get the returned value?"
Yes I want it to return a value, and was expecting the return value to 
appear in last 7 bytes of the return value. 

Keep in mind that parameters passed to CL should be by reference, not by 
value (i.e. either use the CONST keyword or nothing - do not use the 
VALUE keyword).  And if you were trying to pass a 1-byte parm there 
would be additional considerations, but the date in question should be 
7A, right?

Yes the value I want to use should be the last 7 bytes in the return 
value. Sorry if any of my answers sound screwy - I've been trying all 
sorts of things.

My last compile error is RNF7542: Parm 3 not valid as parm passed by 
reference.

Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the 
intended recipient(s) and may contain confidential and privileged 
information. Any unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please inform the 
sender by reply e-mail and destroy this and all copies of this message.