In Alv table, a column is editable mode, but want few cells in read only

Question

Hi All,
I have a ALV table which column A and B.
Both are in editable mode. I want to make fews in column B, to be read only.
How to make it. Please help me.
Thanks
Vimalraj

Answer 1

hi,
refer this program,
*& Report  ZALV_COLOR_DISPLAY_EDIT
REPORT  zalv_color_display_edit.
TYPE-POOLS: slis.
TABLES : zcust_master2.
INTERNAL TABLE DECLARATION
TYPES : BEGIN OF wi_zcust_master2,
        zcustid LIKE zcust_master2-zcustid,
        zcustname LIKE zcust_master2-zcustname,
        zaddr LIKE zcust_master2-zaddr,
        zcity LIKE zcust_master2-zcity,
        zstate LIKE zcust_master2-zstate,
        zcountry LIKE zcust_master2-zcountry,
        zphone LIKE zcust_master2-zphone,
        zemail LIKE zcust_master2-zemail,
        zfax LIKE zcust_master2-zfax,
        zstat LIKE zcust_master2-zstat,
        field_style  TYPE lvc_t_styl,
END OF wi_zcust_master2.
DATA: it_wi_zcust_master2 TYPE STANDARD TABLE OF wi_zcust_master2
                                                 INITIAL SIZE 0,
      wa_zcust_master2 TYPE wi_zcust_master2.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: it_fieldcat TYPE lvc_t_fcat,     "slis_t_fieldcat_alv WITH HEADER
line,
      wa_fieldcat TYPE lvc_s_fcat,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE lvc_s_layo,     "slis_layout_alv,
      gd_repid     LIKE sy-repid.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM set_specific_field_attributes.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM display_alv_report.
*&      Form  BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
  wa_fieldcat-fieldname   = 'ZCUSTID'.
  wa_fieldcat-scrtext_m   = 'CUSTOMER ID'.
  wa_fieldcat-col_pos     = 0.
  wa_fieldcat-outputlen   = 10.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZCUSTNAME'.
  wa_fieldcat-scrtext_m   = 'CUSTOMER NAME'.
  wa_fieldcat-col_pos     = 1.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZADDR'.
  wa_fieldcat-scrtext_m   = 'ADDRESS'.
  wa_fieldcat-col_pos     = 2.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZCITY'.
  wa_fieldcat-scrtext_m   = 'CITY'.
  wa_fieldcat-col_pos     = 3.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZSTATE'.
  wa_fieldcat-scrtext_m   = 'STATE'.
  wa_fieldcat-col_pos     = 4.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZCOUNTRY'.
  wa_fieldcat-scrtext_m   = 'COUNTRY'.
  wa_fieldcat-col_pos     = 5.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZPHONE'.
  wa_fieldcat-scrtext_m   = 'PHONE NUMBER'.
  wa_fieldcat-col_pos     = 6.
wa_fieldcat-edit        = 'X'. "sets whole column to be editable
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZEMAIL'.
  wa_fieldcat-scrtext_m   = 'EMAIL'.
  wa_fieldcat-edit        = 'X'. "sets whole column to be editable
  wa_fieldcat-col_pos     = 7.
  wa_fieldcat-outputlen   = 15.
  wa_fieldcat-datatype     = 'CURR'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZFAX'.
  wa_fieldcat-scrtext_m   = 'FAX'.
  wa_fieldcat-col_pos     = 8.
  wa_fieldcat-edit        = 'X'. "sets whole column to be editable
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
  wa_fieldcat-fieldname   = 'ZSTAT'.
  wa_fieldcat-scrtext_m   = 'STATUS'.
  wa_fieldcat-col_pos     = 9.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR  wa_fieldcat.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
Set layout field for field attributes(i.e. input/output)
  gd_layout-stylefname = 'FIELD_STYLE'.
  gd_layout-zebra             = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
  gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program = gd_repid
      is_layout_lvc      = gd_layout
      it_fieldcat_lvc    = it_fieldcat
      i_save             = 'X'
    TABLES
      t_outtab           = it_wi_zcust_master2
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form  DATA_RETRIEVAL
      text
-->  p1        text
<--  p2        text
FORM data_retrieval .
  DATA: ld_color(1) TYPE c.
  SELECT zcustid zcustname zaddr zcity zstate zcountry zphone zemail
zfax zstat UP TO 10 ROWS FROM zcust_master2 INTO CORRESPONDING FIELDS OF
TABLE it_wi_zcust_master2.
ENDFORM.                    "data_retrieval
*&      Form  set_specific_field_attributes
      populate FIELD_STYLE table with specific field attributes
FORM set_specific_field_attributes .
  DATA ls_stylerow TYPE lvc_s_styl .
  DATA lt_styletab TYPE lvc_t_styl .
Populate style variable (FIELD_STYLE) with style properties
The following code sets it to be disabled(display only) if 'ZFAX'
is NOT INITIAL.
  LOOP AT it_wi_zcust_master2 INTO  wa_zcust_master2.
    IF  wa_zcust_master2-zfax IS NOT INITIAL.
      ls_stylerow-fieldname = 'ZFAX' .
      ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
                                      "set field to disabled
      APPEND ls_stylerow  TO  wa_zcust_master2-field_style.
      MODIFY it_wi_zcust_master2  FROM  wa_zcust_master2.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "set_specific_field_attributes
Regards,
K.Tharani.