konto_check 6.02.0 → 6.13.0

data/ext/konto_check_raw/konto_check.h

@@ -1,5 +1,6 @@
 /* vim: ft=c:set si:set fileencoding=iso-8859-1
  */
+#line 9 "konto_check_h.lx"
 
 /*
  * ##########################################################################
@@ -9,7 +10,7 @@
  * #  Verwendung in anderen Programmen bzw. Programmiersprachen benutzt     #
  * #  werden.                                                               #
  * #                                                                        #
- * #  Copyright (C) 2002-2017 Michael Plugge <m.plugge@hs-mannheim.de>      #
+ * #  Copyright (C) 2002-2020 Michael Plugge <m.plugge@hs-mannheim.de>      #
  * #                                                                        #
  * #  Dieses Programm ist freie Software; Sie d�rfen es unter den           #
  * #  Bedingungen der GNU Lesser General Public License, wie von der Free   #
@@ -167,17 +168,19 @@
 
 #if _WIN32>0 || _WIN64>0
 #  if USE_CDECL
-#    if BUILD_DLL /* DLL kompilieren */
-#      define DLL_EXPORT __declspec (dllexport)
-#      define DLL_EXPORT_V __declspec (dllexport)
-#    elif USE_DLL /* DLL in einem anderen Programm benutzen */
-#      define DLL_EXPORT __declspec (dllimport)
-#      define DLL_EXPORT_V __declspec (dllimport)
-#    else /* kein DLL-Krempel erforderlich */
-#      define DLL_EXPORT
-#      define DLL_EXPORT_V
-#    endif
+#     define STDCALL
+#     if BUILD_DLL /* DLL kompilieren */
+#       define DLL_EXPORT __declspec (dllexport)
+#       define DLL_EXPORT_V __declspec (dllexport)
+#     elif USE_DLL /* DLL in einem anderen Programm benutzen */
+#       define DLL_EXPORT __declspec (dllimport)
+#       define DLL_EXPORT_V __declspec (dllimport)
+#     else /* kein DLL-Krempel erforderlich */
+#       define DLL_EXPORT
+#       define DLL_EXPORT_V
+#     endif
 #  else
+#     define STDCALL __stdcall
 #     if BUILD_DLL /* DLL kompilieren */
 #      define DLL_EXPORT __declspec (dllexport) __stdcall 
 #      define DLL_EXPORT_V __declspec (dllexport)
@@ -185,12 +188,13 @@
 #      define DLL_EXPORT __declspec (dllimport) __stdcall 
 #      define DLL_EXPORT_V __declspec (dllimport)
 #    else /* kein DLL-Krempel erforderlich */
-#      define DLL_EXPORT
+#      define DLL_EXPORT __stdcall
 #      define DLL_EXPORT_V
 #    endif
 #  endif
 #  define localtime_r(timep,result) localtime(timep)
 #else
+#  define STDCALL
 #  define DLL_EXPORT
 #  define DLL_EXPORT_V
 #endif
@@ -286,6 +290,10 @@
 #define LUT2_IBAN_REGEL              25
 #define LUT2_IBAN_REGEL_SORT         26
 #define LUT2_BIC_H_SORT              27
+#define LUT2_SCL_INFO                28
+#define LUT2_SCL_BIC                 29
+#define LUT2_SCL_NAME                30
+#define LUT2_SCL_FLAGS               31
 
 #define LUT2_2_BLZ                  101
 #define LUT2_2_FILIALEN             102
@@ -314,6 +322,10 @@
 #define LUT2_2_IBAN_REGEL           125
 #define LUT2_2_IBAN_REGEL_SORT      126
 #define LUT2_2_BIC_H_SORT           127
+#define LUT2_2_SCL_INFO             128
+#define LUT2_2_SCL_BIC              129
+#define LUT2_2_SCL_NAME             130
+#define LUT2_2_SCL_FLAGS            131
 
 #define LUT2_DEFAULT                501
 
