*&---------------------------------------------------------------------*
*& Report Z12_20
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z12_20.

TABLES zemplist.

PARAMETERS p_depcd TYPE zemplist-depcd.
SELECT-OPTIONS s_empcd FOR zemplist-empcd.
PARAMETERS p_pstion TYPE zemplist-pstion.

SELECTION-SCREEN BEGIN OF SCREEN 2000.
  SELECT-OPTIONS s_ename FOR zemplist-ename.
SELECTION-SCREEN END OF SCREEN 2000.

START-OF-SELECTION.

  SELECT *
    FROM zemplist
    WHERE empcd  IN @s_empcd
      AND depcd  EQ @p_depcd
      AND ename  IN @s_ename
      AND pstion EQ @p_pstion
    INTO TABLE @DATA(lt_zemplist).

  cl_demo_output=>display( lt_zemplist ).