在财务月结，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'
      EXPORTING
        group_name                     = ' '
      IMPORTING
        max_pbt_wps                    = lv_max
        free_pbt_wps                   = lv_free
      EXCEPTIONS
        invalid_group_name             = 1
        internal_error                 = 2
        pbt_env_already_initialized    = 3
        currently_no_resources_avail   = 4
        no_pbt_resources_found         = 5
        cant_init_different_pbt_groups = 6
        OTHERS                         = 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'
      EXPORTING
        srvname  = 'MSGSERVER'
      TABLES
        intg_tbl = intg_tbl
      EXCEPTIONS
        OTHERS   = 01.


    "刷新每个服务器数据
    LOOP AT intg_tbl WHERE value1 = 7353.
      CALL FUNCTION 'RZL_STRG_DEL'
        EXPORTING
          srvname = intg_tbl-name
          name    = 'FAV_COMPUTE_LGIN'
          typ     = 'C'
        EXCEPTIONS
          OTHERS  = 01.

      CALL FUNCTION 'RZL_SUBMIT'
        DESTINATION intg_tbl-name
        EXPORTING
          repid  = 'RSRZLLG0'
        EXCEPTIONS
          OTHERS = 01.
    ENDLOOP.

    "重新获取最新的数据
    CLEAR intg_tbl[].

    CALL FUNCTION 'RZL_STRG_READALL_I'
      EXPORTING
        srvname  = 'MSGSERVER'
      TABLES
        intg_tbl = intg_tbl
      EXCEPTIONS
        OTHERS   = 01.

    DATA lv_num TYPE i.
    CLEAR lv_num.
    LOOP AT intg_tbl WHERE value1 = 7353.   " AND VALUE5 = 3537.  "Yue
      lv_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                    =
      TABLES
        tf_ccm_data                    = lt_ccm_data
      EXCEPTIONS
        internal_error_adress_failed   = 1
        internal_error_different_field = 2
        internal_error_no_new_line     = 3
        collector_not_running          = 4
        shared_memory_not_available    = 5
        collector_busy                 = 6
        version_conflict               = 7
        no_network_collector_running   = 8
        system_failure                 = 9
        communication_failure          = 10
        OTHERS                         = 11.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    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_UsageUser
      IF 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.