Re: Changing a called sqlrpgle program to return a value

Simply add an additional parameter to the pr and pi. . . And return your value there.
++
Dennis
++
"I'd like to thank my parents and my mother and father."
-- golfer Greg Norman, accepting an award




Sent from my Galaxy tablet phone. Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


"Koester, Michael" <mkoester@xxxxxxxxxxxxx> wrote:

I'm trying to get my head around this, but failing...
I have a driver program (DRIVERA) that does a bunch of stuff, runs a
bunch of private subprocedures, calls some service programs, and calls
another program (COMMPGM) that handles some communications with another
platform, calls other relevant service programs, runs private
subprocedures, etc. Both DRIVERA and COMMPGM are *PGMs (created from
SQLRPGLE source), with *INLR and all that. COMMPGM is something of a
driver program itself, handling sockets connections, throwing lots of
transactions to the other platform, receiving results, writing records
to a logfile, etc. Its only caller is DRIVERA.

Now I have a need to return a value from COMMPGM, back to DRIVERA, so
DRIVERA can deal appropriately with abnormal situations encountered in
COMMPGM. Since I'd set COMMPGM up with a Prototype instead of a *entry
PLIST, I figured I'd just adjust that prototype and Procedure Interface
to include the return value definition and I'd be well on my way...
until the source editor reminded me that extpgm was not compatible with
a return value. Apparently I need to use extproc instead? I expect
that means other things will need to change, but I don't know exactly
what, and that's where I need help.

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, but I don't get to
spend a week figuring out how to get a compiled object, and another
week finding & fixing the run-time issues brought on by my naiveté. Is
there hope? Should be simple, right? We're running v6.1

Thanks.
Michael
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.