SAP データエレメント翻訳ツール （データエレメントを入力し、JP⇔ENを表示される）ABAP DD04T

REPORT ZDATA_ITEM
                    NO STANDARD PAGE HEADING
                                LINE-SIZE 365
                                LINE-COUNT 158.

TYPES:
   BEGIN OF TYP_MYDD04T,
    ROLLNAME       TYPE DD04T-ROLLNAME   ,
    DDLANGUAGE     TYPE DD04T-DDLANGUAGE,
    AS4LOCAL       TYPE DD04T-AS4LOCAL,
    AS4VERS        TYPE DD04T-AS4VERS,
    DDTEXT         TYPE DD04T-DDTEXT,
    REPTEXT        TYPE DD04T-REPTEXT,
    SCRTEXT_S      TYPE DD04T-SCRTEXT_S,
    SCRTEXT_M      TYPE DD04T-SCRTEXT_M,
    SCRTEXT_L      TYPE DD04T-SCRTEXT_L  ,
    SCRTEXT_S2      TYPE DD04T-SCRTEXT_S,
    SCRTEXT_M2      TYPE DD04T-SCRTEXT_M,
    SCRTEXT_L2      TYPE DD04T-SCRTEXT_L  ,

   END OF TYP_MYDD04T,
   BEGIN OF TYP_OUT,
    SCRTEXT_S      TYPE DD04T-SCRTEXT_S,
    SCRTEXT_S2      TYPE DD04T-SCRTEXT_S,
    SCRTEXT_L      TYPE DD04T-SCRTEXT_L  ,
    SCRTEXT_L2      TYPE DD04T-SCRTEXT_L  ,
    SCRTEXT_M      TYPE DD04T-SCRTEXT_M,
    SCRTEXT_M2      TYPE DD04T-SCRTEXT_M,
   END OF TYP_OUT.


DATA:
   T_OUT TYPE TABLE OF TYP_OUT,
   T_MYDD04T TYPE TABLE OF TYP_MYDD04T.


PARAMETERS:
   P_TEXT TYPE DD04T-REPTEXT.

*======================================================================*
* DATA SELECTION
*======================================================================*
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM OUT_DATA.


*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM GET_DATA .

  DATA:LW_TEXT TYPE C LENGTH 60.
  DATA LH_MYDD04T TYPE TYP_MYDD04T.
  DATA LH_OUT TYPE TYP_OUT.

  CONCATENATE P_TEXT '%' INTO LW_TEXT.

  SELECT
  *
  INTO TABLE T_MYDD04T
  FROM DD04T
  WHERE DDTEXT LIKE LW_TEXT
  OR  SCRTEXT_M LIKE LW_TEXT
  OR  SCRTEXT_L LIKE LW_TEXT.

  LOOP AT  T_MYDD04T INTO LH_MYDD04T.
     SELECT SINGLE
      SCRTEXT_S
      SCRTEXT_M
      SCRTEXT_L
      INTO (LH_MYDD04T-SCRTEXT_S2,LH_MYDD04T-SCRTEXT_M2,LH_MYDD04T-SCRTEXT_L2)
      FROM DD04T
      WHERE ROLLNAME = LH_MYDD04T-ROLLNAME
       AND DDLANGUAGE = 'EN'.

      MODIFY T_MYDD04T FROM LH_MYDD04T.
      MOVE-CORRESPONDING LH_MYDD04T TO LH_OUT.
      APPEND LH_OUT TO T_OUT.
  ENDLOOP.

ENDFORM.                    " GET_DATA

*&---------------------------------------------------------------------*
*&      Form  OUT_DATA
*&---------------------------------------------------------------------*
FORM OUT_DATA .

  DATA LH_OUT TYPE TYP_OUT.
  LOOP AT  T_OUT INTO LH_OUT.
    WRITE / LH_OUT.
  ENDLOOP.

ENDFORM.                    " OUT_DATA