BEGIN {FS="|"} { i=1; io=0; db=0; cs=$7 print "" print "Timestamp \t" strftime("%Y-%m-%d %H:%M:%S",$(i++)); print "TID \t" $(i++); print "RecType \t" $(i++); print "OsUser \t" $(i++); print "DbUser \t" $(i++); print "ConnTime \t" $(i++); print "ConnSecs \t" $(i++); print "IO_READ \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); io+=$(i-1) print "DBFIND \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBGET \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBGETB \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBPUT \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBUPDATE \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBDELETE \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBLOCK \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "DBUNLOCK \t" $(i++) " " $(i++) " " $(i++) ($(i-2) > 0 ? " avg " $(i-1) / $(i-2) : ""); db+=$(i-1) print "TXBEGIN \t" $(i++) " " $(i++) " " $(i++); db+=$(i-1) print "TXCOMMIT \t" $(i++) " " $(i++) " " $(i++); db+=$(i-1) print "TXROLLBACK \t" $(i++) " " $(i++) " " $(i++); db+=$(i-1) # remove or comment out the following line on Eloquence versions before 8.20 print "OTHER \t" $(i++) " " $(i++) " " $(i++); db+=$(i-1) print "ClientIP \t" $(i++); print "AppEnv \t" $(i++); print "" print "time spent in db calls = " db/1000000 " sec" (cs > 0 ? " (" db/cs/10000 "% of connect time)" : "") print "time spent in io reads = " io/1000000 " sec" (cs > 0 ? " (" io/cs/10000 "% of connect time)" : "") print "" }