abapgit-agent 1.1.6 → 1.3.0

package/abap/zcl_abgagt_command_view.clas.abap

@@ -0,0 +1,240 @@
+*"*"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 'TTYP'. ls_info-type_text = 'Table Type'.
+          WHEN 'DDLS'. ls_info-type_text = 'CDS View'.
+          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', 'TTYP', 'DDLS').
+  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.

package/abap/zcl_abgagt_util.clas.abap

@@ -35,9 +35,9 @@ CLASS zcl_abgagt_util IMPLEMENTATION.
       RETURN.
     ENDIF.
 
-    " Last part should be 'ABAP' for verification
+    " Last part should be 'ABAP' or 'ASDDLS' for verification
     READ TABLE lt_parts INDEX lv_part_count INTO DATA(lv_last).
-    IF lv_last <> 'ABAP'.
+    IF lv_last <> 'ABAP' AND lv_last <> 'ASDDLS'.
       RETURN.
     ENDIF.
 

package/abap/zcl_abgagt_viewer_clas.clas.abap

@@ -0,0 +1,58 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_clas DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_clas IMPLEMENTATION.
+
+  METHOD zif_abgagt_viewer~get_info.
+    DATA: lv_obj_name TYPE tadir-obj_name,
+          lv_devclass TYPE tadir-devclass,
+          lv_prog TYPE program,
+          lt_source TYPE TABLE OF string,
+          lv_line TYPE string.
+
+    SELECT SINGLE obj_name devclass FROM tadir
+      INTO (lv_obj_name, lv_devclass)
+      WHERE obj_name = iv_name
+        AND object = 'CLAS'.
+    IF sy-subrc = 0.
+      rs_info-name = iv_name.
+      rs_info-type = 'CLAS'.
+      rs_info-type_text = 'Class'.
+      rs_info-description = |Class { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-name = iv_name.
+      rs_info-type = 'CLAS'.
+      rs_info-type_text = 'Class'.
+      rs_info-not_found = abap_true.
+    ENDIF.
+
+    " Get class public section program name using CL_OO_CLASSNAME_SERVICE
+    DATA lv_clsname TYPE seoclsname.
+    lv_clsname = iv_name.
+    CALL METHOD cl_oo_classname_service=>get_pubsec_name
+      EXPORTING
+        clsname = lv_clsname
+      RECEIVING
+        result  = lv_prog.
+
+    " Read source from program
+    READ REPORT lv_prog INTO lt_source.
+    IF sy-subrc = 0.
+      LOOP AT lt_source INTO lv_line.
+        IF rs_info-source IS INITIAL.
+          rs_info-source = lv_line.
+        ELSE.
+          rs_info-source = rs_info-source && |\n| && lv_line.
+        ENDIF.
+      ENDLOOP.
+    ENDIF.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_viewer_clas.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_VIEWER_CLAS</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Viewer for ABAP Classes</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_viewer_ddls.clas.abap

@@ -0,0 +1,83 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_ddls DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_ddls IMPLEMENTATION.
+
+  METHOD zif_abgagt_viewer~get_info.
+    DATA: lv_ddls_name TYPE ddlname,
+          lo_handler TYPE REF TO if_dd_ddl_handler,
+          ls_ddlsrcv TYPE ddddlsrcv,
+          lv_devclass TYPE tadir-devclass,
+          lv_found TYPE abap_bool.
+
+    rs_info-name = iv_name.
+    rs_info-type = 'DDLS'.
+    rs_info-type_text = 'CDS View'.
+
+    " Get package from TADIR
+    SELECT SINGLE devclass FROM tadir
+      INTO lv_devclass
+      WHERE obj_name = iv_name
+        AND object = 'DDLS'.
+    IF sy-subrc = 0.
+      rs_info-description = |CDS View { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-not_found = abap_true.
+      RETURN.
+    ENDIF.
+
+    " Use DDL handler to read CDS view source
+    lo_handler = cl_dd_ddl_handler_factory=>create( ).
+    lv_ddls_name = iv_name.
+
+    " 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.
+          " Not found
+      ENDTRY.
+    ENDIF.
+
+    " Set source code if found
+    IF lv_found = abap_true.
+      rs_info-source = ls_ddlsrcv-source.
+    ELSE.
+      rs_info-not_found = abap_true.
+    ENDIF.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_viewer_ddls.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_VIEWER_DDLS</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Viewer for CDS Views</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>