Re: Stopping processing with using a bunch of if statements

Hi Charles


I think I was thinking on the same lines as you - see if my suggestion of nested IF loops with "in-between" that I posted fits the bill. Or, if the "in-between" is related to each step differently, do procedure calls as you suggest inside each called procedure - many ways to work this one, eh?

Cheers
Vern


On Thu, 15 Feb, 2024 at 9:04 AM, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:


To: rpg programming on ibm i

Move the "in-between" logic to a new procedure...

Charles

On Wed, Feb 14, 2024 at 4:58 PM <smith5646midrange@xxxxxxxxx<mailto:smith5646midrange@xxxxxxxxx>> wrote:

I take back my statement. The machine stops after the first procedure
called if it returns *off. Not what I expected. I learned something new.

Unfortunately, the part that I left out by stripping down the code is
there is also logic between the called procedures so stacking them like you
showed does not work for this case.


-----Original Message-----
From: smith5646midrange@xxxxxxxxx<mailto:smith5646midrange@xxxxxxxxx> <smith5646midrange@xxxxxxxxx<mailto:smith5646midrange@xxxxxxxxx>>
Sent: Wednesday, February 14, 2024 6:39 PM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>>
Subject: RE: Stopping processing with using a bunch of if statements

My subject line should have read ...WITHOUT using a bunch of if
statements. Oops.

If there is an error in Procedure2, I do not want Procedure3 or Procedure4
to run. Won't the if that you provided execute all three and then check
the status of the IF?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>> On Behalf Of Brian
Johnson
Sent: Wednesday, February 14, 2024 6:05 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>>
Subject: Re: Stopping processing with using a bunch of if statements

How about something like this...

Have each procedure return a success indicator where *on = success, then

Begin Procedure1

if Procedure2()
and Procedure3()
and Procedure4() ;
clear Errorfound ;
else;
Errorfound = *on;
return;
endif;

Mainline can then test for Errorfound that was set by the procedures.


On Wed, Feb 14, 2024 at 4:10 PM <smith5646midrange@xxxxxxxxx<mailto:smith5646midrange@xxxxxxxxx>> wrote:

I have an RPGLE program that calls a number of procedures. If it is
in a procedure and it detects an error, I want it to stop processing
and exit back to the main procedure where the initial screen is
displayed to inform the user of the error. I do not want the program
to abend. Is there a way do to this without placing an if statement
after each procedure? That could get really ugly and it would
probably be easy to miss one because not all procedures can encounter
an error.

...

--
Brian Johnson
brian.johnson.mn@xxxxxxxxx<mailto:brian.johnson.mn@xxxxxxxxx>
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx> To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.



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

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.