FUNCTION Z_GET_PROCESS_INFO.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" EXPORTING
*" REFERENCE(E_FREE_DIA) TYPE I
*" REFERENCE(E_FREE_BG) TYPE I
*"----------------------------------------------------------------------
data: lr_grid TYPE REF TO cl_salv_form_layout_grid,
lr_label TYPE REF TO cl_salv_form_label,
row type i.
data: num_wps type i,
num_dia_wps type i,
num_free_dia_wps type i,
num_upd_wps type i,
num_free_upd_wps type i,
num_enq_wps type i,
num_free_enq_wps type i,
num_btc_wps type i,
num_free_btc_wps type i,
num_spo_wps type i,
num_free_spo_wps type i,
num_upd2_wps type i,
num_free_upd2_wps type i,
num_restricted_wps type i,
num_dynamic_wps type i,
num_dynamic_wps_used type i,
num_configurable_wps type i,
c_number_of_wps(5),
line(100),
loadInfo(80),
c_load1(10),
c_load5(10),
c_load15(10),
load1 type p length 6 decimals 3,
load5 type p length 6 decimals 3,
load15 type p length 6 decimals 3,
load_pc type p length 6 decimals 3,
MYNAME LIKE MSXXLIST-NAME,
date type d,
dateStr(10),
timeStr(8).
DATA: TH_OPCODE(1) TYPE X. "#EC *
"#EC *
CONSTANTS: OPCODE_WP_LIST LIKE TH_OPCODE VALUE 1,"#EC *
OPCODE_WP_STOP LIKE TH_OPCODE VALUE 2,"#EC *
OPCODE_WP_DUMP LIKE TH_OPCODE VALUE 3,"#EC *
OPCODE_WP_RESTART_ON LIKE TH_OPCODE VALUE 4,"#EC *
OPCODE_WP_DEL LIKE TH_OPCODE VALUE 5,"#EC *
OPCODE_WP_DEBUG LIKE TH_OPCODE VALUE 6,"#EC *
OPCODE_WP_EXIT LIKE TH_OPCODE VALUE 7,"#EC *
OPCODE_WP_GET_ID LIKE TH_OPCODE VALUE 8,"#EC *
OPCODE_WP_EXEC_PROG LIKE TH_OPCODE VALUE 9,"#EC *
OPCODE_WP_TRCSWITCH LIKE TH_OPCODE VALUE 10,"#EC *
OPCODE_WP_TRCINFO LIKE TH_OPCODE VALUE 11,"#EC *
OPCODE_WP_ERR_GET LIKE TH_OPCODE VALUE 12,"#EC *
OPCODE_WP_DETAIL LIKE TH_OPCODE VALUE 13,"#EC *
OPCODE_WP_TRACE_ON LIKE TH_OPCODE VALUE 14,"#EC *
OPCODE_WP_TRACE_OFF LIKE TH_OPCODE VALUE 15,"#EC *
OPCODE_WP_WAIT LIKE TH_OPCODE VALUE 16,"#EC *
OPCODE_WP_GET_ENQ LIKE TH_OPCODE VALUE 17,"#EC *
OPCODE_WP_RESET_TRACE LIKE TH_OPCODE VALUE 18,"#EC *
OPCODE_WP_RESET_DISP_TRACE LIKE TH_OPCODE VALUE 19,"#EC *
OPCODE_WP_FULL_RESET_TRACE LIKE TH_OPCODE VALUE 20,"#EC *
OPCODE_WP_REDISPATCH LIKE TH_OPCODE VALUE 21,"#EC *
OPCODE_WP_ERR_SET LIKE TH_OPCODE VALUE 22,"#EC *
OPCODE_WP_CLR_ZOMBIES LIKE TH_OPCODE VALUE 23,"#EC *
OPCODE_WP_UPD_MEMORY LIKE TH_OPCODE VALUE 24,"#EC *
OPCODE_WP_GET_INFO LIKE TH_OPCODE VALUE 25,"#EC *
OPCODE_WP_CLEAR_HEADER LIKE TH_OPCODE VALUE 26,"#EC *
OPCODE_WP_GET_ABAP_REQ LIKE TH_OPCODE VALUE 27,"#EC *
OPCODE_WP_RETURN_TO_JAVA_TEST LIKE TH_OPCODE VALUE 28,"#EC *
OPCODE_WP_TINFO_LIST LIKE TH_OPCODE VALUE 29,"#EC *
OPCODE_WP_VERSION LIKE TH_OPCODE VALUE 30,"#EC *
OPCODE_WP_CLEAR_ERR_COUNTER LIKE TH_OPCODE VALUE 31,"#EC *
OPCODE_WP_WRITE_TRACE LIKE TH_OPCODE VALUE 32,"#EC *
OPCODE_WP_LIST_AD LIKE TH_OPCODE VALUE 33."#EC *
DATA: BEGIN OF QUEUE_INFO_TABL OCCURS 10.
INCLUDE STRUCTURE queue_info.
DATA: END OF QUEUE_INFO_TABL.
* get my server name
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'rdisp/myname'
ID 'VALUE' FIELD MYNAME.
write sy-uzeit USING EDIT MASK '__:__:__' TO timeStr.
write sy-datum DD/MM/YYYY to dateStr.
line = text-481.
replace '&' in line with dateStr.
replace '&' in line with timeStr.
condense line.
call 'ThWpInfo' id 'OPCODE' field OPCODE_WP_GET_INFO
id 'WP' field num_wps
id 'DIAWP' field num_dia_wps
id 'FREE_DIAWP' field num_free_dia_wps
id 'VBWP' field num_upd_wps
id 'FREE_VBWP' field num_free_upd_wps
id 'ENQWP' field num_enq_wps
id 'FREE_ENQWP' field num_free_enq_wps
id 'BTCWP' field num_btc_wps
id 'FREE_BTCWP' field num_free_btc_wps
id 'SPOWP' field num_spo_wps
id 'FREE_SPOWP' field num_free_spo_wps
id 'VB2WP' field num_upd2_wps
id 'FREE_VB2WP' field num_free_upd2_wps
id 'RESTWP' field num_restricted_wps
id 'DYNWP' field num_dynamic_wps
id 'DYNWP_USED' field num_dynamic_wps_used
id 'CONFIGURABLE_WPS' field num_configurable_wps.
e_free_Dia = num_free_dia_wps.
e_free_Bg = num_free_btc_wps.
ENDFUNCTION.
Bluesky
