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.
要获取更多Jerry的原创文章，请关注公众号"汪子熙":
