View Locked Tables

[WolfStone]

We Use:
Progress 91x
Win2000

I would like to see, what Tables are locked in my programm.
The Application is wating in a DO WHILE loop.

In the Promon Utility, you can only see the TableNumber and the recid but we could not find any TableName. The Tablenumber also give no information about the Table-name (I think so )

Could anybody help me?

 

[Kirmik]

This will show all tables locked by you:

FOR EACH _lock:
	WHERE _lock._lock-name = "Your user ID"
	AND _lock._lock-type <> ?:
 
	/* find the locked table */
	FIND _file
		WHERE _file._file-number = _lock-table.
 
	DISPLAY 
		_file._file-name	/* Table name */
		_lock._lock-flags. /* lock type X=exclusive S=shared etc. */
END.

hope that helps
[EDIT] - This assumes that you are only connecting to one database

 

[WolfStone]

Thanks very much.