RE: Missing something with ILE, CLLE, procs, and MCH3601

["M. Lazarus" <mlazarus@xxxxxxxx>]

Doc, Gary,

 I think that your problem is that you're trying to return a 1 character 
return value from CLLE.  The easy solution is to change it to a 2 character 
return value.  Depending on your version there was a keyword value (*CL?) 
added indicating that the compiler should use CL style return values 
instead of C type.

 -mark

At 12/18/03 07:53 PM, you wrote:
> I believe you'll have to convert your ILE RPG subprocedure into a nomain
> program procedure to accomplish your aim.
>
> Gary
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of E Gamera
> Sent: Thursday, December 18, 2003 4:15 PM
> To: midrange-l@xxxxxxxxxxxx
> Subject: Missing something with ILE, CLLE, procs, and MCH3601
>
>
> Hey All
>
> I've got an odd problem that I can't quite pin down, and I haven't been
> able to
> find any info in the archives or the manuals.
>
> The situation is this...
>
> I've got a CLLE program that does a CALLPRC like this:
>
>    callprc prc(rpglePrc) parms(&char10 &char20) rtnvar(&char1)
>
> My function rpglePrc looks like this:
>
> p rpglePrc       b
>
> d rpglePrc       pi             n
> d  piChar10                   10a
> d  piChar20                   20a
>
>    /Free
>
>      if doStuff(piChar10 piChar20) = 'ITSOK';
>           return *off;
>      else;
>           return *on;
>      endif;
>
>    /End-Free
>
> p rpglePrc       b
>
> When I execute the CLLE program, I get an MCH3601 error.  I throw the
> whole
> mess into the debugger and the program executes doStuff() just fine.
> The
> MCH3601 exception gets thrown on either of the return statements.
>
> I know I'm missing something pretty basic here and I cannot for the life
> of me
> figure out what it is.  The CLLE program is running in its own
> activation group
> called INST20.
>
> I've tried changing the &char1 parameter on rtnvar() to *LGL, but to no
> avail.
>
> Any ideas?
>
> Thanks
>
> -Doc