Advertisement
Guest User

Untitled

a guest
Mar 14th, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.55 KB | None | 0 0
  1. data: l_idx like sy-tabix.
  2. read table l_t_range with key
  3.      fieldname = 'CREATION_TIME'.
  4. l_idx = sy-tabix.
  5.  
  6. data: Start__Time type sy-uzeit.
  7. data: End__Time type sy-uzeit.
  8. *Sets time to zero for four hours
  9. If sy-uzeit < 14400.
  10.  
  11.   Start__Time = 0.
  12.  
  13. *     Number of seconds in a day, minus 1
  14.   End__Time = 86399.
  15.   Else.
  16.   Start__Time = sy-uzeit - 14400.
  17.   End__Time =  sy-uzeit.
  18. Endif.
  19.  
  20. l_t_range-sign = 'I'.
  21. l_t_range-option = 'BT'.
  22. l_t_range-low = Start__Time.
  23. l_t_range-high = End__Time.
  24.  
  25. modify l_t_range index l_idx.
  26.  
  27. p_subrc = 0.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement