Advertisement
NAVAPAT_T

ABAP : fuck with AT LAST,AT END

May 18th, 2018
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.38 KB | None | 0 0
  1. REPORT ZNEXUS_TEST.
  2. DEFINE add_v.
  3.   gt_data-no = &1.
  4.   gt_data-name = &2.
  5.   gt_data-good = &3.
  6.   gt_data-bad = &4.
  7.  
  8.   append gt_data.
  9.  
  10. END-OF-DEFINITION.
  11.  
  12. DATA : BEGIN OF gt_data occurs 0,
  13.        no TYPE i,
  14.        name(20),
  15.        good TYPE i,
  16.        bad  TYPE i,
  17.        END OF gt_data.
  18.  
  19. add_v 1 'boy' 5 3        .  " first item
  20. add_v 2 'bank' 4  4        .
  21.  
  22. add_v 3 'pat' 1  5       .
  23. add_v 3 'pat' 1  5       .
  24. add_v 3 'pat' 7  5       . " last item of name 'PAT'
  25.  
  26. add_v 4 'fern' 4 6       .
  27. add_v 5 'mook' 2 7        .
  28. add_v 6 'nut' 7  2       .  "----> real last item
  29.  
  30. *AT LAST process only last item of internal table in this case ---> add_v 6 'nut' 7  2       .
  31. *AT END process only end of item
  32. "EX     add_v 3 'pat' 1  5       .
  33. "       add_v 3 'pat' 1  5       .
  34. "       add_v 3 'pat' 7  5       . <---- AT END process when condition match with last
  35. *                                       item of Internal table pls see loop below
  36. *
  37. LOOP AT gt_data INTO DATA(www) WHERE name = 'pat' AND good = 7. " this process AT END
  38. *LOOP AT gt_data INTO DATA(www) WHERE name = 'pat' AND good = 1. " this NOT!! process AT END because internal table have  3 'pat' 7  5  
  39.                                                                  " so it is real end of item
  40.   WRITE 'pass'.
  41.   AT END OF name.
  42.     WRITE 'END'.
  43.   ENDAT.
  44.  
  45.   AT LAST.
  46.     WRITE 'LAST'.
  47.   ENDAT.
  48. ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement