Function Module QF05_RANDOM_INTEGER can give a random number for a given minimum and maximum values. Study the...
REPORT ZRANDOM. 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.