[SWEXA.WRK]GRANT.COM_SRC

$       SAV_VFY = 'F$VERIFY("NO")'
$ !
$ !  DCL command procedure:
$ !     GRANT
$ !
$ !  Purpose:
$ !     Application GRANT command procedure which is executed in batch under the
$ !     application username when a user is granted access to the application.
$ !
$ !  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 "  Granting ''P1' access to application ''CUR_APP' in ''CUR_ENV'"
$
$       EXIT 1 + 0*F$VERIFY(SAV_VFY)