*DECK DB$ABRT 
          IDENT  DB$ABRT
          TITLE  DB$ABRT - ISSUES ABORT FUNCTION
*#
* *   DB$ABRT - ISSUE ABORT FUNCTION             PAGE  1
* *   J. JAN JANIK                               DATE  10/20/75 
* DC  PURPOSE 
  
*     TO ABORT THE CP BY ISSUING THE ABT REQUEST
*#
  
          ENTRY  DB$ABRT
  
 DB$ABRT  JP     *+400000B
          ABORT 
          END 
