В системе SAP имеется группа функций QF05 - генераторы псевдослучайных чисел.
Ниже простой пример использования.
CLASS lcl_bl_controller IMPLEMENTATION.
METHOD entry_point.
DATA: seed TYPE qf00-ran_seed,
number TYPE qf00-ran_number.
DO 100 TIMES.
CALL FUNCTION 'QF05_RANDOM'
IMPORTING
ran_number = number.
WRITE: / 'Pseudo random value = ', number.
ENDDO.
DATA int_number TYPE qfranint.
DO 100 TIMES.
CALL FUNCTION 'QF05_RANDOM_INTEGER'
EXPORTING
RAN_INT_MAX = 6
RAN_INT_MIN = 1
IMPORTING
RAN_INT = int_number.
WRITE: / 'Pseudo random value = ', int_number.
ENDDO.
ENDMETHOD. "entry_point
ENDCLASS. "lcl_bl_controller IMPLEMENTATION
Комментариев нет:
Отправить комментарий