column currentsql format a80
select sess.sid, username, to_char(logon_time,'HH24:MI') logon, substr(sess.module,1,10) prog, stat.value/1024 redokb, substr(sq.sql_text,1,80) currentsql
  from v$sesstat stat, v$statname, v$session sess, v$sql sq
 where stat.statistic#=v$statname.statistic#
   and sess.sid = stat.sid
   and sess.sql_address = sq.address
   and name = 'redo size'
   and username is not null
order by logon_time
/
