FUNCTION ZFM0004.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_CARRID) TYPE  S_CARR_ID
*"     VALUE(I_CONNID) TYPE  S_CONN_ID
*"     VALUE(I_FLDATE) TYPE  S_DATE
*"     VALUE(I_BOOKID) TYPE  S_BOOK_ID
*"  EXPORTING
*"     VALUE(E_FORCURAM) TYPE  S_F_CUR_PR
*"     VALUE(E_LOCCURAM) TYPE  S_L_CUR_PR
*"----------------------------------------------------------------------

  DATA: LV_RAND TYPE QF00-RAN_INT.

  CALL FUNCTION 'QF05_RANDOM_INTEGER'
    EXPORTING
      RAN_INT_MAX   = 10
      RAN_INT_MIN   = 5
    IMPORTING
      RAN_INT       = LV_RAND
    EXCEPTIONS
      INVALID_INPUT = 1
      OTHERS        = 2.

  SELECT SINGLE *
    INTO @DATA(LS_SBOOK)
    FROM SBOOK
    WHERE CARRID EQ @I_CARRID
      AND CONNID EQ @I_CONNID
      AND FLDATE EQ @I_FLDATE
      AND BOOKID EQ @I_BOOKID.

  E_FORCURAM = LS_SBOOK-FORCURAM * LV_RAND.
  E_LOCCURAM = LS_SBOOK-LOCCURAM * LV_RAND.

ENDFUNCTION.