CLASS zcl_custom_retractor DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
*"* public components of class ZCL_CUSTOM_RETRACTOR
*"* do not include other source files here!!!
PUBLIC SECTION.
INTERFACES if_rsplfa_srvtype_imp_check .
INTERFACES if_rsplfa_srvtype_imp_exec_ref .*"* protected components of class ZCL_RSPLFC_COPY_KF_MAP
*"* do not include other source files here!!!
protected section.*"* private components of class ZCL_CUSTOM_RETRACTOR
*"* do not include other source files here!!!
PRIVATE SECTION.
TYPES:
BEGIN OF _mapping,
/bic/zret_map TYPE char30,
/bic/zret_iobj TYPE char30,
/bic/zret_defv TYPE char30,
END OF _mapping .
DATA p_infoprov TYPE rsinfoprov .
DATA p_r_srv TYPE REF TO if_rsplfa_srv .
DATA p_source_system TYPE logsys .
DATA p_run_type TYPE c .
DATA p_ret_type TYPE char10 .
DATA p_structure TYPE tabname .
DATA p_dload_fm TYPE funcname .
DATA p_pload_fm TYPE funcname .
DATA:
pt_map_fields TYPE TABLE OF _mapping .
METHODS _get_parameter_values
IMPORTING
!i_r_param_set TYPE REF TO if_rsplfa_param_set
!i_param TYPE rsplf_parnm
RETURNING
value(r_parameter) TYPE string .
METHODS _get_parameters
IMPORTING
!i_r_param_set TYPE REF TO if_rsplfa_param_set .
METHODS _map_fields
IMPORTING
!i_ref_data TYPE any
!i_r_msg TYPE REF TO if_rsplfa_msg
CHANGING
value(c_map_data) TYPE any
EXCEPTIONS
no_map .*"* local class implementation for public class
*"* use this source file for the implementation part of
*"* local helper classes*"* use this source file for any type declarations (class
*"* definitions, interfaces or data types) you need for method
*"* implementation or private method's signature*"* use this source file for any macro definitions you need
*"* in the implementation part of the classmethod IF_RSPLFA_SRVTYPE_IMP_CHECK~CHECK_CHAR_USAGE.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* There are no characteristics that are changing in a retractor *
* *
*=======================================================================*
endmethod.method IF_RSPLFA_SRVTYPE_IMP_CHECK~CHECK_PARAM_SET.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method checks the parameters of the planning function. *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string,
l_dummy TYPE c.
*
* Get R/3 Source System Parameter.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'SOURCE_SYSTEM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'SOURCE_SYSTEM*'.
MESSAGE e099(rsplf) WITH 'Source System Parameter must be of type' 'SOURCE_SYSTEM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Retractor Type.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter IS INITIAL.
MESSAGE e099(rsplf) WITH 'Retractor Type must be selected' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Retractor Mapping Structure
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_STRUCTURE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'STRUCTURE*'.
MESSAGE e099(rsplf) WITH 'Mapping Structure must be of type' 'STRUCTURE*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Data Load Function Module
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'DATA_LOAD_FM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'DATA_LOAD_FM*'.
MESSAGE e099(rsplf) WITH 'Data Load FM must be of type' 'DATA_LOAD_FM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Post Load Function Module
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'POST_LOAD_FM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter IS NOT INITIAL.
IF l_parameter NP 'POST_LOAD_FM*'.
MESSAGE e099(rsplf) WITH 'Post Load FM must be of type' 'POST_LOAD_FM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
ENDIF.
*
* Check Test Run Parameter
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RUN_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter <> 'TEST_RUN' AND l_parameter <> 'ACTUAL_RUN'.
MESSAGE e099(rsplf) WITH 'Parameter must be set to either ' 'TEST_RUN or ACTUAL_RUN.' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_CHECK~INIT_CHECK.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is to check the planning service implementation detail *
* *
*=======================================================================*
p_r_srv = i_r_srv.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~ADD_NEW_BLOCKS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* There is no Blocking in a retractor so, all selected data is used in *
* in the EXECUTE method. *
* *
*=======================================================================*
endmethod.METHOD if_rsplfa_srvtype_imp_exec_ref~execute.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method executed for each data block and implements the specific *
* coding. *
* *
* Table I_TH_REF_DATA contains the reference data. *
* Table C_TH_DATA contains the changed / new records *
* *
*=======================================================================*
DATA: lth_data TYPE REF TO data,
lth_map TYPE REF TO data,
lt_msg TYPE TABLE OF bapiret2,
l_ref TYPE REF TO data,
l_map TYPE REF TO data,
l_subrc TYPE sy-subrc,
l_count TYPE i,
l_dummy TYPE c.
FIELD-SYMBOLS:
<lth_data> TYPE ANY TABLE,
<lth_map> TYPE ANY TABLE,
<l_map> TYPE ANY,
<ls_msg> TYPE bapiret2,
<ls_ref_data> TYPE ANY.
*
* Create work area for reference data
*
CREATE DATA l_ref LIKE LINE OF i_th_ref_data.
ASSIGN l_ref->* TO <ls_ref_data>.
CHECK <ls_ref_data> IS ASSIGNED.
*
* Create work area for buffer data
*
CREATE DATA lth_data LIKE c_th_data.
ASSIGN lth_data->* TO <lth_data>.
CHECK <lth_data> IS ASSIGNED.
*
* Get Retractor Parameter Values.
*
me->_get_parameters( i_r_param_set = i_r_param_set ).
*
* Define Mapping structure.
*
SELECT COUNT(*)
INTO l_count
FROM dd02l
WHERE tabname = p_structure.
IF l_count = 0.
MESSAGE e099(rsplf)
WITH 'Mapping Structure does not exist.'
INTO l_dummy.
i_r_msg->add_msg( ).
EXIT.
ENDIF.
CREATE DATA lth_map TYPE TABLE OF (p_structure).
ASSIGN lth_map->* TO <lth_map>.
CHECK <lth_map> IS ASSIGNED.
CREATE DATA l_map LIKE LINE OF <lth_map>.
ASSIGN l_map->* TO <l_map>.
CHECK <l_map> IS ASSIGNED.
*
* Loop at the reference data to do the copy
*
LOOP AT i_th_ref_data INTO <ls_ref_data>.
*
* Map Data Fields to Structure.
*
me->_map_fields( EXPORTING i_ref_data = <ls_ref_data>
i_r_msg = i_r_msg
CHANGING c_map_data = <l_map>
EXCEPTIONS no_map = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
l_subrc = 4.
EXIT.
ENDIF.
COLLECT <l_map> INTO <lth_map>.
ENDLOOP.
*
* Execute Data Load Function Module, if mapping succeeds.
*
IF l_subrc = 0.
*
* Execute Data Load Function Module
*
CALL FUNCTION p_dload_fm
DESTINATION p_source_system
EXPORTING
i_test_run = p_run_type
IMPORTING
e_t_msg = lt_msg
CHANGING
i_t_data = <lth_map>.
*
* Output Message From Remote Function Module.
*
l_subrc = 0.
LOOP AT lt_msg ASSIGNING <ls_msg>.
sy-msgty = <ls_msg>-type.
sy-msgid = <ls_msg>-id.
sy-msgno = <ls_msg>-number.
sy-msgv1 = <ls_msg>-message_v1.
sy-msgv2 = <ls_msg>-message_v2.
sy-msgv3 = <ls_msg>-message_v3.
sy-msgv4 = <ls_msg>-message_v4.
IF <ls_msg>-type = 'E' " Error
OR <ls_msg>-type = 'A'. " Abort
l_subrc = 4.
ENDIF.
i_r_msg->add_msg( ).
ENDLOOP.
*
* Return if the previous Step Failed.
*
IF l_subrc <> 0.
RETURN.
ENDIF.
*
* Execute Post Load Function Module, if defined,
*
IF p_pload_fm IS NOT INITIAL.
*
* Execute Remote Function Module.
*
CALL FUNCTION p_pload_fm
DESTINATION p_source_system
EXPORTING
i_test_run = p_run_type
IMPORTING
e_t_msg = lt_msg.
*
* Output Message From Remote Function Module.
*
LOOP AT lt_msg ASSIGNING <ls_msg>.
sy-msgty = <ls_msg>-type.
sy-msgid = <ls_msg>-id.
sy-msgno = <ls_msg>-number.
sy-msgv1 = <ls_msg>-message_v1.
sy-msgv2 = <ls_msg>-message_v2.
sy-msgv3 = <ls_msg>-message_v3.
sy-msgv4 = <ls_msg>-message_v4.
i_r_msg->add_msg( ).
ENDLOOP.
ENDIF.
ENDIF.
ENDMETHOD.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~FINISH_EXECUTION.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is called at the end of processing, after the last call *
* of EXECUTE. *
* *
* It performs closing operations such as releasing resources. *
* *
*=======================================================================*
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~GET_REF_DATA_SEL.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* This method determines the selection table for reference data. *
* *
* I_T_DATA_CHARSEL is a table of the planning function Filter *
* E_T_REF_CHARSEL is a table of the reference data *
* *
* This method is called by method INIT_EXECUTION after initialization. *
* *
* For the EXECUTE method, the reference data is passed in parameter *
* I_TH_REF_DATA for each data block. *
* *
*=======================================================================*
*
* Data Selection from Global Filter.
*
e_t_ref_charsel = i_t_data_charsel.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~INIT_EXECUTION.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is called once at the start of a planning function and *
* is used for evaluating the class attributes prior to processing. *
* *
*=======================================================================*
DATA: lx_error TYPE REF TO cx_rs_error,
ls_msg TYPE bal_s_msg,
l_dummy TYPE c.
*
* Get Planning Function Attributes.
*
TRY.
p_r_srv = i_r_srv. " Planning Function Service
p_infoprov = i_r_srv->get_infoprov( ). " InfoProvider
*=======================================================================*
CATCH cx_rs_error INTO lx_error.
" Catch Error on Planning Function Initialization.
*=======================================================================*
ls_msg = lx_error->get_message( ).
MESSAGE ID ls_msg-msgid
TYPE 'E'
NUMBER ls_msg-msgno
WITH ls_msg-msgv1
ls_msg-msgv2
ls_msg-msgv3
ls_msg-msgv4
INTO l_dummy.
i_r_msg->add_msg( ).
ENDTRY.
endmethod.method _GET_PARAMETERS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method gets the retractor parameter values for processing *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string.
*
* Get Retractor Parameters
*
p_source_system = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'SOURCE_SYSTEM').
p_structure = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'RETRACTOR_STRUCTURE').
p_dload_fm = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'DATA_LOAD_FM').
p_pload_fm = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'POST_LOAD_FM').
p_run_type = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'RUN_TYPE').
*
* Get Retractor Type.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
p_ret_type = l_parameter.
*
* Get Mapping Table.
*
SELECT *
INTO CORRESPONDING FIELDS OF TABLE pt_map_fields
FROM /bic/pzret_map
WHERE /bic/zret_type = p_ret_type.
endmethod.method _GET_PARAMETER_VALUES.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method gets a parameter value from ZRET_PAR *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string.
*
* Get Parameter
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = i_param ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
*
* Get Parameter Value.
*
SELECT SINGLE txtmd
INTO r_parameter
FROM /bic/tzret_par
WHERE /bic/zret_par = l_parameter.
endmethod.method _MAP_FIELDS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method maps the InfoObject or constant to the retractor structure *
* *
*=======================================================================*
DATA: l_dummy TYPE c,
l_constant TYPE char30.
FIELD-SYMBOLS:
<l_map_fields> TYPE _mapping,
<l_ref_field> TYPE ANY,
<l_map_field> TYPE ANY.
CLEAR c_map_data.
*
* For each element in the mapping table.
*
LOOP AT pt_map_fields ASSIGNING <l_map_fields>.
UNASSIGN: <l_map_field>, <l_ref_field>.
*
* Assign the Retractor Structure element.
*
ASSIGN COMPONENT <l_map_fields>-/bic/zret_map OF STRUCTURE c_map_data TO <l_map_field>.
IF <l_map_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'Mapping field' <l_map_fields>-/bic/zret_map 'does not exist in structure in' p_structure
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
*
* Assign the InfoObject
*
IF <l_map_fields>-/bic/zret_iobj IS NOT INITIAL.
ASSIGN COMPONENT <l_map_fields>-/bic/zret_iobj OF STRUCTURE i_ref_data TO <l_ref_field>.
IF <l_ref_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'Mapping field' <l_map_fields>-/bic/zret_iobj 'does not exist in infoprovider ' p_infoprov
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
ELSE.
*
* Assign the Constant
*
l_constant = <l_map_fields>-/bic/zret_defv.
ASSIGN l_constant TO <l_ref_field>.
IF <l_ref_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'There is no Mapping definition for ' <l_map_fields>-/bic/zret_map
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
ENDIF.
<l_map_field> = <l_ref_field>.
ENDLOOP.
endmethod.CLASS zcl_custom_retractor DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
*"* public components of class ZCL_CUSTOM_RETRACTOR
*"* do not include other source files here!!!
PUBLIC SECTION.
INTERFACES if_rsplfa_srvtype_imp_check .
INTERFACES if_rsplfa_srvtype_imp_exec_ref .*"* protected components of class ZCL_RSPLFC_COPY_KF_MAP
*"* do not include other source files here!!!
protected section.*"* private components of class ZCL_CUSTOM_RETRACTOR
*"* do not include other source files here!!!
PRIVATE SECTION.
TYPES:
BEGIN OF _mapping,
/bic/zret_map TYPE char30,
/bic/zret_iobj TYPE char30,
/bic/zret_defv TYPE char30,
END OF _mapping .
DATA p_infoprov TYPE rsinfoprov .
DATA p_r_srv TYPE REF TO if_rsplfa_srv .
DATA p_source_system TYPE logsys .
DATA p_run_type TYPE c .
DATA p_ret_type TYPE char10 .
DATA p_structure TYPE tabname .
DATA p_dload_fm TYPE funcname .
DATA p_pload_fm TYPE funcname .
DATA:
pt_map_fields TYPE TABLE OF _mapping .
METHODS _get_parameter_values
IMPORTING
!i_r_param_set TYPE REF TO if_rsplfa_param_set
!i_param TYPE rsplf_parnm
RETURNING
value(r_parameter) TYPE string .
METHODS _get_parameters
IMPORTING
!i_r_param_set TYPE REF TO if_rsplfa_param_set .
METHODS _map_fields
IMPORTING
!i_ref_data TYPE any
!i_r_msg TYPE REF TO if_rsplfa_msg
CHANGING
value(c_map_data) TYPE any
EXCEPTIONS
no_map .*"* local class implementation for public class
*"* use this source file for the implementation part of
*"* local helper classes*"* use this source file for any type declarations (class
*"* definitions, interfaces or data types) you need for method
*"* implementation or private method's signature*"* use this source file for any macro definitions you need
*"* in the implementation part of the classmethod IF_RSPLFA_SRVTYPE_IMP_CHECK~CHECK_CHAR_USAGE.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* There are no characteristics that are changing in a retractor *
* *
*=======================================================================*
endmethod.method IF_RSPLFA_SRVTYPE_IMP_CHECK~CHECK_PARAM_SET.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method checks the parameters of the planning function. *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string,
l_dummy TYPE c.
*
* Get R/3 Source System Parameter.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'SOURCE_SYSTEM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'SOURCE_SYSTEM*'.
MESSAGE e099(rsplf) WITH 'Source System Parameter must be of type' 'SOURCE_SYSTEM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Retractor Type.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter IS INITIAL.
MESSAGE e099(rsplf) WITH 'Retractor Type must be selected' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Retractor Mapping Structure
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_STRUCTURE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'STRUCTURE*'.
MESSAGE e099(rsplf) WITH 'Mapping Structure must be of type' 'STRUCTURE*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Data Load Function Module
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'DATA_LOAD_FM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter NP 'DATA_LOAD_FM*'.
MESSAGE e099(rsplf) WITH 'Data Load FM must be of type' 'DATA_LOAD_FM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
*
* Check Post Load Function Module
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'POST_LOAD_FM' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter IS NOT INITIAL.
IF l_parameter NP 'POST_LOAD_FM*'.
MESSAGE e099(rsplf) WITH 'Post Load FM must be of type' 'POST_LOAD_FM*' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
ENDIF.
*
* Check Test Run Parameter
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RUN_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
IF l_parameter <> 'TEST_RUN' AND l_parameter <> 'ACTUAL_RUN'.
MESSAGE e099(rsplf) WITH 'Parameter must be set to either ' 'TEST_RUN or ACTUAL_RUN.' INTO l_dummy.
i_r_msg->add_msg_with_param_context( ).
EXIT.
ENDIF.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_CHECK~INIT_CHECK.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is to check the planning service implementation detail *
* *
*=======================================================================*
p_r_srv = i_r_srv.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~ADD_NEW_BLOCKS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* There is no Blocking in a retractor so, all selected data is used in *
* in the EXECUTE method. *
* *
*=======================================================================*
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~EXECUTE.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method executed for each data block and implements the specific *
* coding. *
* *
* Table I_TH_REF_DATA contains the reference data. *
* Table C_TH_DATA contains the changed / new records *
* *
*=======================================================================*
DATA: lth_data TYPE REF TO data,
lth_map TYPE REF TO data,
lt_msg TYPE TABLE OF bapiret2,
l_ref TYPE REF TO data,
l_map TYPE REF TO data,
l_subrc TYPE sy-subrc,
l_count TYPE i,
l_dummy TYPE c.
FIELD-SYMBOLS:
<lth_data> TYPE ANY TABLE,
<lth_map> TYPE ANY TABLE,
<l_map> TYPE ANY,
<ls_msg> TYPE bapiret2,
<ls_ref_data> TYPE ANY.
*
* Create work area for reference data
*
CREATE DATA l_ref LIKE LINE OF i_th_ref_data.
ASSIGN l_ref->* TO <ls_ref_data>.
CHECK <ls_ref_data> IS ASSIGNED.
*
* Create work area for buffer data
*
CREATE DATA lth_data LIKE c_th_data.
ASSIGN lth_data->* TO <lth_data>.
CHECK <lth_data> IS ASSIGNED.
*
* Get Retractor Parameter Values.
*
me->_get_parameters( i_r_param_set = i_r_param_set ).
*
* Define Mapping structure.
*
SELECT COUNT(*)
INTO l_count
FROM dd02l
WHERE tabname = p_structure.
IF l_count = 0.
MESSAGE e099(rsplf)
WITH 'Mapping Structure does not exist.'
INTO l_dummy.
i_r_msg->add_msg( ).
EXIT.
ENDIF.
CREATE DATA lth_map TYPE TABLE OF (p_structure).
ASSIGN lth_map->* TO <lth_map>.
CHECK <lth_map> IS ASSIGNED.
CREATE DATA l_map LIKE LINE OF <lth_map>.
ASSIGN l_map->* TO <l_map>.
CHECK <l_map> IS ASSIGNED.
*
* Loop at the reference data to do the copy
*
LOOP AT i_th_ref_data INTO <ls_ref_data>.
*
* Map Data Fields to Structure.
*
me->_map_fields( EXPORTING i_ref_data = <ls_ref_data>
i_r_msg = i_r_msg
CHANGING c_map_data = <l_map>
EXCEPTIONS no_map = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
l_subrc = 4.
EXIT.
ENDIF.
COLLECT <l_map> INTO <lth_map>.
ENDLOOP.
*
* Execute Data Load Function Module, if mapping succeeds.
*
IF l_subrc = 0.
*
* Execute Data Load Function Module
*
CALL FUNCTION p_dload_fm
DESTINATION p_source_system
EXPORTING
i_test_run = p_run_type
IMPORTING
e_t_msg = lt_msg
CHANGING
i_t_data = <lth_map>.
*
* Output Message From Remote Function Module.
*
l_subrc = 0.
LOOP AT lt_msg ASSIGNING <ls_msg>.
sy-msgty = <ls_msg>-type.
sy-msgid = <ls_msg>-id.
sy-msgno = <ls_msg>-number.
sy-msgv1 = <ls_msg>-message_v1.
sy-msgv2 = <ls_msg>-message_v2.
sy-msgv3 = <ls_msg>-message_v3.
sy-msgv4 = <ls_msg>-message_v4.
IF <ls_msg>-type = 'E' " Error
OR <ls_msg>-type = 'A'. " Abort
l_subrc = 4.
ENDIF.
i_r_msg->add_msg( ).
ENDLOOP.
*
* Return if the previous Step Failed.
*
IF l_subrc <> 0.
RETURN.
ENDIF.
*
* Execute Post Load Function Module, if defined,
*
IF p_pload_fm IS NOT INITIAL.
*
* Execute Remote Function Module.
*
CALL FUNCTION p_pload_fm
DESTINATION p_source_system
EXPORTING
i_test_run = p_run_type
IMPORTING
e_t_msg = lt_msg.
*
* Output Message From Remote Function Module.
*
LOOP AT lt_msg ASSIGNING <ls_msg>.
sy-msgty = <ls_msg>-type.
sy-msgid = <ls_msg>-id.
sy-msgno = <ls_msg>-number.
sy-msgv1 = <ls_msg>-message_v1.
sy-msgv2 = <ls_msg>-message_v2.
sy-msgv3 = <ls_msg>-message_v3.
sy-msgv4 = <ls_msg>-message_v4.
i_r_msg->add_msg( ).
ENDLOOP.
ENDIF.
ENDIF.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~FINISH_EXECUTION.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is called at the end of processing, after the last call *
* of EXECUTE. *
* *
* It performs closing operations such as releasing resources. *
* *
*=======================================================================*
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~GET_REF_DATA_SEL.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* This method determines the selection table for reference data. *
* *
* I_T_DATA_CHARSEL is a table of the planning function Filter *
* E_T_REF_CHARSEL is a table of the reference data *
* *
* This method is called by method INIT_EXECUTION after initialization. *
* *
* For the EXECUTE method, the reference data is passed in parameter *
* I_TH_REF_DATA for each data block. *
* *
*=======================================================================*
*
* Data Selection from Global Filter.
*
e_t_ref_charsel = i_t_data_charsel.
endmethod.method IF_RSPLFA_SRVTYPE_IMP_EXEC_REF~INIT_EXECUTION.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method is called once at the start of a planning function and *
* is used for evaluating the class attributes prior to processing. *
* *
*=======================================================================*
DATA: lx_error TYPE REF TO cx_rs_error,
ls_msg TYPE bal_s_msg,
l_dummy TYPE c.
*
* Get Planning Function Attributes.
*
TRY.
p_r_srv = i_r_srv. " Planning Function Service
p_infoprov = i_r_srv->get_infoprov( ). " InfoProvider
*=======================================================================*
CATCH cx_rs_error INTO lx_error.
" Catch Error on Planning Function Initialization.
*=======================================================================*
ls_msg = lx_error->get_message( ).
MESSAGE ID ls_msg-msgid
TYPE 'E'
NUMBER ls_msg-msgno
WITH ls_msg-msgv1
ls_msg-msgv2
ls_msg-msgv3
ls_msg-msgv4
INTO l_dummy.
i_r_msg->add_msg( ).
ENDTRY.
endmethod.method _GET_PARAMETERS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method gets the retractor parameter values for processing *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string.
*
* Get Retractor Parameters
*
p_source_system = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'SOURCE_SYSTEM').
p_structure = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'RETRACTOR_STRUCTURE').
p_dload_fm = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'DATA_LOAD_FM').
p_pload_fm = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'POST_LOAD_FM').
p_run_type = me->_get_parameter_values( i_r_param_set = i_r_param_set
i_param = 'RUN_TYPE').
*
* Get Retractor Type.
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = 'RETRACTOR_TYPE' ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
p_ret_type = l_parameter.
*
* Get Mapping Table.
*
SELECT *
INTO CORRESPONDING FIELDS OF TABLE pt_map_fields
FROM /bic/pzret_map
WHERE /bic/zret_type = p_ret_type.
endmethod.method _GET_PARAMETER_VALUES.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method gets a parameter value from ZRET_PAR *
* *
*=======================================================================*
DATA: lr_ref_param_elem TYPE REF TO if_rsplfa_param_elem,
lr_param_elem TYPE REF TO if_rsplfa_param_elem,
l_parameter TYPE string.
*
* Get Parameter
*
lr_ref_param_elem = i_r_param_set->get_param_elem( i_param_name = i_param ).
lr_ref_param_elem->get_value( IMPORTING e_value = l_parameter ).
*
* Get Parameter Value.
*
SELECT SINGLE txtmd
INTO r_parameter
FROM /bic/tzret_par
WHERE /bic/zret_par = l_parameter.
endmethod.method _MAP_FIELDS.
*=======================================================================*
* *
* Description *
* --------------------------------------------------------------------- *
* *
* The method maps the InfoObject or constant to the retractor structure *
* *
*=======================================================================*
DATA: l_dummy TYPE c,
l_constant TYPE char30.
FIELD-SYMBOLS:
<l_map_fields> TYPE _mapping,
<l_ref_field> TYPE ANY,
<l_map_field> TYPE ANY.
CLEAR c_map_data.
*
* For each element in the mapping table.
*
LOOP AT pt_map_fields ASSIGNING <l_map_fields>.
UNASSIGN: <l_map_field>, <l_ref_field>.
*
* Assign the Retractor Structure element.
*
ASSIGN COMPONENT <l_map_fields>-/bic/zret_map OF STRUCTURE c_map_data TO <l_map_field>.
IF <l_map_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'Mapping field' <l_map_fields>-/bic/zret_map 'does not exist in structure in' p_structure
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
*
* Assign the InfoObject
*
IF <l_map_fields>-/bic/zret_iobj IS NOT INITIAL.
ASSIGN COMPONENT <l_map_fields>-/bic/zret_iobj OF STRUCTURE i_ref_data TO <l_ref_field>.
IF <l_ref_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'Mapping field' <l_map_fields>-/bic/zret_iobj 'does not exist in infoprovider ' p_infoprov
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
ELSE.
*
* Assign the Constant
*
l_constant = <l_map_fields>-/bic/zret_defv.
ASSIGN l_constant TO <l_ref_field>.
IF <l_ref_field> IS NOT ASSIGNED.
MESSAGE e099(rsplf)
WITH 'There is no Mapping definition for ' <l_map_fields>-/bic/zret_map
INTO l_dummy.
i_r_msg->add_msg( ).
RAISE no_map.
ENDIF.
ENDIF.
<l_map_field> = <l_ref_field>.
ENDLOOP.
endmethod.