*COMDECK  BRWERR2 
          TITLE  BRWERR2 - ERROR EXIT FOR BEGIN/REVERT/WHILE
**        BRWERR2 - ERROR EXIT FOR BEGIN/REVERT/WHILE 
* 
*         INVALID SEPARATOR ERROR.  ISSUE MESSAGE AND APPEND
*         THE STRING (IT MAY BE NULL) AND THE SEPARATOR.
  
 BRWERR2  BSS 
          SA4    ANSSEP 
          SX0    ANSSTR 
          SX3    MSG212 
          LX0    18 
          LX4    54 
          BX7    X4 
          BX3    X0+X3
          SX6    MSGBUF 
          SA7    MSGBUF      STORE SEPARATOR FOR MESSAGE PROCESS
          LX6    18+18
          BX3    X3+X6
          JP     BRWERR      ISSUE MESSAGE AND ABORT
  
  
**        BRWERR3 - ERROR EXIT FOR BEGIN
* 
*         INVALID SEPARATOR ERROR.  FORM MESSAGE PRECEDING
*         SEPERATOR(MSGBUF), STRING(ANSSTR) 
* 
  
 BRWERR3  BSS    0
          SX4    ANSSTR 
          SX0    MSGBUF 
          SX2    MSG212      INVALID SEPERATOR
          LX0    18 
          LX4    18+18
          BX6    X2+X0
          BX3    X6+X4
          JP     BRWERR      ISSUE MESSAGE AND ABORT
  
