|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.