*&---------------------------------------------------------------------*
*& Include          Z13_03_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
  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 SCREEN-NAME EQ 'GS_LIST-DEPCD'.
      IF GS_LIST-DEPCD EQ 'D002'.
        SCREEN-INPUT = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDMODULE.