Script to know the disk file operations

SETPAUSEON
SETPAUSE'Press Return to Continue'
SETPAGESIZE60
SETLINESIZE300
COLUMN"File Type"fora20
COLUMN"File Operation"fora80

select
decode(p3,0 ,'Other',
1 ,'Control File',
2 ,'Data File',
3 ,'Log File',
4 ,'Archive Log',
6 ,'Temp File',
9 ,'Data File Backup',
10,'Data File Incremental Backup',
11,'Archive Log Backup',
12,'Data File Copy',
17,'Flashback Log',
18,'Data Pump Dump File',
'unknown '||p3)"File Type",
decode(p1,1 ,'file creation',
2 ,'file open',
3 ,'file resize',
4 ,'file deletion',
5 ,'file close',
6 ,'wait for all aio requests to finish',
7 ,'write verification',
8 ,'wait for miscellaneous io (ftp, block dump, passwd file)',
9 ,'read from snapshot files',
'unknown '||p1)"File Operation",
decode(p3,2,-1,p2)file#,
count(*)
fromdba_hist_active_sess_history
whereevent ='Disk file operations I/O'
groupbyp1,p3,
decode(p3,2,-1,p2)
/