Re: Stopping processing with using a bunch of if statements

[Chris Pando <chris.pando@xxxxxxxxx>]

If the procedure returns an *On if in error.

Select;
When ( procedure1() );
When ( procedure2() );
When ( procedure3() );
.
.
.
EndSl;

The procedures will execute until one returns an *On

Chris Pando
chris@xxxxxxxxx
www.brilligware.com

On Wed, Feb 14, 2024, 4:10 PM <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.
>
>
>
> Here is an example.
>
>
>
> Errorfound is an indicator type variable.
>
>
>
> Begin Main;
>
>     Display screen for input;
>
>     Procedure1();
>
>     Display screen showing results of processing;
>
> End Main;
>
>
>
> Begin Procedure1
>
>     Procedure2();
>
>     If Errorfound;
>
>        return;
>
>     endif;
>
>     Procedure3();
>
>     If Errorfound;
>
>        return;
>
>     endif;
>
>     Procedure4();
>
>     If Errorfound;
>
>        return;
>
>     endif;
>
>     .more code
>
> End Procedure1;
>
>
>
> Begin Procedure2;
>
>     Whatever code is needed
>
>     If an error is encountered.
>
>         Errorfound = *on;
>
>         Return;
>
>     Endif;
>
> End Procedure2;
>
>
>
> Begin Procedure3;
>
>     Whatever code is needed
>
>     If an error is encountered.
>
>         Errorfound = *on;
>
>         Return;
>
>     Endif;
>
> End Procedure3;
>
>
>
> Begin Procedure4;
>
>     Whatever code is needed
>
>     If an error is encountered.
>
>         Errorfound = *on;
>
>         Return;
>
>     Endif;
>
> End Procedure4;
>
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: 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
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.