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

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

I think they already fixed it - using the *CL 
modifier on the EXTPROC keyword changes how the 
stuff is passed - so you don't have to use the 2-character solution.

At 12:09 PM 2/20/2007, you wrote:

> Would a DCR do any good or is this going to be a permanent limitation?
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> rob@xxxxxxxxx
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 02/20/2007 01:06 PM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
>
>
> To
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> cc
>
> Fax to
>
> Subject
> Re: AW: return from RPGLE mod to CLLE mod errs with MCH3601
>
>
>
>
>
>
> Oh crud, I bet I asked this on the list not more than a week or so ago.
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> "BirgittaHauser" <Hauser@xxxxxxxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 02/20/2007 11:59 AM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
>
>
> To
> "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> cc
>
> Fax to
>
> Subject
> AW: return from RPGLE mod to CLLE mod errs with MCH3601
>
>
>
>
>
>
> Hi,
>
> Just try to define the return variable in your CL-Module as 2A.
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser
>
> "Shoot for the moon, even if you miss, you'll land among the stars." (Les
> Brown)
> "If you think education is expensive, try ignorance." (Derek Bok)
> "What is worse than training your staff and losing them?  Not training
> them
> and keeping them!"
>
> -----Ursprüngliche Nachricht-----
> Von: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von rob@xxxxxxxxx
> Gesendet: Tuesday, February 20, 2007 17:44
> An: midrange-l@xxxxxxxxxxxx
> Betreff: return from RPGLE mod to CLLE mod errs with MCH3601
>
>
> *****************************
> *** CL Module
> *****************************
> DCL &Return    *LGL
> /* Check to see if EXCLEIACT job is running */
> CALLPRC PRC(CHKJOB) PARM((&CheckJob)) RTNVAL(&RETURN)
>
>
> *****************************
> *** RPGLE Module
> *****************************
>
> P ChkJob          B                   EXPORT
> D ChkJob          PI                  like(rChkJob)
> D  JobName                      10a   CONST
>
> D* Local fields
> D rChkJob         s               n
> ...
>       rChkJob=*on;
>       // exit at first hit.  We don't care about multiples.
>       return rChkJob;
> ...
>
> I debugged using WDSC.  I "monitored expression" for rChkJob.  I break
> right on "return rChkJob".  The value of the expression is 1.  When I
> "step into" from there I get:
> DBGP0003E Program received unmonitored exception MCH3601: Pointer not set
> for location referenced.
> Looking at the joblog I see:
> MCH3601-Pointer not set for location referenced.
> >From program . . . . . . . . . :   ENDLEIACTP
>   From library . . . . . . . . :     ROUTINES
>   From module  . . . . . . . . :     CHKJOB
>   From procedure . . . . . . . :     CHKJOB
>   From statement . . . . . . . :     1443
>
> To program . . . . . . . . . . :   ENDLEIACTP
>   To library . . . . . . . . . :     ROUTINES
>   To module  . . . . . . . . . :     CHKJOB
>   To procedure . . . . . . . . :     CHKJOB
>   To statement . . . . . . . . :     1443
>
> CPF9999-Function check. MCH3601 unmonitored by ENDLEIACTP at statement
> 0000001443, instruction X'0000'.
>
> Is this one of those CL's version of logical variables is not the same as
> RPGLE's version of logical variables?
> Or is it something totally different?
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
> unsubscribe,
> or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.