[SWEXA.WRK]DESCRIP.COM

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     DESCRIP
$ !
$ !  Purpose:
$ !     Perform part of the DESCRIP sub-phase of a SysWorks software build.
$ !
$ !  Copyright:
$ !!    Copyright © 1999 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     07-Aug-1999 by Simon L. Jackson
$ !         Initial version
$ !
$ !--
$
$ !  Find a display computer
$       @swdev_sft_dir:swdev_build_display
$
$ ! Add DECdocument override
$       cmd = ""
$       if f$search("doc$document") .nes. "" then cmd = "swexa_document == 1"
$       if cmd .nes. "" then say cmd
$       'cmd'
$
$       exit 1 + 0*f$verify(sav_vfy)