abapgit-agent 1.1.6 → 1.2.0

package/abap/zcl_abgagt_command_tree.clas.abap

@@ -0,0 +1,237 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+" TREE command implementation - displays package hierarchy tree
+CLASS zcl_abgagt_command_tree DEFINITION PUBLIC FINAL CREATE PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_command.
+
+    TYPES: BEGIN OF ty_tree_params,
+             package TYPE tdevc-devclass,
+             depth TYPE i,
+             include_objects TYPE abap_bool,
+           END OF ty_tree_params.
+
+    TYPES: BEGIN OF ty_object_count,
+             object TYPE tadir-object,
+             count TYPE i,
+           END OF ty_object_count.
+
+    TYPES ty_object_counts TYPE TABLE OF ty_object_count WITH NON-UNIQUE DEFAULT KEY.
+
+    TYPES: BEGIN OF ty_package_node,
+             package TYPE tdevc-devclass,
+             parent TYPE tdevc-devclass,
+             description TYPE string,
+             depth TYPE i,
+             object_count TYPE i,
+           END OF ty_package_node.
+
+    TYPES ty_package_nodes TYPE TABLE OF ty_package_node WITH NON-UNIQUE DEFAULT KEY.
+
+    TYPES: BEGIN OF ty_tree_result,
+             success TYPE abap_bool,
+             command TYPE string,
+             package TYPE tdevc-devclass,
+             message TYPE string,
+             parent_package TYPE tdevc-devclass,
+             nodes TYPE ty_package_nodes,
+             total_packages TYPE i,
+             total_objects TYPE i,
+             objects TYPE ty_object_counts,
+             error TYPE string,
+           END OF ty_tree_result.
+
+    METHODS build_tree
+      IMPORTING is_params TYPE ty_tree_params
+      RETURNING VALUE(rs_result) TYPE ty_tree_result.
+
+    METHODS get_object_count
+      IMPORTING iv_package TYPE tdevc-devclass
+      RETURNING VALUE(rv_count) TYPE i.
+
+    METHODS get_object_counts_by_type
+      IMPORTING iv_package TYPE tdevc-devclass
+      CHANGING ct_counts TYPE ty_object_counts.
+
+    METHODS collect_subpackages
+      IMPORTING iv_parent TYPE tdevc-devclass
+                iv_current_depth TYPE i
+                iv_max_depth TYPE i
+                iv_include_objects TYPE abap_bool
+      CHANGING ct_nodes TYPE ty_package_nodes
+               cv_total_objects TYPE i
+               ct_types TYPE ty_object_counts.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_command_tree IMPLEMENTATION.
+
+  METHOD zif_abgagt_command~get_name.
+    rv_name = zif_abgagt_command=>gc_tree.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_command~execute.
+    DATA: ls_params TYPE ty_tree_params,
+          ls_result TYPE ty_tree_result.
+
+    ls_result-command = zif_abgagt_command=>gc_tree.
+
+    IF is_param IS SUPPLIED.
+      ls_params = CORRESPONDING #( is_param ).
+    ENDIF.
+
+    IF ls_params-package IS INITIAL.
+      ls_result-success = abap_false.
+      ls_result-error = 'Package is required'.
+      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+      RETURN.
+    ENDIF.
+
+    IF ls_params-depth IS INITIAL OR ls_params-depth <= 0.
+      ls_params-depth = 3.
+    ENDIF.
+
+    IF ls_params-depth > 10.
+      ls_params-depth = 10.
+    ENDIF.
+
+    ls_result = build_tree( ls_params ).
+    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+  ENDMETHOD.
+
+  METHOD build_tree.
+    DATA: lv_package TYPE tdevc-devclass,
+          lv_max_depth TYPE i,
+          lv_total_objects TYPE i,
+          lt_all_types TYPE ty_object_counts,
+          lt_nodes TYPE ty_package_nodes,
+          ls_package TYPE tdevc.
+
+    lv_package = is_params-package.
+    lv_max_depth = is_params-depth.
+
+    SELECT SINGLE devclass parentcl FROM tdevc
+      INTO ls_package
+      WHERE devclass = lv_package.
+
+    IF sy-subrc <> 0.
+      rs_result-success = abap_false.
+      rs_result-package = lv_package.
+      rs_result-error = |Package { lv_package } does not exist|.
+      RETURN.
+    ENDIF.
+
+    rs_result-success = abap_true.
+    rs_result-command = 'TREE'.
+    rs_result-package = lv_package.
+    rs_result-message = 'Tree retrieved successfully'.
+    rs_result-parent_package = ls_package-parentcl.
+
+    " Add root package
+    DATA(ls_root) = VALUE ty_package_node(
+      package = lv_package
+      parent = ls_package-parentcl
+      description = lv_package
+      depth = 0
+      object_count = get_object_count( lv_package ) ).
+    APPEND ls_root TO lt_nodes.
+
+    lv_total_objects = ls_root-object_count.
+
+    " Get object types for root
+    IF is_params-include_objects = abap_true.
+      get_object_counts_by_type(
+        EXPORTING iv_package = lv_package
+        CHANGING ct_counts = rs_result-objects ).
+      LOOP AT rs_result-objects INTO DATA(ls_obj).
+        APPEND ls_obj TO lt_all_types.
+      ENDLOOP.
+    ENDIF.
+
+    " Add all subpackages
+    collect_subpackages(
+      EXPORTING iv_parent = lv_package
+                iv_current_depth = 1
+                iv_max_depth = lv_max_depth
+                iv_include_objects = is_params-include_objects
+      CHANGING ct_nodes = lt_nodes
+               cv_total_objects = lv_total_objects
+               ct_types = lt_all_types ).
+
+    rs_result-nodes = lt_nodes.
+    rs_result-total_packages = lines( lt_nodes ).
+    rs_result-total_objects = lv_total_objects.
+    rs_result-objects = lt_all_types.
+  ENDMETHOD.
+
+  METHOD get_object_count.
+    DATA lv_count TYPE i.
+    SELECT COUNT(*) FROM tadir
+      INTO lv_count
+      WHERE devclass = iv_package
+        AND object NOT IN ('DEVC', 'PACK').
+    rv_count = lv_count.
+  ENDMETHOD.
+
+  METHOD get_object_counts_by_type.
+    DATA lt_counts TYPE ty_object_counts.
+    SELECT object COUNT(*) AS count FROM tadir
+      INTO TABLE lt_counts
+      WHERE devclass = iv_package
+        AND object NOT IN ('DEVC', 'PACK')
+      GROUP BY object.
+    ct_counts = lt_counts.
+  ENDMETHOD.
+
+  METHOD collect_subpackages.
+    DATA: lt_direct_subs TYPE TABLE OF tdevc,
+          ls_direct TYPE tdevc.
+
+    SELECT devclass parentcl FROM tdevc
+      INTO TABLE lt_direct_subs
+      WHERE parentcl = iv_parent
+      ORDER BY devclass.
+
+    LOOP AT lt_direct_subs INTO ls_direct.
+      DATA ls_node TYPE ty_package_node.
+      ls_node-package = ls_direct-devclass.
+      ls_node-parent = iv_parent.
+      ls_node-description = ls_direct-devclass.
+      ls_node-depth = iv_current_depth.
+      ls_node-object_count = get_object_count( ls_direct-devclass ).
+
+      APPEND ls_node TO ct_nodes.
+      cv_total_objects = cv_total_objects + ls_node-object_count.
+
+      " Add object types
+      IF iv_include_objects = abap_true.
+        DATA lt_types TYPE ty_object_counts.
+        get_object_counts_by_type(
+          EXPORTING iv_package = ls_direct-devclass
+          CHANGING ct_counts = lt_types ).
+        LOOP AT lt_types INTO DATA(ls_type).
+          READ TABLE ct_types WITH KEY object = ls_type-object
+            ASSIGNING FIELD-SYMBOL(<ls_existing>).
+          IF sy-subrc = 0.
+            <ls_existing>-count = <ls_existing>-count + ls_type-count.
+          ELSE.
+            APPEND ls_type TO ct_types.
+          ENDIF.
+        ENDLOOP.
+      ENDIF.
+
+      IF iv_current_depth < iv_max_depth.
+        collect_subpackages(
+          EXPORTING iv_parent = ls_direct-devclass
+                    iv_current_depth = iv_current_depth + 1
+                    iv_max_depth = iv_max_depth
+                    iv_include_objects = iv_include_objects
+          CHANGING ct_nodes = ct_nodes
+                   cv_total_objects = cv_total_objects
+                   ct_types = ct_types ).
+      ENDIF.
+    ENDLOOP.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_command_tree.clas.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABGAGT_COMMAND_TREE</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Tree Command for ABAP Git Agent</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_command_view.clas.abap

