abapgit-agent 1.1.6 → 1.2.0

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_dtel.clas.abap

@@ -0,0 +1,98 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_dtel DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_dtel IMPLEMENTATION.
+
+  METHOD zif_abgagt_viewer~get_info.
+    DATA: lv_obj_name TYPE tadir-obj_name,
+          lv_devclass TYPE tadir-devclass,
+          lv_leng TYPE dd04v-leng,
+          lv_decimals TYPE dd04v-decimals.
+
+    rs_info-name = iv_name.
+    rs_info-type = 'DTEL'.
+    rs_info-type_text = 'Data Element'.
+
+    " Get package from TADIR
+    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_info-description = |Data Element { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-not_found = abap_true.
+    ENDIF.
+
+    " Get data element details from DD04V
+    SELECT SINGLE dd04v~rollname dd04v~ddtext dd04v~domname
+                  dd04v~datatype dd04v~leng dd04v~decimals
+      INTO (rs_info-name, rs_info-description, rs_info-domain,
+            rs_info-domain_type, lv_leng, lv_decimals)
+      FROM dd04v
+      WHERE rollname = iv_name
+        AND ddlanguage = 'E'.
+    IF sy-subrc <> 0.
+      " Fallback: try without language filter
+      SELECT SINGLE rollname ddtext domname datatype leng decimals
+        INTO (rs_info-name, rs_info-description, rs_info-domain,
+              rs_info-domain_type, lv_leng, lv_decimals)
+        FROM dd04v
+        WHERE rollname = iv_name.
+    ENDIF.
+
+    rs_info-domain_length = lv_leng.
+    rs_info-domain_decimals = lv_decimals.
+
+    " Build components table for additional info
+    IF rs_info-domain IS NOT INITIAL.
+      APPEND VALUE #(
+        field = 'DOMAIN'
+        key = abap_false
+        type = rs_info-domain_type
+        length = rs_info-domain_length
+        dataelement = rs_info-domain
+        description = |Domain: { rs_info-domain }|
+      ) TO rs_info-components.
+    ENDIF.
+
+    APPEND VALUE #(
+      field = 'DATA_TYPE'
+      key = abap_false
+      type = 'CHAR'
+      length = 10
+      dataelement = ''
+      description = |ABAP Type: { rs_info-domain_type }|
+    ) TO rs_info-components.
+
+    IF rs_info-domain_length > 0.
+      APPEND VALUE #(
+        field = 'LENGTH'
+        key = abap_false
+        type = 'NUMC'
+        length = 5
+        dataelement = ''
+        description = |Length: { rs_info-domain_length }|
+      ) TO rs_info-components.
+    ENDIF.
+
+    IF rs_info-domain_decimals > 0.
+      APPEND VALUE #(
+        field = 'DECIMALS'
+        key = abap_false
+        type = 'NUMC'
+        length = 2
+        dataelement = ''
+        description = |Decimals: { rs_info-domain_decimals }|
+      ) TO rs_info-components.
+    ENDIF.
+  ENDMETHOD.
+
+ENDCLASS.

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

package/abap/zcl_abgagt_viewer_factory.clas.abap

@@ -0,0 +1,41 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_factory DEFINITION PUBLIC CREATE PRIVATE.
+
+  PUBLIC SECTION.
+    CLASS-METHODS get_instance
+      RETURNING VALUE(ro_instance) TYPE REF TO zcl_abgagt_viewer_factory.
+
+    METHODS get_viewer
+      IMPORTING iv_obj_type   TYPE string
+      RETURNING VALUE(ro_viewer) TYPE REF TO zif_abgagt_viewer
+      RAISING   cx_sy_create_object_error.
+
+  PRIVATE SECTION.
+    CONSTANTS mc_class_prefix TYPE string VALUE 'ZCL_ABGAGT_VIEWER_'.
+
+    METHODS build_class_name
+      IMPORTING iv_obj_type   TYPE string
+      RETURNING VALUE(rv_class_name) TYPE seoclsname.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_factory IMPLEMENTATION.
+
+  METHOD get_instance.
+    CREATE OBJECT ro_instance.
+  ENDMETHOD.
+
+  METHOD build_class_name.
+    " CLAS -> ZCL_ABGAGT_VIEWER_CLAS
+    rv_class_name = mc_class_prefix && iv_obj_type.
+  ENDMETHOD.
+
+  METHOD get_viewer.
+    DATA lv_class_name TYPE seoclsname.
+    lv_class_name = build_class_name( iv_obj_type ).
+    CREATE OBJECT ro_viewer TYPE (lv_class_name).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_viewer_factory.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_FACTORY</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Factory for Creating Object Viewers</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_viewer_intf.clas.abap

