*&---------------------------------------------------------------------*
*& Report Z12_16
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z12_16 MESSAGE-ID Z12_MESSAGE.

TABLES ZEMPLIST.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
  PARAMETERS P_DEPCD TYPE ZEMPLIST-DEPCD.
  SELECT-OPTIONS S_DEPCD FOR ZEMPLIST-DEPCD.
SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN ON BLOCK B1.
  IF P_DEPCD IS NOT INITIAL.
    IF P_DEPCD NE 'D001'.
      MESSAGE E000 WITH P_DEPCD 'cannot be displayed.'.
    ENDIF.
  ENDIF.

  IF 'D002' IN S_DEPCD.
    MESSAGE E000 WITH 'Only D001 can be displayed.'.
  ENDIF.