Code: Alles auswählen.
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.
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.
DATA: lt_sprachen TYPE STANDARD TABLE OF t002,
ls_sprache LIKE LINE OF lt_sprachen,
lt_tabellen TYPE STANDARD TABLE OF dd02l,
ls_tabelle LIKE LINE OF lt_tabellen,
ls_data LIKE LINE OF ct_data,
ls_dd02t TYPE dd02t.
SELECT *
INTO TABLE lt_sprachen
FROM t002.
SELECT *
INTO TABLE lt_tabellen
FROM dd02l
WHERE tabname IN s_table
AND as4local = 'A'.
LOOP AT lt_tabellen INTO ls_tabelle.
LOOP AT lt_sprachen INTO ls_sprache.
CLEAR ls_data.
ls_data-tabname = ls_tabelle-tabname.
ls_data-spras = ls_sprache-spras.
SELECT SINGLE *
INTO ls_dd02t
FROM dd02t
WHERE tabname = ls_data-tabname
AND ddlanguage = ls_data-spras
AND as4local = 'A'.
IF sy-subrc = 0.
ls_data-translation_exists = 'X'.
ELSE.
ls_data-translation_exists = ' '.
ENDIF.
APPEND ls_data TO ct_data.
ENDLOOP.
ENDLOOP.
ENDFORM.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag (Insgesamt 3):
ewx • a-dead-trousers • qyurryus
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag (Insgesamt 2):
a-dead-trousers • black_adept
Ich bin dafür!
Code: Alles auswählen.
select ...
FROM t002 CROSS JOIN dd02l
Code: Alles auswählen.
ON 1 = 1
ON T002~SPRAS LIKE '%'
ON T002~SPRAS <> '!'
Code: Alles auswählen.
ON tabelle1~feld1 = tabelle2~feld2 AND
Code: Alles auswählen.
SELECT dd02l~tabname,
t002~spras,
CASE WHEN dd02t~tabname IS NOT NULL THEN 'X' END AS translation_exists
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag (Insgesamt 8):
qyurryus • schick • abuma • Thomas R. • a-dead-trousers • Tron • masterhash • IHe