@@ -0,0 +1,58 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_intf DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_intf 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 = 'INTF'.
+    IF sy-subrc = 0.
+      rs_info-name = iv_name.
+      rs_info-type = 'INTF'.
+      rs_info-type_text = 'Interface'.
+      rs_info-description = |Interface { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-name = iv_name.
+      rs_info-type = 'INTF'.
+      rs_info-type_text = 'Interface'.
+      rs_info-not_found = abap_true.
+    ENDIF.
+
+    " Get interface section program name using CL_OO_CLASSNAME_SERVICE
+    DATA lv_clsname TYPE seoclsname.
+    lv_clsname = iv_name.
+    CALL METHOD cl_oo_classname_service=>get_intfsec_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_intf.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_INTF</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Viewer for ABAP Interfaces</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_viewer_stru.clas.abap

@@ -0,0 +1,59 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_stru DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_stru IMPLEMENTATION.
+
+  METHOD zif_abgagt_viewer~get_info.
+    DATA: lv_obj_name TYPE tadir-obj_name,
+          lv_devclass TYPE tadir-devclass.
+
+    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_info-name = iv_name.
+      rs_info-type = 'STRU'.
+      rs_info-type_text = 'Structure'.
+      rs_info-description = |Structure { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-name = iv_name.
+      rs_info-type = 'STRU'.
+      rs_info-type_text = 'Structure'.
+      rs_info-not_found = abap_true.
+    ENDIF.
+
+    " Build components table with data element and description
+    SELECT fieldname AS field keyflag AS key datatype AS type rollname AS dataelement
+      FROM dd03l
+      INTO CORRESPONDING FIELDS OF TABLE rs_info-components
+      WHERE tabname = iv_name
+        AND as4local = 'A'
+      ORDER BY position.
+
+    " Add length and description
+    LOOP AT rs_info-components ASSIGNING FIELD-SYMBOL(<ls_comp>).
+      DATA ls_dd03l TYPE dd03l.
+      SELECT SINGLE * FROM dd03l INTO ls_dd03l
+        WHERE tabname = iv_name
+          AND fieldname = <ls_comp>-field
+          AND as4local = 'A'.
+      <ls_comp>-length = ls_dd03l-leng.
+
+      " Get description from DD04T
+      SELECT SINGLE ddtext FROM dd04t
+        INTO <ls_comp>-description
+        WHERE rollname = <ls_comp>-dataelement
+          AND ddlanguage = 'E'
+          AND as4local = 'A'.
+    ENDLOOP.
+  ENDMETHOD.
+
+ENDCLASS.

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

package/abap/zcl_abgagt_viewer_tabl.clas.abap

@@ -0,0 +1,59 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_viewer_tabl DEFINITION PUBLIC FINAL CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_viewer.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_viewer_tabl IMPLEMENTATION.
+
+  METHOD zif_abgagt_viewer~get_info.
+    DATA: lv_obj_name TYPE tadir-obj_name,
+          lv_devclass TYPE tadir-devclass.
+
+    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_info-name = iv_name.
+      rs_info-type = 'TABL'.
+      rs_info-type_text = 'Table'.
+      rs_info-description = |Table { iv_name } in { lv_devclass }|.
+    ELSE.
+      rs_info-name = iv_name.
+      rs_info-type = 'TABL'.
+      rs_info-type_text = 'Table'.
+      rs_info-not_found = abap_true.
+    ENDIF.
+
+    " Build components table with data element and description
+    SELECT fieldname AS field keyflag AS key datatype AS type rollname AS dataelement
+      FROM dd03l
+      INTO CORRESPONDING FIELDS OF TABLE rs_info-components
+      WHERE tabname = iv_name
+        AND as4local = 'A'
+      ORDER BY position.
+
+    " Add length and description
+    LOOP AT rs_info-components ASSIGNING FIELD-SYMBOL(<ls_comp>).
+      DATA ls_dd03l TYPE dd03l.
+      SELECT SINGLE * FROM dd03l INTO ls_dd03l
+        WHERE tabname = iv_name
+          AND fieldname = <ls_comp>-field
+          AND as4local = 'A'.
+      <ls_comp>-length = ls_dd03l-leng.
+
+      " Get description from DD04T
+      SELECT SINGLE ddtext FROM dd04t
+        INTO <ls_comp>-description
+        WHERE rollname = <ls_comp>-dataelement
+          AND ddlanguage = 'E'
+          AND as4local = 'A'.
+    ENDLOOP.
+  ENDMETHOD.
+
+ENDCLASS.

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

package/abap/zif_abgagt_command.intf.abap

@@ -7,7 +7,9 @@ INTERFACE zif_abgagt_command PUBLIC.
     gc_inspect TYPE string VALUE 'INSPECT',
     gc_unit TYPE string VALUE 'UNIT',
     gc_create TYPE string VALUE 'CREATE',
-    gc_import TYPE string VALUE 'IMPORT'.
+    gc_import TYPE string VALUE 'IMPORT',
+    gc_tree TYPE string VALUE 'TREE',
+    gc_view TYPE string VALUE 'VIEW'.
 
   " Get command name
   METHODS get_name

package/abap/zif_abgagt_viewer.intf.abap

@@ -0,0 +1,11 @@
+*"* Use this source text module for the interface definition
+INTERFACE zif_abgagt_viewer PUBLIC.
+
+  " Get detailed information about an ABAP object
+  " @parameter iv_name | Object name (e.g., ZCL_MY_CLASS)
+  " @parameter rs_info | Object information structure
+  METHODS get_info
+    IMPORTING iv_name        TYPE string
+    RETURNING VALUE(rs_info) TYPE zcl_abgagt_command_view=>ty_view_object.
+
+ENDINTERFACE.

package/abap/zif_abgagt_viewer.intf.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOINTERF>
+    <CLSNAME>ZIF_ABGAGT_VIEWER</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Viewer Interface for ABAP Object Types</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOINTERF>
+  </asx:values>
+ </asx:abap>
+</abapGit>