Advertisement
Guest User

Untitled

a guest
Sep 13th, 2020
166
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.84 KB | None | 0 0
  1. FORM drittmeiste_geburtstage CHANGING ct_data TYPE tt_data.
  2.  
  3.   DATA: lt_counters TYPE TABLE OF i,
  4.         t_ergebnis  LIKE ct_data.
  5.  
  6.   LOOP AT ct_data ASSIGNING FIELD-SYMBOL(<line>) GROUP BY ( birthday = <line>-birthday size = GROUP SIZE ) ASCENDING WITHOUT MEMBERS REFERENCE INTO DATA(grp).
  7.     APPEND grp->size TO lt_counters.
  8.   ENDLOOP.
  9.  
  10.   SORT lt_counters DESCENDING.
  11.  
  12.   DATA(lv_count) = VALUE i( lt_counters[ 3 ] OPTIONAL ). "CHECK lv_count IS NOT INITIAL.
  13.   WRITE:/ 'Drittmeist:', lv_count.
  14.  
  15.   LOOP AT ct_data ASSIGNING FIELD-SYMBOL(<line2>) GROUP BY ( birthday = <line2>-birthday size = GROUP SIZE ) ASCENDING REFERENCE INTO DATA(grp2).
  16.     IF grp2->size = lv_count.
  17.       LOOP AT GROUP grp2 ASSIGNING FIELD-SYMBOL(<erg>).
  18.         APPEND <erg> TO t_ergebnis.
  19.       ENDLOOP.
  20.     ENDIF.
  21.   ENDLOOP.
  22.  
  23.   ct_data = t_ergebnis.
  24. ENDFORM.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement