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;