');
-- open cursor
FOR l_row IN (
SELECT file_id,
block_id,
block_id + blocks - 1 AS end_block,
blocks,
owner,
segment_name,
partition_name,
segment_type
FROM dba_extents
WHERE tablespace_name = '&&cs_tablespace_name.'
UNION ALL
SELECT file_id,
block_id,
block_id + blocks - 1 AS end_block,
blocks,
'free' AS owner,
'free' AS segment_name,
NULL AS partition_name,
NULL AS segment_type
FROM dba_free_space
WHERE tablespace_name = '&&cs_tablespace_name.'
ORDER BY 1, 2
)
LOOP
l_tot_extents := l_tot_extents + 1;
IF l_row.segment_name = 'free' THEN l_free_blocks := l_free_blocks + l_row.blocks; ELSE l_busy_blocks := l_busy_blocks + l_row.blocks; END IF;
IF '&&cs_grouping.' = 'PARTITION' THEN l_segment := TRIM('.' FROM l_row.segment_name||'.'||l_row.partition_name); ELSE l_segment := l_row.segment_name; END IF;
IF '&&cs_coalesce_contiguous_extents.' = 'Y' THEN l_group := l_row.file_id||' '||l_segment; ELSE l_group := l_row.file_id||' '||l_segment||' '||l_row.block_id; END IF;
--
IF l_rowcount = 0 THEN
l_prior_segment := l_segment;
l_prior_group := l_group;
l_prior_file_id := l_row.file_id;
l_block_id_from := l_row.block_id;
END IF;
l_rowcount := l_rowcount + 1;
--
IF l_group = l_prior_group THEN
l_block_id_to := l_row.end_block;
l_blocks := l_blocks + l_row.blocks;
l_extents := l_extents + 1;
ELSE
-- max of 50 cells per row
IF mod(l_group_count,50) = 0 THEN
l_map_row := l_map_row + 1;
put_line(l_prior_file_id, l_map_row, l_group_count, '
');
l_map_row := l_map_row + 1;
END IF;
l_group_count := l_group_count + 1;
-- set cell color
IF l_prior_segment = 'free' THEN l_cellcolor := 'Azure'; ELSE l_cellcolor := 'Gray'; END IF;
-- display space cells
put_line(l_prior_file_id, l_map_row, l_group_count, '
');
--
l_prior_segment := l_segment;
l_prior_group := l_group;
l_prior_file_id := l_row.file_id;
l_block_id_from := l_row.block_id;
l_block_id_to := l_row.end_block;
l_blocks := l_row.blocks;
l_extents := 1;
END IF;
END LOOP;
-- set cell color for last cell and display it
IF l_prior_segment = 'free' THEN l_cellcolor := 'Azure'; ELSE l_cellcolor := 'Gray'; END IF;
put_line(l_prior_file_id, l_map_row, l_group_count, '
');
l_map_row := l_map_row + 1;
put_line(l_prior_file_id, l_map_row, l_group_count, '
');
-- process put lines
FOR i IN (SELECT plan_id AS file_id, parent_id AS map_row, id AS group_count, remarks AS line FROM plan_table WHERE statement_id = '&&cs_file_date_time.' ORDER BY plan_id, CASE '&&cs_top_or_bottom.' WHEN 'BOTTOM' THEN -1 ELSE 1 END * parent_id, id)
LOOP
-- check if a new datafile
IF i.file_id <> l_file_id THEN
l_file_id := i.file_id;
SELECT name INTO l_datafile FROM v$datafile WHERE file#=l_file_id;
print_line('
'||'File '||l_file_id||':' ||l_datafile||'
');
END IF;
--
print_line(i.line);
END LOOP;
-- javascript to color selected segments
print_line('');
-- closing html tags
print_line('