DTSS

[djk]

How do I determine if DTSS is running?

[Steven Schweda]

Perhaps:

show system /process = *dtss*

Somewhat crude:

ALP $ set time = 15:03
%SET-E-NOTSET, error modifying time
-SYSTEM-E-TIMENOTSET, time service enabled; enter a time service command to update the time

There are probably good ways, too.

[H_Bachner]

$ MC NCL SHOW DTSS STATE
should show you whether DTSS is defined at all (if not, you get an "entity class not supported" or similar message), and if, whether it is enabled (running).

This is at least true for the various incarnations of DECnet Phase V, DECnet/OSI and DECnet-Plus (different names for the same product across several versions). If you are using DECnet Phase 5 Extensions on (Open)VMS/VAX 5.x, I'm not sure how you'd exactly check for DTSS presence. Scanning SHOW SYSTEM output (as the previous post suggests) would probably help.

HTH,
Hans.

[John Gillings · Accepted solution]

There are a number of logical names defined when DTSS is running. I have code that determines if DTSS is running by the existence of logical name DTSS$_SERVICE_ACTIVE in the system logical name table.

$ IF F$TRNLNM("DTSS$_SERVICE_ACTIVE").NES.""
$ THEN
...

You can find other useful things like the host it's synching from. See $ SHOW LOGICAL DTSS$*

You could also look for the existence of DTSS processes.

$ ctx = ""
$ temp = F$CONTEXT ("PROCESS", ctx, "PRCNAM", "DTSS$*","EQL")
$ IF F$PID(ctx).NES."" THEN (at least one DTSS$ process exists)

when finished, clean up context

$ IF F$TYPE(ctx) .eqs. "PROCESS_CONTEXT" THEN temp = F$CONTEXT ("PROCESS", ctx, "CANCEL")

[djk]

Good recommendations from all. Much thanks.