Fundstück: Vorinstalliertes SAP Trial System zum Download

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report ZKNOBEL
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZKNOBEL.



TABLES: dd02l.
TYPES: BEGIN OF gts_data,
         tabname            TYPE dd02l-tabname,
         spras              TYPE t002-spras,
         translation_exists TYPE flag,
       END OF gts_data,
       gtt_data TYPE STANDARD TABLE OF gts_data WITH NON-UNIQUE DEFAULT KEY.

DATA: gt_data TYPE gtt_data,
      gs_data TYPE gts_data.
SELECT-OPTIONS: s_table FOR dd02l-tabname DEFAULT 'T006A'.


END-OF-SELECTION.

  PERFORM GET_TRANSLATION_INFO CHANGING gt_data.

  SORT gt_data BY tabname spras.
  LOOP AT gt_data INTO gs_data.
    WRITE:/ gs_data-tabname,
            gs_data-spras.
    IF gs_data-translation_exists = 'X'.
      WRITE 'Übersetzung vorhanden' COLOR 5.
    ELSE.
      WRITE 'ÜBersetzung fehlt' COLOR 7.
    ENDIF.
  ENDLOOP.



FORM get_translation_info CHANGING ct_data TYPE gtt_data.



  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.

endform.