cancel
Showing results for 
Search instead for 
Did you mean: 

capture submit program message in SXMB_MONI

former_member599326
Participant
0 Kudos

Hi,

I have created inbound and outbound interface in tcode SPROXY.

In Inbound proxy, I am calling program as below:-

SUBMIT zrem_new_interface WITH SELECTION-TABLE lt_seltab EXPORTING LIST TO MEMORY AND RETURN.

In program ZREM_NEW_INTERFACE, there are various error messages.

How can I capture all of them in SXMB_MONI ? my code is as below:-

METHOD zii_repocharges_request_in~repocharges_request_in.
*** **** INSERT IMPLEMENTATION HERE **** ***

DATA : lv_input TYPE zrepocharges_request1.

DATA: lt_seltab TYPE TABLE OF rsparams,
ls_seltab LIKE LINE OF lt_seltab.

DATA : i_sel_data TYPE zrepocharges_request_row_tab,
ls_sel_data TYPE zrepocharges_request_row.

DATA : lv_obj TYPE REF TO zco_repocharges_response_out.

DATA : wa_error TYPE zrepocharges_response1.

DATA : gt_out_data TYPE zrepocharges_response_row_tab,
gs_out_data TYPE zrepocharges_response_row.

CLEAR lv_input.
MOVE input TO lv_input.

REFRESH i_sel_data.

MOVE lv_input-repocharges_request-row TO i_sel_data.

LOOP AT i_sel_data INTO ls_sel_data.
REFRESH lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_BS'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-company_code.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_EN'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-contract_number.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_AC'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-action_code.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_SD'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-status_date.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_ADR'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-additional_repo_charges.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_RI'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-rcindicator.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_RK'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-remarks.
APPEND ls_seltab TO lt_seltab.


CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_sel_data-agency_code
IMPORTING
output = ls_sel_data-agency_code.

CLEAR ls_seltab.
ls_seltab-selname = 'P_AY'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-agency_code.
APPEND ls_seltab TO lt_seltab.

CLEAR ls_seltab.
ls_seltab-selname = 'P_LN'.
ls_seltab-kind = 'P'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = ls_sel_data-yard_location.
APPEND ls_seltab TO lt_seltab.

SUBMIT zrem_new_interface WITH SELECTION-TABLE lt_seltab EXPORTING LIST TO MEMORY AND RETURN.
CALL FUNCTION 'LIST_FREE_MEMORY'.

CLEAR gs_out_data.
gs_out_data-request_id = ls_sel_data-request_id.
gs_out_data-contractnumber = ls_sel_data-contract_number.
gs_out_data-flag = 'SUCCESS'.
gs_out_data-error_description = 'Program executed successfully'.
APPEND gs_out_data TO gt_out_data.

EXIT.
ENDLOOP.

MOVE gt_out_data TO wa_error-repocharges_response-row.
CREATE OBJECT lv_obj.
TRY.
CALL METHOD lv_obj->repocharges_response_out
EXPORTING
output = wa_error.

COMMIT WORK AND WAIT.
CATCH cx_ai_system_fault.
ENDTRY.
ENDMETHOD.

Accepted Solutions (0)

Answers (1)

Answers (1)

turkaj
Active Participant

Hi Santosh,

SXMB_MONI is a PI communication only. So you cannot add messages directly here.

Something similar has been discussed in this question:
No message in SXMB_MONI

Regards
Jim