This is a test message to test the length of the message box.
Login
ABAP Tipp Zufallszahlen
Erstellt von Software-Heroes

ABAP Tipp - Zufallszahlen

Wie erstellst du einen ordentlich funktionierenden Zufallsgenerator in ABAP? Das zeigen wir dir in unserem kleinen Artikel und auf was du achten solltest.

Werbung

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. 


Enthaltene Themen:
TippRandom
Kommentare (0)

ABAP Tipp - CLEAR right

Kategorie - ABAP

Richtig löschen? In diesem Artikel wollen wir uns einmal anschauen, wann es Sinn macht zu löschen und wie du effektiv vorgehen kannst.

12.05.2023

ABAP Tipp - Performance Kettensätze

Kategorie - ABAP

Schauen wir uns hier einmal die Performance beim Bilden von Kettensätzen mit DATA und FIELD-SYMBOL an. Welche Variante wird bei der Performance vorn liegen?

28.04.2023

ABAP Tipp - Adobe Formulare zu groß

Kategorie - ABAP

In diesem kleinen Tipp wollen wir uns anschauen, wieso im schlechtesten Fall Adobe Formulare größer werden, als sie eigentlich sein sollten.

18.11.2022

ABAP - ALV in 2022 noch relevant?

Kategorie - ABAP

Heute mal die scherzhafte Frage, benötigen wir im Jahr 2022 noch Reports die ALV Ausgaben erzeugen? Der Frage wollen wir in diesem Artikel einmal nachgehen.

01.07.2022

ABAP im Wandel

Kategorie - ABAP

Die Programmiersprache ABAP ist bereits seit Jahren im Wandel und modernisiert sich in verschiedenen Konzepten. In diesem Artikel schauen wir uns das einmal im Detail an.

24.06.2022