Code: Alles auswählen.
REPORT ZUFALLSZAHL.
DATA : ZUFALLSNUMMER LIKE BSEG-WRBTR.
DO 5 TIMES.
CALL FUNCTION 'RANDOM_P'
EXPORTING
RND_MIN = 1
RND_MAX = 100
IMPORTING
RND_VALUE = ZUFALLSNUMMER.
WRITE:/ 'zufällig ermittelt: ', ZUFALLSNUMMER.
ENDDO.Code: Alles auswählen.
FU RANDOM_P
Kurztext:
Erzeugt eine Zufallszahl
Funktionalität:
Ermittelt eine Zufallszahl, die in dem durch RND_MIN und RND_MAX definierten Bereich liegt (incl. RND_MIN und RND_MAX).
Vor der Benutzung dieser Routine muß der Baustein RANDOM_INITIALIZE aufgerufen werden.
Siehe Funktionsbaustein RANDOM_INITIALIZE.