[SWEXA.WRK]RECOVER.COM_SRC

$       sav_vfy = 'f$verify("no")'
$ !++
$ !
$ !  DCL command procedure:
$ !     RECOVER
$ !
$ !  Purpose:
$ !     Application RECOVER command procedure which is executed in batch under
$ !     the application username during system boot and disk mounts if the
$ !     application is any intermediate state between AVAILABLE and SHUTDOWN.
$ !
$ !  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 "  Recovering application ''cur_app' in ''cur_env'"
$
$       utltools fetch subcontext
$       deassign/all/table='lnt_ctx'
$
$       exit 1 + 0*f$verify(sav_vfy)