Problems with code

Hola a todos, estoy haciendo un pequeño codigo para medir el cambio de tamño de la BD y los esquemas, pero tengo problemas con el codigo, el cual es el siguiente:
declare
cursor tam_esquema is select owner, round(sum(bytes)/1024/1024/1024,3) tam from dba_segments where segment_name not like 'BIN$%' group by owner order by tam desc;
owner sys.dba_segments.owner%type;
tamano_act sys.dba_segments.bytes%type;
tamano_ant sys.dba_segments.bytes%type;
dia number;
mes number;
ano number;
dia_ant number;
porc number;
begin
select to_number(to_char(sysdate,'DD')) into dia from dual;