on 07-18-2023 10:30 AM
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.
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
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
72 | |
8 | |
8 | |
7 | |
6 | |
6 | |
5 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.