Programación de inversión de datos

El número devuelto por la función de creación o reemplazo num_inverso(p_num EN NÚMERO) es

aa varchar 2(20);

Cantidad entera;

Compensación;

str VARCHAR(20);

strnum VARCHAR(20);

Inicio

strnum：= to _ char(p _ num

Desplazamiento: = longitud(strnum);

Cantidad: = 1;

Para I..desplazamiento del bucle inverso 1

dbms_lob. LEER(cadena, cantidad, I, aa);

cadena:= cadena

Fin del bucle

Regresar a _ número(cadena) ;

Fin;