一个计算SQL语句在HANA数据库执行花费的DB和CPU时间的统计工具

class ZCL_HANA_DB_CPU_TIME_TOOL definition
  public
  final
  create public .
public section.
  class-methods CLASS_CONSTRUCTOR .
  class-methods GET_CURRENT_TIME
    returning
      value(RV_TIME) type DECFLOAT34 .
protected section.
private section.
  class-data SO_CONNECTION type ref to CL_SQL_CONNECTION .
  class-data SV_STATEMENT type STRING .
  TYPES: BEGIN OF typ_s_hostcpu,
           host TYPE char100,
           cpu  TYPE decfloat34,
         END OF typ_s_hostcpu,
         typ_t_hostcpu TYPE STANDARD TABLE OF typ_s_hostcpu WITH DEFAULT KEY.
ENDCLASS.
CLASS ZCL_HANA_DB_CPU_TIME_TOOL IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_HANA_DB_CPU_TIME_TOOL=>CLASS_CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method CLASS_CONSTRUCTOR.
    so_connection = cl_sql_connection=>get_connection(  ).
    sv_statement = 'select host, sum(process_cpu_time) from m_service_statistics where service_name = ''indexserver'' and detail <> ''standby'' group by host order by host'.
  endmethod.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_HANA_DB_CPU_TIME_TOOL=>GET_CURRENT_TIME
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RV_TIME                        TYPE        DECFLOAT34
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method GET_CURRENT_TIME.
    data: lt_hostcpu       TYPE typ_t_hostcpu,
          lr_data TYPE REF to data.
    TRY.
      DATA(r_stmt) = so_connection->create_statement( ).
      DATA(r_res) = r_stmt->execute_query( sv_statement ).
      GET REFERENCE OF lt_hostcpu[] INTO lr_data.
      r_res->set_param_table( lr_data ).
      r_res->next_package( ).
      r_res->close( ).
      READ TABLE lt_hostcpu ASSIGNING FIELD-SYMBOL(<cpu>) index 1.
      check sy-subrc = 0.
      rv_time = <cpu>-cpu.
    CATCH cx_root INTO DATA(cx_root).
      WRITE:/ cx_root->get_text( ).
      RETURN.
  ENDTRY.
  endmethod.
ENDCLASS.