ABAP Tipp - Zufallszahlen

Ein Zufallszahlengenerator in SAP wirkt doch recht verloren, wieso solltest du so etwas benötigen, wo doch alles auf Logik ausgelegt ist? Die Antwort ist eher aus Spaß oder für eine Testanwendung die auf zufälligen Datenbasen aufbaut. Die Implementierung ist sehr einfach, doch sollte man dabei ein paar Punkte beachten, um einen echten Zufallsgenerator zu erhalten.

 

Klasse cl_abap_random

Den Grundstein bildet die Klasse cl_abap_random die zufällige Zahlen erzeugen kann. Dazu erzeugt man eine einfache Instanz über die Factory-Methode. Mit den verschiedenen Methoden kannst du dann verschiedene Zufallszahlen erzeugen. Im Beispiel haben wir einen einfachen Würfel, der die Zahlen von 1 bis 6 erzeugt.

" Instanziierung über Factory-Methode
DATA(lo_rand) = cl_abap_random=>create( ).

" zufällige Zahl von 1-6 (Integer)
DATA(ld_num) = lo_rand->intinrange( low = 1 high = 6 ).

 

Wenig Zufall

Problem bei der Erzeugung der Zufallszahlen ist dann der Zufall an sich. Denn die generierten Zahlen sind in der Reihenfolge nicht wirklich sehr zufällig. Dafür haben wir den folgenden Versuchsaufbau:

DO 15 TIMES.
  DATA(lo_rand) = cl_abap_random=>create( ).
  DO 30 TIMES.
    WRITE: CONV char1( lo_rand->intinrange( low = 1 high = 6 ) ).
  ENDDO.
  NEW-LINE.
ENDDO.

 

Pro erzeugter Ausgabezeile wird noch einmal der Zufallsgenerator instanziiert. Das Ergebnis ist aber, dass jede Reihe gleich aussieht, die erzeugten Zufallszahlen wiederholen sich exakt in ihrer Reihenfolge. Dies entspricht aber keinem Zufall, da mit jedem Testfall das gleiche Ergebnis erzeugt werden würde.

 

Lösung

Dazu brauchen wir eine kleine Hilfe, um wirklich zufällige Zahlenreihen zu erzeugen und das bei jedem Durchlauf. Die Factory-Methode der Klasse nimmt noch einen weiteren Paramter auf, den Seed. Dieser Seed legt den Startwert des Zufallsgenerator fest.Das Arbeiten mit einem festen Startwert/Seed erzeugt ebenfalls das selbe Ergebnis und ist nicht zu empfehlen.

Von daher benötigen wir zu Anfang einen "Seed Generator" der uns zufällige Seeds für den Zufallsgenerator zur Verfügung stellt. Dieser sollte dann ebenfalls auf einer relativ zufälligen Zahl erzeugt worden sein. In unserem Beispiel verwenden wir Monat/Tag, sowie die aktuelle Uhrzeit, um den Startwert zu erhalten. Mit diesem Startwert erzeugen wir dann einen Seed-Generator.

" Seed erzeugen
TRY.
    " Seed mit Datum bis Sekunde
    DATA(ld_seed) = CONV i( |{ sy-datum(4) }{ sy-uzeit }| ).
  CATCH cx_sy_conversion_overflow.
    " FallBack Seed
    ld_seed = 1337.
ENDTRY.

" Seed Generator
mo_seed = cl_abap_random=>create( ld_seed ).

 

Die Instanz dieses Generators sollte statisch oder global gehalten werden, damit er nicht jedes Mal neu erzeugt werden muss.

Mit Hilfe unseres Seed-Generators können wir nun jedes Mal eine Klasse von cl_abap_random erstellen und dieser einen zufälligen Seed bereitstellen, um wirklich auch zufällige Zahlen zu erhalten.

" Zufallsgenerator instanziieren
DATA(lo_rand) = cl_abap_random=>create( mo_seed->intinrange( low = 1 high = 999999 ) ).

 

Dazu noch einmal das komplette Beispiel zur Erzeugung des neuen Würfelergebnisses. Es werden wieder 15 Zahlenreihen erstellt und jedes Mal eine neue Instanz des Zufallsgenerator erzeugt, dieses mal nur mit Hilfe unseres Seed-Generators.

" Seed erzeugen
TRY.
    DATA(ld_seed) = CONV i( |{ sy-datum(4) }{ sy-uzeit }| ).
  CATCH cx_sy_conversion_overflow.
    ld_seed = 1337.
ENDTRY.
DATA(lo_seed) = cl_abap_random=>create( ld_seed ).

" Schleife durchlaufen
DO 15 TIMES.
  DATA(lo_rand) = cl_abap_random=>create( lo_seed->intinrange( low = 1 high = 999999 ) ).
  DO 30 TIMES.
    WRITE: CONV char1( lo_rand->intinrange( low = 1 high = 6 ) ).
  ENDDO.
  NEW-LINE.
ENDDO.

 

Das aktuelle Ergebnis kann sich damit sehen lassen und sieht mehr nach Zufall aus, als bisher. Folgend findest du 3 Beispiele was das Programm an Zahlenreihen erzeugt hat und du wirst feststellen, dass es sich nun um einigermaßen gute Zahlen handelt.

 

Fazit

Die Implementierung eines Zufallsgenerators sollte nun für dich kein Problem sein, wenn du die Feinheiten beachtest bei der Implementierung. Mit Hilfe unseres Beispiels sollte es für dich nun kein Problem mehr sein eine effiziente Lösung zu implementieren.