Hasard en abap

Générer un nombre entier au hasard dans un intervalle donné

REPORT zdel_req_adso.

PARAMETERS p_num TYPE i.

DATA w_coeff TYPE i.
DATA w_calc  TYPE p LENGTH 8 DECIMALS 2.

CALL FUNCTION 'QF05_RANDOM_INTEGER'
EXPORTING
ran_int_max   = 20
ran_int_min   = -20
IMPORTING
ran_int       = w_coeff
EXCEPTIONS
invalid_input = 1
OTHERS        = 2.

w_calc = p_num + ( p_num * w_coeff / 100 ).
w_calc = trunc( w_calc ).

WRITE :/ 'Départ   : ', p_num.
WRITE :/ 'Coeff    : ', w_coeff.
WRITE :/ 'Résultat : ', w_calc.