@@ -330,6 +342,12 @@ extern const char *lut2_feld_namen[256];
  */
 
 #undef FALSE
+#define NO_SCL_BLOCKS_LOADED                  -158
+#define NO_SCL_INFO_BLOCK                     -157
+#define SCL_BIC_NOT_FOUND                     -156
+#define INVALID_SCL_INFO_BLOCK                -155
+#define NO_SCL_BLOCKS                         -154
+#define SCL_INPUT_FORMAT_ERROR                -153
 #define INVALID_REGULAR_EXPRESSION_CNT        -152
 #define INVALID_REGULAR_EXPRESSION            -151
 #define INVALID_HANDLE                        -150
@@ -483,6 +501,9 @@ extern const char *lut2_feld_namen[256];
 #define OK_KTO_REPLACED_NO_PZ                   24
 #define OK_UNTERKONTO_ATTACHED                  25
 #define OK_SHORT_BIC_USED                       26
+#define OK_SCL_EXTENSION_BIC_USED               27
+#define OK_SCL_WILDCARD_BIC_USED                28
+#line 282 "konto_check_h.lx"
 
 #define MAX_BLZ_CNT 30000  /* maximale Anzahl BLZ's in generate_lut() */
 
@@ -856,6 +877,7 @@ DLL_EXPORT int lut_info_id(char *lut_name,int *info1,int *info2,int *valid1,int
 DLL_EXPORT const char *current_lutfile_name(int *set,int *level,int *retval);
 DLL_EXPORT int current_lutfile_name_id(int *set,int *level,int *retval);
 DLL_EXPORT int lut_valid(void);
+DLL_EXPORT int lut_valid_date(char *lut_name,int *v11,int *v12,int *v21,int *v22);
 DLL_EXPORT int get_lut_info2(char *lut_name,int *version_p,char **prolog_p,char **info_p,char **user_info_p);
 DLL_EXPORT int get_lut_info_b(char **info,char *lutname);
 DLL_EXPORT int get_lut_info2_b(char *lutname,int *version,char **prolog_p,char **info_p,char **user_info_p);
@@ -1090,6 +1112,24 @@ DLL_EXPORT int iban_name_id(char *iban,int filiale,int*retval);
 DLL_EXPORT int iban_name_kurz_id(char *iban,int filiale,int*retval);
 DLL_EXPORT int iban_ort_id(char *iban,int filiale,int*retval);
 
+   /* Funktionen f�r das SCL-Verzeichnis */
+DLL_EXPORT int lut_scl_init(char *lut_name);
+DLL_EXPORT int lut_scl_info(char *lutfile,int *cnt,const char **gueltigkeit,const char **gueltigkeit_iso);
+DLL_EXPORT int lut_write_scl_blocks(char *inputfile,char *lutfile);
+DLL_EXPORT int lut_scl_multi(char *bic,const char **scl_flags,const char **used_bic,const char **scl_name);
+DLL_EXPORT int lut_scl_multi_blz(char *blz,const char **scl_flags,const char **used_bic,const char **scl_name);
+DLL_EXPORT int lut_scl_multi_blz_i(int blz,const char **scl_flags,const char **used_bic,const char **scl_name);
+DLL_EXPORT int lut_scl_sct(char *bic,int *retval);
+DLL_EXPORT int lut_scl_sdd(char *bic,int *retval);
+DLL_EXPORT int lut_scl_cor1(char *bic,int *retval);
+DLL_EXPORT int lut_scl_b2b(char *bic,int *retval);
+DLL_EXPORT int lut_scl_scc(char *bic,int *retval);
+DLL_EXPORT int lut_scl_sct_blz(char *blz,int *retval,const char **used_bic);
+DLL_EXPORT int lut_scl_sdd_blz(char *blz,int *retval,const char **used_bic);
+DLL_EXPORT int lut_scl_cor1_blz(char *blz,int *retval,const char **used_bic);
+DLL_EXPORT int lut_scl_b2b_blz(char *blz,int *retval,const char **used_bic);
+DLL_EXPORT int lut_scl_scc_blz(char *blz,int *retval,const char **used_bic);
+
 /*
  * ######################################################################
  * #               globale Variablen                                    #

data/ext/konto_check_raw/konto_check_raw_ruby.c

@@ -48,6 +48,7 @@ vim: ft=c:set si:set fileencoding=utf-8
 #include "ruby.h"
 #include <stdio.h>
 #include "konto_check.h"
+#line 64 "konto_check_raw_ruby.lxx"
 
    /* Ruby 1.8/1.9 compatibility definitions */
 #ifndef RSTRING_PTR
@@ -285,6 +286,38 @@ static void get_params_int(int argc,VALUE* argv,int *arg1,int *arg2,int *uniq_p)
    if(uniq_p)*uniq_p=uniq;
 }
 
