IBAN

*-----------------------------------------------------------------------------
* <Rating>-85</Rating>
*-----------------------------------------------------------------------------
      SUBROUTINE FT.CHECK.IBAN(Y.IBAN,Y.CHECK)
*****************************************************************************************

$INSERT I_COMMON
$INSERT I_EQUATE


MAIN:
*====
      Y.LEN             = LEN(Y.IBAN)
      Y.CTRY.CODE       = Y.IBAN[1,2]
      Y.CHECK.DIG.THERE = Y.IBAN[3,2]
      Y.CHECK.DIGIT     = Y.IBAN[Y.LEN,1]
      Y.BBAN            = Y.IBAN[5,Y.LEN-4]

      GOSUB INITIALISE
      GOSUB PROCESS.CHECK

      RETURN

INITIALISE:
*==========
      ALFA = '0A':FM:'1B':FM:'2C':FM:'3D':FM:'4E':FM:'5F':FM:'6G':FM:'7H':FM:'8I':FM:'9J':FM:'K':FM:'L':FM:'M':FM:'N':FM:'O':FM:'P':FM:'Q':FM:'R':FM:'S':FM:'T':FM:'U':FM:'V':FM:'W':FM:'X':FM:'Y':FM:'Z'
      ALFA.A = 'A':FM:'B':FM:'C':FM:'D':FM:'E':FM:'F':FM:'G':FM:'H':FM:'I':FM:'J':FM:'K':FM:'L':FM:'M':FM:'N':FM:'O':FM:'P':FM:'Q':FM:'R':FM:'S':FM:'T':FM:'U':FM:'V':FM:'W':FM:'X':FM:'Y':FM:'Z'
      ALFA.P = '0':FM:'1':FM:'2':FM:'3':FM:'4':FM:'5':FM:'6':FM:'7':FM:'8':FM:'9':FM:'10':FM:'11':FM:'12':FM:'13':FM:'14':FM:'15':FM:'16':FM:'17':FM:'18':FM:'19':FM:'20':FM:'21':FM:'22':FM:'23':FM:'24':FM:'25'
      ALFA.I = '1':FM:'0':FM:'5':FM:'7':FM:'9':FM:'13':FM:'15':FM:'17':FM:'19':FM:'21':FM:'2':FM:'4':FM:'18':FM:'20':FM:'11':FM:'3':FM:'6':FM:'8':FM:'12':FM:'14':FM:'16':FM:'10':FM:'22':FM:'25':FM:'24':FM:'23'
      ALFA.C = '10':FM:'11':FM:'12':FM:'13':FM:'14':FM:'15':FM:'16':FM:'17':FM:'18':FM:'19':FM:'20':FM:'21':FM:'22':FM:'23':FM:'24':FM:'25':FM:'26':FM:'27':FM:'28':FM:'29':FM:'30':FM:'31':FM:'32':FM:'33':FM:'34':FM:'35'

      NEW.ACCT = ''
      TOTAL.WEIGHT = 0

      RETURN
*
PROCESS.CHECK:
*=============
* CHANGE IBAN-FORMAT FROM XX10002300A1023502601
*                      TO 002300A1023502601XX10
      Y.NUMBER  = Y.BBAN:Y.CTRY.CODE:Y.CHECK.DIG.THERE
      LENY.ACCT = LEN(Y.NUMBER)
      Y.CDIG    = Y.NUMBER
      Y.LEN.NB  = LEN(Y.CDIG)

      *Check CHECK DIGIT code
      NEW.STR = ""
      FOR I = 1 TO Y.LEN.NB
      
         Y.CHAR = Y.CDIG[I,1]
         FINDSTR Y.CHAR IN ALFA.A SETTING ALPHA.POS THEN
            NEW.VAL = ALFA.C<ALPHA.POS>
            NEW.STR := NEW.VAL
         END ELSE
            NEW.STR := Y.CHAR
         END

      NEXT I

* split into several division
      Y.CDIG = NEW.STR
      Y.LEN.STR = LEN(NEW.STR)
      Y.PART1 = Y.CDIG[1,9]
      Y.PART2 = Y.CDIG[10,7]
      Y.PART3 = Y.CDIG[17,7]
      Y.PART4 = Y.CDIG[24, Y.LEN.STR-23]

      Y.REST1 = MOD(Y.PART1,97)

      Y.PART2 = Y.REST1:Y.PART2
      Y.REST2 = MOD(Y.PART2,97)

      Y.PART3 = Y.REST2:Y.PART3
      Y.REST3 = MOD(Y.PART3,97)

      Y.PART4 = Y.REST3:Y.PART4
      Y.REST = MOD(Y.PART4,97)  

* if the rest is equal to 1 means the IBAN has a correct Control Number
      Y.CHECK = Y.REST

      RETURN
*
*=====
   END