Тестовая программа для подбора контрольного номера IBAN

*&---------------------------------------------------------------------*
*& Report  ZTEST_IBAN_CHECK
*& http://iban.kz/
*&---------------------------------------------------------------------*
*& Справочник банков
*& http://www.banker.kz/index.php/topic/33308-spravochnik-bik-bankov-vtorogo-urovnja-respubli/
*& www.nationalbank.kz/cont/publish690085_5841.xls
*&---------------------------------------------------------------------*
report ztest_iban_check.

data: gv_iban type iban.

parameters: p_bnklz like bnka-bnklz default '125' obligatory.

start-of-selection.
  gv_iban = 'KZ000000000000000000'. "Счёт IBAN для Казахстана содержит 20 знаков и начинается с KZ
  gv_iban+4(3) = p_bnklz(3). "Для Казахстана код банка содержит три цифры и помещается в 5-6-7 знаке IBAN
  do 99 times.
    gv_iban+2(2) = sy-index. "" Подбираем контрольную сумму. Она содержится в 3-4 знаке IBAN
    call function 'CHECK_IBAN'
      exporting
        i_iban    = gv_iban
      exceptions
        not_valid = 1
        others    = 2.
    if sy-subrc <> 0.
*      write: / 'ERR', gv_iban.
    else.
      write: / 'OK!', gv_iban.
    endif.
  enddo.
end-of-selection.