+
+/**
+ * get_params_scl()
+ *
+ * get one string parameter from argc/argv
+ */
+static void get_params_scl(int argc,VALUE* argv,char *arg1s,int maxlen)
+{
+   int len;
+   VALUE arg1_rb;
+
+   rb_scan_args(argc,argv,"10",&arg1_rb);
+   if(maxlen==8)switch(TYPE(arg1_rb)){
+      case RUBY_T_STRING:
+         break;
+      case RUBY_T_FLOAT:
+      case RUBY_T_FIXNUM:
+      case RUBY_T_BIGNUM:
+         snprintf(arg1s,9,"%08d",FIX2INT(arg1_rb));
+         return;
+      default:
+         rb_raise(rb_eTypeError,"%s","argument must be a string");
+   }
+   if(TYPE(arg1_rb)==RUBY_T_STRING){
+      if((len=RSTRING_LEN(arg1_rb))>maxlen)len=maxlen;
+      strncpy(arg1s,RSTRING_PTR(arg1_rb),len);
+      *(arg1s+len)=0;
+   }
+   else
+      rb_raise(rb_eTypeError,"%s","argument must be a string");
+}
+
 /**
  * get_params()
  *
@@ -811,7 +844,7 @@ static VALUE lut_blocks_rb(int argc,VALUE* argv,VALUE self)
  */
 static VALUE lut_blocks1_rb(int argc,VALUE* argv,VALUE self)
 {
-   rb_scan_args(argc,argv,"0",NULL);
+//   rb_scan_args(argc,argv,"0",NULL);
    return INT2FIX(lut_blocks(0,NULL,NULL,NULL));
 }
 
@@ -4289,7 +4322,7 @@ static VALUE bank_suche_volltext(int argc,VALUE* argv,VALUE self)
  * ====Mögliche Statuscodes:
  * * -70  (LUT1_FILE_USED)             "Es wurde eine LUT-Datei im Format 1.0/1.1 geladen"
  * * -48  (LUT2_NAME_KURZ_NOT_INITIALIZED) "Das Feld Kurzname wurde nicht initialisiert"
- * * -40  (LUT2_NOT_INITIALIZED)       "die Programmbibliothek wurde noch nicht initialisiert"
+ * * -40  (LUT2_NOT_INITIALIZED)      "die Programmbibliothek wurde noch nicht initialisiert"
  * * -9  (ERROR_MALLOC)               "kann keinen Speicher allokieren"
  * *  1  (OK)                         "ok"
  * * 14  (SOME_KEYS_NOT_FOUND)        "ok; ein(ige) Schlüssel wurden nicht gefunden"
@@ -4317,6 +4350,485 @@ static VALUE bank_suche_multiple(int argc,VALUE* argv,VALUE self)
 }
 
 