@@ -0,0 +1,238 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+" VIEW command implementation - view ABAP object definitions
+CLASS zcl_abgagt_command_view DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_command.
+
+    TYPES: BEGIN OF ty_view_params,
+             objects TYPE string_table,
+             type TYPE string,
+           END OF ty_view_params.
+
+    TYPES: BEGIN OF ty_component,
+             field TYPE string,
+             key TYPE abap_bool,
+             type TYPE string,
+             length TYPE int4,
+             dataelement TYPE string,
+             description TYPE string,
+           END OF ty_component.
+
+    TYPES: BEGIN OF ty_view_object,
+             name TYPE string,
+             type TYPE string,
+             type_text TYPE string,
+             description TYPE string,
+             domain TYPE string,
+             domain_type TYPE string,
+             domain_length TYPE int4,
+             domain_decimals TYPE int4,
+             source TYPE string,
+             definition TYPE string,
+             not_found TYPE abap_bool,
+             components TYPE STANDARD TABLE OF ty_component WITH DEFAULT KEY,
+           END OF ty_view_object.
+
+    TYPES ty_view_objects TYPE STANDARD TABLE OF ty_view_object WITH DEFAULT KEY.
+
+    TYPES: BEGIN OF ty_summary,
+             total TYPE i,
+             by_type TYPE string_table,
+           END OF ty_summary.
+
+    TYPES: BEGIN OF ty_view_result,
+             success TYPE abap_bool,
+             command TYPE string,
+             message TYPE string,
+             objects TYPE ty_view_objects,
+             summary TYPE ty_summary,
+             error TYPE string,
+           END OF ty_view_result.
+
+    METHODS detect_object_type
+      IMPORTING iv_name TYPE string
+      RETURNING VALUE(rv_type) TYPE string.
+
+    METHODS get_object_info
+      IMPORTING iv_name TYPE string
+                iv_type TYPE string
+      RETURNING VALUE(rs_object) TYPE ty_view_object.
+
+    METHODS build_summary
+      IMPORTING it_objects TYPE ty_view_objects
+      RETURNING VALUE(rs_summary) TYPE ty_summary.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_command_view IMPLEMENTATION.
+
+  METHOD zif_abgagt_command~get_name.
+    rv_name = zif_abgagt_command=>gc_view.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_command~execute.
+    DATA: ls_params TYPE ty_view_params,
+          ls_result TYPE ty_view_result,
+          lt_objects TYPE ty_view_objects,
+          lv_object TYPE string,
+          lo_factory TYPE REF TO zcl_abgagt_viewer_factory,
+          lo_viewer TYPE REF TO zif_abgagt_viewer,
+          ls_info TYPE ty_view_object.
+
+    ls_result-command = zif_abgagt_command=>gc_view.
+
+    IF is_param IS SUPPLIED.
+      ls_params = CORRESPONDING #( is_param ).
+    ENDIF.
+
+    IF ls_params-objects IS INITIAL.
+      ls_result-success = abap_false.
+      ls_result-error = 'Objects parameter is required'.
+      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+      RETURN.
+    ENDIF.
+
+    lo_factory = zcl_abgagt_viewer_factory=>get_instance( ).
+
+    LOOP AT ls_params-objects INTO lv_object.
+      ls_info-name = lv_object.
+
+      DATA(lv_type) = ls_params-type.
+      IF lv_type IS INITIAL.
+        lv_type = detect_object_type( lv_object ).
+      ENDIF.
+
+      " Check if object was not found in TADIR
+      IF lv_type IS INITIAL.
+        ls_info-not_found = abap_true.
+        ls_info-type_text = 'Unknown'.
+      ELSE.
+        ls_info-type = lv_type.
+
+        " Set type text
+        CASE lv_type.
+          WHEN 'CLAS'. ls_info-type_text = 'Class'.
+          WHEN 'INTF'. ls_info-type_text = 'Interface'.
+          WHEN 'TABL'. ls_info-type_text = 'Table'.
+          WHEN 'STRU'. ls_info-type_text = 'Structure'.
+          WHEN 'DTEL'. ls_info-type_text = 'Data Element'.
+          WHEN OTHERS. ls_info-type_text = lv_type.
+        ENDCASE.
+
+        " Get viewer and retrieve info only if object was found
+        TRY.
+            lo_viewer = lo_factory->get_viewer( lv_type ).
+            IF lo_viewer IS BOUND.
+              ls_info = lo_viewer->get_info( lv_object ).
+            ELSE.
+              ls_info = get_object_info( iv_name = lv_object iv_type = lv_type ).
+            ENDIF.
+          CATCH cx_sy_create_object_error.
+            " Fallback for unknown types
+            ls_info = get_object_info( iv_name = lv_object iv_type = lv_type ).
+        ENDTRY.
+      ENDIF.
+
+      APPEND ls_info TO lt_objects.
+    ENDLOOP.
+
+    ls_result-success = abap_true.
+    ls_result-message = 'Retrieved object(s)'.
+    ls_result-objects = lt_objects.
+    ls_result-summary = build_summary( lt_objects ).
+
+    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+  ENDMETHOD.
+
+  METHOD detect_object_type.
+    " Query TADIR to find actual object type
+    SELECT SINGLE object FROM tadir
+      INTO rv_type
+      WHERE obj_name = iv_name
+        AND object IN ('CLAS', 'INTF', 'TABL', 'DTEL', 'STRU').
+  ENDMETHOD.
+
+  METHOD get_object_info.
+    DATA lv_obj_name TYPE string.
+    DATA lv_devclass TYPE tadir-devclass.
+
+    rs_object-name = iv_name.
+    rs_object-type = iv_type.
+
+    CASE iv_type.
+      WHEN 'CLAS' OR 'INTF'.
+        IF iv_type = 'CLAS'.
+          rs_object-type_text = 'Class'.
+        ELSE.
+          rs_object-type_text = 'Interface'.
+        ENDIF.
+
+        SELECT SINGLE obj_name devclass FROM tadir
+          INTO (lv_obj_name, lv_devclass)
+          WHERE obj_name = iv_name
+            AND object = iv_type.
+        IF sy-subrc = 0.
+          rs_object-description = |{ rs_object-type_text } { iv_name } in { lv_devclass }|.
+        ENDIF.
+
+      WHEN 'TABL'.
+        rs_object-type_text = 'Table'.
+        SELECT SINGLE obj_name devclass FROM tadir
+          INTO (lv_obj_name, lv_devclass)
+          WHERE obj_name = iv_name
+            AND object = 'TABL'.
+        IF sy-subrc = 0.
+          rs_object-description = |Table { iv_name } in { lv_devclass }|.
+        ENDIF.
+
+      WHEN 'STRU'.
+        rs_object-type_text = 'Structure'.
+        SELECT SINGLE obj_name devclass FROM tadir
+          INTO (lv_obj_name, lv_devclass)
+          WHERE obj_name = iv_name
+            AND object = 'TABL'.
+        IF sy-subrc = 0.
+          rs_object-description = |Structure { iv_name } in { lv_devclass }|.
+        ENDIF.
+
+      WHEN 'DTEL'.
+        rs_object-type_text = 'Data Element'.
+        SELECT SINGLE obj_name devclass FROM tadir
+          INTO (lv_obj_name, lv_devclass)
+          WHERE obj_name = iv_name
+            AND object = 'DTEL'.
+        IF sy-subrc = 0.
+          rs_object-description = |Data Element { iv_name } in { lv_devclass }|.
+        ENDIF.
+
+      WHEN OTHERS.
+        rs_object-type_text = iv_type.
+    ENDCASE.
+  ENDMETHOD.
+
+  METHOD build_summary.
+    rs_summary-total = lines( it_objects ).
+
+    DATA lv_type TYPE string.
+    DATA lv_found.
+    DATA ls_type TYPE string.
+
+    LOOP AT it_objects INTO DATA(ls_obj).
+      lv_type = ls_obj-type.
+      lv_found = abap_false.
+      LOOP AT rs_summary-by_type INTO ls_type.
+        IF ls_type = lv_type.
+          lv_found = abap_true.
+          EXIT.
+        ENDIF.
+      ENDLOOP.
+      IF lv_found = abap_false.
+        APPEND lv_type TO rs_summary-by_type.
+      ENDIF.
+    ENDLOOP.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_command_view.clas.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABGAGT_COMMAND_VIEW</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>VIEW command - view ABAP object definitions</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_resource_tree.clas.abap

@@ -0,0 +1,70 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_tree DEFINITION PUBLIC FINAL
+                             INHERITING FROM cl_rest_resource
+                             CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~post REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_tree IMPLEMENTATION.
+
+  METHOD if_rest_resource~post.
+    DATA lv_json TYPE string.
+    lv_json = mo_request->get_entity( )->get_string_data( ).
+
+    " Parse JSON using /ui2/cl_json
+    DATA: BEGIN OF ls_request,
+            package TYPE string,
+            depth TYPE i,
+            include_objects TYPE abap_bool,
+          END OF ls_request.
+
+    /ui2/cl_json=>deserialize(
+      EXPORTING
+        json = lv_json
+      CHANGING
+        data = ls_request ).
+
+    DATA lv_json_resp TYPE string.
+
+    IF ls_request-package IS INITIAL.
+      lv_json_resp = '{"success":"","command":"TREE","error":"Package is required"}'.
+      DATA(lo_entity) = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Get command from factory
+    DATA(lo_factory) = zcl_abgagt_cmd_factory=>get_instance( ).
+    DATA(lo_command) = lo_factory->get_command( zif_abgagt_command=>gc_tree ).
+
+    IF lo_command IS NOT BOUND.
+      lv_json_resp = '{"success":"","command":"TREE","error":"TREE command not found"}'.
+      lo_entity = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Execute command with is_param
+    DATA ls_params TYPE zcl_abgagt_command_tree=>ty_tree_params.
+    ls_params-package = ls_request-package.
+    ls_params-depth = ls_request-depth.
+    ls_params-include_objects = ls_request-include_objects.
+
+    DATA(lv_result) = lo_command->execute( is_param = ls_params ).
+
+    lo_entity = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_result ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_tree.clas.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABGAGT_RESOURCE_TREE</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Tree Resource</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_resource_view.clas.abap

@@ -0,0 +1,68 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_view DEFINITION PUBLIC FINAL
+                             INHERITING FROM cl_rest_resource
+                             CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~post REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_view IMPLEMENTATION.
+
+  METHOD if_rest_resource~post.
+    DATA lv_json TYPE string.
+    lv_json = mo_request->get_entity( )->get_string_data( ).
+
+    " Parse JSON using /ui2/cl_json
+    DATA: BEGIN OF ls_request,
+            objects TYPE string_table,
+            type TYPE string,
+          END OF ls_request.
+
+    /ui2/cl_json=>deserialize(
+      EXPORTING
+        json = lv_json
+      CHANGING
+        data = ls_request ).
+
+    DATA lv_json_resp TYPE string.
+
+    IF ls_request-objects IS INITIAL.
+      lv_json_resp = '{"success":false,"command":"VIEW","error":"Objects parameter is required"}'.
+      DATA(lo_entity) = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Get command from factory
+    DATA(lo_factory) = zcl_abgagt_cmd_factory=>get_instance( ).
+    DATA(lo_command) = lo_factory->get_command( zif_abgagt_command=>gc_view ).
+
+    IF lo_command IS NOT BOUND.
+      lv_json_resp = '{"success":false,"command":"VIEW","error":"VIEW command not found"}'.
+      lo_entity = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Execute command with is_param
+    DATA ls_params TYPE zcl_abgagt_command_view=>ty_view_params.
+    ls_params-objects = ls_request-objects.
+    ls_params-type = ls_request-type.
+
+    DATA(lv_result) = lo_command->execute( is_param = ls_params ).
+
+    lo_entity = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_result ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_view.clas.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABGAGT_RESOURCE_VIEW</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>VIEW command REST resource handler</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_rest_handler.clas.abap

@@ -22,6 +22,8 @@ CLASS zcl_abgagt_rest_handler IMPLEMENTATION.
     lo_router->attach( iv_template = '/unit' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_UNIT' ).
     lo_router->attach( iv_template = '/create' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_CREATE' ).
     lo_router->attach( iv_template = '/import' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_IMPORT' ).
+    lo_router->attach( iv_template = '/tree' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_TREE' ).
+    lo_router->attach( iv_template = '/view' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_VIEW' ).
 
     ro_root_handler = lo_router.
   ENDMETHOD.