Generate dd command to corrupt datablock
set heading off
set lines 120
SELECT 'dd of=' || f.file_name || ' bs=8192 conv=notrunc seek=' ||
to_number(s.header_block + 1) || ' << EOF',
'##corruptedbloc##',
'EOF'
FROM dba_segments s
JOIN dba_tables t ON s.owner = t.owner AND s.segment_name = t.table_name
JOIN dba_data_files f ON f.tablespace_name = t.tablespace_name
WHERE (t.owner, t.table_name) = ('TEST', 'TEST');