[SWEXA.WRK]EXIT.COM_SRC

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     EXIT
$ !
$ !  Purpose:
$ !     Exit procedure for SysWorks component application.
$ !
$ !  Copyright:
$ !!    Copyright © 1987 - 2005 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     28-Apr-2005 by SLJ
$ !         Add Ada support
$ !     27-Mar-1999 by SLJ
$ !         Add special qualifiers
$ !     02-Jul-1997 by SLJ
$ !         Add setup for non SysWorks site builds
$ !     09-Jun-1992 by Simon L. Jackson
$ !         New version
$ !
$ !--
$
$       cmd_prc := swrk_sft_dir:swrk_exit_non_swtech.com
$       site_code = f$trnlnm("swrk_site_dependent_code","lnm_swrk_database")
$       if site_code .nes. "SWT" then if f$search(cmd_prc) .nes. "" then @'cmd_prc'
$
$ !  Restore BUILD and COMPILE commands
$       swdev_build_default_qualifiers == sav_swdev_build_default_qualifiers
$       swdev_compile_default_qualifiers == sav_swdev_compile_default_qualifiers
$
$       delsym := delete/symbol/global
$       delsym sav_swdev_build_default_qualifiers
$       delsym sav_swdev_compile_default_qualifiers
$
$ !  Remove Ada library
$       if f$trnlnm("ada$predefined") .nes. "" then deassign ada$lib
$
$       exit 1 + 0*f$verify(sav_vfy)