RE: Ending a program from within a procedure

This is a real pain in the a$$ problem. The C language has the exit()
procedure, but it doesn't work for RPG IV. 

The "only" things you can do are:

A) Back out of the procs until you return, perhaps setting a global flag and
then checking it once you return to the main proc.

B) Call the OS/400 ILE API CEETREC. This ends the program. HOWEVER!!! What
CEETREC really does is end the activation group in which a program is
running. So all other programs running in that activation group are also
ended. 

C) Send a program message to the main body of the program after setting on
LR and then normal exception error handling would occur. But this can be
tricky as well.

It is VERY disappointing that we have "ten ways" to do an ADD operation in
RPG but zero ways to exit a program from within a subprocedure. 

-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Monday, July 25, 2005 10:21 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Ending a program from within a procedure

Bloody good question.  I find that's the one time that I use subroutines. 
I'd love to know the answer also.

Rob Berendt