*DECK FFSEABT 
      PROC FFSEABT(DFMSG);
*CALL COPYRITE
# TITLE FFSEABT - ABORT                                               # 
  
      BEGIN                          # FFSEABT                        # 
  
# 
**    FFSEABT - ABORT 
* 
*     TET TRAN                         02/88
* 
*     FFSEABT ABORT EXECUTION AFTER ISSUING THE DAYFILE MESSAGE 
*     RECEIVED
* 
*     ENTRY    DFMSG - THE ARRAY CONTAINING THE DAYFILE MESSAGE TO BE 
*                      ISSUED.
* 
*     EXIT     EXECUTION ENDS.
* 
# 
  
# 
****  PROC FFSEABT - XREF LIST
# 
  
      XREF
        BEGIN 
        PROC ABORT;                   # NOS MACRO TO ABORT THE PROGRAM# 
        PROC MESSAGE;                 # NOS MACRO TO ISSUE DAYFILE MSG# 
        END 
  
# 
*     LOCAL VARIABLE DECLARATIONS 
# 
  
      ITEM DFMSG        U;             # THE DAYFILE MESSAGE          # 
  
      MESSAGE (DFMSG, 0); 
  
      ABORT;
  
      END                            # FFSEABT #
  
      TERM
