&---------------------------------------------------------------------
*& Report ZSAP_BASIS_MONITOR
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------
REPORT ZSAP_BASIS_MONITOR.
-
global
DATA: gt_message LIKE TABLE OF zreport WITH HEADER LINE,
lv_message TYPE char100,
lv_user_cnt TYPE sy-dbcnt,
lv_typem03_cnt TYPE sy-dbcnt,
lv_typem05_cnt TYPE sy-dbcnt,
lv_typem06_cnt TYPE sy-dbcnt,
lv_status_cnt TYPE sy-dbcnt,
lv_reason_cnt TYPE sy-dbcnt,
lv_st22_cnt TYPE sy-dbcnt,
i_to_string TYPE string,
s_to_int TYPE i. -
mail
-
DATA:
-
lt_content TYPE soli_tab,
-
lv_mail TYPE string,
-
lwa_ret TYPE bapireturn.
-
sms
DATA:
lc_sms_sap TYPE REF TO zytsmsco_smsapi, "接口名称
lwa_input TYPE zytsmssend_sms, "方法传入参数
lwa_output TYPE zytsmssend_smsresponse. "方法传出参数
DATA: l_obj_system TYPE REF TO cx_ai_system_fault,
l_error_system TYPE string.
DATA: l_obj_appl TYPE REF TO cx_ai_application_fault,
l_error_appl TYPE string,
lc_exc_ref2 TYPE REF TO cx_ai_system_fault,
lv_error_text TYPE string. -
SM66
DATA: gt_list LIKE TABLE OF abaplist WITH HEADER LINE,
gt_zreport LIKE TABLE OF zreport WITH HEADER LINE.
DATA:
BEGIN OF gh_sm66_list,
name TYPE char100," 名称
wpno TYPE char100,"工作处理号
type TYPE char100,"类型处理
pid TYPE char100,"PID
status TYPE char100,"状态
reason TYPE char100,"stopped或者debug
sem TYPE char100,"信号号码
start TYPE char100,"是否启动
error TYPE char100,"报错数量
cpu TYPE char100,"CPU
time TYPE char100,"执行时间
user TYPE char100,"用户
report TYPE char100,"报告
action TYPE char100,"动作
table TYPE char100,"表
END OF gh_sm66_list,
gt_sm66_list LIKE STANDARD TABLE OF gh_sm66_list.
-
ST22
DATA:
BEGIN OF wa_m08,
st22_user TYPE snap_beg-uname, "ST22对应的user name
dump_cnt TYPE SY-DBCNT,
END OF wa_m08.
DATA itabm08 LIKE TABLE OF wa_m08 WITH HEADER LINE. -
SM37
DATA:
BEGIN OF wa_m12,
jobname TYPE TBTCO-JOBNAME,
jobcount TYPE TBTCO-JOBCOUNT,
END OF wa_m12.
DATA itabm12 LIKE TABLE OF wa_m12 WITH HEADER LINE.
-------------------------------------------------------------------- -
START-OF-SELECTION.
--------------------------------------------------------------------
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS:
- SM66 begin
M02_NO TYPE I DEFAULT 20, " 用户work process阀值
M03_NO TYPE I DEFAULT 10, " UPD&UPD2总共work process阀值
M04_NO TYPE I DEFAULT 5, " PRIV总共work process阀值
M05_NO TYPE I DEFAULT 30, " BTC总共work process阀值
M06_NO TYPE I DEFAULT 10, " 用户BTC work process阀值
M07_NO TYPE I DEFAULT 5, " Stopped&Debuged work process阀值
WT_SM66 AS CHECKBOX DEFAULT ‘X’, " 监控只在工作时间生效 - SM66 end
M08_NO TYPE I DEFAULT 100, "ST22 一天内用户short dumps阀值
M09_NO1 TYPE I DEFAULT 50, M09_NO2 TYPE I DEFAULT 5, "ST22 几分钟内short dumps阀值
WT_ST22 AS CHECKBOX DEFAULT ‘X’, " 监控只在工作时间生效
M10_NO TYPE I DEFAULT 20, "SMLG 实例Resp.time(ms)阀值
M11_NO TYPE I DEFAULT 10, "SMLG 实例用户登录数阀值
WT_SM37 AS CHE