Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!XEROX.COM!"James_A._Gray.OsbuSouth"
From: "James_A._Gray.OsbuSouth"@XEROX.COM
Newsgroups: comp.os.vms
Subject: Re: SID Register
Message-ID: <870419-022348-3613@Xerox>
Date: Sun, 19-Apr-87 04:23:29 EST
Article-I.D.: Xerox.870419-022348-3613
Posted: Sun Apr 19 04:23:29 1987
Date-Received: Sun, 19-Apr-87 17:58:04 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 17

Just in case noone else has answered you by now ...

You can get the value of the SID register by calling:

From FORTRAN:
	status = LIB$GETSYI (SYI$_SID, value)
		status is I*4 return status (or condition value)
		value is I*4 SID contents

From DCL:
	value = F$GETSYI ("SID")

I believe that current distributions of FORTRAN include the library
module $SYIDEF but just in case they don't, the value of SYI$_SID is
4097 (decimal).

	Jim