+/**
+ * ===KontoCheckRaw::scl_init([lutname})
+ * =====KontoCheck::scl_init([lutname])
+ * Mit den scl_* Funktionen können für einen gegebenen BIC oder eine BLZ die
+ * Einträge des SCL-Verzeichnisses bestimmt werden. Falls die _blz() Version der
+ * Funktionen verwendet wird, muß die Bibliothek mittels KontoCheck::init *und*
+ * KontoCheck::scl_init initialisiert werden, um sowohl die Kontodaten als auch die
+ * Daten des SCL-Verzeichnisses einzulesen.
+ *
+ * Die Funktion scl_init liest die SCL-Blocks aus einer LUT-Datei und initialisiert
+ * die zugehörigen internen Datenstrukturen.initialisiert SCL-Datenstrukturen.
+ * Falls der Parameter lut_name nicht angegeben ist, wird die LUT-Datei benutzt,
+ * mit der die Bibliothek mittels KontoCheck::init initialisiert wurde.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_init([lutname])
+ *
+ * ====Rückgabe:
+ * Es wird ein skalarer Statuscode zurückgegeben, der Auskunft über die Initialisierung bzw.
+ * aufgetretene Fehler gibt.
+ *
+ * ====Mögliche Statuscodes:
+ * *  -155 (INVALID_SCL_INFO_BLOCK)  "(Ungültiger SCL-Info-Block in der LUT-Datei"
+ * *  -154 (NO_SCL_BLOCKS)           "Ungültige Eingabewerte in der SCL-Datei"
+ * *  -40  (LUT2_NOT_INITIALIZED)    "die Programmbibliothek wurde noch nicht initialisiert"
+ * *  -10  (FILE_READ_ERROR)         "kann Datei nicht lesen"
+ * *    1  (OK)                      "ok"
+ */
+static VALUE scl_init_rb(int argc,VALUE* argv,VALUE self)
+{
+   char lut_name[FILENAME_MAX+1];
+   const char *l_name;
+   int retval;
+
+   get_params_file(argc,argv,lut_name,NULL,NULL,3);
+   if(!*lut_name){
+      l_name=current_lutfile_name(NULL,NULL,&retval);
+      if(l_name && retval>0){
+         strcpy(lut_name,l_name);
+      }
+      else
+         return INT2FIX(retval);
+   }
+   retval=lut_scl_init(lut_name);
+   return INT2FIX(retval);
+}
+
+/**
+ * ===KontoCheckRaw::scl_multi(bic)
+ * =====KontoCheck::scl_multi(bic)
+ * Diese Funktion bestimmt alle Werte des BIC-Verzeichnisses zu einem gegebenen BIC.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_multi(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit vier Elementen:
+ *
+ * * Das erste Element ist der Statuscode (s.u.)
+ * * Das zweite Element sind die SCL Flags (als String)
+ * * das dritte Element ist der benutzte BIC
+ * * das vierte Element ist der Institutsname aus dem BIC-Verzeichnis
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_multi(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   const char *scl_flags,*used_bic,*scl_name;
+   int retval;
+
+   get_params_scl(argc,argv,bic,11);
+   retval=lut_scl_multi(bic,&scl_flags,&used_bic,&scl_name);
+   if(retval>0)
+      return rb_ary_new3(4,INT2FIX(retval),rb_str_new2(scl_flags),rb_str_new2(used_bic),rb_str_new2(scl_name));
+   else
+      return rb_ary_new3(4,INT2FIX(retval),Qnil,Qnil,Qnil);
+}
+
+/**
+ * ===KontoCheckRaw::scl_sct(bic)
+ * =====KontoCheck::scl_sct(bic)
+ * =====KontoCheckRaw::scl_sct_blz(blz)
+ * Diese Funktion bestimmt das Flag SCT (SEPA Credit Transfer) des SCL-
+ * Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_sct(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit zwei Elementen:
+ *
+ * * Das erste Element ist das Flag SCT aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ *
+ */
+static VALUE scl_sct(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   int rv,retval;
+
+   get_params_scl(argc,argv,bic,11);
+   rv=lut_scl_sct(bic,&retval);
+   return rb_ary_new3(2,retval>0?INT2FIX(rv):Qnil,INT2FIX(retval));
+}
+
+/**
+ * ===KontoCheckRaw::scl_sct_blz(blz)
+ * =====KontoCheck::scl_sct_blz(blz)
+ * =====KontoCheckRaw::scl_sct(bic)
+ * Diese Funktion bestimmt das Flag SCT (SEPA Credit Transfer) des SCL-
+ * Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_sct_blz(blz)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit drei Elementen:
+ *
+ * * Das erste Element ist das Flag SCT aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ * * Das dritte Element  ist der benutzte BIC
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *   -5  (INVALID_BLZ_LENGTH)        "die Bankleitzahl ist nicht achtstellig"
+ * *   -4  (INVALID_BLZ)               "die Bankleitzahl ist ungültig"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_sct_blz(int argc,VALUE* argv,VALUE self)
+{
+   char blz[12];
+   const char *used_bic;
+   int rv,retval;
+
+   get_params_scl(argc,argv,blz,8);
+   rv=lut_scl_sct_blz(blz,&retval,&used_bic);
+   if(retval>0)
+      return rb_ary_new3(3,INT2FIX(rv),INT2FIX(retval),rb_str_new2(used_bic));
+   else
+      return rb_ary_new3(3,Qnil,INT2FIX(retval),Qnil);
+}
+
+/**
+ * ===KontoCheckRaw::scl_sdd(bic)
+ * =====KontoCheck::scl_sdd(bic)
+ * =====KontoCheckRaw::scl_sdd_blz(blz)
+ * Diese Funktion bestimmt das Flag SDD (SEPA CORE Direct Debit (SEPA-Basislastschrift)
+ * des SCL- Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_sdd(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit zwei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_sdd(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   int rv,retval;
+
+   get_params_scl(argc,argv,bic,11);
+   rv=lut_scl_sdd(bic,&retval);
+   return rb_ary_new3(2,retval>0?INT2FIX(rv):Qnil,INT2FIX(retval));
+}
+
+/**
+ * ===KontoCheckRaw::scl_sdd_blz(blz)
+ * =====KontoCheck::scl_sdd(bic)
+ * =====KontoCheckRaw::scl_sdd(blz)
+ * Diese Funktion bestimmt das Flag SDD (SEPA CORE Direct Debit (SEPA-Basislastschrift)
+ * des SCL- Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_sdd_blz(blz)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit drei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ * * Das dritte Element (nur bei scl_sdd_blz()) ist der benutzte BIC
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *   -5  (INVALID_BLZ_LENGTH)        "die Bankleitzahl ist nicht achtstellig"
+ * *   -4  (INVALID_BLZ)               "die Bankleitzahl ist ungültig"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_sdd_blz(int argc,VALUE* argv,VALUE self)
+{
+   char blz[12];
+   const char *used_bic;
+   int rv,retval;
+
+   get_params_scl(argc,argv,blz,8);
+   rv=lut_scl_sdd_blz(blz,&retval,&used_bic);
+   if(retval>0)
+      return rb_ary_new3(3,INT2FIX(rv),INT2FIX(retval),rb_str_new2(used_bic));
+   else
+      return rb_ary_new3(3,Qnil,INT2FIX(retval),Qnil);
+}
+
+/**
+ * ===KontoCheckRaw::scl_cor1(bic)
+ * =====KontoCheck::scl_cor1(bic)
+ * =====KontoCheck::scl_cor1_blz(blz)
+ * Diese Funktion bestimmt das Flag COR1 (SEPA COR1 Direct Debit (SEPA-Basislastschrift
+ * mit verkürzter Vorlagefrist) des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_cor1(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit zwei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_cor1(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   int rv,retval;
+
+   get_params_scl(argc,argv,bic,11);
+   rv=lut_scl_cor1(bic,&retval);
+   return rb_ary_new3(2,retval>0?INT2FIX(rv):Qnil,INT2FIX(retval));
+}
+
+/**
+ * ===KontoCheckRaw::scl_cor1_blz(blz)
+ * =====KontoCheck::scl_cor1(bic)
+ * =====KontoCheckRaw::scl_cor1(blz)
+ * Diese Funktion bestimmt das Flag COR1 (SEPA COR1 Direct Debit (SEPA-Basislastschrift
+ * mit verkürzter Vorlagefrist) des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_cor1_blz(blz)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit drei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ * * Das dritte Element (nur bei scl_cor1_blz()) ist der benutzte BIC
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *   -5  (INVALID_BLZ_LENGTH)        "die Bankleitzahl ist nicht achtstellig"
+ * *   -4  (INVALID_BLZ)               "die Bankleitzahl ist ungültig"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_cor1_blz(int argc,VALUE* argv,VALUE self)
+{
+   char blz[12];
+   const char *used_bic;
+   int rv,retval;
+
+   get_params_scl(argc,argv,blz,8);
+   rv=lut_scl_cor1_blz(blz,&retval,&used_bic);
+   if(retval>0)
+      return rb_ary_new3(3,INT2FIX(rv),INT2FIX(retval),rb_str_new2(used_bic));
+   else
+      return rb_ary_new3(3,Qnil,INT2FIX(retval),Qnil);
+}
+
+/**
+ * ===KontoCheckRaw::scl_b2b(bic)
+ * =====KontoCheck::scl_b2b(bic)
+ * =====KontoCheckRaw::scl_b2b_blz(blz)
+ * Diese Funktion bestimmt das Flag B2B (SEPA B2B Direct Debit, Sepa-Firmelastschrift)
+ * des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_b2b(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit zwei Elementen:
+ *
+ * * Das erste Element ist das Flag B2B aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_b2b(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   int rv,retval;
+
+   get_params_scl(argc,argv,bic,11);
+   rv=lut_scl_b2b(bic,&retval);
+   return rb_ary_new3(2,retval>0?INT2FIX(rv):Qnil,INT2FIX(retval));
+}
+
+/**
+ * ===KontoCheckRaw::scl_b2b_blz(blz)
+ * =====KontoCheck::scl_b2b_blz(blz)
+ * =====KontoCheckRaw::scl_b2b(bic)
+ * Diese Funktion bestimmt das Flag B2B (SEPA B2B Direct Debit, Sepa-Firmelastschrift)
+ * des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_b2b_blz(blz)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit drei Elementen:
+ *
+ * * Das erste Element ist das Flag B2B aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ * * Das dritte Element (nur bei scl_b2b_blz()) ist der benutzte BIC
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *   -5  (INVALID_BLZ_LENGTH)        "die Bankleitzahl ist nicht achtstellig"
+ * *   -4  (INVALID_BLZ)               "die Bankleitzahl ist ungültig"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_b2b_blz(int argc,VALUE* argv,VALUE self)
+{
+   char blz[12];
+   const char *used_bic;
+   int rv,retval;
+
+   get_params_scl(argc,argv,blz,8);
+   rv=lut_scl_b2b_blz(blz,&retval,&used_bic);
+   if(retval>0)
+      return rb_ary_new3(3,INT2FIX(rv),INT2FIX(retval),rb_str_new2(used_bic));
+   else
+      return rb_ary_new3(3,Qnil,INT2FIX(retval),Qnil);
+
+}
+
+/**
+ * ===KontoCheckRaw::scl_scc(bic)
+ * =====KontoCheck::scl_scc(bic)
+ * =====KontoCheckRaw::scl_scc_blz(blz)
+ * Diese Funktion bestimmt das Flag SCC (SEPA Card Clearing, SCC Karteneinzüge)
+ * des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_scc(bic)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit zwei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_scc(int argc,VALUE* argv,VALUE self)
+{
+   char bic[12];
+   int rv,retval;
+
+   get_params_scl(argc,argv,bic,11);
+   rv=lut_scl_scc(bic,&retval);
+   return rb_ary_new3(2,retval>0?INT2FIX(rv):Qnil,INT2FIX(retval));
+}
+
+/**
+ * ===KontoCheckRaw::scl_scc_blz(blz)
+ * =====KontoCheck::scl_scc(bic)
+ * =====KontoCheckRaw::scl_scc(bic)
+ * Diese Funktion bestimmt das Flag SCC (SEPA Card Clearing, SCC Karteneinzüge)
+ * des SCL-Verzeichnisses und gibt das Flag (0 bzw. 1) zurück.
+ * Im Fehlerfall wird nil zurückgegeben und die Variable retval auf den
+ * entsprechende Fehlercode (<0) gesetzt.
+ *
+ * ====Aufruf:
+ * * ret=KontoCheckRaw::scl_scc_blz(blz)
+ *
+ * ====Rückgabe:
+ * Die Rückgabe ist ein Array mit drei Elementen:
+ *
+ * * Das erste Element ist das Flag SDD aus dem SEPA-Directory
+ * * Das zweite Element ist der Statuscode (s.u.)
+ * * Das dritte Element (nur bei scl_scc_blz()) ist der benutzte BIC
+ *
+ * ====Mögliche Statuscodes:
+ * * -158 (NO_SCL_BLOCKS_LOADED)       "die SCL-Blocks wurden noch nicht eingelesen"
+ * * -156 (SCL_BIC_NOT_FOUND)          "Der BIC wurde im SCL-Verzeichnis nicht gefunden"
+ * * -139 (LUT2_NOT_ALL_IBAN_BLOCKS_LOADED) "es konnten nicht alle Datenblocks die für die IBAN-Berechnung notwendig sind geladen werden"
+ * *   -5  (INVALID_BLZ_LENGTH)        "die Bankleitzahl ist nicht achtstellig"
+ * *   -4  (INVALID_BLZ)               "die Bankleitzahl ist ungültig"
+ * *    1 (OK)                         "ok"
+ * *   27 (OK_SCL_EXTENSION_BIC_USED)  "ok, für den BIC wurde die Extension XXX angehängt"
+ * *   28 (OK_SCL_WILDCARD_BIC_USED)   "ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt"
+ */
+static VALUE scl_scc_blz(int argc,VALUE* argv,VALUE self)
+{
+   char blz[12];
+   const char *used_bic;
+   int rv,retval;
+
+   get_params_scl(argc,argv,blz,8);
+   rv=lut_scl_scc_blz(blz,&retval,&used_bic);
+   if(retval>0)
+      return rb_ary_new3(3,INT2FIX(rv),INT2FIX(retval),rb_str_new2(used_bic));
+   else
+      return rb_ary_new3(3,Qnil,INT2FIX(retval),Qnil);
+}
+
 /**
  * ===KontoCheckRaw::version( [mode] )
  * =====KontoCheck::version( [mode] )
@@ -4358,7 +4870,7 @@ void Init_konto_check_raw()
  *
  * <b>ATTENTION:</b> There are a few important changes in the API between
  * version 0.0.2 (version by Peter Horn/Provideal), version 0.0.6 (jeanmartin)
- * and this version (V. 6.02 from 2017-11-26):
+ * and this version (V. 6.13 from 2020-12-16):
  *
  * * The function KontoCheck::load_bank_data() is no longer used; it is
  *   replaced by KontoCheck::init() and KontoCheck::generate_lutfile().
@@ -4536,10 +5048,36 @@ void Init_konto_check_raw()
    rb_define_module_function(KontoCheck,"bank_suche_regel",bank_suche_regel,-1);
    rb_define_module_function(KontoCheck,"bank_suche_volltext",bank_suche_volltext,-1);
    rb_define_module_function(KontoCheck,"bank_suche_multiple",bank_suche_multiple,-1);
+
+   rb_define_module_function(KontoCheck,"scl_init",scl_init_rb,-1);
+   rb_define_module_function(KontoCheck,"scl_multi",scl_multi,-1);
+   rb_define_module_function(KontoCheck,"scl_sct",scl_sct,-1);
+   rb_define_module_function(KontoCheck,"scl_sdd",scl_sdd,-1);
+   rb_define_module_function(KontoCheck,"scl_cor1",scl_cor1,-1);
+   rb_define_module_function(KontoCheck,"scl_b2b",scl_b2b,-1);
+   rb_define_module_function(KontoCheck,"scl_scc_blz",scl_scc,-1);
+   rb_define_module_function(KontoCheck,"scl_sct_blz",scl_sct_blz,-1);
+   rb_define_module_function(KontoCheck,"scl_sdd_blz",scl_sdd_blz,-1);
+   rb_define_module_function(KontoCheck,"scl_cor1_blz",scl_cor1_blz,-1);
+   rb_define_module_function(KontoCheck,"scl_b2b_blz",scl_b2b_blz,-1);
+   rb_define_module_function(KontoCheck,"scl_scc_blz",scl_scc_blz,-1);
+
    rb_define_module_function(KontoCheck,"version",version_rb,-1);
    rb_define_module_function(KontoCheck,"load_bank_data",load_bank_data,1);
 
       /* Rückgabewerte der konto_check Bibliothek */
