Knobelaufgabe_abapforum_kw34

FORM get_translation_info CHANGING ct_data TYPE gtt_data.

  SELECT d~tabname, t~spras, d~ddlanguage AS translation_exists FROM dd02t AS d
  JOIN dd02l AS dd ON d~tabname = dd~tabname
  JOIN t002 AS t ON t~spras LIKE '%'
  WHERE d~tabname IN @s_table AND dd~as4local = 'A' AND d~as4local = 'A'
  INTO TABLE @ct_data.

  LOOP AT ct_data ASSIGNING FIELD-SYMBOL(<fs_temp>).
    IF <fs_temp>-spras = <fs_temp>-translation_exists.
      <fs_temp>-translation_exists = 'X'.
    ELSE.
      <fs_temp>-translation_exists = ' '.
    ENDIF.
  ENDLOOP.
  SORT ct_data BY tabname spras translation_exists DESCENDING.
  DELETE ADJACENT DUPLICATES FROM ct_data COMPARING spras.

ENDFORM.