In ALV Reports, i want to edit records manually in out put display

Question

hello all,
in ALV Reports, i want to edit records manually in out put display. how can i do that?

Answer 1

*& Report  ZTEST1
REPORT  ztest1.
TYPE-POOLS: slis.
DATA:i_sbook TYPE STANDARD TABLE OF sbook INITIAL SIZE 0,
     i_sbook1 TYPE STANDARD TABLE OF sbook INITIAL SIZE 0,
     i_fieldcatalog TYPE slis_t_fieldcat_alv,
     wa_fieldcatalog LIKE LINE OF i_fieldcatalog,
     wa_sbook TYPE sbook.
DATA:wa_layout TYPE slis_layout_alv.
SELECT-OPTIONS:
s_carrid FOR wa_sbook-carrid.
AT SELECTION-SCREEN.
  IF s_carrid IS NOT INITIAL.
    SELECT COUNT( * )
      FROM scarr WHERE carrid IN s_carrid.
    IF sy-subrc <> 0.
      MESSAGE e000(ztest) WITH 'Invalid Airline Code'.
    ENDIF.
  ENDIF.
START-OF-SELECTION.
  SELECT *
    FROM sbook
    INTO TABLE i_sbook
    UP TO 50 ROWS
    WHERE carrid IN s_carrid.
  CHECK sy-subrc = 0.
  i_sbook1[] = i_sbook[].
  DATA: l_repid TYPE syrepid VALUE sy-repid.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name               = l_repid
      i_internal_tabname           = 'I_SBOOK'
     i_structure_name             = 'SBOOK'
      i_client_never_display       = 'X'
*   I_INCLNAME                   =
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = i_fieldcatalog
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  LOOP AT i_fieldcatalog INTO wa_fieldcatalog.
    IF wa_fieldcatalog-fieldname = 'SMOKER'.
      wa_fieldcatalog-edit = 'X'.  " REUSE_ALV_GRID_DISPLAY
*      wa_fieldcatalog-input = 'X'.  " REUSE_ALV_LIST_DISPLAY
    ENDIF.
    MODIFY i_fieldcatalog FROM wa_fieldcatalog TRANSPORTING edit input.
  ENDLOOP.
  wa_layout-window_titlebar = 'My Title'.
  wa_layout-zebra = 'X'.
  wa_layout-colwidth_optimize = 'X'.
  DATA repid TYPE syrepid VALUE sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = repid
      i_callback_pf_status_set = 'SET_PF_STATUS'
      i_callback_user_command = 'SUB_USER_COMMAND'
      is_layout        = wa_layout
      it_fieldcat      = i_fieldcatalog
    TABLES
      t_outtab         = i_sbook
    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  sub_user_command
*       text
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
FORM sub_user_command  USING r_ucomm LIKE sy-ucomm
                                   rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.  "Double click
      IF i_sbook1[] NE i_sbook[].
        MESSAGE i001(00) WITH 'Hmm...some data changed'.
      ENDIF.
  ENDCASE.
ENDFORM.                    "sub_user_command
*&      Form  set_pf_status
*       text
*      -->RT_EXTAB   text
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZSTANDARD'.
ENDFORM.                    "set_pf_status