REPORT  z16_05.

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 gt_itab          TYPE TABLE OF sflight.

DATA: gs_layout       TYPE  slis_layout_alv.

*DATA : BEGIN OF GT_ITAB2 OCCURS 0.
*  INCLUDE STRUCTURE SFLIGHT.
*  DATA CARRC TYPE C.
*  DATA BOX TYPE C.
*DATA : END OF GT_ITAB2.

SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE
gt_itab UP TO 25 ROWS.

*MOVE    'PF_STATUS_SET'   TO  gs_event-name.
*MOVE    'ALV_STATUS_SET'  TO  gs_event-form.
*APPEND  gs_event          TO  gt_events.

CLEAR : gs_fieldcat, gt_fieldcat.
gs_fieldcat-col_pos = 1.
gs_fieldcat-fieldname =  'CARRID'.
gs_fieldcat-seltext_m = 'Airline Code'.
APPEND gs_fieldcat TO gt_fieldcat.

CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 2.
gs_fieldcat-fieldname =  'CONNID'.
gs_fieldcat-seltext_m = 'Connection Number'.
APPEND gs_fieldcat TO gt_fieldcat.

*CLEAR : gs_fieldcat.
*gs_fieldcat-col_pos = 3.
*gs_fieldcat-fieldname =  'FLDATE'.
*gs_fieldcat-seltext_m = '운항일'.
*gs_fieldcat-EDIT_MASK = '____/__/__'.
*APPEND gs_fieldcat TO gt_fieldcat.

*gs_layout-NO_INPUT = 'X'.
gs_layout-confirmation_prompt = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program      = sy-repid
    it_events               = gt_events
*    i_structure_name        = 'SFLIGHT'
    it_fieldcat             = gt_fieldcat
    i_callback_user_command = 'ALV_USER_COMMAND'
  TABLES
    t_outtab                = gt_itab.

*&---------------------------------------------------------------------*
*&      Form  alv_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_UCOMM    text
*      -->P_SELFIELD text
*----------------------------------------------------------------------*
FORM alv_user_command USING p_ucomm    LIKE sy-ucomm
                            p_selfield TYPE slis_selfield.
  CASE p_ucomm.
    WHEN 'CLOSE'.
      LEAVE PROGRAM.
    WHEN 'SAVE'.
      MODIFY sflight FROM TABLE gt_itab.

  ENDCASE.

ENDFORM.                    " ALV_USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  alv_status_set
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_EXTAB   text
*----------------------------------------------------------------------*
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