VIEW: clear redundant fields, close #491

This commit is contained in:
larshp 2016-12-30 11:44:44 +00:00
parent 14a002523f
commit f1ca40bc72
2 changed files with 30 additions and 4 deletions

View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.24.9'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.24.10'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

View File

@ -115,6 +115,8 @@ CLASS lcl_object_view IMPLEMENTATION.
lt_dd28j TYPE TABLE OF dd28j, lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE TABLE OF dd28v. lt_dd28v TYPE TABLE OF dd28v.
FIELD-SYMBOLS: <ls_dd27p> LIKE LINE OF lt_dd27p.
lv_name = ms_item-obj_name. lv_name = ms_item-obj_name.
@ -149,6 +151,30 @@ CLASS lcl_object_view IMPLEMENTATION.
ls_dd09l-as4date, ls_dd09l-as4date,
ls_dd09l-as4time. ls_dd09l-as4time.
LOOP AT lt_dd27p ASSIGNING <ls_dd27p>.
CLEAR: <ls_dd27p>-ddtext,
<ls_dd27p>-reptext,
<ls_dd27p>-scrtext_s,
<ls_dd27p>-scrtext_m,
<ls_dd27p>-scrtext_l,
<ls_dd27p>-outputlen,
<ls_dd27p>-decimals,
<ls_dd27p>-lowercase,
<ls_dd27p>-convexit,
<ls_dd27p>-signflag,
<ls_dd27p>-flength,
<ls_dd27p>-domname,
<ls_dd27p>-datatype,
<ls_dd27p>-entitytab,
<ls_dd27p>-inttype,
<ls_dd27p>-intlen,
<ls_dd27p>-headlen,
<ls_dd27p>-scrlen1,
<ls_dd27p>-scrlen2,
<ls_dd27p>-scrlen3,
<ls_dd27p>-memoryid.
ENDLOOP.
io_xml->add( iv_name = 'DD25V' io_xml->add( iv_name = 'DD25V'
ig_data = ls_dd25v ). ig_data = ls_dd25v ).
io_xml->add( iv_name = 'DD09L' io_xml->add( iv_name = 'DD09L'