From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 15-NOV-1990 17:33:13.39
To:	MRGATE::"ARISIA::EVERHART"
CC:	
Subj:	Re: Useful MESSAGE information

Received:  by crdgw1.ge.com (5.57/GE 1.78)
	 id AA16120; Thu, 15 Nov 90 16:49:48 EST
Received: From UCBVAX.BERKELEY.EDU by CRVAX.SRI.COM with TCP; Thu, 15 NOV 90 12:42:15 PST
Received: by ucbvax.Berkeley.EDU (5.63/1.42)
	id AA08653; Thu, 15 Nov 90 12:32:42 -0800
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 15 Nov 90 19:07:22 GMT
From: bacchus.pa.dec.com!rust.zso.dec.com!shlump.nac.dec.com!blumon.enet.dec.com!gordon@decuac.dec.com
Organization: Digital Equipment Corporation
Subject: Re: Useful MESSAGE information
Message-Id: <17355@shlump.nac.dec.com>
References: <10670@montagar.lonestar.org>, <35916@cup.portal.com>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com


> 
> 	I needed sonething similar, but more generic.  I found that
> you could take the facility, and put a SYS$MESSAGE:<facility>MSG.EXE
> around it and get most of the messages, especially the language specific
> ones.  I used SYSMGTMSG as a default if it couldn't find anything else.
> 
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - 
> David L. Cathey		                |INET: davidc@montagar.lonestar.org

Try the following command procedure:

$	Verif = 'F$Verify(0)
$	Goto Start
$!****************************************************************************
$!  TRYMSG.COM					Douglas A. Gordon
$!						Digital Equipment Corporation
$!						29-Jan-1988
$!
$!	P1 (req) -	message code
$!
$!****************************************************************************
$!                          COPYRIGHT (C) 1988 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.
$!
$!***************************************************************************
$!
$  Start:
$	Set NoOn
$	Found = 0
$  Loop:
$	Msgfil = F$Search("Sys$Message:*.Exe")
$	If Msgfil .Eqs. "" Then Goto Exit
$	Set Message 'Msgfil'
$	Junk = F$Message(P1)
$	If F$Extract(0,7,Junk) .Eqs. "%NONAME" Then Goto Loop
$	If F$Locate("-NOMSG",Junk) .Ne. F$Length(Junk) Then Goto Loop
$	Write Sys$Output ""
$	Write Sys$Output "From ''Msgfil'..."
$	Write Sys$Output ""
$	Write Sys$Output Junk
$	Write Sys$Output ""
$	Found = 1
$  Exit:
$	If .Not. Found Then Write Sys$Output "No message found for ",P1
$	Exit 1 + (0 * F$Verify(Verif))