RE: Open Source discussion on error handling was: RPGIII/RPG400 ERRORMONITORING

Martin wrote:

>One thing to add is the general *PSSR principle of 
>using a flag to prevent it calling itself recursively.  

Yes indeed!  The code I posted does that as a "side effect" (which is not a
Good Thing - thanks for pointing it out!)  When you are in *PSSR and do an
ENDSR, control passes to the section of the compiler named in factor 2
(*DETC being perhaps the most useful place to return!)  This particular code
loads the ERRACN variable when the program initialises.  When *PSSR gets
called the first time, it does an ENDSRERRACN.  This clears the contents of
ERRACN.  If *PSSR gets tripped again, ERRACN is blank, causing the default
error handler to be invoked.

MUCH better is Martin's method of setting a "I'm already handling an error"
flag.  It explicitly lets the programmer see what the intent is, rather than
relying on an obscure side-effect.

Buck
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---