*&---------------------------------------------------------------------*
*& Include          Z13_04_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  DATA lt_fcode TYPE TABLE OF sy-ucomm.
  IF gv_change IS INITIAL.
    lt_fcode = VALUE #( ( 'SAVE' ) ).
  ELSE.
    CLEAR lt_fcode.
  ENDIF.

  SET PF-STATUS 'S0100' EXCLUDING lt_fcode.
  SET TITLEBAR 'T0100'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module GET_DATA OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE get_data OUTPUT.

  IF gt_list IS INITIAL.
    SELECT *
      FROM zemplist  AS a LEFT OUTER JOIN
           zteamlist AS b
        ON a~depcd  EQ  b~depcd
      ORDER BY a~empcd, a~depcd
      INTO CORRESPONDING FIELDS OF TABLE @gt_list.

  ENDIF.

ENDMODULE.
*&---------------------------------------------------------------------*
*& Module MOVE_DATA_PROGRAM_TO_DYNPRO OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE move_data_program_to_dynpro OUTPUT.
  READ TABLE gt_list INTO gs_list
    INDEX tc_zemplist-current_line.

ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SCREEN_MODIFY OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE screen_modify OUTPUT.
  LOOP AT SCREEN.
    IF gv_change EQ ' '.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.


  LOOP AT tc_zemplist-cols INTO gs_cols.
    IF gs_cols-screen-name EQ 'GS_LIST-TEL'.
      gs_cols-invisible = 1.
      MODIFY tc_zemplist-cols  FROM gs_cols
        INDEX sy-tabix.

    ENDIF.

** 동적으로 컬럼의 너비를 수정함.
*    IF gs_cols-screen-name EQ 'GS_LIST-EMAIL'.
*      gs_cols-vislength = CONV iconlength( 8 ).
*      MODIFY tc_zemplist-cols  FROM gs_cols
*        INDEX sy-tabix.
*
*    ENDIF.
  ENDLOOP.
ENDMODULE.