This is a pair co-operating tasks for setting the time of day on an RSX node
from the system clock on a VMS system, using DECNET.  Of course, most people
who want to do this have already figured out how.  My excuse, is that I wanted
to figure out how too.

The VMS side uses non-transparent DECNET.  When the RSX system requests a
connection, the task on the VMS system rejects the connection request, but
returns the time in the 8 words of "reason for rejection" received by the RSX
task  There is much less overhead involved when no actual connection is
created.  Of course, since you only do this once in a blue moon, nobody really
cares about efficiency, but I wanted to figure out how to do this.

I found it difficult to find this information in te VMS manual set (it is
there), so perhaps referring to this code will assist others who are attempting
something similar.

Requirements:

    The RSX node which makes the request must have an ALIAS defined for MCLOCK
    to refer to the VMS node running SENDTIME.  Assuming that the VMS node was
    ARTHUR, you would use a command line similar to the following:

    			NCP SET ALIAS MCLOCK DEST ARTHUR

    Then, simply run GTIM as in:

    			RUN GTIM

    GTIM exits with success status if it works, otherwise it exits with a
    status of severe error.

    If SENDTIME.COM and SENDTIME.EXE are in the  default directory of the
    default DECNET account (usually SYS$SPECIFIC:[DECNET]), then nothing else
    would be requiired for this to work at boot time.  (That is the way that we
    run it in our shop).

    If you have proxies enabled on your system, and you desire to run this
    after the RSX system is running, it will be necessary to either provide a
    proxy to the account and directory where SENDTIME.* resides, or provide
    more information in the alias MCLOCK.

    If you place the SENDTIME.* files in a directory other than that of the default
    DECNET account, you will have to create a proxy or alias which provides
    access to the files.  Note that at RSX boot time, there is no username,
    and therefore, a proxy will not work.


Rob Brown
G. Michaels Consulting Ltd
11211 76th Avenue NW
Edmonton, Alberta
CANADA T6G 0K2

(403)438-2101
FAX  437-3367