[GENDYN]	General Dynamics Data Systems Division

I am including 3 items this Symposium (Spring 1987):

An update to the LOCK utility, which allows DCL processes to synchronise
using the Distributed Lock Manager.  There is a minor technical change
in this one; namely, it now complains if it finds a reserved logical name
that it didn't create.  LOCK has also been registered with Digital, so it
is guaranteed unique as a command - that is, Digital will never release a
product that conflicts with it, and will never allow a registered vendor
product to do so, although unregistered products might.  LOCK is included
as a VMSINSTAL installation kit, and I have included the source in the
kit, if you're interested.

A program which will differentiate between a VT220 and a VT240 or VT241.
VT200_KIND creates a local DCL symbol stating which type of terminal
the process is using.  This obviously has limited usefulness; it was written
to supplement SET TERMINAL /INQUIRE, which is getting smarter all the
time, but hasn't reached this granularity yet.

Thirdly, an object module which will allow applications to add another line
to the output from CTRL/T.  Link the LIBMESSAGE.OBJ module into your code,
and call it with

	ret-status.wlc.v = LIB_SET_MESSAGE ([msgtxt.rt.d])

If called from a non-interactive job, the return status will be SHR$_NOTTERM
(warning).

Whenever CTRL/T is typed, your text will be displayed on a separate line
from DCL's output - however, the order in which your message and DCL's
will appear IS NOT 100% PREDICTABLE, due to the use of $BRKTHRU.  If passed
a null parameter (NOT a null string!), any existing message will be disabled.
Each call replaces any existing message with the new text.

I'm not including sources for this one, as it is not my best code, and doesn't
conform to the Modular Programing Standard.  When it does, I will include
the source.


For more information about these items, please contact

	Ken A L Coar
	Data Systems Division
	General Dynamics
	12101 Woodcrest Executive Drive
	Creve Coeur, MO   63141

Phone:			(314) 851.4003
Digital Village:	COAR
DCS:			COAR
EM/OS:			COAR,KA