Guardian Application Conversion Guide

Obtaining Lock Information
Converting TACL Programs
7–10 096047 Tandem Computers Incorporated
[#DEF participants STRUCT
BEGIN
STRUCT locker(0:mp-1); == mp = max participants
BEGIN
UINT flags; == <0> set for process
== clear for
== transaction
== <1:3> 0 = waiting,
== 1 = granted
== <4> internal use
== <5:15> reserved
FILLER 2; == reserved
PHANDLE process; == process holding or waiting
== for the lock
TRANSID transid == transaction holding or
REDEFINES process; == waiting for the lock
END;
END;
]
#SET control 0
#FILEGETLOCKINFO myfile control lockdesc participants