自己實現一個SAP WebClient UI Repository Information System

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.