Diferencia entre revisiones de «Algoritmia/Algoritmo para obtener la letra del NIF»
Contenido eliminado Contenido añadido
He añadido un modulo de Cobol que encuentra la letra del DNI. |
He mejorado el programa de cobol |
||
Línea 344:
EXIT.
3000-PROCESO.
COMPUTE AUX-RESTO = FUNCTION MOD (COM-DNI, CTE-23) + 1.
▲ MOVE TBL-LETRA(AUX-RESTO + 1) TO COM-LETRA.
3000-PROCESO-EXIT.
|