BW-Query lesen -> Filter

Code: Alles auswählen.

TYPE-POOLS rrx1.

DATA gv_dest         TYPE rfcdest VALUE 'BW'.
DATA gt_prptys       TYPE STANDARD TABLE OF rrx_properties.
DATA gv_handle       LIKE rrx_misc-handle.

DATA gt_ranges       TYPE STANDARD TABLE OF rrx_ranges.
DATA gt_grid         TYPE STANDARD TABLE OF rrx_grid.
FIELD-SYMBOLS <grid> TYPE rrx_grid.
DATA gt_var          TYPE STANDARD TABLE OF rrx_var.
FIELD-SYMBOLS <var>  TYPE rrx_var.

DATA gt_con          TYPE rrx1_t_con.
DATA gt_fac          TYPE rrx1_t_fac.

DATA gt_tsymbols     TYPE rrx1_t_txt_symbols.
FIELD-SYMBOLS <tsym> TYPE rrx1_s_txt_symbols.

START-OF-SELECTION.


  PERFORM call_query.


*&---------------------------------------------------------------------*
*&      Form  call_query
*&---------------------------------------------------------------------*
FORM call_query.

  CALL FUNCTION 'RRY_SESSION_INITIALIZE'
    DESTINATION gv_dest
    TABLES
      c_t_prptys = gt_prptys.

  CALL FUNCTION 'RRX_REPORT_OPEN'
    DESTINATION gv_dest
    EXPORTING
      i_genuniid = 'D25NAH5TL9G2HA5B3NXSDPW3B'       
    IMPORTING
      e_handle   = gv_handle
    EXCEPTIONS
      OTHERS     = 1.
  WRITE: / 'Open:', sy-subrc.
  CHECK sy-subrc = 0.
  CALL FUNCTION 'RRX_GRID_CMD_PROCESS'
    DESTINATION gv_dest
    EXPORTING
      i_handle           = gv_handle
      i_cmdid            = rrx1_c_cmdid-strt "Grundliste
    TABLES
*      i_t_ranges         = gt_ranges
      e_t_var            = gt_var
      e_t_ranges         = gt_ranges
      c_t_prptys         = gt_prptys
      e_t_grid           = gt_grid
      e_t_con            = gt_con
      e_t_fac            = gt_fac
    EXCEPTIONS
      inherited_error    = 1
      no_record_found    = 2
      terminated_by_user = 3
      no_processing      = 4
      no_change          = 5
      dbcl_nosupport     = 6
      OTHERS             = 9.

  WRITE: / 'Process:', sy-subrc.
  CHECK sy-subrc = 0.

  DATA y TYPE i.
  DATA lv_pos TYPE i.
  LOOP AT gt_grid ASSIGNING <grid>.
    IF y <> <grid>-y.
      NEW-LINE.
      y = <grid>-y.
    ENDIF.
    lv_pos = ( <grid>-x - 1 ) * 40.
    WRITE: AT lv_pos <grid>-data(35) RIGHT-JUSTIFIED.
  ENDLOOP.

ENDFORM.                                                    "1st_try