*&---------------------------------------------------------------------*
*& Include          Z13_02_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.

    TC_ZEMPLIST-LINES = LINES( GT_LIST ).

  ENDIF.

ENDMODULE.
*&---------------------------------------------------------------------*
*& Module MOVE_DATA_PROGRAM_TO_DYNPRO OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE MOVE_DATA_PROGRAM_TO_DYNPRO OUTPUT.
  READ TABLE GT_LIST INTO ZS13_02
    INDEX TC_ZEMPLIST-CURRENT_LINE.

ENDMODULE.