abapgit-agent 1.1.6 → 1.3.0

package/abap/zcl_abgagt_command_inspect.clas.abap

@@ -6,6 +6,7 @@ CLASS zcl_abgagt_command_inspect DEFINITION PUBLIC FINAL CREATE PUBLIC.
   PUBLIC SECTION.
     INTERFACES zif_abgagt_command.
 
+    " Error structure for syntax check results
     TYPES: BEGIN OF ty_error,
              line TYPE string,
              column TYPE string,
@@ -15,21 +16,49 @@ CLASS zcl_abgagt_command_inspect DEFINITION PUBLIC FINAL CREATE PUBLIC.
 
     TYPES ty_errors TYPE STANDARD TABLE OF ty_error WITH NON-UNIQUE DEFAULT KEY.
 
+    " Generic warning structure (for DDLS and other objects)
+    TYPES: BEGIN OF ty_warning,
+             type TYPE string,
+             line TYPE string,
+             column TYPE string,
+             severity TYPE string,
+             message TYPE string,
+             object_type TYPE string,
+             object_name TYPE string,
+           END OF ty_warning.
+
+    TYPES ty_warnings TYPE STANDARD TABLE OF ty_warning WITH NON-UNIQUE DEFAULT KEY.
+
+    " Result for each individual object
     TYPES: BEGIN OF ty_inspect_result,
+             object_type TYPE string,
+             object_name TYPE string,
              success TYPE abap_bool,
              error_count TYPE i,
              errors TYPE ty_errors,
+             warnings TYPE ty_warnings,
            END OF ty_inspect_result.
 
+    " Table to hold results for multiple objects
+    TYPES ty_inspect_results TYPE STANDARD TABLE OF ty_inspect_result WITH NON-UNIQUE DEFAULT KEY.
+
     TYPES: BEGIN OF ty_inspect_params,
              files TYPE string_table,
            END OF ty_inspect_params.
 
     TYPES ty_object_keys TYPE TABLE OF scir_objs WITH NON-UNIQUE DEFAULT KEY.
 
+    " Type for DDLS object names
+    TYPES ty_ddls_names TYPE STANDARD TABLE OF tadir-obj_name WITH NON-UNIQUE DEFAULT KEY.
+
     METHODS run_syntax_check
       IMPORTING it_objects TYPE ty_object_keys
-      RETURNING VALUE(rs_result) TYPE ty_inspect_result.
+      RETURNING VALUE(rt_results) TYPE ty_inspect_results.
+
+    " Validate DDLS (CDS views)
+    METHODS validate_ddls
+      IMPORTING it_ddls_names TYPE ty_ddls_names
+      RETURNING VALUE(rt_results) TYPE ty_inspect_results.
 
 ENDCLASS.
 
@@ -45,9 +74,11 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
           lv_obj_type TYPE string,
           lv_obj_name TYPE string,
           lo_util TYPE REF TO zcl_abgagt_util,
-          ls_result TYPE ty_inspect_result,
+          lt_results TYPE ty_inspect_results,
           lt_objects TYPE ty_object_keys,
-          ls_obj TYPE scir_objs.
+          lt_ddls_names TYPE ty_ddls_names,
+          ls_obj TYPE scir_objs,
+          ls_result TYPE ty_inspect_result.
 
     " Parse parameters from is_param
     IF is_param IS SUPPLIED.
@@ -57,7 +88,10 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
     IF ls_params-files IS INITIAL.
       ls_result-success = abap_false.
       ls_result-error_count = 1.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+      ls_result-object_name = 'N/A'.
+      ls_result-object_type = 'N/A'.
+      APPEND ls_result TO lt_results.
+      rv_result = /ui2/cl_json=>serialize( data = lt_results ).
       RETURN.
     ENDIF.
 
@@ -72,24 +106,191 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
                   ev_obj_name = lv_obj_name ).
 
       IF lv_obj_type IS NOT INITIAL AND lv_obj_name IS NOT INITIAL.
-        CLEAR ls_obj.
-        ls_obj-objtype = lv_obj_type.
-        ls_obj-objname = lv_obj_name.
-        APPEND ls_obj TO lt_objects.
+        " Separate DDLS from other objects
+        IF lv_obj_type = 'DDLS'.
+          APPEND lv_obj_name TO lt_ddls_names.
+        ELSE.
+          CLEAR ls_obj.
+          ls_obj-objtype = lv_obj_type.
+          ls_obj-objname = lv_obj_name.
+          APPEND ls_obj TO lt_objects.
+        ENDIF.
       ENDIF.
     ENDLOOP.
 
-    IF lt_objects IS INITIAL.
+    " Run syntax check for non-DDLS objects
+    IF lt_objects IS NOT INITIAL.
+      DATA(lt_sci_results) = run_syntax_check( lt_objects ).
+      INSERT LINES OF lt_sci_results INTO TABLE lt_results.
+    ENDIF.
+
+    " Run DDLS validation
+    IF lt_ddls_names IS NOT INITIAL.
+      DATA(lt_ddls_results) = validate_ddls( lt_ddls_names ).
+      INSERT LINES OF lt_ddls_results INTO TABLE lt_results.
+    ENDIF.
+
+    " If no valid objects found
+    IF lt_objects IS INITIAL AND lt_ddls_names IS INITIAL.
       ls_result-success = abap_false.
       ls_result-error_count = 1.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-      RETURN.
+      ls_result-object_name = 'N/A'.
+      ls_result-object_type = 'N/A'.
+      APPEND ls_result TO lt_results.
     ENDIF.
 
-    " Run syntax check for all objects together
-    ls_result = run_syntax_check( lt_objects ).
+    rv_result = /ui2/cl_json=>serialize( data = lt_results ).
+  ENDMETHOD.
 
-    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+  METHOD validate_ddls.
+    " Validate DDLS (CDS views) using CL_DD_DDL_HANDLER_FACTORY
+    " First checks inactive version ('M'), falls back to active ('A')
+    DATA: lv_ddls_name TYPE ddlname,
+          lo_handler TYPE REF TO if_dd_ddl_handler,
+          ls_ddlsrcv TYPE ddddlsrcv,
+          ls_error TYPE ty_error,
+          ls_warning TYPE ty_warning,
+          lt_warnings TYPE ddl2ddicwarnings,
+          lx_error TYPE REF TO cx_dd_ddl_check,
+          lv_found TYPE abap_bool,
+          ls_result TYPE ty_inspect_result,
+          lv_err_msg TYPE string,
+          lv_warn_msg TYPE string.
+
+    rt_results = VALUE #( ).
+
+    " Create DDL handler
+    lo_handler = cl_dd_ddl_handler_factory=>create( ).
+
+    " Check each DDLS object
+    LOOP AT it_ddls_names INTO lv_ddls_name.
+      CLEAR: ls_ddlsrcv, lt_warnings, lv_found, ls_result.
+
+      ls_result-object_type = 'DDLS'.
+      ls_result-object_name = lv_ddls_name.
+      ls_result-success = abap_true.
+
+      " First try to read inactive version (get_state = 'M')
+      TRY.
+          lo_handler->read(
+            EXPORTING
+              name       = lv_ddls_name
+              get_state  = 'M'
+            IMPORTING
+              ddddlsrcv_wa = ls_ddlsrcv ).
+
+          IF ls_ddlsrcv-source IS NOT INITIAL.
+            lv_found = abap_true.
+          ENDIF.
+
+        CATCH cx_dd_ddl_check.
+          " Ignore - will try active version
+      ENDTRY.
+
+      " If no inactive version, try active version
+      IF lv_found = abap_false.
+        TRY.
+            lo_handler->read(
+              EXPORTING
+                name       = lv_ddls_name
+                get_state  = 'A'
+              IMPORTING
+                ddddlsrcv_wa = ls_ddlsrcv ).
+
+            IF ls_ddlsrcv-source IS NOT INITIAL.
+              lv_found = abap_true.
+            ENDIF.
+          CATCH cx_dd_ddl_check.
+            " Ignore
+        ENDTRY.
+      ENDIF.
+
+      " If still not found, report error
+      IF lv_found = abap_false.
+        ls_error-line = '1'.
+        ls_error-column = '1'.
+        ls_error-text = |DDLS { lv_ddls_name } not found in repository|.
+        APPEND ls_error TO ls_result-errors.
+        ls_result-success = abap_false.
+        ls_result-error_count = lines( ls_result-errors ).
+        APPEND ls_result TO rt_results.
+        CONTINUE.
+      ENDIF.
+
+      " Run validation check
+      TRY.
+          " Get warnings from check method
+          lo_handler->check(
+            EXPORTING
+              name = lv_ddls_name
+            IMPORTING
+              warnings = lt_warnings
+            CHANGING
+              ddlsrcv_wa = ls_ddlsrcv ).
+
+          " Parse warnings from check method
+          LOOP AT lt_warnings INTO DATA(ls_warn_from_check).
+            CLEAR ls_warning.
+            ls_warning-type = ls_warn_from_check-type.
+            ls_warning-line = ls_warn_from_check-line.
+            ls_warning-column = ls_warn_from_check-column.
+            ls_warning-severity = ls_warn_from_check-severity.
+            ls_warning-object_type = 'DDLS'.
+            ls_warning-object_name = lv_ddls_name.
+            " Use MESSAGE statement to get real warning message
+            MESSAGE ID ls_warn_from_check-arbgb TYPE 'E' NUMBER ls_warn_from_check-msgnr
+              WITH ls_warn_from_check-var1 ls_warn_from_check-var2 ls_warn_from_check-var3 ls_warn_from_check-var4
+              INTO lv_warn_msg.
+            ls_warning-message = lv_warn_msg.
+            APPEND ls_warning TO ls_result-warnings.
+          ENDLOOP.
+
+          " If no errors and no warnings, validation passed
+          IF ls_result-warnings IS INITIAL.
+            ls_result-success = abap_true.
+          ELSE.
+            ls_result-success = abap_false.
+          ENDIF.
+
+        CATCH cx_dd_ddl_check INTO lx_error.
+          " Validation failed - get error details using get_errors method
+          DATA(lt_errors) = lx_error->get_errors( ).
+          LOOP AT lt_errors INTO DATA(ls_err).
+            CLEAR ls_error.
+            ls_error-line = ls_err-line.
+            ls_error-column = ls_err-column.
+            " Use MESSAGE statement to get real error message
+            MESSAGE ID ls_err-arbgb TYPE 'E' NUMBER ls_err-msgnr
+              WITH ls_err-var1 ls_err-var2 ls_err-var3 ls_err-var4
+              INTO lv_err_msg.
+            ls_error-text = lv_err_msg.
+            APPEND ls_error TO ls_result-errors.
+          ENDLOOP.
+
+          " Also get warnings if any
+          DATA(lt_warn) = lx_error->get_warnings( ).
+          LOOP AT lt_warn INTO DATA(ls_warn2).
+            CLEAR ls_warning.
+            ls_warning-type = ls_warn2-type.
+            ls_warning-line = ls_warn2-line.
+            ls_warning-column = ls_warn2-column.
+            ls_warning-severity = ls_warn2-severity.
+            ls_warning-object_type = 'DDLS'.
+            ls_warning-object_name = lv_ddls_name.
+            " Use MESSAGE statement to get real warning message
+            MESSAGE ID ls_warn2-arbgb TYPE 'E' NUMBER ls_warn2-msgnr
+              WITH ls_warn2-var1 ls_warn2-var2 ls_warn2-var3 ls_warn2-var4
+              INTO lv_warn_msg.
+            ls_warning-message = lv_warn_msg.
+            APPEND ls_warning TO ls_result-warnings.
+          ENDLOOP.
+
+          ls_result-success = abap_false.
+      ENDTRY.
+
+      ls_result-error_count = lines( ls_result-errors ).
+      APPEND ls_result TO rt_results.
+    ENDLOOP.
   ENDMETHOD.
 
   METHOD run_syntax_check.
