procedimiento almacenado para IBAN

[lakasito]

Para el que le interese, con esta función se calcula el código IBAN para una cuenta de España (ESXX):

Código SQL:

FUNCTION fn_calculate_IBAN(
  pIBAN IN VARCHAR2
) RETURN VARCHAR2 AS
      total INTEGER:=0;
      modulus INTEGER:=97;
      IBAN VARCHAR2(256);
      letra_E VARCHAR2(2):=14;
      letra_S VARCHAR2(2):=28;
      cero VARCHAR2(2):=0;
      lResult INTEGER;
      codSpain VARCHAR2(2):='ES';
      lResultStr VARCHAR2(24);
    BEGIN
      IBAN:= pIBAN || letra_E || letra_S || cero || cero;
      
       total:= TO_NUMBER(MOD(IBAN,modulus));
       total:= TO_NUMBER((98 - total));
       lResultStr:= TO_CHAR(total);
       lResultStr:= codSpain || lResultStr;
      RETURN lResultStr;
    END fn_calculate_IBAN;