REPORT z16_09.

TYPE-POOLS: slis.

DATA gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA gs_fieldcat TYPE slis_fieldcat_alv.

DATA gt_events TYPE slis_t_event.
DATA gs_event TYPE slis_alv_event.

DATA gs_layout TYPE slis_layout_alv.

gs_layout-zebra = 'X'.
gs_layout-confirmation_prompt = 'X'.
gs_layout-edit = 'X'.
gs_layout-colwidth_optimize = 'X'.

DATA gs_glay TYPE lvc_s_glay.

gs_glay-edt_cll_cb = 'X'.

TYPES BEGIN OF t_line.
INCLUDE STRUCTURE zemplist.
TYPES checkbox TYPE c.
TYPES  END OF t_line.

DATA: gt_itab TYPE TABLE OF t_line WITH HEADER LINE.

SELECT *
  FROM zemplist
  INTO CORRESPONDING FIELDS OF TABLE @gt_itab.

* Event
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
  EXPORTING
    i_list_type     = 0
  IMPORTING
    et_events       = gt_events
  EXCEPTIONS
    list_type_wrong = 1
    OTHERS          = 2.

gs_event-name = 'PF_STATUS_SET'.
gs_event-form = 'ALV_STATUS_SET'.
APPEND gs_event TO gt_events.

gs_event-name = 'DATA_CHANGED'.
gs_event-form = 'ALV_DATA_CHANGED'.
APPEND gs_event TO gt_events.

* Field Catalog
CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 1.
gs_fieldcat-fieldname =  'CHECKBOX'.
gs_fieldcat-checkbox = 'X'.
gs_fieldcat-edit = 'X'.
gs_fieldcat-seltext_m = 'Sel'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 2.
gs_fieldcat-fieldname =  'EMPCD'.
gs_fieldcat-seltext_m = '직원코드'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 3.
gs_fieldcat-fieldname =  'DEPCD'.
gs_fieldcat-seltext_m = '부서코드'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 4.
gs_fieldcat-fieldname =  'PSTION'.
gs_fieldcat-seltext_m = '직위'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 5.
gs_fieldcat-fieldname =  'ENAME'.
gs_fieldcat-seltext_m = '직원 명'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 6.
gs_fieldcat-fieldname =  'EMAIL'.
gs_fieldcat-seltext_m = '이메일 주소'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 7.
gs_fieldcat-fieldname =  'TEL'.
gs_fieldcat-seltext_m = '전화번호'.
APPEND gs_fieldcat TO gt_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program      = sy-repid
    i_grid_settings         = gs_glay
    it_events               = gt_events
    it_fieldcat             = gt_fieldcat
    is_layout               = gs_layout
    i_callback_user_command = 'ALV_USER_COMMAND'
  TABLES
    t_outtab                = gt_itab.

FORM alv_status_set USING pt_extab TYPE slis_t_extab .

  CLEAR: pt_extab[].
  SET PF-STATUS 'STANDARD_FULLSCREEN'.

ENDFORM.                    "ALV_STATUS_SET

FORM alv_user_command USING p_ucomm    LIKE sy-ucomm
                            p_selfield TYPE slis_selfield.

  CASE p_ucomm.

    WHEN 'SAVE'.
      MODIFY zemplist FROM TABLE gt_itab.
      IF sy-subrc EQ 0.
        COMMIT WORK.
      ELSE.
        ROLLBACK WORK.
      ENDIF.

    WHEN 'CLOSE'.
      LEAVE PROGRAM.

    WHEN OTHERS.

  ENDCASE.

ENDFORM. "alv_user_command

FORM alv_data_changed USING pcl_data TYPE REF TO
                                          cl_alv_changed_data_protocol.
  DATA : l_name(20),
         ls_cells TYPE lvc_s_modi.

  FIELD-SYMBOLS <fs_value>.

  LOOP AT pcl_data->mt_mod_cells INTO ls_cells.

    CLEAR gt_itab.
    READ TABLE gt_itab  INDEX ls_cells-row_id.

    CONCATENATE 'GT_ITAB-' ls_cells-fieldname INTO l_name.
    ASSIGN (l_name) TO  <fs_value>.
    <fs_value> = ls_cells-value.

    MODIFY gt_itab INDEX ls_cells-row_id.

  ENDLOOP.

ENDFORM. "alv_data_changed