RE: %EOF - more on GOTO

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

for your example, try:

SR      ChkForErr       BegSR

  * Initialize routine
C                       Eval    ErrorID = *Blanks

  * Do some testing & branch to error section when required
C                 SELECT
C                       When    ( SomeCondition <> Valid )
C                       Eval    ErrorID = "SomeErrorID"

C                       When    ( SomeOtherCondition <> Valid )
C                       Eval    ErrorID = "SomeOtherErrorID"

  * Add a whole bunch of other tests here

C                 ENDSL

  * Error Section

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

SR                      EndSR

No more goto and less code.....

Christopher K. Bipes            mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst          mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.                http://www.cross-check.com
6119 State Farm Drive           Phone: 707 586-0551 x 1102
Rohnert Park  CA  94928         Fax: 707 586-1884

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