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.