|
***************************** *** 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
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.