[SWEXA.WRK]REVOKE.COM_SRC

$       SAV_VFY = 'F$VERIFY("NO")'
$ !
$ !  DCL command procedure:
$ !     REVOKE
$ !
$ !  Purpose:
$ !     Application REVOKE command procedure which is executed in batch
$ !     under the application username when a user has their access to
$ !     the application revoked.
$ !
$ !  Parameters:
$ !     P1 = Application user username
$ !
$ !  Copyright:
$ !     Copyright © 1987 - 1992 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     10-May-1990 by Simon L. Jackson
$ !         New version
$ !
$
$       SAY "  Revoking ''P1''s access to application ''CUR_APP' in ''CUR_ENV'"
$
$       EXIT 1 + 0*F$VERIFY(SAV_VFY)