IBAN prüfen / berechnen

[msost]

Hallo zusammen,

ich möchte IBAN-Prüfung und ggf. -Berechnung in ein Programm einbauen. Bevorzugt mit RPGLE oder SQL.

Hat jemand Beispielcode zur Hand?

Welchen (möglichst kostenlosen) Webservice kann man nutzen?

[Fuerchau]

Hier ist die Definition und der Aufbau:
https://www.iban.de/iban-pruefsumme.html

Stichwort Modulo 97.

[RobertMack]

D $Letters        S             26A   INZ('ABCDEFGHIJKLMNOPQRSTUVWXYZ')                        
D $LrgNbr         S             63S 0                                      Maximum des Systems 
D $Rest           S              2S 0                                                          
D $PrfZif         S              2S 0                                                          
D $Pos            S              2S 0                                                          
D $In             S             10I 0                                                          
D $Out            S             10I 0                                                          
D $KTO            S             15A                                                            
D $NumKto         S             15S 0                                                          
D $BLZA           S              8A                                                            
D $STRG           S             34A                                                            
D $STML           S             70A                                        IBAN mit Leerstellen
D                 DS                                                    
D $String1                1     70                                      
D  $St1                   1     70    DIM(70)                           
D                 DS                                                    
D $String2                1     70                                      
D  $St2                   1     70    DIM(70)                           

C     *ENTRY        PLIST                                                                      
C                   PARM                    $LR               1                                
C                   PARM                    $IBAN            34            IBAN aus Bildschirm 
C                   PARM                    $STRG            34            IBAN ohne Leerstel. 
C                   PARM                    $COMP             1            Ind. IBAN falsch    

 /Free                                                                      
                                                                            
    //--------------------------------------------------------------------- 
    //  P R Ü F R O U T I N E   I B A N                                     
    //--------------------------------------------------------------------- 
                                                                            
       If $IBAN <> *Blanks;                                                 
                                                                            
    // Die übergebene IBAN wird links ausgerichtet und ggf. von             
    // Leerstellen befreit (diverse Schreibweisen, z.B. 'DE12 3456 ...')    
       $String1 = %Trim($IBAN);                                             
       $String2 = *Blanks;                                                  
       $Out    = 1;                                                         
       For $In = 1 to 34;                                                   
              If $St1($In) <> *Blank;                                       
                 $St2($Out) = $St1($In);                                    
                 $Out += 1;                                                 
              EndIf;                                                        
       EndFor;                                                              
       $STRG   = %Trim($String2);                                            
                                                                             
    // Erster Schritt: die ersten vier Stellen ans Ende stellen              
       $String1 = %Trim(%Subst($STRG:5:30)) + %Trim(%Subst($STRG:1:4));      
                                                                             
    // Zweiter Schritt: Buchstaben durch Ziffern ersetzen                    
       $Out    = 1;                                                          
       For $In = 1 to 34;                                                    
           Select;                                                           
                 When $St1($In) >= '0' and $St1($In) <= '9';                 
                      // Ziffern werden einfach übertragen                   
                      $St2($Out) = $St1($In);                                
                      $Out += 1;                                             
                 When $St1($In) >= 'A' and $St1($In) <= 'Z';                 
                      // Position des Buchstaben im Alphabet suchen          
                      $Pos = %Scan($St1($In):$Letters:1);                    
                      // Position + 9 = Wert (A=10, B=11; Z=35)              
                      $Pos += 9;                                             
                      // den zweistelligen Wert in zwei Schritten übertragen 
                      $St2($Out) = %Subst(%EditC($Pos:'X'):1:1);       
                      $Out += 1;                                       
                      $St2($Out) = %Subst(%EditC($Pos:'X'):2:1);       
                      $St2($Out) = %Subst(%EditC($Pos:'X'):2:1);       
                      $Out += 1;                                       
                 Other;                                                
                      // Leerstellen und alles andere ignorieren       
           EndSl;                                                      
       EndFor;                                                         
                                                                       
    // Dritter Schritt: Ziffernfolge in numerisches Feld stellen       
       $LrgNbr = %Dec(%Trim($String2):63:0);                           
                                                                       
    // Vierter Schritt: Rest 1 aus der Division durch 97 = IBAN gültig 
       If (%Rem($LrgNbr:97)) <> 1;                                     
          $COMP = *On;                                                 
       EndIf;                                                          
                                                                       
    // Fünfter Schritt: IBAN in Papierform aufbereiten                 
       $STML = %Subst($STRG:1:4)+' '+%Subst($STRG:5:4)+' '+             
               %Subst($STRG:9:4)+' '+%Subst($STRG:13:4)+' '+            
               %Subst($STRG:17:4)+' '+%Subst($STRG:21:4)+' '+           
               %Subst($STRG:25:4)+' '+%Subst($STRG:29:4);               
                                                                        
    // Letzter Schritt: IBAN je nach Länge ohne Aufbereitung übernehmen 
       If %Len(%Trim($STML)) < 35;                                      
          $IBAN = $STML;                                                
       EndIf;                                                           
                                                                        
       EndIf;                                                           
                                                                        
       *InLr = $LR;                                                     
       Return;                                                          
                                                                        
 /End-Free

[msost]

Hallo zusammen,

vielen Dank für die sehr hilfreichen Antworten!