Advertisement
yaramohamed78

ZASG_EMP_SAL_SEARCH

Jan 18th, 2017
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.24 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZASG_EMP_SAL_SEARCH
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT ZASG_EMP_SAL_SEARCH.
  10.  
  11. TABLES: ZASG_SAL , ZASG_EMP .
  12. DATA: l_subrc TYPE SY-SUBRC,
  13.       wa_emp TYPE ZASG_EMP,
  14.       wa_sal TYPE ZASG_SAL,
  15.       S_empid TYPE TABLE OF SELOPT WITH HEADER LINE.
  16.  
  17. SELECTION-SCREEN SKIP.
  18. SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.
  19. SELECT-OPTIONS EMP_ID FOR ZASG_EMP-id .
  20. PARAMETERS :     EMP_NAME LIKE ZASG_EMP-name .
  21. PARAMETERS :     EMP_POS LIKE ZASG_EMP-empposition .
  22. SELECTION-SCREEN END OF BLOCK SELECTION.
  23.  
  24. *selection-screen begin of block b1 .
  25. *parameters:
  26. *           EMP_SAL type ZASG_SAL-amount modif id sc1.
  27. *selection-screen end of block b1.
  28.  
  29. *loop at EMP_ID.
  30. * WRITE : / EMP_ID-LOW.
  31. *endloop.
  32. wa_emp-name = EMP_NAME.
  33. wa_emp-empposition = EMP_POS.
  34. S_empid-SIGN = EMP_ID-SIGN.
  35. S_empid-OPTION = EMP_ID-OPTION.
  36. S_empid-LOW = EMP_ID-LOW.
  37. S_empid-HIGH = EMP_ID-HIGH.
  38. CALL FUNCTION 'Z_ASG_FN_SEARCHFOREMPLOYEE'
  39.   EXPORTING
  40.     WA_EMP        = WA_EMP
  41.   TABLES
  42.     Z_EMPID       = S_empid.
  43.           .
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement