ZKNOBELEI

*&---------------------------------------------------------------------*
*& Report  ZKNOBELEI                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zknobelei                                                   .
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.
    AT NEW tabname.
      ULINE.
    ENDAT.
    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
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->CT_DATA    text
*----------------------------------------------------------------------*
FORM get_translation_info CHANGING ct_data TYPE gtt_data.


  DATA: lt_tabellen  TYPE STANDARD TABLE OF gts_data,
        lt_tabellen2 TYPE STANDARD TABLE OF gts_data.

  FIELD-SYMBOLS: <f> TYPE gts_data,
                 <p> TYPE gts_data.

  SELECT spras FROM t002
          INTO CORRESPONDING FIELDS OF TABLE lt_tabellen.

  SELECT  dd02t~tabname dd02t~ddlanguage
    from ( T002
           inner join DD02T
           on  DD02T~DDLANGUAGE = T002~SPRAS
           inner join DD02L
           on  DD02L~TABNAME = DD02T~TABNAME )
       INTO TABLE gt_data
       WHERE
       dd02t~as4local = 'A' AND dd02l~as4local = 'A' AND
       dd02t~tabname IN s_table ORDER BY dd02t~tabname.


  LOOP AT gt_data ASSIGNING <f>.
    <f>-translation_exists = 'X'.

    AT NEW tabname.
      lt_tabellen2[] = lt_tabellen[].
      LOOP AT lt_tabellen2 ASSIGNING <p>.
        <p>-tabname = <f>-tabname.
      ENDLOOP.
      INSERT LINES OF lt_tabellen2 INTO gt_data.
    ENDAT.

    DELETE gt_data WHERE tabname = <f>-tabname AND spras = <f>-spras AND translation_exists = ' '.
  ENDLOOP.


ENDFORM.                    "get_translation_info