abap中获取COOIS的ALV内容

*&---------------------------------------------------------------------*
*& Report ZTEST_LIUXY
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest_liuxy.

TABLES:aufk.

FIELD-SYMBOLS <lt_pay_data>   TYPE ANY TABLE.
DATA lr_pay_data              TYPE REF TO data.
DATA lt_selscreen             TYPE TABLE OF rsparams.

"初始设置
CALL METHOD cl_salv_bs_runtime_info=>set
  EXPORTING
    display  = abap_false
    metadata = abap_false
    data     = abap_true.


SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:s_aufnr FOR aufk-aufnr.                 "生产订单
SELECTION-SCREEN END OF BLOCK main.

* 调用目标程序COOIS
SUBMIT ppio_entry
  WITH s_aufnr IN s_aufnr
  WITH SELECTION-TABLE lt_selscreen
   AND RETURN.

TRY.

    "获取ALV显示数据
    CALL METHOD cl_salv_bs_runtime_info=>get_data_ref
      IMPORTING
        r_data = lr_pay_data.

    ASSIGN lr_pay_data->* TO <lt_pay_data>.
  CATCH cx_salv_bs_sc_runtime_info.

    MESSAGE `无法取得ALV术` TYPE 'E'.
ENDTRY.

"结束
cl_salv_bs_runtime_info=>clear_all( ).