REPORT z16_06.

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.

*TYPES BEGIN OF ts_itab.
*INCLUDE STRUCTURE zemplist.
*TYPES: fname TYPE zfamily-fname,
*       bdate TYPE zfamily-bdate,
*       END OF ts_itab.

DATA: BEGIN OF gt_itab OCCURS 0,
        empcd  LIKE zemplist-empcd,
        ename  LIKE zemplist-ename,
        pstion LIKE zemplist-pstion,
        email  LIKE zemplist-email,
      END OF gt_itab.

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

*DATA gt_itab TYPE TABLE OF ts_itab.

*SELECT a~*, b~fname, b~bdate
*  FROM zemplist AS a
*  LEFT OUTER JOIN zfamily AS b ON b~empcd EQ a~empcd
*  INTO 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.

* Field Catalog
*CLEAR: gs_fieldcat, gt_fieldcat.
*gs_fieldcat-col_pos    = 1.
*gs_fieldcat-key        = 'X'.
*gs_fieldcat-fieldname  = 'EMPCD'.
*gs_fieldcat-seltext_m  = '직원코드'.
*APPEND gs_fieldcat TO gt_fieldcat.
*
*CLEAR: gs_fieldcat.
*gs_fieldcat-col_pos   = 2.
*gs_fieldcat-edit      = 'X'.
*gs_fieldcat-fieldname = 'DEPCD'.
*gs_fieldcat-seltext_m = '부서코드'.
*APPEND gs_fieldcat TO gt_fieldcat.
*
*CLEAR: gs_fieldcat.
*gs_fieldcat-col_pos   = 3.
*gs_fieldcat-fieldname = 'ENAME'.
*gs_fieldcat-seltext_m = '직원 명'.
*gs_fieldcat-edit_mask = '이름: _ __'.
*APPEND gs_fieldcat TO gt_fieldcat.
*
*CLEAR: gs_fieldcat.
*gs_fieldcat-col_pos   = 4.
*gs_fieldcat-fieldname = 'FNAME'.
*gs_fieldcat-seltext_m = '가족 이름'.
*APPEND gs_fieldcat TO gt_fieldcat.
*
*CLEAR: gs_fieldcat.
*gs_fieldcat-col_pos   = 5.
*gs_fieldcat-fieldname = 'BDATE'.
*gs_fieldcat-seltext_m = '가족 생년월일'.
*gs_fieldcat-edit_mask = '____-__-__'.
*APPEND gs_fieldcat TO gt_fieldcat.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    i_program_name         = sy-repid
    i_internal_tabname     = 'GT_ITAB'
*   i_structure_name       =
    i_client_never_display = 'X'
    i_inclname             = sy-repid
    i_bypassing_buffer     = 'X'
    i_buffer_active        = 'X'
  CHANGING
    ct_fieldcat            = gt_fieldcat.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program      = sy-repid
    it_events               = gt_events
*   i_structure_name        = 'ZEMPLIST'
    it_fieldcat             = gt_fieldcat
    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 'ALV_STATUS'.
  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 'CLOSE'.
      LEAVE PROGRAM.

    WHEN OTHERS.

  ENDCASE.

ENDFORM.                    " ALV_USER_COMMAND