Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (F)
Guardian Procedure Calls Reference Manual—522629-013
5-101
FILE_GETLOCKINFO_ Procedure
Example
! The following code obtains all the available information
! about locks on the specified disk file and about all the
! holders/waiters.
control := 0;
DO
BEGIN
error := FILE_GETLOCKINFO_ ( myfile:length, , , control,
lock^descriptor,
lock^descriptor^len,
participants,
max^participants );
IF (error = 0) ! success, but maybe more locks ! OR
(error = 45) ! more information available ! THEN
BEGIN
-- process the obtained information
END;
END;
UNTIL (error <> 0) AND (error <> 45);
IF error <> 1 THEN ! error 1 means end of info
BEGIN
-- handle the error
END;