@@ -99,9 +300,11 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
           lo_inspection TYPE REF TO cl_ci_inspection,
           lt_list TYPE scit_alvlist,
           ls_error TYPE ty_error,
-          lx_error TYPE REF TO cx_root.
+          ls_list TYPE scir_alvlist,
+          lx_error TYPE REF TO cx_root,
+          ls_result TYPE ty_inspect_result.
 
-    rs_result-success = abap_true.
+    rt_results = VALUE #( ).
 
     TRY.
         " Create unique name for inspection
@@ -145,14 +348,29 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
         " Get results
         lo_inspection->plain_list( IMPORTING p_list = lt_list ).
 
-        " Parse results - aggregate all errors
-        LOOP AT lt_list INTO DATA(ls_list).
-          CLEAR ls_error.
-          ls_error-line = ls_list-line.
-          ls_error-column = ls_list-col.
-          ls_error-text = ls_list-text.
-          ls_error-word = ls_list-code.
-          APPEND ls_error TO rs_result-errors.
+        " Build result for each object
+        LOOP AT it_objects INTO DATA(ls_obj).
+          CLEAR ls_result.
+          ls_result-object_type = ls_obj-objtype.
+          ls_result-object_name = ls_obj-objname.
+          ls_result-success = abap_true.
+
+          " Get errors for this object
+          LOOP AT lt_list INTO ls_list WHERE objname = ls_obj-objname.
+            CLEAR ls_error.
+            ls_error-line = ls_list-line.
+            ls_error-column = ls_list-col.
+            ls_error-text = ls_list-text.
+            ls_error-word = ls_list-code.
+            APPEND ls_error TO ls_result-errors.
+          ENDLOOP.
+
+          ls_result-error_count = lines( ls_result-errors ).
+          IF ls_result-error_count > 0.
+            ls_result-success = abap_false.
+          ENDIF.
+
+          APPEND ls_result TO rt_results.
         ENDLOOP.
 
         " Cleanup
@@ -173,19 +391,20 @@ CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
             exists_in_objs = 5
             OTHERS = 6 ).
 
-        rs_result-error_count = lines( rs_result-errors ).
-        IF rs_result-error_count > 0.
-          rs_result-success = abap_false.
-        ENDIF.
-
       CATCH cx_root INTO lx_error.
-        rs_result-success = abap_false.
-        rs_result-error_count = 1.
-        ls_error-line = '1'.
-        ls_error-column = '1'.
-        ls_error-text = lx_error->get_text( ).
-        ls_error-word = ''.
-        APPEND ls_error TO rs_result-errors.
+        " Return error for all objects
+        LOOP AT it_objects INTO ls_obj.
+          CLEAR ls_result.
+          ls_result-object_type = ls_obj-objtype.
+          ls_result-object_name = ls_obj-objname.
+          ls_result-success = abap_false.
+          ls_error-line = '1'.
+          ls_error-column = '1'.
+          ls_error-text = lx_error->get_text( ).
+          APPEND ls_error TO ls_result-errors.
+          ls_result-error_count = 1.
+          APPEND ls_result TO rt_results.
+        ENDLOOP.
     ENDTRY.
   ENDMETHOD.
 

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>