Power Builder - CALCULO DIGITO IBAN

Hola , alguien tiene una funcion en power builder para calcular el codigo IBAN de una cuenta corriente.

Por ejemplo :
Su estructura es la siguiente:
Los dos primeros caracteres alfabéticos identifican al país donde se mantiene la cuenta. En e caso de España, ES.
Los dos siguientes, son dígitos de control que permiten validar el IBAN completo.
La parte final es el número de cuenta nacional.
En España está compuesto por 20 caracteres numéricos que identifican la identidad bancaria (4 dígitos), Oficina donde está domiciliada la cuenta (4 dígitos) Dígitos de control (2 dígitos) número de cuenta (10 dígitos).

Un ejemplo nos ayudará a comprender la estructura del IBAN:

Cuenta Nacional: 2096 0999 26 1234567890

Cuenta IBAN ES67 20960999261234567890.

Gracias
Un saludo

Hola,

Te pego el código del calculo del IBAN

String i_iban

i_cuenta = i_cuenta
i_iban = String( MOD(Double(mid(i_cuenta,1,16)), 97))
i_cuenta =i_iban+mid( i_cuenta,17,4) + "142800"
i_iban = String(98 - MOD(Double(mid(i_cuenta,1,16)), 97))

IF Len(i_iban) = 1 THEN i_iban = "0" + i_iban
i_iban = 'ES' + i_iban

RETURN i_iban