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