Source Code im Cobol für Prüfziffern-Berechnung im Verhoeff algorithm

[oizscm]

Hilfe:confused:: ich muss in einer Cobol-Applikation ein Modul schreiben, das für eine 10-stellige Nr die Prüfziffern nach dem "Verhoeff algorithm" errechnet. Leider bin ich im Internet nicht fündig geworden. Dort habe ich auf unter der Page Verhoeff algorithm - Wikipedia, the free encyclopedia (http://en.wikipedia.org/wiki/Verhoeff_algorithm) keinen Cobol Source Code gefunden, sondern nur einen in JAVA und und in MS SQL Server Transact SQL.
Wisst ihr jemand, der schon solch ein Modul hat bzw. könnt ihr mir irgendwie weiterhelfen bevor ich mich an die mühsame und aufwändige Programmierung mache. Besten Dank im Vorraus

[Fuerchau]

Im Prinzip kannst du den Java-Code doch 1:1 übersetzen.

Die Tabellen kannst du per OCCURS 2-Dimensional und mit VALUE vorbereiten.

Die For-Schleifen ersetzt du analog mit

perform varying I from 2 to 7 by 1
compute ...
end-perform

[achill16]

Zur Berechnung der Prüfziffer zu einem 11-stelligen Aktenzeichen (luxemburg. IDKZ) muss ich ein Cobol-Unterprogramm schreiben, welches diese Prüfziffer nach dem "Verhoeff algorithm" errechnet. Leider konnte ich im Internet keinen Cobol Source Code finden. Ich beherrsche weder Java noch Perl, C++,....
1. Wisst ihr jemand, der schon solch ein COBOL-Modul hat bzw. könnt ihr mir irgendwie weiterhelfen bevor ich mich an die mühsame und aufwändige Programmierung mache.
2. Gibt es eine verständliche deutsche Beschreibung zum Verhoeff-Algorithmus?
Herzlichen Dank!

[Fuerchau]

Ggf. auf Englisch hier:
http://en.wikipedia.org/wiki/Verhoeff_algorithm