Ein kleines Musterbeispiel, wie anhand von BLZ und Kto Nummer einer deutschen Bankverbindung die IBAN erstellt wird:
P CLC_IBAN B Export
d CLC_IBAN pi
d BLZ 08a value
d KTO 10a value
d iban 24a
d bic 11a
d ds
dpN 2s 0
dpA 2a overlay(pN:01)
Dwk ds qualified
d ibnA 24a
d iBLZ 08a overlay(ibnA:01)
d iKTO 10a overlay(ibnA:09)
d iDE 4a overlay(ibnA:19)
d iPP 2a overlay(ibnA:23)
d ibnN 24s 0 overlay(ibnA:01)
/free
//——————————————————————–
wk.ibnA = *blanks;
wk.iblz = blz;
wk.ikto = kto;
wk.iDE = ’1314′;
wk.iPP = ’00′;
pN = %rem(wk.ibnn : 97);
pN = 98 – pN;
IBAN = ‘DE’+pA+wk.iBLZ+wk.iKTO;
*inlr = *on;
return ;
//———————————————————————–
/End-Free
p e end-procedure