abapgit-agent 1.5.0 → 1.6.1

package/abap/zcl_abgagt_command_view.clas.abap

@@ -1,240 +0,0 @@
-*"*"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

@@ -1,15 +0,0 @@
-<?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_create.clas.abap

@@ -1,71 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_resource_create DEFINITION PUBLIC FINAL
-                             INHERITING FROM cl_rest_resource
-                             CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    METHODS if_rest_resource~post REDEFINITION.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_resource_create 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,
-            url TYPE string,
-            branch TYPE string,
-            package TYPE string,
-            display_name TYPE string,
-            name TYPE string,
-            folder_logic TYPE string,
-            folder TYPE string,
-            username TYPE string,
-            password TYPE string,
-          END OF ls_request.
-
-    /ui2/cl_json=>deserialize(
-      EXPORTING
-        json = lv_json
-      CHANGING
-        data = ls_request ).
-
-    " Validate required fields
-    IF ls_request-url IS INITIAL OR ls_request-package IS INITIAL.
-      DATA lv_json_resp TYPE string.
-      lv_json_resp = '{"success":"","error":"URL and package are 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_create ).
-
-    IF lo_command IS NOT BOUND.
-      lv_json_resp = '{"success":"","error":"CREATE 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(lv_result) = lo_command->execute( is_param = ls_request ).
-
-    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_create.clas.xml

@@ -1,15 +0,0 @@
-<?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_CREATE</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>ABAP Git Agent - Create Resource</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_resource_health.clas.abap

@@ -1,25 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_resource_health DEFINITION PUBLIC FINAL
-                               INHERITING FROM cl_rest_resource
-                               CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    METHODS if_rest_resource~get REDEFINITION.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_resource_health IMPLEMENTATION.
-
-  METHOD if_rest_resource~get.
-    DATA lv_json TYPE string.
-    lv_json = '{"status":"OK","version":"1.4.0"}'.
-
-    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 ).
-    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_resource_health.clas.xml

@@ -1,15 +0,0 @@
-<?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_HEALTH</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>ABAP Git Agent - Health Resource</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_resource_import.clas.abap

@@ -1,66 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_resource_import DEFINITION PUBLIC FINAL
-                             INHERITING FROM cl_rest_resource
-                             CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    METHODS if_rest_resource~post REDEFINITION.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_resource_import 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,
-            url TYPE string,
-            message TYPE string,
-            username TYPE string,
-            password TYPE string,
-          END OF ls_request.
-
-    /ui2/cl_json=>deserialize(
-      EXPORTING
-        json = lv_json
-      CHANGING
-        data = ls_request ).
-
-    " Validate required fields
-    IF ls_request-url IS INITIAL.
-      DATA lv_json_resp TYPE string.
-      lv_json_resp = '{"success":"","error":"URL 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_import ).
-
-    IF lo_command IS NOT BOUND.
-      lv_json_resp = '{"success":"","error":"IMPORT 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(lv_result) = lo_command->execute( is_param = ls_request ).
-
-    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_import.clas.xml

@@ -1,15 +0,0 @@
-<?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_IMPORT</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>REST resource handler for /import endpoint</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_resource_inspect.clas.abap

@@ -1,63 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_resource_inspect DEFINITION PUBLIC FINAL
-                             INHERITING FROM cl_rest_resource
-                             CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    METHODS if_rest_resource~post REDEFINITION.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_resource_inspect 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,
-            files TYPE string_table,
-            variant 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-files IS INITIAL OR lines( ls_request-files ) = 0.
-      lv_json_resp = '{"success":"","object_type":"","object_name":"","error_count":1,"errors":[{"line":"1","column":"1","text":"Files list 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_inspect ).
-
-    IF lo_command IS NOT BOUND.
-      lv_json_resp = '{"success":"","error":"INSPECT 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(lv_result) = lo_command->execute( is_param = ls_request ).
-
-    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_inspect.clas.xml

@@ -1,15 +0,0 @@
-<?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_INSPECT</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>ABAP Git Agent - Inspect Resource</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_resource_preview.clas.abap

@@ -1,67 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_resource_preview DEFINITION PUBLIC FINAL
-                              INHERITING FROM cl_rest_resource
-                              CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    METHODS if_rest_resource~post REDEFINITION.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_resource_preview 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,
-            limit TYPE i,
-            where TYPE string,
-            columns TYPE string_table,
-          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":"PREVIEW","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_preview ).
-
-    IF lo_command IS NOT BOUND.
-      lv_json_resp = '{"success":false,"command":"PREVIEW","error":"PREVIEW 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 - pass request as generic parameter
-    DATA(lv_result) = lo_command->execute( is_param = ls_request ).
-
-    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_preview.clas.xml

@@ -1,15 +0,0 @@
-<?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_PREVIEW</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>PREVIEW command REST resource handler</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>