RE: %EOF - more on GOTO

[Bob Spinks <rspinks@xxxxxxxxxxxxxx>]

<SR     ChkForErr       BegSR

  * Initialize routine
C                       Eval    ErrorID = *Blanks

  * Do some testing & branch to error section when required
C                       If      ( SomeCondition <> Valid )
C                       Eval    ErrorID = "SomeErrorID"
C                       Goto    ErrSection
C                       Endif

C                       If      ( SomeOtherCondition <> Valid )
C                       Eval    ErrorID = "SomeOtherErrorID"
C                       Goto    ErrSection
C                       Endif

  * Add a whole bunch of other tests here


  * Error Section
C       ErrSection      Tag
C                       If      ( ErrorID <> *Blanks )
C                       Eval    DspErrInd = *On
  *    <add additional common error handling code here)
C                       Endif

SR                      EndSR>

---------------------------------------------------------------------------
----------------------------------------

How about,

C                       ChkForErr       BegSR

  * Initialize routine
C                       Eval    ErrorID = *Blanks
                                 
  * Do some testing & branch to error section when required
C                                                     SELECT
C                       Condition1          WHENNE Valid
C                       Eval    ErrorID = ErrorID1
C                       Condition2          WHENNE Valid
C                       Eval    ErrorID =  ErrorID2
C                                                        _      
C                                                        _ 
C                                                     OTHER
  *  garbage process
C                                                     ENDSL

C                                                     IF              
(ErrorID = *Blanks)
  * Add a whole bunch of other tests here


  * Error Section
C                       ELSE
C                       Eval    DspErrInd = *On
  *    <add additional common error handling code here)
C                       Endif

C                       EndSR

P.S. I would allow all errors to be caught in one pass and process
accordingly, but the above example has used your logic.

Bob Spinks
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *