RE: Exiting a sub procedure

I like that, thanks.
How about this, based on your example?

This is just a very basic procedure that performs several tasks that must all be completed correctly in order to return the condition *ON.

Anyone got any more?

RtnVar = *OFF

IF Control ()
AND Extract ()
AND Calculate ()
AND Output ()
RtnVar = *ON
ENDIF

EXSR ERROR

RETURN RtnVar

BEGSR ERROR
...do stuff here...
IF RtnVar
Code for OK
ELSE
Code for error

ENDSR


-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Rory Hewitt
Envoyé : lundi 24 novembre 2008 18:06
À : RPG programming on the AS400 / iSeries
Objet : Re: Exiting a sub procedure

David,

An even sompler coding change would be to change to the following:

IF NOT Control ()
EXSR ERROR
ENDIF

IF NOT Extract ()
EXSR ERROR
ENDIF

IF NOT Calculate ()
EXSR ERROR
ENDIF

IF NOT Output ()
EXSR ERROR
ENDIF

RETURN *ON

BEGSR ERROR
...do stuff here...
RETURN *OFF
ENDSR

On Mon, Nov 24, 2008 at 2:15 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

Hi,
Do you mean replacing something like this ( which is what I see often
) :......

IF NOT Control ()
RETURN *OFF
ENDIF

IF NOT Extract ()
RETURN *OFF
ENDIF

IF NOT Calculate ()
RETURN *OFF
ENDIF

IF NOT Output ()
RETURN *OFF
ENDIF

RETURN *ON


....by something like this?

RtnVar = *ON
IF NOT Control ()
RtnVar = *OFF

ELSEIF NOT Extract ()
RtnVar = *OFF

ELSEIF NOT Calculate ()
RtnVar = *OFF

ELSEIF NOT Output ()
RtnVar = *OFF

ENDIF

RETURN RtnVar

--
This is the RPG programming on the AS400 / iSeries (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.