REPORT ZSF_DT_DEPLOY_SOURCE. *&---------------------------------------------------------------------* *& Report ZSF_DT_DEPLOY_SOURCE *& Dynamic Tool: Deploy ABAP Source Code *& Description: Deploy ABAP source code to SAP system with activation *& Author: SAP Fever MCP *& Version: 1.0.0 *&---------------------------------------------------------------------* FORM execute USING it_params TYPE ztt_zmcp_params CHANGING et_result TYPE ztt_zmcp_params et_messages TYPE bapiret2_t. " Clear output parameters CLEAR: et_result, et_messages. REFRESH: et_result, et_messages. " Local variables DATA: lv_object_name TYPE string, lv_object_type TYPE string, lv_source_code TYPE string, lv_dev_class TYPE string, lt_source_lines TYPE string_table, lv_error_message TYPE string, lv_prog_name TYPE progname. " Start processing zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = 'DEPLOY_SOURCE dynamic tool started' iv_type = zcl_sapfever_mcp_util=>gc_info CHANGING et_messages = et_messages ). " Extract parameters with case-insensitive matching LOOP AT it_params INTO DATA(wa_param). CASE wa_param-name. WHEN 'objectName' OR 'OBJECT_NAME' OR 'object_name'. lv_object_name = wa_param-value. WHEN 'objectType' OR 'OBJECT_TYPE' OR 'object_type'. lv_object_type = wa_param-value. WHEN 'sourceCode' OR 'SOURCE_CODE' OR 'source_code'. lv_source_code = wa_param-value. WHEN 'devClass' OR 'DEV_CLASS' OR 'dev_class' OR 'devclass'. lv_dev_class = wa_param-value. ENDCASE. ENDLOOP. " Validate required parameters IF lv_object_name IS INITIAL. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = 'Missing required parameter: objectName' iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = et_messages ). zcl_sapfever_mcp_util=>create_response( EXPORTING iv_success = abap_false iv_error = 'Missing required parameter: objectName' CHANGING et_result = et_result ). RETURN. ENDIF. IF lv_source_code IS INITIAL. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = 'Missing required parameter: sourceCode' iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = et_messages ). zcl_sapfever_mcp_util=>create_response( EXPORTING iv_success = abap_false iv_error = 'Missing required parameter: sourceCode' CHANGING et_result = et_result ). RETURN. ENDIF. " Normalize inputs TRANSLATE lv_object_name TO UPPER CASE. TRANSLATE lv_object_type TO UPPER CASE. " Auto-detect object type if not provided IF lv_object_type IS INITIAL. IF lv_object_name CP 'ZCL_*' OR lv_object_name CP 'YCL_*' OR lv_object_name CP 'CL_*'. lv_object_type = 'CLAS'. ELSEIF lv_object_name CP 'ZIF_*' OR lv_object_name CP 'YIF_*' OR lv_object_name CP 'IF_*'. lv_object_type = 'INTF'. ELSEIF lv_object_name CP 'ZFG_*' OR lv_object_name CP 'YFG_*'. lv_object_type = 'FUGR'. ELSE. lv_object_type = 'PROG'. ENDIF. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Auto-detected object type: { lv_object_type }| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = et_messages ). ENDIF. " Set default development class if not provided IF lv_dev_class IS INITIAL. lv_dev_class = '$TMP'. ENDIF. " Basic object name validation IF lv_object_type = 'PROG'. " Programs should be valid ABAP names IF lv_object_name CN 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_'. lv_error_message = |Invalid object name { lv_object_name } for type { lv_object_type }|. ENDIF. ENDIF. IF lv_error_message IS NOT INITIAL. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = lv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = et_messages ). zcl_sapfever_mcp_util=>create_response( EXPORTING iv_success = abap_false iv_error = lv_error_message CHANGING et_result = et_result ). RETURN. ENDIF. " Log deployment start zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Starting deployment: { lv_object_type } { lv_object_name } to { lv_dev_class }| iv_type = zcl_sapfever_mcp_util=>gc_info CHANGING et_messages = et_messages ). " Deploy based on object type TRY. CASE lv_object_type. WHEN 'PROG' OR 'REPORT'. " Deploy program lv_prog_name = lv_object_name. " Split source code into lines (handle different line endings) REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lv_source_code WITH cl_abap_char_utilities=>newline. SPLIT lv_source_code AT cl_abap_char_utilities=>newline INTO TABLE lt_source_lines. " Insert the program into the repository INSERT REPORT lv_prog_name FROM lt_source_lines. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Program { lv_object_name } deployed successfully| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = et_messages ). " Attempt syntax check and activation DATA: lv_error_line TYPE i, lv_error_word TYPE string, lv_error_offset TYPE i. SYNTAX-CHECK FOR lt_source_lines MESSAGE lv_error_message LINE lv_error_line WORD lv_error_word OFFSET lv_error_offset. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Program { lv_object_name } syntax check passed| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = et_messages ). ELSE. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Syntax warning for { lv_object_name } at line { lv_error_line }, word '{ lv_error_word }' at offset { lv_error_offset }: { lv_error_message }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = et_messages ). ENDIF. ELSE. lv_error_message = |Failed to deploy program { lv_object_name }, sy-subrc={ sy-subrc }|. ENDIF. WHEN 'CLAS'. " Deploy class using SEO function modules PERFORM deploy_class USING lv_object_name lv_source_code lv_dev_class CHANGING lv_error_message et_messages. WHEN 'INTF'. " Deploy interface using abapGit approach with proper SEO creation PERFORM deploy_interface USING lv_object_name lv_source_code lv_dev_class CHANGING lv_error_message et_messages. WHEN OTHERS. lv_error_message = |Object type { lv_object_type } not yet supported for deployment|. ENDCASE. " Check for deployment errors IF lv_error_message IS NOT INITIAL. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = lv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = et_messages ). zcl_sapfever_mcp_util=>create_response( EXPORTING iv_success = abap_false iv_error = lv_error_message CHANGING et_result = et_result ). RETURN. ENDIF. " Success - build response zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Deployment completed successfully for { lv_object_name }| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = et_messages ). " Add JSON-formatted result message for structured response compatibility DATA(lv_result_json) = |\{"success": true, |. lv_result_json = lv_result_json && |"message": "{ lv_object_type } { lv_object_name } deployed and activated successfully in { lv_dev_class }", |. lv_result_json = lv_result_json && |"object_type": "{ lv_object_type }", |. lv_result_json = lv_result_json && |"object_name": "{ lv_object_name }", |. lv_result_json = lv_result_json && |"dev_class": "{ lv_dev_class }"\}|. APPEND VALUE #( name = 'RESULT' value = lv_result_json ) TO et_result. CATCH cx_root INTO DATA(lx_error). DATA(lv_exception_msg) = |Deployment failed with exception: { lx_error->get_text( ) }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = lv_exception_msg iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = et_messages ). zcl_sapfever_mcp_util=>create_response( EXPORTING iv_success = abap_false iv_error = lv_exception_msg CHANGING et_result = et_result ). ENDTRY. ENDFORM. *&---------------------------------------------------------------------* *& Form DEPLOY_CLASS *&---------------------------------------------------------------------* * Deploy a class using SEO function modules *----------------------------------------------------------------------* FORM deploy_class USING iv_class_name TYPE string iv_source_code TYPE string iv_dev_class TYPE string CHANGING cv_error_message TYPE string ct_messages TYPE bapiret2_t. DATA: ls_vseoclass TYPE vseoclass, ls_clskey TYPE seoclskey, lv_clsname TYPE seoclsname, lv_devclass TYPE devclass, lv_version TYPE seoversion, lv_overwrite TYPE seox_boolean, lv_suppress_dialog TYPE seox_boolean, lt_source_lines TYPE string_table, lt_public_source TYPE seop_source_string, lt_protected_source TYPE seop_source_string, lt_private_source TYPE seop_source_string, lt_local_defs TYPE seop_source_string, lt_local_impl TYPE seop_source_string, lt_test_classes TYPE seop_source_string, lv_program TYPE progname, lv_line TYPE string. " Convert class name and dev class to proper types lv_clsname = iv_class_name. lv_devclass = iv_dev_class. lv_version = seoc_version_active. " Use active version like abapGit lv_overwrite = seox_true. lv_suppress_dialog = seox_true. " Convert source code to proper format for abapGit scanner approach REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN iv_source_code WITH cl_abap_char_utilities=>newline. SPLIT iv_source_code AT cl_abap_char_utilities=>newline INTO TABLE lt_source_lines. " Parse class properties for vseoclass structure (basic parsing for class creation) LOOP AT lt_source_lines INTO lv_line. DATA(lv_line_upper) = to_upper( lv_line ). " Check for CLASS definition start to extract basic properties IF lv_line_upper CP 'CLASS * DEFINITION*'. ls_vseoclass-clsname = lv_clsname. ls_vseoclass-version = '1'. ls_vseoclass-langu = sy-langu. ls_vseoclass-descript = |Class { iv_class_name }|. ls_vseoclass-state = '1'. ls_vseoclass-clsccincl = abap_true. ls_vseoclass-unicode = abap_true. ls_vseoclass-fixpt = abap_true. " Enable fixed-point arithmetic for modern ABAP features " Check for class properties IF lv_line_upper CS 'FINAL'. ls_vseoclass-clsfinal = abap_true. ENDIF. IF lv_line_upper CS 'ABSTRACT'. ls_vseoclass-clsabstrct = abap_true. ENDIF. EXIT. " Found class definition, stop parsing ENDIF. ENDLOOP. " Set up class key ls_clskey-clsname = lv_clsname. TRY. " Create the class using SEO function module CALL FUNCTION 'SEO_CLASS_CREATE_COMPLETE' EXPORTING devclass = lv_devclass overwrite = lv_overwrite suppress_dialog = lv_suppress_dialog version = lv_version CHANGING class = ls_vseoclass EXCEPTIONS existing = 1 is_interface = 2 db_error = 3 component_error = 4 no_access = 5 other = 6 OTHERS = 7. IF sy-subrc <> 0. " Get detailed SAP error message DATA(lv_sap_message) = COND string( WHEN sy-msgid IS NOT INITIAL THEN |{ sy-msgid }{ sy-msgno }({ sy-msgty }): { sy-msgv1 } { sy-msgv2 } { sy-msgv3 } { sy-msgv4 }| ELSE SWITCH #( sy-subrc WHEN 1 THEN 'Class already exists' WHEN 2 THEN 'Object is an interface' WHEN 3 THEN 'Database error' WHEN 4 THEN 'Component error' WHEN 5 THEN 'No access' WHEN 6 THEN 'Other error' ELSE 'Unknown error' ) ). cv_error_message = |Failed to create class { iv_class_name }: { lv_sap_message }|. " Add detailed message to log zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |SAP Error: { lv_sap_message }| iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). " Add system fields for debugging zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |System fields: SUBRC={ sy-subrc }, MSGID={ sy-msgid }, MSGNO={ sy-msgno }, MSGTY={ sy-msgty }| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). RETURN. ENDIF. " Now deploy source following abapGit approach - use scanner and proper source handling CALL FUNCTION 'SEO_BUFFER_INIT'. CALL FUNCTION 'SEO_BUFFER_REFRESH' EXPORTING cifkey = ls_clskey version = seoc_version_inactive. " Use abapGit approach with cl_oo_source_scanner_class DATA: lo_scanner TYPE REF TO cl_oo_source_scanner_class, lt_methods TYPE cl_oo_source_scanner_class=>type_method_implementations, lv_method LIKE LINE OF lt_methods, lv_updated TYPE abap_bool, lt_source_section TYPE seop_source_string, lt_old_source TYPE string_table. TRY. " Create and initialize the class scanner following abapGit approach lo_scanner = cl_oo_source_scanner_class=>create_class_scanner( clif_name = lv_clsname source = lt_source_lines ). lo_scanner->scan( ). " Deploy public section lt_source_section = lo_scanner->get_public_section_source( ). IF lt_source_section IS NOT INITIAL. lv_program = cl_oo_classname_service=>get_pubsec_name( lv_clsname ). " Read existing report first (abapGit pattern) READ REPORT lv_program INTO lt_old_source. IF sy-subrc = 0. " Compare and update only if different IF lt_old_source <> lt_source_section. INSERT REPORT lv_program FROM lt_source_section. IF sy-subrc = 0. lv_updated = abap_true. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Public section updated ({ lines( lt_source_section ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ELSE. cv_error_message = |Failed to update public section, sy-subrc={ sy-subrc }|. RETURN. ENDIF. ENDIF. ELSE. " Include should exist after SEO_CLASS_CREATE_COMPLETE cv_error_message = |Public section include { lv_program } not found after class creation|. RETURN. ENDIF. ENDIF. " Deploy protected section lt_source_section = lo_scanner->get_protected_section_source( ). IF lt_source_section IS NOT INITIAL. lv_program = cl_oo_classname_service=>get_prosec_name( lv_clsname ). READ REPORT lv_program INTO lt_old_source. IF sy-subrc = 0. IF lt_old_source <> lt_source_section. INSERT REPORT lv_program FROM lt_source_section. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Protected section updated ({ lines( lt_source_section ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ELSE. cv_error_message = |Failed to update protected section, sy-subrc={ sy-subrc }|. RETURN. ENDIF. ENDIF. ELSE. cv_error_message = |Protected section include { lv_program } not found after class creation|. RETURN. ENDIF. ENDIF. " Deploy private section lt_source_section = lo_scanner->get_private_section_source( ). IF lt_source_section IS NOT INITIAL. lv_program = cl_oo_classname_service=>get_prisec_name( lv_clsname ). READ REPORT lv_program INTO lt_old_source. IF sy-subrc = 0. IF lt_old_source <> lt_source_section. INSERT REPORT lv_program FROM lt_source_section. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Private section updated ({ lines( lt_source_section ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ELSE. cv_error_message = |Failed to update private section, sy-subrc={ sy-subrc }|. RETURN. ENDIF. ENDIF. ELSE. cv_error_message = |Private section include { lv_program } not found after class creation|. RETURN. ENDIF. ENDIF. " Deploy method implementations following abapGit approach lt_methods = lo_scanner->get_method_implementations( ). LOOP AT lt_methods INTO lv_method. TRY. " Get the method implementation source lt_source_section = lo_scanner->get_method_impl_source( lv_method ). " Determine/generate the method include following abapGit pattern DATA: ls_mtdkey TYPE seocpdkey. ls_mtdkey-clsname = lv_clsname. ls_mtdkey-cpdname = lv_method. " Try to get existing method include CALL METHOD cl_oo_classname_service=>get_method_include EXPORTING mtdkey = ls_mtdkey RECEIVING result = lv_program EXCEPTIONS method_not_existing = 1. IF sy-subrc <> 0. " Generate method include if it doesn't exist CALL FUNCTION 'SEO_METHOD_GENERATE_INCLUDE' EXPORTING suppress_mtdkey_check = abap_true mtdkey = ls_mtdkey EXCEPTIONS not_existing = 1 model_only = 2 include_existing = 3 method_imp_not_generated = 4 method_imp_not_initialised = 5 _internal_class_not_existing = 6 _internal_method_overflow = 7 cancelled = 8 method_is_abstract_implemented = 9 method_is_final_implemented = 10 internal_error_insert_report = 11 OTHERS = 12. IF sy-subrc = 0. " Get the generated include name lv_program = cl_oo_classname_service=>get_method_include( ls_mtdkey ). ELSE. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Failed to generate include for method { lv_method }, sy-subrc={ sy-subrc }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). CONTINUE. ENDIF. ENDIF. " Update the method include with its implementation (abapGit update_report pattern) READ REPORT lv_program INTO lt_old_source. IF sy-subrc = 0. IF lt_old_source <> lt_source_section. INSERT REPORT lv_program FROM lt_source_section. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Method { lv_method } implementation updated ({ lines( lt_source_section ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ELSE. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Failed to update method { lv_method } implementation, sy-subrc={ sy-subrc }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDIF. ENDIF. ELSE. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Method include { lv_program } not found for method { lv_method }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDIF. CATCH cx_oo_clif_component. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Warning: Could not get implementation for method { lv_method }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDTRY. ENDLOOP. " Create/update the full class include (CS) following abapGit approach lv_program = cl_oo_classname_service=>get_cs_name( lv_clsname ). INSERT REPORT lv_program FROM lt_source_lines EXTENSION TYPE 'CS' STATE 'A' PROGRAM TYPE 'I'. IF sy-subrc = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Full class source (CS) updated with complete source ({ lines( lt_source_lines ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ELSE. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Warning: Failed to update full class source (CS), sy-subrc={ sy-subrc }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDIF. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Class { iv_class_name } source deployed using abapGit scanner approach| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = ct_messages ). CATCH cx_clif_scan_error INTO DATA(lx_scan_error). cv_error_message = |Class scanner error: { lx_scan_error->get_text( ) }|. RETURN. ENDTRY. " Activate the class and check for activation errors DATA: lo_checklist_class TYPE REF TO cl_wb_checklist, lt_objects_class TYPE TABLE OF dwinactiv, ls_object_class TYPE dwinactiv, lt_error_messages_class TYPE swbme_error_tab, lv_activation_success_class TYPE abap_bool VALUE abap_true. " Prepare object for activation ls_object_class-object = 'CLAS'. ls_object_class-obj_name = iv_class_name. APPEND ls_object_class TO lt_objects_class. " Activate the class using RS_WORKING_OBJECTS_ACTIVATE " Wrap in try-catch to handle dialog-related exceptions gracefully TRY. CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE' EXPORTING with_popup = abap_false ui_decoupled = abap_true suppress_syntax_check = abap_false suppress_generation = abap_false suppress_corr_insert = abap_true IMPORTING p_checklist = lo_checklist_class TABLES objects = lt_objects_class EXCEPTIONS excecution_error = 1 cancelled = 2 insert_into_corr_error = 3 OTHERS = 4. CATCH cx_root INTO DATA(lx_activation_error_class). " Handle activation exceptions gracefully lv_activation_success_class = abap_false. cv_error_message = |Class activation exception: { lx_activation_error_class->get_text( ) }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDTRY. " Check activation result and get error messages IF sy-subrc <> 0. lv_activation_success_class = abap_false. cv_error_message = |Activation failed for class { iv_class_name }, sy-subrc={ sy-subrc }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDIF. " Get activation error messages if checklist is available IF lo_checklist_class IS BOUND. lo_checklist_class->get_error_messages( IMPORTING p_error_tab = lt_error_messages_class ). " Process detailed error messages LOOP AT lt_error_messages_class INTO DATA(ls_error_message_class) WHERE mtype = 'E'. lv_activation_success_class = abap_false. " Process all error message text lines with enhanced context LOOP AT ls_error_message_class-mtext INTO DATA(lv_error_text_class). zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Class Activation Error in { iv_class_name }: { lv_error_text_class }| iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDLOOP. ENDLOOP. " Also capture warnings with detailed context LOOP AT lt_error_messages_class INTO ls_error_message_class WHERE mtype = 'W'. LOOP AT ls_error_message_class-mtext INTO lv_error_text_class. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Class Activation Warning in { iv_class_name }: { lv_error_text_class }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDLOOP. ENDLOOP. ENDIF. " If activation failed but no detailed errors from checklist, provide guidance IF lv_activation_success_class = abap_false AND lines( lt_error_messages_class ) = 0. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Class { iv_class_name } activation failed - check class definition syntax, method implementations, and type references| iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDIF. " Report final status IF lv_activation_success_class = abap_true. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Class { iv_class_name } deployed and activated successfully| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = ct_messages ). ELSE. IF cv_error_message IS INITIAL. cv_error_message = |Class { iv_class_name } deployed but activation failed with syntax errors|. ENDIF. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDIF. CATCH cx_root INTO DATA(lx_error). cv_error_message = |Failed to deploy class { iv_class_name }: { lx_error->get_text( ) }|. ENDTRY. ENDFORM. *&---------------------------------------------------------------------* *& Form DEPLOY_INTERFACE *&---------------------------------------------------------------------* * Deploy an interface using abapGit approach with SEO and scanner *----------------------------------------------------------------------* FORM deploy_interface USING iv_interface_name TYPE string iv_source_code TYPE string iv_dev_class TYPE string CHANGING cv_error_message TYPE string ct_messages TYPE bapiret2_t. DATA: ls_vseointerface TYPE vseointerf, ls_intkey TYPE seoclskey, lv_intfname TYPE seoclsname, lv_devclass TYPE devclass, lv_overwrite TYPE seox_boolean, lt_source_lines TYPE seop_source_string, lv_program TYPE progname, lv_updated TYPE abap_bool. " Convert interface name and dev class to proper types lv_intfname = iv_interface_name. lv_devclass = iv_dev_class. lv_overwrite = seox_true. " Set up interface key ls_intkey-clsname = lv_intfname. " Parse interface properties following abapGit pattern ls_vseointerface-clsname = lv_intfname. ls_vseointerface-version = '1'. ls_vseointerface-langu = sy-langu. ls_vseointerface-descript = |Interface { iv_interface_name }|. ls_vseointerface-exposure = '2'. " Public exposure ls_vseointerface-state = '1'. " Implemented state ls_vseointerface-unicode = abap_true. " Create the interface using SEO function module CALL FUNCTION 'SEO_INTERFACE_CREATE_COMPLETE' EXPORTING devclass = lv_devclass overwrite = lv_overwrite CHANGING interface = ls_vseointerface EXCEPTIONS existing = 1 is_class = 2 db_error = 3 component_error = 4 no_access = 5 other = 6 OTHERS = 7. IF sy-subrc <> 0. " Get detailed SAP error message DATA(lv_sap_message) = COND string( WHEN sy-msgid IS NOT INITIAL THEN |{ sy-msgid }{ sy-msgno }({ sy-msgty }): { sy-msgv1 } { sy-msgv2 } { sy-msgv3 } { sy-msgv4 }| ELSE SWITCH #( sy-subrc WHEN 1 THEN 'Interface already exists' WHEN 2 THEN 'Object is a class' WHEN 3 THEN 'Database error' WHEN 4 THEN 'Component error' WHEN 5 THEN 'No access' WHEN 6 THEN 'Other error' ELSE 'Unknown error' ) ). cv_error_message = |Failed to create interface { iv_interface_name }: { lv_sap_message }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |SAP Error: { lv_sap_message }| iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). RETURN. ENDIF. " Now deploy source following abapGit approach - use buffer refresh and proper source handling CALL FUNCTION 'SEO_BUFFER_INIT'. CALL FUNCTION 'SEO_BUFFER_REFRESH' EXPORTING cifkey = ls_intkey version = seoc_version_inactive. " Convert source to proper format and use scanner approach like abapGit DATA: lo_scanner TYPE REF TO cl_oo_source_scanner_interface, lt_source_string TYPE string_table, lt_interface_source TYPE seop_source_string. REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN iv_source_code WITH cl_abap_char_utilities=>newline. SPLIT iv_source_code AT cl_abap_char_utilities=>newline INTO TABLE lt_source_string. " Create and initialize the interface scanner following abapGit approach TRY. lo_scanner = cl_oo_source_scanner_interface=>create_interface_scanner( clif_name = lv_intfname source = lt_source_string ). lo_scanner->scan( ). " Get the parsed interface section source lt_interface_source = lo_scanner->get_interface_section_source( ). IF lines( lt_interface_source ) > 0. " Get the proper interface include name using abapGit approach lv_program = cl_oo_classname_service=>get_intfsec_name( lv_intfname ). " Update the interface source using abapGit pattern DATA: lt_old_source TYPE string_table. READ REPORT lv_program INTO lt_old_source. " Convert seop_source_string to string_table for comparison DATA: lt_new_source TYPE string_table. LOOP AT lt_interface_source INTO DATA(lv_source_line). APPEND lv_source_line TO lt_new_source. ENDLOOP. " Only update if source is different (abapGit approach) IF lt_old_source <> lt_new_source. INSERT REPORT lv_program FROM lt_new_source. IF sy-subrc <> 0. cv_error_message = |Failed to update interface source for program { lv_program }|. RETURN. ENDIF. lv_updated = abap_true. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Interface source updated in { lv_program } ({ lines( lt_interface_source ) } lines)| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). ENDIF. ELSE. cv_error_message = |No interface content found after scanning source|. RETURN. ENDIF. CATCH cx_clif_scan_error INTO DATA(lx_scan_error). cv_error_message = |Interface scanner error: { lx_scan_error->get_text( ) }|. RETURN. ENDTRY. " Activate the interface and check for activation errors DATA: lo_checklist TYPE REF TO cl_wb_checklist, lt_objects TYPE TABLE OF dwinactiv, ls_object TYPE dwinactiv, lt_error_messages TYPE swbme_error_tab, lv_activation_success TYPE abap_bool VALUE abap_true. " Prepare object for activation ls_object-object = 'INTF'. ls_object-obj_name = iv_interface_name. APPEND ls_object TO lt_objects. " Activate the interface using RS_WORKING_OBJECTS_ACTIVATE (plural) " Wrap in try-catch to handle dialog-related exceptions gracefully TRY. CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE' EXPORTING with_popup = abap_false ui_decoupled = abap_true suppress_syntax_check = abap_false suppress_generation = abap_false suppress_corr_insert = abap_true IMPORTING p_checklist = lo_checklist TABLES objects = lt_objects EXCEPTIONS excecution_error = 1 cancelled = 2 insert_into_corr_error = 3 OTHERS = 4. CATCH cx_root INTO DATA(lx_activation_error). " Handle activation exceptions gracefully lv_activation_success = abap_false. cv_error_message = |Activation exception: { lx_activation_error->get_text( ) }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDTRY. " Check activation result and get error messages IF sy-subrc <> 0. lv_activation_success = abap_false. cv_error_message = |Activation failed for interface { iv_interface_name }, sy-subrc={ sy-subrc }|. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDIF. " Get activation error messages if checklist is available IF lo_checklist IS BOUND. lo_checklist->get_error_messages( IMPORTING p_error_tab = lt_error_messages ). LOOP AT lt_error_messages INTO DATA(ls_error_message) WHERE mtype = 'E'. lv_activation_success = abap_false. LOOP AT ls_error_message-mtext INTO DATA(lv_error_text). zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Activation Error: { lv_error_text }| iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDLOOP. ENDLOOP. " Also capture warnings LOOP AT lt_error_messages INTO ls_error_message WHERE mtype = 'W'. LOOP AT ls_error_message-mtext INTO lv_error_text. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Activation Warning: { lv_error_text }| iv_type = zcl_sapfever_mcp_util=>gc_warning CHANGING et_messages = ct_messages ). ENDLOOP. ENDLOOP. ENDIF. " Report final status IF lv_activation_success = abap_true. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Interface { iv_interface_name } deployed and activated successfully| iv_type = zcl_sapfever_mcp_util=>gc_success CHANGING et_messages = ct_messages ). ELSE. IF cv_error_message IS INITIAL. cv_error_message = |Interface { iv_interface_name } deployed but activation failed with syntax errors|. ENDIF. zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = cv_error_message iv_type = zcl_sapfever_mcp_util=>gc_error CHANGING et_messages = ct_messages ). ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form UPDATE_INTERFACE_META *&---------------------------------------------------------------------* * Update interface metadata following abapGit approach *----------------------------------------------------------------------* FORM update_interface_meta USING iv_interface_name TYPE seoclsname it_source TYPE seop_source_string CHANGING cv_error_message TYPE string ct_messages TYPE bapiret2_t. DATA: lo_update TYPE REF TO cl_oo_interface_section_source, ls_intkey TYPE seoclskey. ls_intkey-clsname = iv_interface_name. TRY. " Refresh buffer first CALL FUNCTION 'SEO_BUFFER_REFRESH' EXPORTING cifkey = ls_intkey version = seoc_version_active. " Create interface section source object to update metadata CREATE OBJECT lo_update TYPE cl_oo_interface_section_source EXPORTING intkey = ls_intkey state = 'A' source = it_source EXCEPTIONS interface_not_existing = 1 read_source_error = 2 OTHERS = 3. IF sy-subrc <> 0. cv_error_message = |Failed to create interface section source, sy-subrc={ sy-subrc }|. RETURN. ENDIF. " This updates the SEO* database tables lo_update->revert_scan_result( ). zcl_sapfever_mcp_util=>add_message( EXPORTING iv_message = |Interface metadata updated successfully| iv_type = zcl_sapfever_mcp_util=>gc_trace CHANGING et_messages = ct_messages ). CATCH cx_sy_create_object_error INTO DATA(lx_create_error). cv_error_message = |Failed to create interface section source object: { lx_create_error->get_text( ) }|. CATCH cx_root INTO DATA(lx_error). cv_error_message = |Error updating interface metadata: { lx_error->get_text( ) }|. ENDTRY. ENDFORM.

deploy_source

Related Tools

get_source