Re: Changing a called sqlrpgle program to return a value

Hi Michael,

<snip>
Essentially the process should look like this:
DRIVERA:
...Do some stuff...
DOU done;
If not done;
...Do more stuff...
If COMMPGM(a : b : c) = 'TYPE-A BAD STUFF HAPPENED';
...Do failure stuff...
ITER;
else;
...Do other stuff...
endif;
endif;
enddo;
...Do cleanup stuff...
INLR = *on;

I'd really rather not go back to the PLIST approach...
</snip>

Your issue has absolutely nothing to do with the differences between using a *ENTRY PLIST and using a PI. It is your (incorrect) understanding of the two that is confusing you.

In both cases you can achieve what you want by simply adding an extra parameter to your PR/PI (or you PLIST if you still live in the 90s :-) ), which you pass BY REFERENCE (the default).
This allows COMMPGM to modify the passed parameter and the changes it makes be seen by DRIVERA.
The new parameter doesn't need to be optional as DRIVERA is the ONLY consumer of COMMPGM and it will be modified to pass it.

Your code would then look like this (with variable 'd' passed as the new parameter and checked post-call):
DRIVERA:
...Do some stuff...
DOU done;
If not done;
...Do more stuff...
COMMPGM(a : b : c :d) <=== d is the new parameter you pass and check once the call is complete
If d = 'TYPE-A BAD STUFF HAPPENED';
...Do failure stuff...
ITER;
else;
...Do other stuff...
endif;
endif;
enddo;
...Do cleanup stuff...
INLR = *on;

HTH

Cheers

Larry Ducie