abap_debugger_data_view_extension/z_struc_v_build_services_menue.enho.xml at master · christianguenter2/abap_debugger_data_view_extension · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_ENHO" serializer_version="v1.0.0">
 <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
  <asx:values>
   <TOOL>HOOK_IMPL</TOOL>
   <SHORTTEXT>AUnit - Erweiterung der Struktur View</SHORTTEXT>
   <ORIGINAL_OBJECT>
    <PGMID>R3TR</PGMID>
    <ORG_OBJ_TYPE>CLAS</ORG_OBJ_TYPE>
    <ORG_OBJ_NAME>CL_TPDA_TOOL_STRUC_VIEW</ORG_OBJ_NAME>
    <ORG_MAIN_TYPE>CLAS</ORG_MAIN_TYPE>
    <ORG_MAIN_NAME>CL_TPDA_TOOL_STRUC_VIEW</ORG_MAIN_NAME>
    <PROGRAMNAME>CL_TPDA_TOOL_STRUC_VIEW=======CP</PROGRAMNAME>
   </ORIGINAL_OBJECT>
   <ENHANCEMENTS>
    <ENH_HOOK_IMPL>
     <PROGRAMNAME>CL_TPDA_TOOL_STRUC_VIEW=======CP</PROGRAMNAME>
     <ENHMODE>D</ENHMODE>
     <FULL_NAME>\TY:CL_TPDA_TOOL_STRUC_VIEW\IN:IF_TPDA_TOOL_SERVICES\ME:BUILD_SERVICES_MENUE\SE:END\EI</FULL_NAME>
     <SOURCE>
      <item>  CLEAR l_node.</item>
      <item/>
      <item>  l_node-node_key  = &apos;ZDATA_4_ABAP&apos;.</item>
      <item>  l_node-relatkey  = cl_tpda_services_tools=&gt;c_special.</item>
      <item>  l_node-n_image   = cl_tpda_icons=&gt;tpda_icon_download.</item>
      <item>  l_node-relatship = cl_gui_simple_tree=&gt;relat_last_child.</item>
      <item>  l_node-text      = &apos;Data for Abap View&apos;.</item>
      <item/>
      <item>  APPEND l_node TO p_it_menue_tree.</item>
      <item/>
     </SOURCE>
    </ENH_HOOK_IMPL>
    <ENH_HOOK_IMPL>
     <PROGRAMNAME>CL_TPDA_TOOL_STRUC_VIEW=======CP</PROGRAMNAME>
     <ENHMODE>D</ENHMODE>
     <FULL_NAME>\TY:CL_TPDA_TOOL_STRUC_VIEW\IN:IF_TPDA_TOOL\ME:HANDLE_OK_CODE\SE:BEGIN\EI</FULL_NAME>
     <SOURCE>
      <item> IF p_ok_code-ok_code EQ &apos;ZDATA_4_ABAP&apos;.</item>
      <item>   zcl_op_debugger_integration=&gt;debug_debugger_if_needed( ).</item>
      <item>   TRY.</item>
      <item>     DATA(zz_reference_to_data) = NEW zcl_op_debugger_integration( )-&gt;get_ref_to_any_content( i_variable_name = dynp_vars-struc_name ).</item>
      <item/>
      <item>     DATA(zz_field_catalog) = NEW zcl_op_simple_field_catalog( )-&gt;get_by_reference( zz_reference_to_data ).</item>
      <item/>
      <item>     FIELD-SYMBOLS: &lt;zz_structure&gt; TYPE any.</item>
      <item>     ASSIGN zz_reference_to_data-&gt;* TO &lt;zz_structure&gt;. &quot;de-referencing</item>
      <item/>
      <item>     NEW zcl_op_structure( )-&gt;show_popup_w_content( i_structure     = &lt;zz_structure&gt;</item>
      <item>                                                    i_field_catalog = zz_field_catalog</item>
      <item>                                                    i_struc_name    = dynp_vars-struc_name ).</item>
      <item>   CATCH cx_root into DATA(lx_root).</item>
      <item>     &quot;dont want to crash, so catch all catchable exceptions here</item>
      <item/>
      <item>   ENDTRY.</item>
      <item/>
      <item>   RETURN.</item>
      <item> ENDIF.</item>
     </SOURCE>
    </ENH_HOOK_IMPL>
   </ENHANCEMENTS>
   <SOTR>
    <item>
     <HEADER>
      <CONCEPT>000D3A46373D1EDA9BA13BBAE94A9A1A</CONCEPT>
      <CREA_LAN>E</CREA_LAN>
      <TRALA_TYPE>1</TRALA_TYPE>
      <OBJID_VEC>AAI=</OBJID_VEC>
     </HEADER>
     <ENTRIES>
      <SOTR_TEXT>
       <CONCEPT>000D3A46373D1EDA9BA13BBAE94A9A1A</CONCEPT>
       <LANGU>E</LANGU>
       <LFD_NUM>0001</LFD_NUM>
       <FLAG_CNTXT>X</FLAG_CNTXT>
       <STATUS>R</STATUS>
       <LENGTH>056</LENGTH>
       <TEXT>AUnit - Erweiterung der Struktur View</TEXT>
      </SOTR_TEXT>
     </ENTRIES>
    </item>
   </SOTR>
   <SOTR_USE>
    <SOTR_USE>
     <PGMID>R3TR</PGMID>
     <OBJECT>ENHO</OBJECT>
     <OBJ_NAME>Z_STRUC_V_BUILD_SERVICES_MENUE</OBJ_NAME>
     <CONCEPT>000D3A46373D1EDA9BA13BBAE94A9A1A</CONCEPT>
     <LFD_NUM>0001</LFD_NUM>
    </SOTR_USE>
   </SOTR_USE>
  </asx:values>
 </asx:abap>
</abapGit>