Advertisement
ewx

Knobelaufgabe zum Wochenende abapforum.com

ewx
Sep 11th, 2019
1,209
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.65 KB | None | 0 0
  1. https://www.abapforum.com/forum/viewtopic.php?f=16&t=23850
  2.  
  3.  
  4.   SELECT tabname FROM dd02l INTO TABLE @DATA(tabellen)
  5.    WHERE tabname IN @s_table
  6.      AND as4local = 'A'.
  7.  
  8.   LOOP AT tabellen INTO DATA(tabelle).
  9.     SELECT
  10.     t002~spras AS spras,
  11.     CASE COALESCE( dd02t~tabname, ' ' ) WHEN ' ' THEN @tabelle-tabname ELSE dd02t~tabname END AS tabname,
  12.     CASE COALESCE( dd02t~tabname, ' ' ) WHEN ' ' THEN ' ' ELSE 'X' END AS translation_exists
  13.     FROM t002
  14.       LEFT OUTER JOIN dd02t ON dd02t~tabname = @tabelle-tabname
  15.                            AND dd02t~ddlanguage = t002~spras
  16.       APPENDING CORRESPONDING FIELDS OF TABLE @ct_data.
  17.   ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement