abapgit-agent 1.2.0 → 1.4.0

package/abap/zcl_abgagt_command_preview.clas.abap

@@ -0,0 +1,386 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_command_preview DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_command.
+
+    " Parameter types matching CLI request
+    TYPES: BEGIN OF ty_preview_params,
+             objects TYPE string_table,
+             type TYPE string,
+             limit TYPE i,
+             where TYPE string,
+             columns TYPE string_table,
+           END OF ty_preview_params.
+
+    " Field metadata
+    TYPES: BEGIN OF ty_field,
+             field TYPE string,
+             type TYPE string,
+             length TYPE int4,
+             decimals TYPE int4,
+           END OF ty_field.
+
+    TYPES ty_fields TYPE STANDARD TABLE OF ty_field WITH DEFAULT KEY.
+
+    " Row data (dynamic)
+    TYPES: BEGIN OF ty_row_data,
+             row_index TYPE i,
+             data TYPE REF TO data,
+           END OF ty_row_data.
+
+    " Table/CVS view data result
+    TYPES: BEGIN OF ty_preview_object,
+             name TYPE string,
+             type TYPE string,
+             type_text TYPE string,
+             row_count TYPE i,
+             total_rows TYPE i,
+             rows TYPE string,  " JSON string of rows
+             fields TYPE ty_fields,
+             columns_displayed TYPE i,
+             columns_hidden TYPE string_table,
+             error TYPE string,
+           END OF ty_preview_object.
+
+    TYPES ty_preview_objects TYPE STANDARD TABLE OF ty_preview_object WITH DEFAULT KEY.
+
+    TYPES: BEGIN OF ty_summary,
+             total_objects TYPE i,
+             total_rows TYPE i,
+           END OF ty_summary.
+
+    TYPES: BEGIN OF ty_preview_result,
+             success TYPE abap_bool,
+             command TYPE string,
+             message TYPE string,
+             objects TYPE ty_preview_objects,
+             summary TYPE ty_summary,
+             error TYPE string,
+           END OF ty_preview_result.
+
+    " Method declarations
+    METHODS get_table_data
+      IMPORTING
+        iv_name TYPE string
+        iv_type TYPE string
+        iv_limit TYPE i
+        iv_where TYPE string
+        it_columns TYPE string_table
+      RETURNING
+        VALUE(rs_result) TYPE ty_preview_object.
+
+    METHODS detect_object_type
+      IMPORTING
+        iv_name TYPE string
+      RETURNING
+        VALUE(rv_type) TYPE string.
+
+    METHODS fetch_table_data
+      IMPORTING
+        iv_tabname TYPE string
+        iv_limit TYPE i
+        iv_where TYPE string
+        it_columns TYPE string_table
+      CHANGING
+        cs_result TYPE ty_preview_object.
+
+    METHODS get_field_metadata
+      IMPORTING
+        it_components TYPE abap_component_tab
+      RETURNING
+        VALUE(rt_fields) TYPE ty_fields.
+
+    METHODS get_field_metadata_for_columns
+      IMPORTING
+        it_components TYPE abap_component_tab
+        it_columns TYPE string_table
+      RETURNING
+        VALUE(rt_fields) TYPE ty_fields.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_command_preview IMPLEMENTATION.
+
+  METHOD zif_abgagt_command~get_name.
+    rv_name = zif_abgagt_command=>gc_preview.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_command~execute.
+    " Parse parameters
+    DATA: ls_params TYPE ty_preview_params,
+          ls_result TYPE ty_preview_result.
+
+    ls_result-command = zif_abgagt_command=>gc_preview.
+
+    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.
+
+    " Process each object
+    DATA lt_objects TYPE ty_preview_objects.
+    DATA lv_object TYPE string.
+    DATA lv_total_rows TYPE i.
+
+    LOOP AT ls_params-objects INTO lv_object.
+      DATA(ls_obj) = get_table_data(
+        iv_name    = lv_object
+        iv_type    = ls_params-type
+        iv_limit   = ls_params-limit
+        iv_where   = ls_params-where
+        it_columns = ls_params-columns ).
+
+      APPEND ls_obj TO lt_objects.
+      lv_total_rows = lv_total_rows + ls_obj-row_count.
+    ENDLOOP.
+
+    " Build result
+    ls_result-success = abap_true.
+    ls_result-message = 'Retrieved data'.
+    ls_result-objects = lt_objects.
+
+    " Build summary
+    DATA ls_summary TYPE ty_summary.
+    ls_summary-total_objects = lines( lt_objects ).
+    ls_summary-total_rows = lv_total_rows.
+
+    " We need to serialize with summary inline
+    DATA: BEGIN OF ls_final,
+            success TYPE abap_bool,
+            command TYPE string,
+            message TYPE string,
+            objects TYPE ty_preview_objects,
+            summary TYPE ty_summary,
+            error TYPE string,
+          END OF ls_final.
+
+    ls_final = CORRESPONDING #( ls_result ).
+    ls_final-summary = ls_summary.
+
+    rv_result = /ui2/cl_json=>serialize( data = ls_final ).
+  ENDMETHOD.
+
+  METHOD get_table_data.
+    DATA: ls_result TYPE ty_preview_object,
+          lv_tabname TYPE string,
+          lv_type TYPE string.
+
+    ls_result-name = iv_name.
+    lv_tabname = to_upper( iv_name ).
+    lv_type = to_upper( iv_type ).
+
+    IF lv_tabname IS INITIAL.
+      lv_tabname = iv_name.
+    ENDIF.
+    IF lv_type IS INITIAL.
+      lv_type = iv_type.
+    ENDIF.
+
+    " Auto-detect type if not specified
+    IF lv_type IS INITIAL.
+      lv_type = detect_object_type( lv_tabname ).
+    ENDIF.
+
+    ls_result-type = lv_type.
+
+    CASE lv_type.
+      WHEN 'TABL' OR 'DDLS' OR ''.
+        ls_result-type_text = COND #( WHEN lv_type = 'DDLS' THEN 'CDS View' ELSE 'Table' ).
+
+        " Get table metadata and data
+        fetch_table_data(
+          EXPORTING
+            iv_tabname = lv_tabname
+            iv_limit   = iv_limit
+            iv_where   = iv_where
+            it_columns = it_columns
+          CHANGING
+            cs_result  = ls_result ).
+
+        IF ls_result-error IS NOT INITIAL.
+          ls_result-type_text = lv_type.
+        ENDIF.
+
+      WHEN OTHERS.
+        ls_result-type_text = lv_type.
+        ls_result-row_count = 0.
+    ENDCASE.
+
+    rs_result = ls_result.
+  ENDMETHOD.
+
+  METHOD detect_object_type.
+    DATA lv_name TYPE string.
+    lv_name = to_upper( iv_name ).
+
+    " Check if table or CDS view exists in TADIR
+    SELECT SINGLE object FROM tadir
+      INTO rv_type
+      WHERE obj_name = lv_name
+        AND object IN ('TABL', 'DDLS').
+
+    IF sy-subrc <> 0.
+      " Default to table if not found in TADIR
+      rv_type = 'TABL'.
+    ENDIF.
+  ENDMETHOD.
+
+  METHOD fetch_table_data.
+    DATA: lv_error TYPE string,
+          lr_data TYPE REF TO data,
+          lo_tabdescr TYPE REF TO cl_abap_tabledescr,
+          lo_strucdescr TYPE REF TO cl_abap_structdescr,
+          lt_components TYPE abap_component_tab,
+          lv_field_list TYPE string,
+          lv_limit TYPE i.
+
+    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
+
+    lv_limit = iv_limit.
+    IF lv_limit <= 0.
+      lv_limit = 10.
+    ENDIF.
+
+    " Check if table/view exists in DD02L
+    DATA lv_tabname_check TYPE dd02l-tabname.
+    SELECT SINGLE tabname FROM dd02l
+      INTO lv_tabname_check
+      WHERE tabname = iv_tabname
+        AND as4local = 'A'
+        AND tabclass IN ('TRANSP', 'VIEW').
+
+    IF sy-subrc <> 0.
+      cs_result-error = |Table or view not found: { iv_tabname }|.
+      cs_result-row_count = 0.
+      RETURN.
+    ENDIF.
+
+    TRY.
+        " Get structure descriptor first (describe_by_name returns struct descr for table lines)
+        lo_strucdescr ?= cl_abap_structdescr=>describe_by_name( iv_tabname ).
+        " Create table descriptor from structure
+        lo_tabdescr = cl_abap_tabledescr=>create( lo_strucdescr ).
+        lt_components = lo_strucdescr->get_components( ).
+
+        " Handle column selection
+        DATA lt_cols TYPE string_table.
+        lt_cols = it_columns.
+
+        IF lt_cols IS NOT INITIAL.
+          " Build field list from specified columns
+          LOOP AT lt_components INTO DATA(ls_comp).
+            READ TABLE lt_cols WITH KEY table_line = ls_comp-name TRANSPORTING NO FIELDS.
+            IF sy-subrc = 0.
+              IF lv_field_list IS INITIAL.
+                lv_field_list = ls_comp-name.
+              ELSE.
+                lv_field_list = lv_field_list && ',' && ls_comp-name.
+              ENDIF.
+            ELSE.
+              " Track hidden columns
+              APPEND ls_comp-name TO cs_result-columns_hidden.
+            ENDIF.
+          ENDLOOP.
+        ELSE.
+          " All columns
+          LOOP AT lt_components INTO ls_comp.
+            IF lv_field_list IS INITIAL.
+              lv_field_list = ls_comp-name.
+            ELSE.
+              lv_field_list = lv_field_list && ',' && ls_comp-name.
+            ENDIF.
+          ENDLOOP.
+        ENDIF.
+
+        " Create data reference for the internal table
+        CREATE DATA lr_data TYPE HANDLE lo_tabdescr.
+        ASSIGN lr_data->* TO <lt_data>.
+
+        " Use SELECT * - dynamic field list has parser issues
+        " Column filtering will be done in the response
+        IF iv_where IS INITIAL.
+          SELECT * FROM (iv_tabname)
+            INTO TABLE <lt_data>
+            UP TO lv_limit ROWS.
+        ELSE.
+          SELECT * FROM (iv_tabname)
+            INTO TABLE <lt_data>
+            UP TO lv_limit ROWS
+            WHERE (iv_where).
+        ENDIF.
+
+        " Get row count
+        cs_result-row_count = lines( <lt_data> ).
+        cs_result-total_rows = cs_result-row_count.
+
+        " Get field metadata for selected columns only
+        cs_result-fields = get_field_metadata_for_columns(
+          it_components = lt_components
+          it_columns    = lt_cols ).
+
+        " Serialize data to JSON
+        cs_result-rows = /ui2/cl_json=>serialize( data = <lt_data> ).
+
+        " Set column info
+        cs_result-columns_displayed = lines( cs_result-fields ).
+
+      CATCH cx_root INTO DATA(lx_error).
+        lv_error = lx_error->get_text( ).
+        cs_result-error = lv_error.
+        cs_result-row_count = 0.
+    ENDTRY.
+  ENDMETHOD.
+
+  METHOD get_field_metadata.
+    DATA ls_field TYPE ty_field.
+
+    LOOP AT it_components ASSIGNING FIELD-SYMBOL(<comp>).
+      ls_field-field = <comp>-name.
+
+      " Get type info from the component
+      IF <comp>-type IS BOUND.
+        DATA(lo_type) = <comp>-type.
+        ls_field-type = lo_type->type_kind.
+        ls_field-length = lo_type->length.
+        ls_field-decimals = lo_type->decimals.
+      ENDIF.
+
+      APPEND ls_field TO rt_fields.
+    ENDLOOP.
+  ENDMETHOD.
+
+  METHOD get_field_metadata_for_columns.
+    DATA ls_field TYPE ty_field.
+
+    " If no columns specified, return all
+    IF it_columns IS INITIAL.
+      rt_fields = get_field_metadata( it_components ).
+      RETURN.
+    ENDIF.
+
+    " Filter to selected columns only
+    LOOP AT it_components ASSIGNING FIELD-SYMBOL(<comp>).
+      READ TABLE it_columns WITH KEY table_line = <comp>-name TRANSPORTING NO FIELDS.
+      IF sy-subrc = 0.
+        ls_field-field = <comp>-name.
+        IF <comp>-type IS BOUND.
+          DATA(lo_type) = <comp>-type.
+          ls_field-type = lo_type->type_kind.
+          ls_field-length = lo_type->length.
+          ls_field-decimals = lo_type->decimals.
+        ENDIF.
+        APPEND ls_field TO rt_fields.
+      ENDIF.
+    ENDLOOP.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_command_preview.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_PREVIEW</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>PREVIEW command - preview table/CDS view data</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_command_view.clas.abap

@@ -119,6 +119,8 @@ CLASS zcl_abgagt_command_view IMPLEMENTATION.
           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.
 
@@ -152,7 +154,7 @@ CLASS zcl_abgagt_command_view IMPLEMENTATION.
     SELECT SINGLE object FROM tadir
       INTO rv_type
       WHERE obj_name = iv_name
-        AND object IN ('CLAS', 'INTF', 'TABL', 'DTEL', 'STRU').
+        AND object IN ('CLAS', 'INTF', 'TABL', 'DTEL', 'STRU', 'TTYP', 'DDLS').
   ENDMETHOD.
 
   METHOD get_object_info.

package/abap/zcl_abgagt_resource_preview.clas.abap

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

@@ -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_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>

package/abap/zcl_abgagt_rest_handler.clas.abap

@@ -24,6 +24,7 @@ CLASS zcl_abgagt_rest_handler IMPLEMENTATION.
     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' ).
+    lo_router->attach( iv_template = '/preview' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_PREVIEW' ).
 
     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_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>