*&---------------------------------------------------------------------*
*& Include Z13_09_TOP                          - Module Pool      Z13_09
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ty_emplist,
         empcd  TYPE zemplist-empcd,
         ename  TYPE zemplist-ename,
         depcd  TYPE zemplist-depcd,
         pstion TYPE zemplist-pstion,
         email  TYPE zemplist-email,
         tel    TYPE zemplist-tel,
         msg    TYPE text50,
       END OF ty_emplist,
       ty_t_emplist TYPE TABLE OF ty_emplist.


CONTROLS tc_zemplist TYPE TABLEVIEW USING SCREEN '0100'.

DATA: gs_list TYPE ty_emplist,
      gt_list TYPE ty_t_emplist.

DATA: gs_bdcdata TYPE bdcdata,
      gt_bdcdata LIKE TABLE OF gs_bdcdata.

DATA: ok_code     TYPE sy-ucomm,
      gv_filename TYPE rlgrap-filename.