[SWEXA.WRK]STOP.COM_SRC

$       SAV_VFY = 'F$VERIFY("NO")'
$ !
$ !  DCL command procedure:
$ !     STOP
$ !
$ !  Purpose:
$ !     Application STOP command procedure which is executed in batch under
$ !     the application username when the application is to enter interactive
$ !     mode.  This command procedure is executed either by the SHUTDOWN command
$ !     procedure, or between the execution of the BOOT and SHUTDOWN command
$ !     procedures when there is a distinction between the interactive and
$ !     non-interactive modes of an application.
$ !
$ !  Copyright:
$ !     Copyright © 1987 - 1992 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     10-May-1990 by Simon L. Jackson
$ !         New version
$ !
$
$       SAY "  Stopping interactive mode for application ''CUR_APP' in ''CUR_ENV'"
$
$       EXIT 1 + 0*F$VERIFY(SAV_VFY)