TACL Reference Manual

Built-In Functions and Variables
HP NonStop TACL Reference Manual—429513-018
9-252
#LOCKINFO Built-In Function
#PUSH count start stop
#SET tag 0
== Get name of volume to be searched for locks.
SINK [#ARGUMENT /VALUE vol/ DEVICE]
== Loop through all locks on volume.
[#LOOP |DO|
== Get lock info.
#SETMANY err tag, [#LOCKINFO 0 [vol] [tag] buffer]
== Check if locks found.
[#IF (( err = 0) OR (err = 45 )) |THEN|
== Display lib info for this resource.
DISPLAY_LIB
== Display all labinfo entries obtained on this call &
to #LOCKINFO.
DISPLAY_LAB
== More lockers/waiters for this same resource?
[#IF (err=45) |THEN|
#OUTPUT There were more lockers/waiters for this
#OUTPUT resource than would fit in the buffer.
]
] == Locks found.
|UNTIL| (( err <> 0) AND (err <> 45))
] == end #LOOP
== Error 1 is normal termination. Otherwise:
[#IF (err <> 1) |THEN|
#OUTPUT Error [err] on [vol]
]
#UNFRAME
Additional information is available in the Guardian Procedure Calls Reference Manual.