SALV einzelne Spaltenbreite optimieren

Code: Alles auswählen.

SELECT * FROM sflight INTO TABLE @DATA(lt_sflight).
TRY.
    cl_salv_table=>factory(
      IMPORTING
        r_salv_table   = DATA(lr_salv)
      CHANGING
        t_table        = lt_sflight
    ).

  CATCH cx_salv_msg.
ENDTRY.

DATA(lr_salv_columns) = lr_salv->get_columns( ).
DATA(lr_salv_column) = lr_salv_columns->get_column( 'PRICE' ).
* lr_salv_columns->set_optimize( if_salv_c_bool_sap=>true ). " Alle Spalten -> geht
lr_salv_column->set_optimized( if_salv_c_bool_sap=>true ). " Einzelne Spalte -> geht nicht

lr_salv->display( ).

Code: Alles auswählen.

PARAMETERS p_mat AS CHECKBOX DEFAULT space.
PARAMETERS p_net AS CHECKBOX DEFAULT space.

START-OF-SELECTION.

  TYPES: BEGIN OF ts_demo,
           matnr TYPE matnr,
           werks TYPE werks_d,
           netwr TYPE kbetr,
           waerk TYPE waerk,
         END OF ts_demo,
         tt_demo TYPE STANDARD TABLE OF ts_demo WITH DEFAULT KEY.
  DATA(demo) = VALUE tt_demo(
    ( matnr = 'ABCD' werks = '1000' netwr = 100 waerk = 'EUR' )
    ( matnr = 'XYZ'  werks = '1000' netwr = 300 waerk = 'EUR' )
    ( matnr = 'A120' werks = '2000' netwr = 555500 waerk = 'JPY' )
    ( matnr = 'B130' werks = '3000' netwr = 100000 waerk = 'USD' ) ).

  WRITE space.

  TRY.
      cl_salv_table=>factory(
        EXPORTING
          r_container    = cl_gui_container=>screen0
        IMPORTING
          r_salv_table   = DATA(salv)
        CHANGING
          t_table        = demo  ).
      IF p_mat = abap_true.
        salv->get_columns( )->get_column( 'MATNR' )->set_optimized( abap_true ).
      ENDIF.
      IF p_net = abap_true.
        salv->get_columns( )->get_column( 'NETWR' )->set_optimized( abap_true ).
      ENDIF.
      salv->display( ).
    CATCH cx_salv_msg cx_salv_not_found INTO DATA(lo_salv_error).
      MESSAGE lo_salv_error TYPE 'E'.
  ENDTRY.