调用报表程序并取报表结果数据

  FIELD-SYMBOLS: <lt_data> TYPE ANY TABLE,
                                  <l_data>  TYPE data.
  FIELD-SYMBOLS <lt_data_line> TYPE ANY TABLE.

  DATA lr_data TYPE REF TO data.
  DATA lr_data_line TYPE REF TO data.
  DATA lr_data_descr TYPE REF TO cl_abap_datadescr.
  DATA lr_data_line_descr TYPE REF TO cl_abap_datadescr.

  cl_salv_bs_runtime_info=>set(
   EXPORTING
     display  = abap_false
     metadata = abap_false
     data     = abap_true ).
  SUBMIT z***2
          WITH p_werks =  p_werks
          WITH p_3     =  'X'
          WITH p_c3    =  'X'
          AND RETURN.
  TRY .
      cl_salv_bs_runtime_info=>get_data_ref(
      IMPORTING r_data_descr = lr_data_descr
      r_data_line_descr = lr_data_line_descr ).
      CREATE DATA lr_data TYPE HANDLE lr_data_descr.
      CREATE DATA lr_data_line TYPE HANDLE lr_data_line_descr.
      ASSIGN lr_data->* TO <lt_data>.
      ASSIGN lr_data_line->* TO <lt_data_line>.
      cl_salv_bs_runtime_info=>get_data(
      IMPORTING
      t_data = <lt_data>
      t_data_line = <lt_data_line> ).
    CATCH cx_salv_bs_sc_runtime_info.
*
  ENDTRY.

  cl_salv_bs_runtime_info=>clear_all( ).
  gt_tab = <lt_data>.