[SWEXA.WRK]SHUTDOWN.COM_SRC

$       sav_vfy = 'f$verify("no")'
$ !++
$ !
$ !  DCL command procedure:
$ !     SHUTDOWN
$ !
$ !  Purpose:
$ !     Application SHUTDOWN command procedure which is executed in batch under
$ !     the application username during system shutdown and disk dismounts to
$ !     get the application into a shutdown state.
$ !
$ !  Copyright:
$ !     Copyright © 1987 - 1998 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     21-Nov-1998 by SLJ
$ !         Standardise context handling
$ !     19-Feb-1994 by Simon L. Jackson
$ !         New version
$ !
$ !--
$
$       say "  Shutting down application ''cur_app' in ''cur_env'"
$
$       utltools fetch subcontext
$       deassign/all/table='lnt_ctx'
$
$       exit 1 + 0*f$verify(sav_vfy)