[SWEXA.WRK]SECURE.COM_SRC

$       sav_vfy = 'f$verify("no")'
$ !++
$ !
$ !  DCL command procedure:
$ !     SECURE
$ !
$ !  Purpose:
$ !     Application SECURE command procedure which is executed in batch under
$ !     the application username by the secure application task.
$ !
$ !  Copyright:
$ !     Copyright © 1987 - 1996 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     09-Jul-1996 by SLJ
$ !         Add call to SWRK_INSTALL_PART_4
$ !     19-Feb-1994 by Simon L. Jackson
$ !         New version
$ !
$ !--
$
$       utltools fetch subcontext
$
$       say "  Securing ''dsc_ctx'"
$
$       if cur_env .eqs. "PROD" then @swrk_sft_dir:swrk_install_part_4 swexa
$
$       exit 1 + 0*f$verify(sav_vfy)