SUBROUTINE ABORT
      PARAMETER (SS$_ABORT='002C'X)
      CALL LIB$STOP(%VAL(SS$_ABORT))
      END