add T000-MTEXT (#795)

open-abap · Oct 9, 2023 · a958e60 · a958e60
1 parent 253833c
commit a958e60
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 4 deletions.
diff --git a/src/ddic/transparent/t000.tabl.xml b/src/ddic/transparent/t000.tabl.xml
@@ -56,6 +56,18 @@
      <LENG>000001</LENG>
      <MASK>  CHAR</MASK>
     </DD03P>
+    <DD03P>
+     <TABNAME>T000</TABNAME>
+     <FIELDNAME>MTEXT</FIELDNAME>
+     <DDLANGUAGE>E</DDLANGUAGE>
+     <POSITION>0004</POSITION>
+     <ADMINFIELD>0</ADMINFIELD>
+     <INTTYPE>C</INTTYPE>
+     <INTLEN>000050</INTLEN>
+     <DATATYPE>CHAR</DATATYPE>
+     <LENG>000025</LENG>
+     <MASK>  CHAR</MASK>
+    </DD03P>
    </DD03P_TABLE>
   </asx:values>
  </asx:abap>

diff --git a/src/rtti/cl_abap_structdescr.clas.testclasses.abap b/src/rtti/cl_abap_structdescr.clas.testclasses.abap
@@ -108,7 +108,7 @@ CLASS ltcl_test IMPLEMENTATION.
 
   METHOD get_ddic_field_list.
 
-    DATA struct TYPE REF TO cl_abap_structdescr.
+    DATA struct      TYPE REF TO cl_abap_structdescr.
     DATA lt_ddfields TYPE ddfields.
     DATA ls_ddfields LIKE LINE OF lt_ddfields.
 
@@ -117,7 +117,7 @@ CLASS ltcl_test IMPLEMENTATION.
 
     cl_abap_unit_assert=>assert_equals(
       act = lines( lt_ddfields )
-      exp = 3 ).
+      exp = 4 ).
 
     READ TABLE lt_ddfields INTO ls_ddfields WITH KEY fieldname = 'MANDT'.
     cl_abap_unit_assert=>assert_subrc( ).
@@ -135,10 +135,10 @@ CLASS ltcl_test IMPLEMENTATION.
              field TYPE i,
            END OF ty_structure.
 
-    DATA ls_data TYPE ty_structure.
+    DATA ls_data  TYPE ty_structure.
     DATA lo_struc TYPE REF TO cl_abap_structdescr.
     DATA lt_comps TYPE cl_abap_structdescr=>component_table.
-    DATA ls_comp LIKE LINE OF lt_comps.
+    DATA ls_comp  LIKE LINE OF lt_comps.
 
     lo_struc ?= cl_abap_structdescr=>describe_by_data( ls_data ).
     lt_comps = lo_struc->get_components( ).