abapgit-agent 1.1.6 → 1.3.0

package/docs/view-command.md

@@ -0,0 +1,501 @@
+# view Command Requirements
+
+## Overview
+
+View ABAP object source code directly from the ABAP system. This command retrieves and displays source code for objects that may not exist locally in your git repository, enabling developers to understand class definitions, method signatures, structure components, and data element types without pulling the entire object.
+
+**This is the PRIMARY way to explore unfamiliar ABAP objects.**
+
+## Use Cases
+
+- **Understand unfamiliar code**: View a class definition from a dependency package
+- **Check method signatures**: See method parameters and return types before calling
+- **Inspect data structures**: View table or structure field definitions
+- **Review interface definitions**: Check interface methods and constants
+- **Quick reference**: Look up definitions without opening SE80 or ADT
+
+## Command
+
+```bash
+# View single object (auto-detect type from TADIR)
+abapgit-agent view --objects ZCL_MY_CLASS
+abapgit-agent view --objects ZIF_MY_INTERFACE
+abapgit-agent view --objects ZMY_TABLE
+
+# View with explicit type
+abapgit-agent view --objects ZCL_MY_CLASS --type CLAS
+abapgit-agent view --objects ZIF_MY_INT --type INTF
+abapgit-agent view --objects ZMY_STRUCT --type STRU
+abapgit-agent view --objects ZMY_TABLE --type TABL
+abapgit-agent view --objects ZMY_DTEL --type DTEL
+abapgit-agent view --objects ZMY_TTYP --type TTYP
+abapgit-agent view --objects ZC_MY_CDS_VIEW --type DDLS
+
+# View multiple objects
+abapgit-agent view --objects ZCL_CLASS1,ZCL_CLASS2,ZIF_INTERFACE1
+
+# Lowercase names and types are supported
+abapgit-agent view --objects zcl_my_class --type clas
+
+# Output as JSON (for scripting/AI processing)
+abapgit-agent view --objects ZCL_MY_CLASS --json
+```
+
+## Prerequisite
+
+- `.abapGitAgent` exists with valid credentials
+- Object must exist in the ABAP system
+
+## Parameters
+
+| Parameter | Required | Description |
+|-----------|----------|-------------|
+| `--objects` | Yes | Comma-separated list of object names (e.g., `ZCL_MY_CLASS,ZIF_MY_INTERFACE`) |
+| `--type` | No | Object type for all objects (CLAS, INTF, TABL, STRU, DTEL, TTYP, DDLS). Auto-detected from TADIR if not specified |
+| `--json` | No | Output raw JSON only (for scripting) |
+
+---
+
+## Tasks
+
+### 1. Validate Parameters
+
+- `--objects` must be specified
+- Object names are converted to uppercase automatically
+
+### 2. Load Configuration
+
+Read `.abapGitAgent` for credentials
+
+### 3. Fetch CSRF Token
+
+```bash
+GET /health (with X-CSRF-Token: fetch)
+```
+
+### 4. Make View Request
+
+**Endpoint:** `POST /view`
+
+**Request Body:**
+```json
+{
+  "objects": ["ZCL_MY_CLASS", "ZIF_MY_INTERFACE"],
+  "type": "CLAS"
+}
+```
+
+### 5. Display Results
+
+---
+
+## Output
+
+### Class Definition (CLAS)
+
+```
+📖 ZCL_MY_CLASS (Class)
+   Class ZCL_MY_CLASS in $PACKAGE_NAME
+
+CLASS zcl_my_class DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES: if_interface.
+
+    METHODS:
+      constructor
+        IMPORTING
+          !iv_name TYPE string OPTIONAL,
+      get_value
+        RETURNING
+          VALUE(rv_result) TYPE string.
+ENDCLASS.
+```
+
+### Interface Definition (INTF)
+
+```
+📖 ZIF_MY_INTERFACE (Interface)
+   Interface ZIF_MY_INTERFACE in $PACKAGE_NAME
+
+INTERFACE zif_my_interface PUBLIC.
+
+  CONSTANTS:
+    gc_value TYPE string VALUE 'test'.
+
+  METHODS:
+    process
+      IMPORTING
+        !iv_data TYPE any
+      RETURNING
+        VALUE(rv_result) TYPE abap_bool,
+    get_status
+      RETURNING
+        VALUE(rv_status) TYPE string.
+
+ENDINTERFACE.
+```
+
+### Table Definition (TABL)
+
+```
+📖 SFLIGHT (Table)
+   Table SFLIGHT in SAPBC_DATAMODEL
+
+TABLE SFLIGHT:
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+| Field            | Key | Type     |   Length | Data Elem                      | Description                                                  |
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+| MANDT            | X   | CLNT     |        3 | MANDT                          | Client                                                      |
+| CARRID           | X   | CHAR     |        3 | S_CARR_ID                      | Airline Code                                                |
+| CONNID           | X   | NUMC     |        4 | S_CONN_ID                      | Connection Number                                            |
+| FLDATE           | X   | DATS     |        8 | S_DATE                         | Flight Date                                                 |
+| PRICE            |     | CURR     |       16 | S_PRICE                        | Airfare                                                     |
+| CURRENCY         |     | CUKY     |        5 | S_CURR                         | Airline Currency                                             |
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+```
+
+### Structure Definition (STRU)
+
+```
+📖 SFLIGHT (Structure)
+   Structure SFLIGHT in SAPBC_DATAMODEL
+
+STRUCTURE SFLIGHT:
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+| Field            | Key | Type     |   Length | Data Elem                      | Description                                                  |
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+| MANDT            | X   | CLNT     |        3 | MANDT                          | Client                                                      |
+| CARRID           | X   | CHAR     |        3 | S_CARR_ID                      | Airline Code                                                |
+|------------------+-----+----------+----------+--------------------------------+--------------------------------------------------------------|
+```
+
+### Data Element Definition (DTEL)
+
+```
+📖 S_CARR_ID (Data Element)
+   Airline Code
+
+DATA ELEMENT S_CARR_ID:
+┌────────────────────┬──────────────────────────────────────────┐
+│ Property           │ Value                                    │
+├────────────────────┼──────────────────────────────────────────┤
+│ Data Type          │ CHAR                                     │
+│ Length             │ 3                                        │
+│ Description        │ Airline Code                             │
+│ Domain             │ S_CARR_ID                                │
+└────────────────────┴──────────────────────────────────────────┘
+```
+
+### Table Type Definition (TTYP)
+
+```
+📖 DDL2DDICWARNINGS (Table Type)
+   Table Type DDL2DDICWARNINGS in SDDL_BASIC_FUNCTIONS
+
+   Line Type: DDL2DDICERR
+   Access Mode: STANDARD
+   Key Definition: WITH KEY
+```
+
+### CDS View Definition (DDLS)
+
+```
+📖 ZC_MY_CDS_VIEW (CDS View)
+   CDS View ZC_MY_CDS_VIEW in $PACKAGE
+
+@AbapCatalog.sqlViewName: 'ZCMYVIEW'
+@AbapCatalog.compiler.compareFilter: true
+@AccessControl.authorizationCheck: #NOT_REQUIRED
+@EndUserText.label: 'My CDS View'
+define view ZC_MY_CDS_VIEW as select from tdevc
+{
+  key devclass as Devclass,
+      parentcl as ParentPackage,
+      ctext    as Description
+}
+where devclass not like '$%'
+```
+
+### Multiple Objects
+
+```
+📖 Viewing 3 Objects
+
+1️⃣  ZCL_CLASS1 (Class)
+    └─ Class ZCL_CLASS1 in $PACKAGE
+
+2️⃣  ZIF_INTERFACE1 (Interface)
+    └─ Interface ZIF_INTERFACE1 in $PACKAGE
+
+3️⃣  ZMY_TABLE (Table)
+    └─ Table ZMY_TABLE in $PACKAGE
+```
+
+### JSON Output (Pure Scripting)
+
+```json
+{
+  "SUCCESS": true,
+  "COMMAND": "VIEW",
+  "MESSAGE": "Retrieved 1 object(s)",
+  "OBJECTS": [
+    {
+      "NAME": "ZCL_MY_CLASS",
+      "TYPE": "CLAS",
+      "TYPE_TEXT": "Class",
+      "DESCRIPTION": "Class ZCL_MY_CLASS in $PACKAGE",
+      "SOURCE": "CLASS zcl_my_class DEFINITION PUBLIC.\n  ...",
+      "DEFINITION": "",
+      "COMPONENTS": []
+    }
+  ],
+  "SUMMARY": {
+    "TOTAL": 1,
+    "BY_TYPE": ["CLAS"]
+  },
+  "ERROR": ""
+}
+```
+
+---
+
+## Response Structure
+
+### JSON Response Schema
+
+```json
+{
+  "SUCCESS": boolean,
+  "COMMAND": "VIEW",
+  "MESSAGE": "string",
+  "OBJECTS": [
+    {
+      "NAME": "string",
+      "TYPE": "CLAS|INTF|TABL|STRU|DTEL|TTYP|DDLS",
+      "TYPE_TEXT": "string",
+      "DESCRIPTION": "string",
+      "DOMAIN": "string",           // For DTEL
+      "DOMAIN_TYPE": "string",      // For DTEL
+      "DOMAIN_LENGTH": number,      // For DTEL
+      "DOMAIN_DECIMALS": number,    // For DTEL
+      "SOURCE": "string",           // Full ABAP source (CLAS/INTF)
+      "NOT_FOUND": boolean,         // true if object does not exist
+      "COMPONENTS": [              // For TABL/STRU
+        {
+          "FIELD": "string",
+          "KEY": boolean,
+          "TYPE": "string",
+          "LENGTH": number,
+          "DATAELEMENT": "string",
+          "DESCRIPTION": "string"
+        }
+      ]
+    }
+  ],
+  "SUMMARY": {
+    "TOTAL": number,
+    "BY_TYPE": ["string"]
+  },
+  "ERROR": "string"
+}
+```
+
+---
+
+## Error Handling
+
+| Error | Message |
+|-------|---------|
+| Object not found | `Object not found: ZCL_NONEXISTENT` |
+| Invalid object type | `Unsupported object type: INVALID` |
+
+### Error Output
+
+```
+❌ Object not found: ZCL_NONEXISTENT
+```
+
+---
+
+## Object Type Detection
+
+### Auto-Detection Rules
+
+| Object Name Pattern | Default Type |
+|---------------------|--------------|
+| `ZCL_*` or `zcl_*` | CLAS (Class) |
+| `ZIF_*` or `zif_*` | INTF (Interface) |
+| `ZTY_*` or `zty_*` | DTEL (Data Element) |
+| `ZS__*` or `zs__*` | DTEL (Data Element) |
+| Other `Z*` | CLAS (default fallback) |
+
+### Supported Object Types
+
+| Type Code | Type Text | Description |
+|-----------|-----------|-------------|
+| `CLAS` | Class | Global ABAP class |
+| `INTF` | Interface | Global interface |
+| `TABL` | Table | Database table |
+| `STRU` | Structure | Structure type |
+| `DTEL` | Data Element | Data element/domain type |
+| `TTYP` | Table Type | Table type definition |
+| `DDLS` | CDS View | CDS View/Entity definition |
+
+---
+
+## Example
+
+```bash
+# View a class definition
+abapgit-agent view --objects ZCL_ABGAGT_AGENT
+
+# View interface
+abapgit-agent view --objects ZIF_ABGAGT_COMMAND
+
+# View table structure
+abapgit-agent view --objects SFLIGHT --type TABL
+
+# View data element
+abapgit-agent view --objects S_CARR_ID --type DTEL
+
+# View CDS view definition
+abapgit-agent view --objects ZC_MY_CDS_VIEW --type DDLS
+
+# View multiple objects
+abapgit-agent view --objects ZCL_CONFIG,ZIF_LOGGER,ZCL_UTILS
+
+# JSON for programmatic use
+abapgit-agent view --objects ZCL_MY_CLASS --json
+
+# Lowercase support
+abapgit-agent view --objects zcl_my_class
+abapgit-agent view --objects sflight --type tabl
+```
+
+---
+
+## Implementation
+
+### ABAP Tables Used
+
+| Table | Purpose |
+|-------|---------|
+| **TADIR** | Object directory (devclass, object type) |
+| **SEOCLASS** | Class/interface metadata |
+| **SEOCOMPODF** | Component definitions |
+| **DD02L** | Table/structure definitions |
+| **DD03L** | Table/structure fields |
+| **DD04L** | Data element definitions |
+| **DD40L** | Table type definitions |
+
+### Class Source Retrieval (CLAS)
+
+```abap
+" Get class info from TADIR
+SELECT SINGLE obj_name, devclass FROM tadir
+  INTO (lv_obj_name, lv_devclass)
+  WHERE obj_name = iv_name
+    AND object = 'CLAS'.
+
+" Get public section source
+CALL METHOD cl_oo_classname_service=>get_pubsec_name
+  EXPORTING clsname = lv_name
+  RECEIVING result = lv_prog.
+
+READ REPORT lv_prog INTO lt_source.
+```
+
+### Interface Source Retrieval (INTF)
+
+```abap
+" Get interface info from TADIR
+SELECT SINGLE obj_name, devclass FROM tadir
+  INTO (lv_obj_name, lv_devclass)
+  WHERE obj_name = iv_name
+    AND object = 'INTF'.
+
+" Get interface section source
+CALL METHOD cl_oo_classname_service=>get_intfsec_name
+  EXPORTING clsname = lv_name
+  RECEIVING result = lv_prog.
+
+READ REPORT lv_prog INTO lt_source.
+```
+
+### Table/Structure Retrieval (TABL/STRU)
+
+```abap
+" Get fields from DD03L
+SELECT fieldname, keyflag AS key, datatype AS type, leng AS length,
+       rollname AS dataelement, ddtext AS description
+  FROM dd03l
+  INTO TABLE lt_components
+  WHERE tabname = iv_name
+    AND as4local = 'A'
+  ORDER BY position.
+```
+
+### Data Element Retrieval (DTEL)
+
+```abap
+" Get domain info from DD04V
+SELECT SINGLE rollname, ddtext, datatype, leng, decimals
+  FROM dd04v
+  INTO (lv_domain, lv_desc, lv_type, lv_len, lv_decimals)
+  WHERE rollname = iv_name.
+```
+
+### Table Type Retrieval (TTYP)
+
+```abap
+" Get TTYP details from DD40L
+SELECT SINGLE rowtype accessmode keydef FROM dd40l
+  INTO (lv_linetype, lv_tabprottype, lv_keydef)
+  WHERE typename = iv_name
+    AND as4local = 'A'.
+
+" Convert codes to text:
+" - Access mode: T=STANDARD, S=SORTED, H=HASHED
+" - Key definition: D=WITH KEY, N=NO KEY
+```
+
+### CDS View Retrieval (DDLS)
+
+```abap
+" Use DDL handler to read CDS view source
+lo_handler = cl_dd_ddl_handler_factory=>create( ).
+
+" 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 ).
+    CATCH cx_dd_ddl_check.
+      " Not found
+  ENDTRY.
+ENDIF.
+
+" Source code is in ls_ddlsrcv-source
+```

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "abapgit-agent",
-  "version": "1.1.6",
+  "version": "1.3.0",
   "description": "ABAP Git Agent - Pull and activate ABAP code via abapGit from any git repository",
   "main": "src/index.js",
   "bin": {

package/src/abap-client.js

@@ -356,6 +356,28 @@ class ABAPClient {
 
     return await this.request('POST', '/import', data, { csrfToken: this.csrfToken });
   }
+
+  /**
+   * Get package hierarchy tree
+   * @param {string} packageName - ABAP package name
+   * @param {number} depth - Maximum depth to traverse (default: 3, max: 10)
+   * @param {boolean} includeObjects - Include object counts breakdown
+   * @returns {object} Tree result with hierarchy and summary
+   */
+  async tree(packageName, depth = 3, includeObjects = false) {
+    // Fetch CSRF token first
+    await this.fetchCsrfToken();
+
+    const data = {
+      package: packageName,
+      depth: Math.min(Math.max(1, depth), 10),
+      include_objects: includeObjects
+    };
+
+    logger.info('Getting package tree', { package: packageName, depth: data.depth, includeObjects, service: 'abapgit-agent' });
+
+    return await this.request('POST', '/tree', data, { csrfToken: this.csrfToken });
+  }
 }
 
 // Singleton instance

package/src/agent.js

@@ -164,6 +164,33 @@ class ABAPGitAgent {
       throw new Error(`Import failed: ${error.message}`);
     }
   }
+
+  /**
+   * Get package hierarchy tree
+   * @param {string} packageName - ABAP package name
+   * @param {number} depth - Maximum depth to traverse (default: 3)
+   * @param {boolean} includeObjects - Include object counts breakdown
+   * @returns {object} Tree result with hierarchy, summary, and metadata
+   */
+  async tree(packageName, depth = 3, includeObjects = false) {
+    logger.info('Getting package tree', { package: packageName, depth, includeObjects });
+
+    try {
+      const result = await this.abap.tree(packageName, depth, includeObjects);
+      return {
+        success: result.SUCCESS === 'X' || result.success === 'X' || result.success === true,
+        command: result.COMMAND || result.command || 'TREE',
+        package: result.PACKAGE || result.package,
+        message: result.MESSAGE || result.message || '',
+        hierarchy: result.HIERARCHY || result.hierarchy || null,
+        summary: result.SUMMARY || result.summary || null,
+        error: result.ERROR || result.error || null
+      };
+    } catch (error) {
+      logger.error('Tree command failed', { error: error.message });
+      throw new Error(`Tree command failed: ${error.message}`);
+    }
+  }
 }
 
 module.exports = {