Re: AW: return from RPGLE mod to CLLE mod errs with MCH3601

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

Barbara,

 How do you define *CL on the proto for a CLP calling an RPG program?

 -mark


At 2/21/07 05:59 PM, you wrote:
> rob@xxxxxxxxx wrote:
> >
> > The thing is, I'm calling the RPGLE from the CL.  Does it still work that
> > way?  And, what happens if I call that RPGLE mod from another RPGLE mod?
> >
>
> It works either direction; *CL says "use CL calling conventions".
>
> You have to recompile your other RPG modules if you change the prototype
> to use *CL.
>
> If you can't do that (or don't want to), you'll have to do the
> type(*char) len(2) workaround, or add a second *CL version of the
> procedure for CL to call.  The *CL one would call through to the other
> one to do the actual work of the procedure:
>
> D ChkJobCl         PI                  like(rChkJob)
> D                                      extproc(*CL:'CHKJOBCL')
> D  JobName                      10a    CONST
>
> P ChkJobCl         B                   EXPORT
> D ChkJobCl         PI                  like(rChkJob)
> D  JobName                      10a    CONST
>  /free
>       return ChkJob(JobName);
>  /end-free
> P ChkJobCl         E