
REPORT zui_context_node_scan.
DATA: lt_context_node TYPE TABLE OF vseoextend-clsname,
lo_cls TYPE REF TO cl_bsp_wd_context_node,
lv_total TYPE int4,
lt_result TYPE TABLE OF zwebuicontextnam.
DELETE FROM zwebuicontextnam.
SELECT clsname INTO TABLE lt_context_node FROM vseoextend WHERE refclsname =
'CL_BSP_WD_CONTEXT_NODE'.
lv_total = lines( lt_context_node ).
LOOP AT lt_context_node ASSIGNING FIELD-SYMBOL(<node>).
TRY.
CREATE OBJECT lo_cls TYPE (<node>).
ASSIGN lo_cls->('BASE_ENTITY_NAME') TO FIELD-SYMBOL(<name>).
APPEND INITIAL LINE TO lt_result ASSIGNING FIELD-SYMBOL(<result>).
<result> = VALUE #( context_node_cls = <node> bol_node_name = <name> ).
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = ( sy-tabix * 100 ) / lv_total
text = | index: { sy-tabix }: { <node> } |.
"WRITE: / 'context node class: ', <node>, ' bol node:', <name>.
CATCH cx_root INTO DATA(cx_root).
WRITE: / cx_root->get_text( ), ' class: ' , <node>.
CONTINUE.
ENDTRY.
ENDLOOP.
INSERT zwebuicontextnam FROM TABLE lt_result.
REPORT zui_get_app_name_by_context.
DATA: lt_context_node TYPE TABLE OF zwebuicontextnam,
lt_app TYPE TABLE OF o2pagpar,
lt_ui TYPE TABLE OF o2pagpar-applname.
SELECT * INTO TABLE lt_context_node FROM zwebuicontextnam WHERE bol_node_name = 'Product'.
CHECK sy-subrc = 0.
SELECT * INTO TABLE lt_app FROM o2pagpar FOR ALL ENTRIES IN lt_context_node WHERE type = lt_context_node-context_node_cls.
SORT lt_app BY applname ASCENDING.
SELECT applname INTO TABLE lt_ui FROM o2pagpar FOR ALL ENTRIES IN lt_context_node WHERE type = lt_context_node-context_node_cls.
SORT lt_ui.
DELETE ADJACENT DUPLICATES FROM lt_ui.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
4 | |
4 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |