There is a program, called RININFO, which appears to still work quite
nicely for current systems - at least up to 5.5 - and probably higher.
I remember Ben's work with rins. In fact, I was one of those 250 people
that attended his award-winning session in Detroit. Wow, was it that long ago?
It wouldn't surprise me if RININFO is an alias of Ben's SHOWRIN.
It works as follows:
:run rininfo.priv
-------------------------------------------------------------------------------
RININFO (A.00.00) MPE V - HP3000 System Support Tool
SAT, SEP 2, 2000, 4:48 PM Copyright Hewlett - Packard Co. 1983,1986
RININFO is designed for use by Hewlett Packard Support personnel only.
HP IS NOT LIABLE FOR DAMAGES RESULTING FROM UNAUTHORIZED USE
-------------------------------------------------------------------------------
This program will print out all information relative to RINs.
RINs are typically used to guarantee temporary exclusive access to some
resource, such as a file, data segment, device, or program. MPE
provides intrinsics to lock RINs, thus assuring that no other
user has the RIN locked.
There are really three type of RINs: Local, File, and Global.
LOCAL RINs are only used in a Process-Handling environment and are known only
to the job/session which acquires them.
FILE RINs are used by the File System for file locking.
GLOBAL RINs are used by programs which need to lock resources across job or
session boundaries. These are aquired one at a time by the :GETRIN command
and are released by the :FREERIN command.
This program will print out the configured size of the RIN table (local, file,
and global) and the maximum number of Global RINs allowed. When listing
the Global RINs, the RIN number,creator, and RIN password will be shown.
The active RIN display will show the active RIN number, type, if it's locked
(HOLDING PIN) and if there is a Waiting PIN for the RIN to be unlocked.
There are four entry points into this program, they are:
ACTIVE Only produces the Active RIN display
ALL Produces ALL displays
GLORIN Only produces info on GLOBAL RINs
LOOP Allows you to loop showing the current usage and min/max usage.
Use the ;PARM= to set the pause time (default 15 seconds)
END OF PROGRAM
:run rininfo.priv,all
-------------------------------------------------------------------------------
RININFO (A.00.00) MPE V - HP3000 System Support Tool
SAT, SEP 2, 2000, 4:49 PM Copyright Hewlett - Packard Co. 1983,1986
RININFO is designed for use by Hewlett Packard Support personnel only.
HP IS NOT LIABLE FOR DAMAGES RESULTING FROM UNAUTHORIZED USE
-------------------------------------------------------------------------------
Total number of RINs configured: 156
Total number of GLOBAL RINs configured: 64
Current number of LOCAL RINs in use: 0
Current number of GLOBAL RINs in use: 2
Current number of FILE RINs in use: 0
Current number of RINs AVAILABLE: 154
GLOBAL RIN information:
RIN# CREATOR PASSWORD
==== ======= ========
1 MGR .HPOFFICE WORDRIN
2 MGR .HPOFFICE WORDRIN
ACTIVE RINs STATUS:
RIN# 1 GLOBAL Holding PIN# 0 Waiting PIN# 0 NOT LOCKED
RIN# 2 GLOBAL Holding PIN# 0 Waiting PIN# 0 NOT LOCKED
END OF PROGRAM
:
---------------------------------------------------------------------------
Gilles Schipper
GSA Inc.
HP3000 & HP9000 System Administration Specialists
300 John Street, Box 87651 Thornhill, ON Canada L3T 7R4
Voice: 905.889.3000 Fax: 905.889.3001
Internet: [log in to unmask]
---------------------------------------------------------------------------
|
