REPORT  ZRANDOMNUMBER.
DATA RANINT LIKE QF00-RAN_INT.

PARAMETERS: P_MAX LIKE QF00-RAN_INT DEFAULT 100,
P_MIN LIKE QF00-RAN_INT DEFAULT 1,
P_TIMES TYPE I DEFAULT 10.

WRITE:/ 'RANDOM NUMBER'.
ULINE.

DO P_TIMES TIMES.

CALL FUNCTION 'QF05_RANDOM_INTEGER'

EXPORTING RAN_INT_MAX = P_MAX
         RAN_INT_MIN = P_MIN

IMPORTING RAN_INT = RANINT

EXCEPTIONS INVALID_INPUT = 1

OTHERS = 2.

IF SY-SUBRC EQ 0.

WRITE:/ RANINT. ELSE.
WRITE:/ 'UNABLE TO GENERATE RANDOM NUMBER'.

ENDIF.

ENDDO.



Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP S/4 HANA Logistics Team Lead
Contact : serkurumsal@yandex.com