select le.leseq "Current log sequence No", 100*cp.cpodr_bno/le.lesiz "Percent Full", cp.cpodr_bno "Current Block No", le.lesiz "Size of Log in Blocks" from x$kcccp cp join x$kccle le on cp.cpodr_seq = le.leseq and bitand(le.leflg,24)=8 -- Current log ;