Oracle - calculo de la letra del dni

por favor, alguien tiene el procedimiento que te calcula la letra del dni???

muchas gracias por adelantado!!

Un saludo. Ana

wdni :=p_dni;
SELECT DECODE (MOD(wdni,23),0,'T',1,'R',2,'W',3,'A',4,'G',5,'M',6,'Y',
7,'F', 8,'P', 9,'D',10,'X',11,'B',12,'N',13,'J',14,'Z',15,'S',
16,'Q',17,'V',18,'H',19,'L',20,'C',21,'K',22,'E')
INTO rdo
FROM dual;

Esto te retorna la letra que le correponde al dni que introduzcas.

Salu2.

El procedimiento empleado para el cálculo consiste en hallar el módulo (o resto) de dividir el DNI por 23, eliminar los decimales y el número resultante multiplicarlo por 23, para finalmente calcular la diferencia entre el DNI y este número. el número resultante (comprendido entre 0 y 22) tiene una letra asignada (la secuencia no es correlativa). ¡Bastante sencillo! o ¿No?

La secuencia es esta:
T R W A G M Y F P D X B N J Z S Q V H L C K E