/* 
This example of 4GL code will display Table Statistics for one user ( your session ).
It will work with Progress starting V10.1B after proutil -C updatevst is done on a connected database. 

Dmitri Levin
*/

find first _MyConnection no-lock. for each _UserTableStat where _UserTableStat-Conn = _MyConnection._MyConn-UserId no-lock: find _file where _file-num = _UserTableStat-Num no-lock no-error. if available _file then display _UserTableStat._UserTableStat-Num _file-name format "x(20)" _UserTableStat-read format ">>>>>>>>>>" _UserTableStat-create format ">>>>>>>>>>" _UserTableStat-update format ">>>>>>>>>>" _UserTableStat-delete format ">>>>>>>>>>". end. With sports database it will look something like that Table # File-Name read create update delete ::::::: :::::::::::::::::::: :::::::::: :::::::::: :::::::::: :::::::::: 1 Invoice 5 2 Customer 2 1 3 Item 4 Order 6 5 Order-Line 21 6 Salesrep 7 State 52 8 Local-Default 9 Ref-Call /* This example of 4GL code will display Index Statistics for your session Dmitri Levin */ find first _MyConnection no-lock. for each _UserIndexStat where _UserIndexStat-Conn = _MyConnection._MyConn-UserId no-lock: find _index where _index._idx-num = _UserIndexStat-Num no-lock no-error. if available _index then do: find _file where recid(_file) = _File-recid no-lock no-error. if available _file and not _file._hidden then do: display _index-name format "x(18)" _file-name format "x(16)" _UserIndexStat-read format ">>>,>>>,>>>" _UserIndexStat-create format ">>>>>>>>" _UserIndexStat-split format ">>>>>>" _UserIndexStat-delete format ">>>>>>" _UserIndexStat-blockdelete format ">>>>>" label "blkdel". end. end. end.

1