*DECK S$ABT 
          IDENT  S$ABT
          TITLE  S$ABT - ABORT DUE TO USER ERROR
          COMMENT  ABORT DUE TO USER ERROR
          SPACE 4 
**        S$ABT - ABORT DUE TO USER ERROR 
* 
*     CALLING SQUENCE-
*         CALL S$ABT                   ( FROM COMPASS ) 
*     OR
*         S$ABT                        ( FROM SYMPL ) 
* 
*     DOES- 
*         FLUSHES ERRORS VIA S$ERROR
*         WRITE MESSAGE TO DAYFILE
*             SORT5- USER ERROR, JOB ABORTED
*         ABORTS. 
* 
          ENTRY S$ABT 
 S$ABT    SUBR
  
          MESSAGE (=C*SORT5- USER ERROR, JOB ABORTED*),,RECALL
* 
          ABORT 
  
  
 APLIST   VFD    42/,18/=0
          VFD    42/,18/=0
          VFD    42/,18/=0
          VFD    42/,18/=0
  
  
          END 
