Knobelaufgabe zum Wochenende Abapforum SEPT 2010

"https://www.abapforum.com/forum/viewtopic.php?f=16&p=96618#p96618

  TYPES _bday_filter TYPE SORTED TABLE OF d WITH UNIQUE KEY table_line.

  SELECT birthday, COUNT( * ) AS cnt
    FROM @ct_data AS data
    GROUP BY birthday
    ORDER BY cnt DESCENDING
   INTO TABLE @DATA(result).

  TRY.
      ct_data = FILTER #( ct_data IN
           VALUE _bday_filter( FOR GROUPS bday OF wa IN result
                                WHERE ( cnt = result[ 3 ]-cnt )
                                  GROUP BY wa-birthday
                                    ( bday ) )
          WHERE birthday = table_line ).
    CATCH cx_sy_itab_line_not_found.
      CLEAR ct_data.
  ENDTRY.