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

When this code encounters the divide by zero error, *PSSR sets Result to 0
then returns to *DETC.  Since ErrFlag is raised, it executes nothing and
exits.

Appropriate bits of changed code:

>       *main()
>      C                   if        not ErrFlag
>      C                   exsr      RTNADD
>      C                   exsr      RTNSUB
>      C                   exsr      RTNMUL
>      C                   exsr      RTNDIV
>      C     Result        dsply
>      C                   endif
> 
>      C                   Eval      *InLR=*On
>      C                   return
> 
>      CSR   RTNDIV        begsr
>      C                   Eval      Result=PI/ZERO
>      C                   endsr
> 
>      C     *PSSR         BegSR
>      C                   eval      ErrFlag = *on
>      C     ErrTyp        cat       CPFNUM:0      ErrorID
> 
>      C                   Select
>      C                   when      ErrorId = 'MCH1211'
>      C                   eval      Result = 0
>      C                   EndSl
> 
>      C                   EndSR     ErrorAct
> 
The original code ID'd itself, encountered the divide by zero and tripped
the PSSR, which set the error flag then returned to the top.  The code at
the top then decoded which routine failed and continued at the next "proper"
code fragment after the error.

Appropriate bits of original:
      * Mainline.  
      *    *DETC         Tag
     C                   If        ErrFlag='Y'
     C                   Eval      ErrFlag='N'
     C                   Select
     C                   When      CurrRoutine = RTNDIV
     C                   Eval      Result=0
     C                   GoTo      PastDiv

      * Program processing occurs here
     C     Div           Tag
     C                   Eval      CurrRoutine=RTNDIV
     C                   Eval      Result=PI/ZERO
     C     PastDiv       Tag

     C     *PSSR         BegSR
     C                   Eval      ErrFlag='Y'
     C                   EndSR     ErrAction

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
+---