在財務月結，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.