Report to show Number of sent and received messages

Question

Hi,
We are on PI 7.1 EHP 1.
I'm wondering if there is a way to set up a daily report that will output the number of inbound and outbound messages by message type?
I know this can be done manually in the RWB but is there a way to automate it?
Thanks,
Gareth

Answer 1

Yes, is possible using standard AbapStack function & tables.
Check in SDN Forum, this is an old 3D.
Re: Get count of the messages to particular Interface in a day and send email
*& Report ZPI_MESSAGES_COUNT
REPORT zpi_messages_count.
TYPES : BEGIN OF gty_filter_t,
ob_system TYPE ait_sndr,
ob_name TYPE rm_oifname,
END OF gty_filter_t.
DATA : im_filter TYPE sxi_msg_select,
pids TYPE sxms_sel_options,
pid TYPE sxmsselopt,
gt_msg TYPE sxmsmsgtab,
gt_fil TYPE TABLE OF gty_filter_t,
gs_fil TYPE gty_filter_t,
gs_fil_t TYPE gty_filter_t,
gs_msg TYPE SXMSMSGLST,
gv_lines TYPE int4,
cnt TYPE i.
PARAMETERS : s_st_dat TYPE sxi_msg_select-exedate OBLIGATORY,
s_ed_dat TYPE sxi_msg_select-exe2date OBLIGATORY,
n_hits TYPE int4 OBLIGATORY.
START-OF-SELECTION.
im_filter-exedate = s_st_dat.
im_filter-exe2date = s_ed_dat.
pid-sign = 'E' .
pid-option = 'EQ'.
pid-low = 'CENTRAL_BACK'.
APPEND pid TO pids.
CLEAR pid.
pid-sign = 'E' .
pid-option = 'EQ'.
pid-low = 'RECEIVER_BACK'.
APPEND pid TO pids.
CLEAR pid.
pid-sign = 'E' .
pid-option = 'EQ'.
pid-low = 'SENDER_BACK'.
APPEND pid TO pids.
CLEAR pid.
pid-sign = 'E' .
pid-option = 'EQ'.
pid-low = 'PE_ADAPTER'.
APPEND pid TO pids.
CLEAR pid.
pid-sign = 'E' .
pid-option = 'EQ'.
pid-low = 'PE_PROCESS'.
APPEND pid TO pids.
CLEAR pid.
im_filter-pids = pids.
CALL FUNCTION 'SXMB_SELECT_MESSAGES_NEW'
EXPORTING
im_filter = im_filter
im_number = n_hits
im_adapter_or = '0'
im_process_mode = '0'
IMPORTING
ex_msgtab = gt_msg
EX_RESULT =
EX_FIRST_TS =
EXCEPTIONS
persist_error = 1
missing_parameter = 2
negative_time_range = 3
too_many_parameters = 4
OTHERS = 5.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
DESCRIBE TABLE gt_msg LINES gv_lines.
SORT gt_msg BY ob_system.
LOOP AT gt_msg INTO gs_msg.
MOVE-CORRESPONDING gs_msg TO gs_fil.
APPEND gs_fil TO gt_fil.
CLEAR gs_fil.
ENDLOOP.
LOOP AT gt_fil INTO gs_fil.
gs_fil_t = gs_fil.
cnt = cnt + 1 .
AT END OF OB_SYSTEM .
WRITE :/ cnt, gs_fil_t-ob_name .
CLEAR cnt.
ENDAT.
ENDLOOP.
WRITE :/ gv_lines, 'Records Received'.