/* lrinfo.p
 *
 * count logical IO operations between invocations
 *
 */

define new global shared variable lr as integer no-undo.

find _myconnection no-lock.

find first _userio no-lock where
  _userio._userio-usr = _myconnection._myconn-userid no-error.

display
  "   Total Log IO:" _userio._userio-dbaccess      format ">>>,>>>,>>9" skip
  "Interval Log IO:" _userio._userio-dbaccess - lr format ">>>,>>>,>>9" skip
 with frame lrinfo.

lr = _userio._userio-dbaccess.

pause.

hide frame lrinfo.

return.