CALL FUNCTION 'QF05_RANDOM_INTEGER'
EXPORTING
ran_int_max = 1000
ran_int_min = 1
IMPORTING
ran_int = number
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.