RANGES:  r_racct FOR zgslpmi01t-racct.

*"----------------------------------------------------------------------
*" Macro MAKE_RANGE &1
*"----------------------------------------------------------------------
*"*"Local interface:
*"    <= &1 first_date
*"    <= &2 last_date
*"    => &3 DAY_IN
*"    => &4 date
*"----------------------------------------------------------------------
DEFINE make_range.
  &1-SIGN   = 'I'.
  &1-OPTION = ld_rsdsexpr-option.
  &1-LOW    = ld_rsdsexpr-low.
  &1-HIGH   = ld_rsdsexpr-high.
  APPEND &1.
END-OF-DEFINITION."make_range

*&--------------------------------------------------------------------*
*&      Form  GET_DYNAMIC_SELECTION
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
form GET_DYNAMIC_SELECTION.

  data: g_repid        like sy-repid.
  data: rt_dyn_trange  type rsds_trange.
  DATA: it_dyn_texpr   type rsds_texpr  with header line.

  data: ld_rsds_expr type rsds_expr,
        ld_rsdsexpr  type rsdsexpr.

  REFRESH: it_dyn_texpr.
  REFRESH: r_racct.

  g_repid = sy-repid.
* get report dynamic selections:
  call function 'RS_REFRESH_FROM_DYNAMICAL_SEL'
    exporting
      curr_report        = g_repid
      mode_write_or_move = 'M'
    importing
      p_trange           = rt_dyn_trange
    exceptions
      not_found          = 1
      wrong_type         = 2
      others             = 3.
  if sy-subrc ne 0.
    exit.
  endif.
* delete rt_dyn_trange where tablename ne 'BSIS'.                "740027
  call function 'FREE_SELECTIONS_RANGE_2_EX'
    exporting
      field_ranges = rt_dyn_trange
    importing
      expressions  = it_dyn_texpr[].

  loop at it_dyn_texpr into ld_rsds_expr.
    loop at ld_rsds_expr-expr_tab into ld_rsdsexpr.

      IF ld_rsdsexpr-fieldname EQ 'RACCT'.
          make_range r_racct.
      ENDIF.
    endloop.
  endloop.
endform.                    "GET_DYNAMIC_SELECTION