Knobelaufgabe zum Wochenende abapforum.com

https://www.abapforum.com/forum/viewtopic.php?f=16&t=23850


  SELECT tabname FROM dd02l INTO TABLE @DATA(tabellen)
   WHERE tabname IN @s_table
     AND as4local = 'A'.

  LOOP AT tabellen INTO DATA(tabelle).
    SELECT
    t002~spras AS spras,
    CASE COALESCE( dd02t~tabname, ' ' ) WHEN ' ' THEN @tabelle-tabname ELSE dd02t~tabname END AS tabname,
    CASE COALESCE( dd02t~tabname, ' ' ) WHEN ' ' THEN ' ' ELSE 'X' END AS translation_exists
    FROM t002
      LEFT OUTER JOIN dd02t ON dd02t~tabname = @tabelle-tabname
                           AND dd02t~ddlanguage = t002~spras
      APPENDING CORRESPONDING FIELDS OF TABLE @ct_data.
  ENDLOOP.