calcular letra de NIF

[mariaoracle]

Hola, estoy intentando de elaborar un código que :calcule la letra del NIF dado un número de DNI.

Código SQL:

DECLARE
  dni NUMBER(8):=53029797;
  numero NUMBER:=23;
  resultado FLOAT:=dni/numero;
  decimalesdni NUMBER:=2305643;
BEGIN
 
dbms_output.put_line (resultado);
dbms_output.put_line (numero*decimalesdni);
dbms_output.put_line (53029789-dni);
END;
 

Este es el código que pongo pero no me sale, alguien sabe lo que falta?
Gracias

[gnzsoloyo]

No conozco con precision lo que es el NIF, pero según la descripcion del algoritmo, sería mas o menos así:

Código SQL:

DECLARE
  dni NUMBER:=53029797;
  numero NUMBER:=23;
  resultado VARCHAR2(50);
BEGIN
   resultado := dni||SUBSTR('TRWAGMYFPDXBNJZSQVHLCKET',MOD(dni,numero)+1,1)
   dbms_output.put_line (resultado);
END;
 

[jc3000]

gnzsoloyo, correcto.

Este el algorritmo que uso yo para verificar que la letra de un dni es la correcta.

Código SQL:

SELECT SUBSTR('TRWAGMYFPDXBNJZSQVHLCKET',MOD(NUM_DNI_SIN_LETRA,23)+1,1) 
FROM DUAL;