Advertisement
Guest User

A

a guest
Oct 9th, 2018
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.66 KB | None | 0 0
  1. DATA itab LIKE SORTED TABLE OF line WITH UNIQUE KEY table_line.
  2.  
  3. DATA output TYPE TABLE OF string WITH EMPTY KEY.
  4.  
  5. DATA num TYPE i VALUE 400.
  6. DATA dref TYPE REF TO i.
  7. DATA cond TYPE string.
  8.  
  9. itab = VALUE #( FOR j = 1 UNTIL j > 30
  10.                   ( col1 = j
  11.                     col2 = j ** 2 ) ).
  12.  
  13. dref = REF #( num ).
  14.  
  15. LOOP AT itab INTO line FROM 10 TO 25 WHERE col2 > dref->*.
  16.   APPEND CONV string( line-col2 ) TO output.
  17. ENDLOOP.
  18.  
  19. APPEND INITIAL LINE TO output.
  20.  
  21. cond = 'col2 > dref->*'.
  22.  
  23. LOOP AT itab INTO line FROM 10 TO 25 WHERE (cond).
  24.   APPEND CONV string( line-col2 ) TO output.
  25. ENDLOOP.
  26.  
  27. cl_demo_output=>display_data( output ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement