代码语言：javascript复制
DATA: lv_s_tcode TYPE sy-tcode.
PARAMETERS: p_rel TYPE saprl DEFAULT '751'.
SELECT-OPTIONS: so_ta FOR lv_s_tcode.
START-OF-SELECTION.
SELECT c~rel_name, c~s_tcode, c~t_tcode, tx~ttext
INTO TABLE @DATA(it_prgn_corr2)
FROM prgn_corr2 AS c
INNER JOIN tstc AS t ON ( c~t_tcode = t~tcode )
RIGHT OUTER JOIN tstct AS tx ON ( t~tcode = tx~tcode )
WHERE c~rel_name >= @p_rel
AND c~s_tcode IN @so_ta
AND tx~sprsl = @sy-langu.
SORT: it_prgn_corr2 BY s_tcode rel_name.
TRY.
* SALV-Table
DATA: o_salv TYPE REF TO cl_salv_table.
cl_salv_table=>factory( IMPORTING
r_salv_table = o_salv
CHANGING
t_table = it_prgn_corr2 ).
* Grundeinstellungen
o_salv->get_functions( )->set_all( abap_true ).
o_salv->get_columns( )->set_optimize( abap_true ).
o_salv->get_display_settings( )->set_list_header( '标题' ).
o_salv->get_display_settings( )->set_striped_pattern( abap_true ).
o_salv->get_selections( )->set_selection_mode( if_salv_c_selection_mode=>row_column ).
LOOP AT o_salv->get_columns( )->get( ) ASSIGNING FIELD-SYMBOL(<c>).
DATA(o_col) = <c>-r_column.
o_col->set_short_text( || ).
o_col->set_medium_text( || ).
o_col->set_long_text( |{ o_col->get_columnname( ) } [{ o_col->get_long_text( ) }]| ).
ENDLOOP.
o_salv->display( ).
CATCH cx_root INTO DATA(e_txt).
WRITE: / e_txt->get_text( ).
ENDTRY.
