在财务月结，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.