Preface – This post is part of the ABAP Programs series.
DATA: ls_parameter TYPE /iwbep/s_mgw_name_value_pair,
lv_custid TYPE kunnr,
lv_flag TYPE char1,
lt_custinfo TYPE TABLE OF ztest_gw_srv,
ls_custinfo TYPE ztest_gw_srv,
ls_entity TYPE zcl_ztest_gw_srv_mpc=>ts_msg_return.
IF iv_action_name = 'demoFuncImport'. " Check what action is being requested
IF it_parameter IS NOT INITIAL.
* Read Function import parameter value
READ TABLE it_parameter INTO ls_parameter WITH KEY name = 'CustId'.
IF sy-subrc = 0.
lv_custid = ls_parameter-value.
ENDIF.
READ TABLE it_parameter INTO ls_parameter WITH KEY name = 'Approved_Flag'.
IF sy-subrc = 0.
lv_flag = ls_parameter-value.
ENDIF.
IF lv_custid IS NOT INITIAL.
UPDATE ztest_gw_srv SET approved = lv_flag WHERE cust_id = lv_custid.
IF sy-subrc = 0.
ls_entity-type = 'S'.
ls_entity-message = 'Customer info successfully approved'.
ELSE.
ls_entity-type = 'E'.
ls_entity-message = 'Error'.
ENDIF.
* Call method copy_data_to_ref and export entity set data
copy_data_to_ref( EXPORTING is_data = ls_entity
CHANGING cr_data = er_data ).
ENDIF.
ENDIF.
ENDIF.
0 Comments