How to calculate the IBAN digit control 1

[pepmarti]

entidad = "4545"
oficina = "4545"
dc = "30"
compte = "4545454545"

*** donde 1428 es el de españa
*** devuelve un nº si es < 0 hay que añadir &quot;0&quot;

iban = entidad+oficina
mod_1 = mod(val(iban),97)
iban = &quot;&quot;+alltrim(str(mod_1))+dc+substr(compte,1,2)
mod_1 = mod(val(iban),97)
iban = &quot;&quot;+alltrim(str(mod_1))+substr(compte,3,10)+&quot;1428&quot;+&quot;00&quot;
mod_iban = mod(val(iban),97)
cc_iban = 98-mod_iban
wait window str(cc_iban)