How to edit only some rows in ALV

Question

Hi Experts,
I have editable ALV. I need to allow edit only for some rows, not generaly all of them.
Do you have any idea how to do it?
I use ALV through FM module REUSE_ALV_GRID_DISPLAY.
Thenks&regards,
Jirka

Answer 1

Hi,
You need to use events. Sample code from sdn.
TYPE-POOLS:SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
data: begin of it_chg occurs 0,
      index type sy-tabix,
      end of it_chg.
DATA:  X_EVENTS    TYPE SLIS_ALV_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
      NAME(10) TYPE C,
      ZTERM TYPE C,
      END OF ITAB.
PERFORM FILL_TABLE.
loop at itab where zterm = 'A'.
it_chg-index = sy-tabix + 3. 
" addition 3 IS FOR FIELD LABELS
append it_chg.
clear it_chg.
endloop.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
**fieldcatalog
X_FIELDCAT-FIELDNAME = 'NAME'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-FIELDNAME = 'ZTERM'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
**events
REFRESH:IT_EVENTS.
CLEAR:X_EVENTS,IT_EVENTS.
X_EVENTS-NAME = SLIS_EV_END_OF_LIST.
X_EVENTS-FORM = 'MODIFY_LIST'.
APPEND X_EVENTS TO IT_EVENTS.
CLEAR X_EVENTS.
END-OF-SELECTION.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT        = IT_FIELDCAT
      IT_EVENTS          = IT_EVENTS
    TABLES
      T_OUTTAB           = ITAB
    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.
*&      Form FILL_TABLE
      text
FORM FILL_TABLE.
  ITAB-NAME = 'vijay'.
  ITAB-ZTERM = 'A'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'ABC'.
  ITAB-ZTERM = 'B'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'TEST'.
  ITAB-ZTERM = 'C'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'DILIP'.
  ITAB-ZTERM = 'D'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = '123'.
  ITAB-ZTERM = 'E'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'GEN'.
  ITAB-ZTERM = 'A'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'ALV'.
  ITAB-ZTERM = 'F'.
  APPEND ITAB.
  clear itab.
  ITAB-NAME = 'ALVTEST'.
  ITAB-ZTERM = 'A'.
  APPEND ITAB.
  clear itab.
ENDFORM.                    "FILL_TABLE
*&      Form  MODIFY_LIST
      text
FORM MODIFY_LIST.
data: l_lines type i.
describe table itab lines l_lines.
  L_LINES  = L_LINES + 3.
  "because we have 3 lines extra occupied by lables.
  "if we have header,i mean top of page add the no.of lines
  "how many ever top of page have + 3 for labels.
  DO L_LINES TIMES.
    read table it_chg with key INDEX = sy-index.
    if sy-subrc = 0.
**This code is for reading the out put line
**and modify accordinlg to our requiremnet.
**don't chnage this.
      READ LINE SY-INDEX INDEX SY-LSIND.
      IF SY-SUBRC = 0.
        MODIFY LINE SY-INDEX INDEX SY-LSIND
                   FIELD FORMAT ITAB-NAME INPUT.
      ENDIF.
    ENDIF.
  ENDDO.
ENDFORM.                    "MODIFY_LIST