湘潭建设路街道网站哈尔滨有多少家网站建设公司
在财务月结，HR薪资核算等系统用户集中使用高峰时期。通过判断判断当前系统可用的并行对话框进程数，用户使用过多给出提示，服务器进程预警通知。
1. 根据配置的进程最大可使用率80%，根据进程数判断：当进程可用数少于20%，提示报错【初始化服务器组时,或系统进程高负载】
2. 根据配置的服务器响应时间（ms），获取服务器列表最新数据 ，超出最大响应时间，给出报警提示用户 系统响应慢 ，请稍后再试。
3. 根据CPU判断：如当CPU超出80%，提示 报错
FUNCTION zhrfm_judge_work_process.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(GROUP_NAME) TYPE RZLLITAB-CLASSNAME DEFAULT SPACE
*" EXPORTING
*" VALUE(ES_MESG) TYPE ZSHR_MESSAGE
*" REFERENCE(IDLE_CPU) TYPE ALPNEWVALS
*"----------------------------------------------------------------------DATA: ls_pm01 TYPE zthr_pm01.SELECT SINGLE * FROM zthr_pm01 INTO ls_pm01.**************************************************************************************
* 一、根据进程数判断：当进程可用数少于20%，提示报错
**************************************************************************************DATA: lv_max TYPE i,lv_free TYPE i,lv_percent TYPE p DECIMALS 2.IF ls_pm01-proc_switch = 'X'.CALL FUNCTION 'SPBT_INITIALIZE'EXPORTINGgroup_name = ' 'IMPORTINGmax_pbt_wps = lv_maxfree_pbt_wps = lv_freeEXCEPTIONSinvalid_group_name = 1internal_error = 2pbt_env_already_initialized = 3currently_no_resources_avail = 4no_pbt_resources_found = 5cant_init_different_pbt_groups = 6OTHERS = 7.IF sy-subrc = 4.es_mesg-msgty = 'E'.es_mesg-msgtx = '当前查询人员过多，初始化服务器组时出现错误，请稍后再试！'.RETURN.ENDIF.IF lv_max NE 0.lv_percent = ( lv_free / lv_max ) * 100.IF lv_percent LT ( 100 - ls_pm01-proc_num ).es_mesg-msgty = 'E'.es_mesg-msgtx = '当前查询人员过多，系统进程高负载，请稍后再试！'.RETURN.ENDIF.ENDIF.ENDIF.**************************************************************************************
* 一、根据进程数判断：当进程可用数少于20%，提示报错
**************************************************************************************DATA intg_tbl TYPE TABLE OF salstintg WITH HEADER LINE.DATA intg_tbl_pi TYPE TABLE OF salstintg WITH HEADER LINE.DATA:intg_tbl_mail TYPE TABLE OF salstintg WITH HEADER LINE.DATA :g_max_time TYPE int4, "报警响应时间lv_sum_time TYPE int4.CLEAR intg_tbl_mail[].IF ls_pm01-response_switch = 'X'.g_max_time = ls_pm01-response_time."报警响应时间"获取服务器列表CALL FUNCTION 'RZL_STRG_READALL_I'EXPORTINGsrvname = 'MSGSERVER'TABLESintg_tbl = intg_tblEXCEPTIONSOTHERS = 01."刷新每个服务器数据LOOP AT intg_tbl WHERE value1 = 7353.CALL FUNCTION 'RZL_STRG_DEL'EXPORTINGsrvname = intg_tbl-namename = 'FAV_COMPUTE_LGIN'typ = 'C'EXCEPTIONSOTHERS = 01.CALL FUNCTION 'RZL_SUBMIT'DESTINATION intg_tbl-nameEXPORTINGrepid = 'RSRZLLG0'EXCEPTIONSOTHERS = 01.ENDLOOP."重新获取最新的数据CLEAR intg_tbl[].CALL FUNCTION 'RZL_STRG_READALL_I'EXPORTINGsrvname = 'MSGSERVER'TABLESintg_tbl = intg_tblEXCEPTIONSOTHERS = 01.DATA lv_num TYPE i.CLEAR lv_num.LOOP AT intg_tbl WHERE value1 = 7353. " AND VALUE5 = 3537. "Yuelv_sum_time = lv_sum_time + intg_tbl-value2.IF intg_tbl-value2 GE '1000'.lv_num = lv_num + 1.ENDIF.ENDLOOP.IF lv_sum_time > g_max_time.es_mesg-msgty = 'E'.es_mesg-msgtx = '当前查询人员过多，系统响应慢，请稍后再试！'.RETURN.ENDIF.IF lv_num GE '3'.es_mesg-msgty = 'E'.es_mesg-msgtx = '当前查询人员过多，系统响应慢，请稍后再试！'.RETURN.ENDIF.ENDIF.**************************************************************************************
* 三、根据CPU判断：当CPU少于50%、80%，提示 报错
**************************************************************************************
* DATA: lv_max TYPE i,
* lv_free TYPE i,
* lv_percent TYPE p DECIMALS 2.IF ls_pm01-proc_switch = 'X'.* CALL FUNCTION 'GET_CPU_ALL'.DATA lt_ccm_data TYPE TABLE OF ccm_data.DATA ls_ccm_data TYPE ccm_data.DATA lv_dest_logical TYPE rfcdes-rfcdest.CONCATENATE sy-host '_' sy-sysid '_00'INTO lv_dest_logical. "ehr01-m-szzb SY-PAUTH* lv_dest_logical = sy-title+4(19).CALL FUNCTION 'GET_CCM_DATA'EXPORTING
* LOCAL_REMOTE = 'LOCAL'logical_destination = lv_dest_logical " ehr01-m-szzb_RP1_00
* IMPORTING
* F_CCM_DATA_READ =
* ACTIVEFLAG =
* INTERVAL =
* DETAILSCOLL =
* DETAILSREQI =
* DETAILSMODE =
* LASTCOLLWRT =
* LASTCOLLINT =
* NORMCOLLINT =TABLEStf_ccm_data = lt_ccm_dataEXCEPTIONSinternal_error_adress_failed = 1internal_error_different_field = 2internal_error_no_new_line = 3collector_not_running = 4shared_memory_not_available = 5collector_busy = 6version_conflict = 7no_network_collector_running = 8system_failure = 9communication_failure = 10OTHERS = 11.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF lt_ccm_data[] IS NOT INITIAL.CLEAR ls_ccm_data.READ TABLE lt_ccm_data INTO ls_ccm_data WITH KEY objectname = 'CPU' attributename = 'Idle' mteclass = 'CPU_Idle'. " CPU_UsageUserIF sy-subrc = 0.
* DATA lv_idle2(5).
* DATA(lv_idle) = ls_ccm_data-perf_snap_total / ls_ccm_data-perf_snap_number / 10 ** ls_ccm_data-perf_decimals.
* WRITE lv_idle TO lv_idle2 DECIMALS ls_ccm_data-perf_decimals.idle_cpu = ls_ccm_data-perf_snap_total.* IF ls_ccm_data-perf_snap_total LE '50'." AND ls_ccm_data-perf_snap_total GT '20' . " Idle CPU
** idle_cpu = 'A'.
* ENDIF.
* IF ls_ccm_data-perf_snap_total LE '20' . " Idle CPU
* idle_cpu = 'B'.
** es_mesg-msgty = 'E'.
** es_mesg-msgtx = '当前操作人员过多，请稍后再试！'.
* ENDIF.ENDIF.ENDIF.ENDIF.ENDFUNCTION.