select option test -v3

*&---------------------------------------------------------------------*
*& Report  Z_SELECTOPTION_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_SELECTOPTION_TEST.

*Tables Used
TABLES: ZASG_SAL , ZASG_EMP .

*Data Variables.
DATA: l_subrc TYPE SY-SUBRC,
      wa_emp TYPE ZASG_EMP,
      S_empid TYPE TABLE OF SELOPT WITH HEADER LINE,
      where_statement TYPE STRING,
      STR2 TYPE STRING,
      emp_name LIKE ZASG_EMP-name,
      emp_amount LIKE ZASG_SAL-amount,
      emp_currency LIKE ZASG_SAL-currency,
      counter TYPE INT1 VALUE 0,
      errors TYPE INT1 VALUE 0.


*Selection Screen (ID)
SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.
SELECT-OPTIONS EMP_ID FOR ZASG_EMP-id .
SELECTION-SCREEN END OF BLOCK SELECTION.


LOOP AT EMP_ID.
 S_empid-SIGN = EMP_ID-SIGN.
S_empid-OPTION = EMP_ID-OPTION.
S_empid-LOW = EMP_ID-LOW.
S_empid-HIGH = EMP_ID-HIGH.
APPEND S_empid.
CLEAR S_empid.

ENDLOOP.

CALL FUNCTION 'Z_ASG_FN_SEARCH_TEST'
  TABLES
    Z_EMPID       = S_empid.

INITIALIZATION.