|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.