Advertisement
yaramohamed78

Z_SELECTOPTION_TEST

Jan 18th, 2017
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.18 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *& Report  Z_SELECTOPTION_TEST
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT Z_SELECTOPTION_TEST.
  10.  
  11. *Tables Used
  12. TABLES: ZASG_SAL , ZASG_EMP .
  13.  
  14. *Data Variables.
  15. DATA: l_subrc TYPE SY-SUBRC,
  16.       wa_emp TYPE ZASG_EMP,
  17.       S_empid TYPE TABLE OF SELOPT WITH HEADER LINE,
  18.       counter TYPE INT1 VALUE 0,
  19.       errors TYPE INT1 VALUE 0.
  20.  
  21.  
  22. *Selection Screen (ID)
  23. SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.
  24. SELECT-OPTIONS EMP_ID FOR ZASG_EMP-id .
  25. PARAMETERS :     EMP_NAME LIKE ZASG_EMP-name .
  26. PARAMETERS :     EMP_POS LIKE ZASG_EMP-empposition .
  27. SELECTION-SCREEN END OF BLOCK SELECTION.
  28.  
  29. wa_emp-name = EMP_NAME.
  30. wa_emp-empposition = EMP_POS.
  31.  
  32. LOOP AT EMP_ID.
  33. S_empid-SIGN = EMP_ID-SIGN.
  34. S_empid-OPTION = EMP_ID-OPTION.
  35. S_empid-LOW = EMP_ID-LOW.
  36. S_empid-HIGH = EMP_ID-HIGH.
  37. APPEND S_empid.
  38. CLEAR S_empid.
  39.  
  40. ENDLOOP.
  41.  
  42. CALL FUNCTION 'Z_ASG_FN_SEARCH_TEST'
  43.   EXPORTING
  44.     WA_EMP        = WA_EMP
  45.  
  46.   TABLES
  47.     Z_EMPID       = S_empid.
  48.  
  49. INITIALIZATION.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement