-
Notifications
You must be signed in to change notification settings - Fork 4
/
z_debug_obj_service_graph.enho.xml
99 lines (99 loc) · 3.5 KB
/
z_debug_obj_service_graph.enho.xml
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
94
95
96
97
98
99
<?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>Graph display for object</SHORTTEXT>
<ORIGINAL_OBJECT>
<PGMID>R3TR</PGMID>
<ORG_OBJ_TYPE>CLAS</ORG_OBJ_TYPE>
<ORG_OBJ_NAME>CL_TPDA_TOOL_OBJECT_VIEW</ORG_OBJ_NAME>
<ORG_MAIN_TYPE>CLAS</ORG_MAIN_TYPE>
<ORG_MAIN_NAME>CL_TPDA_TOOL_OBJECT_VIEW</ORG_MAIN_NAME>
<PROGRAMNAME>CL_TPDA_TOOL_OBJECT_VIEW======CP</PROGRAMNAME>
</ORIGINAL_OBJECT>
<ENHANCEMENTS>
<ENH_HOOK_IMPL>
<PROGRAMNAME>CL_TPDA_TOOL_OBJECT_VIEW======CP</PROGRAMNAME>
<EXTID>1</EXTID>
<ID>1</ID>
<ENHMODE>D</ENHMODE>
<FULL_NAME>\TY:CL_TPDA_TOOL_OBJECT_VIEW\IN:IF_TPDA_TOOL_SERVICES\ME:BUILD_SERVICES_MENUE\SE:END\EI</FULL_NAME>
<SOURCE>
<item>DATA l_zz_node LIKE LINE OF p_it_menue_tree.</item>
<item>CLEAR l_zz_node.</item>
<item/>
<item>l_zz_node-node_key = 'ZOBJEXPORTGR'.</item>
<item>l_zz_node-relatkey = cl_tpda_services_tools=>c_special.</item>
<item>l_zz_node-n_image = cl_tpda_icons=>TPDA_ICON_EDITOR_VIEW.</item>
<item>l_zz_node-relatship = cl_gui_simple_tree=>relat_last_child.</item>
<item>l_zz_node-text = 'View object as graph'.</item>
<item/>
<item>APPEND l_zz_node TO p_it_menue_tree.</item>
</SOURCE>
</ENH_HOOK_IMPL>
<ENH_HOOK_IMPL>
<PROGRAMNAME>CL_TPDA_TOOL_OBJECT_VIEW======CP</PROGRAMNAME>
<EXTID>2</EXTID>
<ID>2</ID>
<ENHMODE>D</ENHMODE>
<FULL_NAME>\TY:CL_TPDA_TOOL_OBJECT_VIEW\IN:IF_TPDA_TOOL_SERVICES\ME:HANDLE_SERVICE_REQUEST\SE:BEGIN\EI</FULL_NAME>
<SOURCE>
<item>data: zzl_node_key like line of p_it_selected_node,</item>
<item>zdebgr type ref to ZCL_DEBUG_OBJ_TO_GRAPH,</item>
<item>zz_exception type ref to cx_root.</item>
<item>read table p_it_selected_node INTO zzl_node_key INDEX 1.</item>
<item>if zzl_node_key = 'ZOBJEXPORTGR'.</item>
<item>try.</item>
<item>create object zdebgr.</item>
<item>zdebgr->display_graph( dynp_vars-object_name_real ).</item>
<item>catch cx_sy_no_handler into zz_exception .</item>
<item>message zz_exception->previous type 'I'.</item>
<item>catch cx_root into zz_exception .</item>
<item>message zz_exception type 'I'.</item>
<item>endtry.</item>
<item>exit.</item>
<item>endif.</item>
</SOURCE>
</ENH_HOOK_IMPL>
</ENHANCEMENTS>
<SPACES>
<item>
<FULL_NAME>\TY:CL_TPDA_TOOL_OBJECT_VIEW\IN:IF_TPDA_TOOL_SERVICES\ME:BUILD_SERVICES_MENUE\SE:END\EI</FULL_NAME>
<SPACES>
<item>1</item>
<item>1</item>
<item>0</item>
<item>1</item>
<item>1</item>
<item>1</item>
<item>1</item>
<item>1</item>
<item>0</item>
<item>1</item>
</SPACES>
</item>
<item>
<FULL_NAME>\TY:CL_TPDA_TOOL_OBJECT_VIEW\IN:IF_TPDA_TOOL_SERVICES\ME:HANDLE_SERVICE_REQUEST\SE:BEGIN\EI</FULL_NAME>
<SPACES>
<item>2</item>
<item>14</item>
<item>14</item>
<item>3</item>
<item>4</item>
<item>6</item>
<item>8</item>
<item>8</item>
<item>4</item>
<item>7</item>
<item>4</item>
<item>7</item>
<item>4</item>
<item>4</item>
<item>2</item>
</SPACES>
</item>
</SPACES>
</asx:values>
</asx:abap>
</abapGit>