SAP ABAP创建salv报表（sap新建）

定义变量

DATA: gr_table TYPE REF TO cl_salv_table,
gr_functions TYPE REF TO cl_salv_functions_list,
gr_display TYPE REF TO cl_salv_display_settings,
gr_columns TYPE REF TO cl_salv_columns_table,
gr_column TYPE REF TO cl_salv_column_table,
gr_sorts TYPE REF TO cl_salv_sorts.
DATA:go_layout TYPE REF TO cl_salv_layout,
gv_variant TYPE slis_vari,
gs_key TYPE salv_s_layout_key.

显示

FORM display_data.

DATA: lo_cols TYPE REF TO cl_salv_columns_table.
cl_salv_table=>factory(
" EXPORTING
" list_display = abap_true
IMPORTING
r_salv_table = gr_table " 显示的数据表
CHANGING
t_table = lt_data_out ).

*lo_cols = gr_table->get_columns( ).
* lo_cols->set_color_column( 'COLOR' ).

gr_functions = gr_table->get_functions( ).
gr_functions->set_default( ).

gr_columns = gr_table->get_columns( ).
gr_columns->set_optimize( 'X' ).

gr_column ?= gr_columns->get_column('CHARG').
gr_column->set_long_text( TEXT-001 ).
gr_column->set_medium_text( TEXT-001 ).

gr_column ?= gr_columns->get_column('DATE').
gr_column->set_long_text( TEXT-002 ).
gr_column->set_medium_text( TEXT-002 ).

gr_column ?= gr_columns->get_column('MESSAGE').
gr_column->set_long_text( TEXT-003 ).
gr_column->set_medium_text( TEXT-003 ).

gr_table->set_screen_status(
pfstatus = 'S_01'
report = sy-repid
set_functions = gr_table->c_functions_all ).

go_layout = gr_table->get_layout( ).
gs_key-report = sy-repid.
go_layout->set_key( gs_key ).

go_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).

gv_variant = 'DEFAULT'.
go_layout->set_initial_layout( gv_variant ).

gr_table->display( ).
ENDFORM.