CREATE FUNCTION Obtener_Nif( num NUMBER ) RETURN VARCHAR2 IS

numero NUMBER
resultado VARCHAR2

BEGIN

numero := 23
resultado= num || substr( 'TRWAGMYFPDXBNJZSQVHLCKET' , MOD(num, numero)+1,1)
end Obtener_Nif
return(resultado)

WHEN NO_DATA_FOUND THEN
return '0'

END