select option test -v3 - FM

FUNCTION Z_ASG_FN_SEARCH_TEST.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  TABLES
*"      Z_EMPID STRUCTURE  SELOPT
*"----------------------------------------------------------------------
DATA : emp_name LIKE ZASG_EMP-name,
       emp_amount LIKE ZASG_SAL-amount,
       emp_currency LIKE ZASG_SAL-currency,
       where_statement TYPE STRING,
       STR2 TYPE STRING, STR3 TYPE STRING,
       counter TYPE INT1 VALUE 0,
       errors TYPE INT1 VALUE 0.


LOOP AT Z_EMPID.
  counter = counter + 1.
 IF Z_EMPID-OPTION = 'EQ'.
   where_statement = 'e~id = Z_EMPID-LOW'.
   CONCATENATE where_statement STR2 INTO where_statement.
 ELSEIF Z_EMPID-OPTION = 'NE'.
   STR2 = 'e~id <> Z_EMPID-LOW'.
    CONCATENATE where_statement STR2 INTO where_statement.
 ELSEIF Z_EMPID-OPTION = 'GT'.
   STR2 = 'e~id > Z_EMPID-LOW'.
    CONCATENATE where_statement STR2 INTO where_statement.
  ELSEIF Z_EMPID-OPTION = 'LT'.
    STR2 = 'e~id < Z_EMPID-LOW'.
    CONCATENATE where_statement STR2 INTO where_statement.
    ELSEIF Z_EMPID-OPTION = 'GE'.
    STR2 = 'e~id >= Z_EMPID-LOW'.
    CONCATENATE where_statement STR2 INTO where_statement.
    ELSEIF Z_EMPID-OPTION = 'LE'.
    STR2 = 'e~id <= Z_EMPID-LOW'.
    CONCATENATE where_statement STR2 INTO where_statement.
    ELSEIF Z_EMPID-OPTION = 'BT'.
      STR2 = 'e~id BETWEEN Z_EMPID-LOW AND Z_EMPID-HIGH'.
   CONCATENATE where_statement STR2  INTO where_statement.
  ENDIF.
  SELECT e~name s~amount s~currency
    INTO (emp_name,emp_amount,emp_currency)
  FROM (
    ZASG_EMP AS e
    INNER JOIN ZASG_SAL AS s ON e~id = s~empid
    )
    WHERE (where_statement).
    WRITE : / emp_name , emp_amount , emp_currency.
    ENDSELECT.
*    If no id is found.
   IF  SY-SUBRC <> 0.
     errors = errors + 1.
 ENDIF.
ENDLOOP.

if errors = counter.
MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '007'.
ENDIF.


ENDFUNCTION.