*&---------------------------------------------------------------------*
*& Report Z12_09
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z12_09.

TABLES : ZEMPLIST, SSCRFIELDS.

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT  1(10) TEXT-001 FOR FIELD P_01.
  PARAMETERS : P_01 TYPE  ZEMPLIST-EMPCD.

  SELECTION-SCREEN POSITION 50.
  PARAMETERS : P_02 TYPE ZEMPLIST-ENAME.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN ULINE /1(10).
SELECTION-SCREEN ULINE POS_LOW(10).
SELECTION-SCREEN ULINE POS_HIGH(10).

SELECTION-SCREEN PUSHBUTTON /POS_LOW(10) TEXT-003 USER-COMMAND BTN01.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-004.
  PARAMETERS : P_03 TYPE C LENGTH 4.
  SELECT-OPTIONS : S_01 FOR ZEMPLIST-DEPCD.
SELECTION-SCREEN END OF BLOCK BLOCK.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK2 WITH FRAME TITLE TEXT-005
  NO INTERVALS.
  PARAMETERS : P_04 TYPE N LENGTH 4.
  SELECT-OPTIONS : S_02 FOR ZEMPLIST-ENAME.
SELECTION-SCREEN END OF BLOCK BLOCK2.
SELECTION-SCREEN FUNCTION KEY 1.

INITIALIZATION.
  MOVE 'Function key 1' TO SSCRFIELDS-FUNCTXT_01.

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'FC01'.
    MESSAGE 'You clicked Function Key 1' TYPE 'I'.
  ENDIF.

  IF SSCRFIELDS-UCOMM = 'BTN01'.
    MESSAGE 'You clicked Fuction Key button' TYPE 'I'.
  ENDIF.