$!***************************************************************************
$!
$!                              Forms$Msg_Build.Com
$!
$!                             Copyright (c) 1989 By
$!                       Digital Equipment Corporation, Maynard
$!                        Massachusetts.  All Rights Reserved.
$!
$!  This software is furnished under a license and may be used and copied
$!  only in accordance with the terms of such license and with the inclusion
$!  of the above copyright notice.  This software or any other copies
$!  thereof may not be provided or otherwise made available to any other
$!  person.  No title to and ownership of the software is hereby transferred.
$!
$!  The information in this software is subject to change without notice and
$!  should not be construed as a commitment by Digital Equipment Corporation.
$!
$!  Digital assumes no responsibility for the use or reliability of its
$!  software on equipment that is not supplied by Digital.
$!
$!***************************************************************************
$!
$! This command procedure builds the DECforms run-time message file.  Note, 
$! this procedure must be run interactively.
$!***************************************************************************
$
$ !+
$ ! Set up error handling; make sure the procedure is being executed
$ ! interactively; define current directory as MSG$.
$ !-
$
$ On Error Then GoTo Abort
$ On Control_Y Then GoTo Abort
$
$ If "''F$Mode()" .Nes. "INTERACTIVE" Then GoTo No_Run
$ Define Msg$ SYS$COMMON:[SYSHLP.EXAMPLES.FORMS.MESSAGES]
$
$ !+
$ ! Build the non-executeable shareable image for the Forms Manager.
$ !-
$
$ Message/Obj=Msg$:  /List=Msg$: Msg$:Forms$Msg_Run_Time.Msg
$ 
$ Link -
    /Shareable=Msg$:Forms$MsgMgrShr.Exe -
    /Map=Msg$:Forms$MsgMgrShr.Map /Full /Cross -
    /NoTrace -
    /NoDebug  -
Msg$:Forms$Msg_Run_Time.Obj
$ 
$ !+
$ ! Instruct to test and copy non-executable message files.
$ !-
$
$ Type Sys$Input:

        Successful build of DECforms run-time message file...

        Please see instructions regarding testing and final
        placement of message file.

$
$ Exit
$
$Abort:
$ Type Sys$Input:

        Message file build has failed.

$ Exit
$ 
$ No_Run:
$ Type Sys$Input

        Forms$Msg_Build.Com aborted...
        This procedure must be executed interactively.

$ Exit
$
$ !+
$ ! End of Forms$Msg_Build.Com
$ !-