*&---------------------------------------------------------------------*
*&  Include           ZHRST_EFD_EHS_SEL
*&---------------------------------------------------------------------*

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

SELECT-OPTIONS: s_date FOR sy-datum.
PARAMETERS: p_event TYPE zehrst_event.

SELECTION-SCREEN: END OF BLOCK b1.

FORM f_screen_control.

  LOOP AT SCREEN.

    CASE screen-name.
      WHEN 'S_DATE'.

        IF p_event EQ '2210'.

          screen-active = 1.

        ELSE.

          screen-active = 0.

        ENDIF.

        MODIFY SCREEN.

    ENDCASE.

  ENDLOOP.

ENDFORM.