1 TYPES:BEGIN OF lty_data,
2 partner TYPE ukmbp_cms_sgm-partner,
3 msg_partner TYPE ukmbp_cms_sgm-partner,
4 credit_sgmnt TYPE ukmbp_cms_sgm-credit_sgmnt,
5 comm_typ TYPE ukmcomm_types-comm_typ,
6 amount TYPE ukm_totals_src-amount,
7 END OF lty_data.
8
9 DATA:lt_data TYPE STANDARD TABLE OF lty_data.
10
11 FIELD-SYMBOLS:<lt_table> TYPE ANY TABLE,
12 <lfs_data> TYPE lty_data.
13
14 cl_salv_bs_runtime_info=>set( EXPORTING display = abap_false "ALV是否会被输出到GUI
15 metadata = abap_false "防止基本信息(布局,字段目录等)被取到内存中
16 data = abap_true ). "使数据表导出到内存而不是显示报表
17
18 SUBMIT ukm_commts_delete
19 WITH s_partnr-low = lv_knkli
20 WITH s_segmt-low = lv_kkber
21 AND RETURN.
22
23 TRY.
24 "获取ALV显示数据
25 cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_data ).
26 ASSIGN lr_data->* TO <lt_table>.
27 MOVE-CORRESPONDING <lt_table> TO lt_data.
28
29 CATCH cx_salv_bs_sc_runtime_info.
30
31 ENDTRY.
32
33 cl_salv_bs_runtime_info=>clear_all( ).