Advertisement
Guest User

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

a guest
Sep 24th, 2012
316
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.31 KB | None
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZTEST_IBAN_CHECK
  3. *& http://iban.kz/
  4. *&---------------------------------------------------------------------*
  5. *& Справочник банков
  6. *& http://www.banker.kz/index.php/topic/33308-spravochnik-bik-bankov-vtorogo-urovnja-respubli/
  7. *& www.nationalbank.kz/cont/publish690085_5841.xls
  8. *&---------------------------------------------------------------------*
  9. report ztest_iban_check.
  10.  
  11. data: gv_iban type iban.
  12.  
  13. parameters: p_bnklz like bnka-bnklz default '125' obligatory.
  14.  
  15. start-of-selection.
  16.   gv_iban = 'KZ000000000000000000'. "Счёт IBAN для Казахстана содержит 20 знаков и начинается с KZ
  17.   gv_iban+4(3) = p_bnklz(3). "Для Казахстана код банка содержит три цифры и помещается в 5-6-7 знаке IBAN
  18.   do 99 times.
  19.     gv_iban+2(2) = sy-index. "" Подбираем контрольную сумму. Она содержится в 3-4 знаке IBAN
  20.     call function 'CHECK_IBAN'
  21.       exporting
  22.         i_iban    = gv_iban
  23.       exceptions
  24.         not_valid = 1
  25.         others    = 2.
  26.     if sy-subrc <> 0.
  27. *      write: / 'ERR', gv_iban.
  28.     else.
  29.       write: / 'OK!', gv_iban.
  30.     endif.
  31.   enddo.
  32. end-of-selection.
Advertisement
RAW Paste Data Copied
Advertisement