ABAP动态编程-动态调用子例程&方法及动态SQL

谢图图

已于 2022-02-26 13:19:47 修改

阅读量3k

点赞数 2

分类专栏： ABAP 功能文章标签： sql abap

于 2022-02-25 23:14:17 首次发布

本文链接：https://blog.csdn.net/xiefireworks/article/details/123142767

版权

ABAP 同时被 2 个专栏收录

61 篇文章 13 订阅

订阅专栏

功能

43 篇文章 7 订阅

订阅专栏

前言

本文主要讲述ABAP语言中FORM子例程，方法的动态调用，以及SQL的动态使用（动态OPEN SQL 和 ADBC调用）

一、动态调用

1.1 FORM子例程的动态调用

代码示例：

DATA:lv_formname TYPE string,
     lv_program  TYPE program. 
PERFORM (lv_formname) IN PROGRAM (lv_program) IF FOUND.

PS: ABAP子例程的动态调用不仅可以调用当前主程序及子程序中的FORM，也可以动态指定程序调用，生成的动态子例程就用该方式调用。注意form名称及程序名必须大写。

1.2 ABAP方法动态调用

代码示例：

DATA: lo_object    TYPE REF TO object,
      lv_class     TYPE seoclsname,
      lv_method    TYPE string,
      lt_parameter TYPE abap_parmbind_tab,
      ls_parameter TYPE abap_parmbind,
      lt_exception TYPE abap_excpbind_tab,
      ls_exception TYPE abap_excpbind.

lv_class = 'CL_DEMO_TEXT'.
lv_method = 'DISPLAY_STRING'.

lt_parameter = VALUE #( ( name = 'TEXT_STRING' kind = 'E' value = REF #( `CL_DEMO_TEXT=>DISPLAY_STRING` ) ) ).
lt_exception = VALUE #( ( name = 'OTHERS' value = 9  ) ).

TRY.
    CALL METHOD (lv_class)=>(lv_method) PARAMETER-TABLE lt_parameter EXCEPTION-TABLE lt_exception.
  CATCH cx_root. 
ENDTRY.

展示效果：

PS：示例为静态方法的调用，实例方法需要动态创建对象后调用，使用方式同理，另外function动态调用时参数（参数字段KIND: E,I,C,R 分别对应EXPORTING, IMPORTING, CHANGING, RECEIVING）的处理与方法一致，不再说明。注意类名和方法名需要大写。

二、动态SQL

2.1 动态OPEN SQL语句

代码示例：

DATA: lt_data TYPE TABLE OF t001.

DATA: lv_from  TYPE string,
      lv_field TYPE string,
      lv_where TYPE string.

lv_from   = 'T001'.
lv_field  = 'BUKRS BUTXT'.
lv_where  = `BUKRS = '0001'`.


SELECT (lv_field)
  INTO CORRESPONDING FIELDS OF TABLE lt_data
  FROM (lv_from)
  WHERE (lv_where).

效果：

PS: 使用时注意捕捉异常

2.2 使用ADBC类执行SQL

代码示例：

DATA: lr_result TYPE REF TO data.
DATA: lo_structdescr TYPE REF TO cl_abap_datadescr.

TRY.
    " 需要执行的SQL语句字符串
    DATA(lv_statement) = `SELECT * FROM T001 WHERE BUKRS = '0001'`.
    DATA(lo_db_connection) = cl_sql_connection=>get_connection( cl_sadl_dbcon=>get_default_dbcon( ) ).
    DATA(lo_result) = lo_db_connection->create_statement( )->execute_query( statement = lv_statement ).
    DATA(lt_md_data) = lo_result->get_metadata( ).
    DATA(lr_metadata) = lo_result->get_struct_ref( md_tab = lt_md_data
                                                      p_strict = abap_false ).

    lo_structdescr ?= cl_abap_typedescr=>describe_by_data_ref( lr_metadata ).
    DATA(lo_tabletype)     = cl_abap_tabledescr=>create( p_line_type  = lo_structdescr
                                                  p_table_kind = cl_abap_tabledescr=>tablekind_std ).

    CREATE DATA lr_result TYPE HANDLE lo_tabletype.

*     finally save the result_set in the handled tabletype
    lo_result->set_param_table( itab_ref = lr_result ) .

    lo_result->next_package( ).

    lo_db_connection->close( ).

  CATCH cx_sql_exception.

ENDTRY.

效果：