How to set column width in alvgrid

Question

hi
how to set column width in alvgrid.
thanks.

Answer 1

Hi,
Check this,
REPORT  ztest.
DATA: BEGIN OF i_scarr_tab OCCURS 0.
        INCLUDE STRUCTURE  scarr.
DATA: END OF i_scarr_tab.
DATA: i_scarr LIKE TABLE OF i_scarr_tab WITH HEADER LINE,
      w_scarr LIKE LINE OF i_scarr_tab.
DATA: o_grid      TYPE REF TO cl_gui_alv_grid,
      o_container TYPE REF TO cl_gui_custom_container.
DATA: lt_fcat     TYPE lvc_t_fcat,
      ls_layo     TYPE lvc_s_layo,
      ls_sort     TYPE lvc_s_sort,
      lt_sort     TYPE lvc_t_sort,
      ls_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
START-OF-SELECTION.
  CALL SCREEN 9000.
*&      Module  status_9000  OUTPUT
      text
MODULE status_9000 OUTPUT.
  SET PF-STATUS '9000'.
  SET TITLEBAR '9000'.
ENDMODULE.                 " status_9000  OUTPUT
*&      Module  user_command_9000  INPUT
      text
MODULE user_command_9000 INPUT.
  CASE sy-ucomm .
    WHEN 'BACK' OR 'EXIT'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_9000  INPUT
*&      Module  init_9000  OUTPUT
      text
MODULE init_9000 OUTPUT.
  IF o_container IS INITIAL.
    SELECT * FROM scarr INTO CORRESPONDING FIELDS OF TABLE
       i_scarr UP TO 100 ROWS.
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
Create a custom container control for ALV Control
      CREATE OBJECT o_container
          EXPORTING
              container_name = 'CONTROL'.
Create a ALV Control
      CREATE OBJECT o_grid
          EXPORTING i_parent = o_container.
      PERFORM build_field_catalgue.
      ls_layo-sel_mode = 'A'.
      CALL METHOD o_grid->set_table_for_first_display
        EXPORTING
          i_save          = 'A'
          i_default       = 'X'
          is_layout       = ls_layo
        CHANGING
          it_outtab       = i_scarr[]
          it_fieldcatalog = lt_fcat
          it_sort         = lt_sort[].
    ENDIF.
  ENDIF.
ENDMODULE.                 " init_9000  OUTPUT
*&      Form  build_field_catalgue
      text
-->  p1        text
<--  p2        text
FORM build_field_catalgue .
  DATA: ls_fcat TYPE lvc_s_fcat.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-cprog
      i_internal_tabname     = 'I_SCARR_TAB'
      i_structure_name       = 'SCARR'
     i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = ls_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    MESSAGE 'FCAT Error' TYPE 'I'.
    EXIT.
  ENDIF.
  LOOP AT  ls_fieldcat.
    CLEAR ls_fcat.
    ls_fcat-fieldname = ls_fieldcat-fieldname.     "Fieldname
    ls_fcat-ref_table = ls_fieldcat-tabname.       "DDIC ref struct
    ls_fcat-inttype   = ls_fieldcat-inttype.       "Data type
    ls_fcat-outputlen = ls_fieldcat-outputlen.     "Column width
    ls_fcat-coltext   = ls_fieldcat-seltext_m.     "Column Header
    ls_fcat-seltext   = ls_fieldcat-seltext_m.     "Column Desc
    ls_fcat-ref_field = ls_fieldcat-ref_fieldname. "Reference field
    ls_fcat-ref_table = ls_fieldcat-ref_tabname.   "Reference table
    CASE  ls_fieldcat-fieldname.
      WHEN 'LUGGWEIGHT' OR 'FORCURAM'.
        ls_fcat-edit      = 'X'.
        ls_fcat-do_sum    = 'X'.
      WHEN 'URL'.
        ls_fcat-no_out = 'X'.
      WHEN OTHERS.
        ls_fcat-edit      = ' '.
        ls_fcat-do_sum    = ' '.
    ENDCASE.
    APPEND ls_fcat TO lt_fcat.
  ENDLOOP.
ENDFORM.                    " build_field_catalgue
check the programs bcalv_grid*.
check this link for more detailed example.
http://www.supinfo-projects.com/fr/2005/alv_display_fr/2/
Regards
Sruthi