понедельник, 4 февраля 2013 г.

Генераторы псевдослучайных чисел в SAP

В системе 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

Комментариев нет:

Отправить комментарий