+      /* (-158) die SCL-Blocks wurden noch nicht eingelesen */
+   rb_define_const(KontoCheck,"NO_SCL_BLOCKS_LOADED",INT2FIX(NO_SCL_BLOCKS_LOADED));
+      /* (-157) Der Info-Block des SCL-Verzeichnisses wurde noch nicht eingelesen */
+   rb_define_const(KontoCheck,"NO_SCL_INFO_BLOCK",INT2FIX(NO_SCL_INFO_BLOCK));
+      /* (-156) Der BIC wurde im SCL-Verzeichnis nicht gefunden */
+   rb_define_const(KontoCheck,"SCL_BIC_NOT_FOUND",INT2FIX(SCL_BIC_NOT_FOUND));
+      /* (-155) Ungültiger SCL-Info-Block in der LUT-Datei */
+   rb_define_const(KontoCheck,"INVALID_SCL_INFO_BLOCK",INT2FIX(INVALID_SCL_INFO_BLOCK));
+      /* (-154) Keine SCL-Blocks in der LUT-Datei enthalten */
+   rb_define_const(KontoCheck,"NO_SCL_BLOCKS",INT2FIX(NO_SCL_BLOCKS));
+      /* (-153) Ungültige Eingabewerte in der SCL-Datei */
+   rb_define_const(KontoCheck,"SCL_INPUT_FORMAT_ERROR",INT2FIX(SCL_INPUT_FORMAT_ERROR));
       /* (-152) Ungültiger Zähler in regulärem Ausdruck (innerhalb von {}) */
    rb_define_const(KontoCheck,"INVALID_REGULAR_EXPRESSION_CNT",INT2FIX(INVALID_REGULAR_EXPRESSION_CNT));
       /* (-151) Ungültiger regulärer Ausdruck (enthält zwei Zeichen aus [+?*] nacheinander) */
@@ -4846,4 +5384,8 @@ void Init_konto_check_raw()
    rb_define_const(KontoCheck,"OK_UNTERKONTO_ATTACHED",INT2FIX(OK_UNTERKONTO_ATTACHED));
       /* (26) ok, für den BIC wurde die Zweigstellennummer allerdings durch XXX ersetzt */
    rb_define_const(KontoCheck,"OK_SHORT_BIC_USED",INT2FIX(OK_SHORT_BIC_USED));
+      /* (27) ok, für den BIC wurde die Extension XXX angehängt */
+   rb_define_const(KontoCheck,"OK_SCL_EXTENSION_BIC_USED",INT2FIX(OK_SCL_EXTENSION_BIC_USED));
+      /* (28) ok, für den BIC wurde die Wildcard-Version (8stellig) benutzt */
+   rb_define_const(KontoCheck,"OK_SCL_WILDCARD_BIC_USED",INT2FIX(OK_SCL_WILDCARD_BIC_USED));
 }