WITH times AS
(SELECt
hour_end_time
FROM (SELECt (TRUNC(SYSDATE, ‘HH’) + (2 / 24)) – (ROWNUM / 24) hour_end_time
FROM DUAL
ConNECT BY ROWNUM <= (1 * 24) + 3),
v$database
WHERe log_mode = ‘ARCHIVELOG’)
SELECt hour_end_time, NVL(ROUND(SUM(size_mb), 3), 0) size_mb, i.instance_name
FROM(
SELECt hour_end_time, CASE WHEN(hour_end_time – (1 / 24)) > lag_next_time THEN(next_time + (1 / 24) – hour_end_time) * (size_mb / (next_time – lag_next_time)) ELSE 0 END + CASE WHEN hour_end_time < lead_next_time THEN(hour_end_time – next_time) * (lead_size_mb / (lead_next_time – next_time)) ELSE 0 END + CASE WHEN lag_next_time > (hour_end_time – (1 / 24)) THEN size_mb ELSE 0 END + CASE WHEN next_time IS NULL THEN(1 / 24) * LAST_VALUE(CASE WHEN next_time IS NOT NULL AND lag_next_time IS NULL THEN 0 ELSE(size_mb / (next_time – lag_next_time)) END IGNORE NULLS) OVER(
ORDER BY hour_end_time DESC, next_time DESC) ELSE 0 END size_mb
FROM(
SELECt t.hour_end_time, arc.next_time, arc.lag_next_time, LEAD(arc.next_time) OVER(
ORDER BY arc.next_time ASC) lead_next_time, arc.size_mb, LEAD(arc.size_mb) OVER(
ORDER BY arc.next_time ASC) lead_size_mb
FROM times t,(
SELECt next_time, size_mb, LAG(next_time) OVER(
ORDER BY next_time) lag_next_time
FROM(
SELECt next_time, SUM(size_mb) size_mb
FROM(
SELECt DISTINCT a.sequence#, a.next_time, ROUND(a.blocks * a.block_size / 1024 / 1024) size_mb
FROM v$archived_log a,(
SELECt
CASE WHEN TO_NUMBER(pt.VALUE) = 0 THEN 1 ELSE TO_NUMBER(pt.VALUE) END VALUE
FROM v$parameter pt
WHERe pt.name = ‘thread’) pt
WHERe a.next_time > SYSDATE – 3 AND a.thread# = pt.VALUE AND ROUND(a.blocks * a.block_size / 1024 / 1024) > 0)
GROUP BY next_time)) arc
WHERe t.hour_end_time = (TRUNC(arc.next_time(+), ‘HH’) + (1 / 24)))
WHERe hour_end_time > TRUNC(SYSDATE, ‘HH’) – 1 – (1 / 24)), v$instance i
WHERe hour_end_time <= TRUNC(SYSDATE, ‘HH’)
GROUP BY hour_end_time, i.instance_name
ORDER BY hour_end_time
