EDIT Methodologies

Subject: Edit Methodologies

Hi All:

I personally like going though Every edit and HighLighting, or Reverse
Imaging all fields on the screen that are in error so that the user will 
see all fields that are in error at once.   

However sometimes there is a need to "Bail Out" or "LEAVE"  the edit routine
upon finding the first error.   

Has anyone seen or used the following technique for this purpose? 

The technique being; using a DO statement in conjunction with the LEAVE
opcode.  (No goto's or Cab's, Right?)

(Dave?)
*********************************************
*** "LEAVE" edit upon finding the First error ****
*************************************************
  EDIT      BEGSR
                 
            DO
                 
  XXCODE    IFNE 'B'
            MOVE 'Y'    @ERROR
            LEAVE
            ENDIF
 *  
  BLUSKY    IFNE 'BLUE'         
            MOVE 'Y'    @ERROR
            LEAVE         
            ENDIF
*     
   XXXCUST  IFEQ  *ZERO
            MOVE 'Y'    @ERROR
            LEAVE
            ENDIF
  
            ENDDO    
*
            ENDSR
**********************************************

Normally Within each edit I would somehow SNDPGMMSG to the screen's 
Error Msg Subfile for each error encountered.

John  Carr  CDP
EdgeTech
5921 Acorn Ridge Ct.  Midlothian VA.  23112
PH:804-739-7689 FAX: 804-739-7950
74711.77@COMPUSERVE.COM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *