In this example, the German keys 'HERR' and 'FRAU' in the target characteristic are mapped to the English keys 'MR' and 'MRS' from the PASSFORM field (form of address) in the source. All other values from the source field are mapped to the initial value.
The coding of the routine is as follows:
*---------------------------------------------------------------------* * CLASS routine DEFINITION *---------------------------------------------------------------------* * *---------------------------------------------------------------------* CLASS lcl_transform DEFINITION. PUBLIC SECTION. TYPES: BEGIN OF _ty_s_SC_1, * Field: PASSFORM Anrede. PASSFORM TYPE C LENGTH 15, END OF _ty_s_SC_1. TYPES: BEGIN OF _ty_s_TG_1, * InfoObject: 0PASSFORM Anrede. PASSFORM TYPE /BI0/OIPASSFORM, END OF _ty_s_TG_1. PRIVATE SECTION. TYPE-POOLS: rsd, rstr. *$*$ begin of global - insert your declaration only below this line *-* DATA p_r_set_mr TYPE REF TO cl_rsmds_set. DATA p_r_set_mrs TYPE REF TO cl_rsmds_set. DATA p_r_set_space TYPE REF TO cl_rsmds_set. *$*$ end of global - insert your declaration only before this line *-* METHODS compute_0PASSFORM IMPORTING request type rsrequest datapackid type rsdatapid SOURCE_FIELDS type _ty_s_SC_1 EXPORTING RESULT type _ty_s_TG_1-PASSFORM monitor type rstr_ty_t_monitor RAISING cx_rsrout_abort cx_rsrout_skip_record cx_rsrout_skip_val. METHODS invert_0PASSFORM IMPORTING i_th_fields_outbound TYPE rstran_t_field_inv i_r_selset_outbound TYPE REF TO cl_rsmds_set i_is_main_selection TYPE rs_bool i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set i_r_universe_inbound TYPE REF TO cl_rsmds_universe CHANGING c_th_fields_inbound TYPE rstran_t_field_inv c_r_selset_inbound TYPE REF TO cl_rsmds_set c_exact TYPE rs_bool. ENDCLASS. "routine DEFINITION *$*$ begin of 2nd part global - insert your code only below this line * ... "insert your code here *$*$ end of 2nd part global - insert your code only before this line * *---------------------------------------------------------------------* * CLASS routine IMPLEMENTATION *---------------------------------------------------------------------* * *---------------------------------------------------------------------* CLASS lcl_transform IMPLEMENTATION. METHOD compute_0PASSFORM. * IMPORTING * request type rsrequest * datapackid type rsdatapid * SOURCE_FIELDS-PASSFORM TYPE C LENGTH 000015 * EXPORTING * RESULT type _ty_s_TG_1-PASSFORM DATA: MONITOR_REC TYPE rsmonitor. *$*$ begin of routine - insert your code only below this line *-* CASE SOURCE_FIELDS-passform. WHEN 'HERR'. RESULT = 'MR'. WHEN 'FRAU'. RESULT = 'MRS'. WHEN OTHERS. RESULT = space. ENDCASE. *$*$ end of routine - insert your code only before this line *-* ENDMETHOD. "compute_0PASSFORM
The corresponding inversion routine is as follows:
*$*$ begin of inverse routine - insert your code only below this line*-* DATA l_r_set TYPE REF TO cl_rsmds_set. IF i_r_selset_outbound->is_universal( ) EQ rsmds_c_boolean-true. * If query requests all values for characteristic 0PASSNAME * request also all values from source field PASSNAME c_r_selset_inbound = cl_rsmds_set=>get_universal_set( ). c_exact = rs_c_true. "Inversion is exact ELSE. TRY. IF me->p_r_set_mrs IS INITIAL. * Create set for condition PASSFORM = 'FRAU' me->p_r_set_mrs = i_r_universe_inbound->create_set_from_string( 'PASSFORM = ''FRAU''' ). ENDIF. IF me->p_r_set_mr IS INITIAL. * Create set for condition PASSFORM = 'HERR' me->p_r_set_mr = i_r_universe_inbound->create_set_from_string( 'PASSFORM = ''HERR''' ). ENDIF. IF me->p_r_set_space IS INITIAL. * Create set for condition NOT ( PASSFORM = 'FRAU' OR PASSFORM = 'HERR' ) l_r_set = me->p_r_set_mr->unite( me->p_r_set_mrs ). me->p_r_set_space = l_r_set->complement( ). ENDIF. * Compose inbound selection c_r_selset_inbound = cl_rsmds_set=>get_empty_set( ). * Check if outbound selection contains value 'MR' IF i_r_selset_outbound->contains( 'MR' ) EQ rsmds_c_boolean-true. c_r_selset_inbound = c_r_selset_inbound->unite( me->p_r_set_mr ). ENDIF. * Check if outbound selection contains value 'MRS' IF i_r_selset_outbound->contains( 'MRS' ) EQ rsmds_c_boolean-true. c_r_selset_inbound = c_r_selset_inbound->unite( me->p_r_set_mrs ). ENDIF. * Check if outbound selection contains initial value IF i_r_selset_outbound->contains( space ) EQ rsmds_c_boolean-true. c_r_selset_inbound = c_r_selset_inbound->unite( me->p_r_set_space ). ENDIF. c_exact = rs_c_true. "Inversion is exact CATCH cx_rsmds_dimension_unknown cx_rsmds_input_invalid cx_rsmds_sets_not_compatible cx_rsmds_syntax_error. * Normally, should not occur * If the exception occurs request all values from source * for this routine to be on the save side c_r_selset_inbound = cl_rsmds_set=>get_universal_set( ). c_exact = rs_c_false. "Inversion is no longer exact ENDTRY. ENDIF. * Finally, add (optionally) further code to transform outbound projection * to inbound projection * Check if outbound characteristic 0PASSFORM (field name PASSFORM) * is requested for the drilldown state of the query READ TABLE i_th_fields_outbound WITH TABLE KEY segid = 1 "Primary segment fieldname = 'PASSFORM' TRANSPORTING NO FIELDS. IF sy-subrc EQ 0. * Characteristic 0PASSFORM is needed * ==> request (only) field PASSFORM from the source for this routine DELETE c_th_fields_inbound WHERE NOT ( segid EQ 1 OR fieldname EQ 'PASSFORM' ). ELSE. * Characteristic 0PASSFORM is not needed * ==> don't request any field from source for this routine CLEAR c_th_fields_inbound. ENDIF. *$*$ end of inverse routine - insert your code only before this line *-* ENDMETHOD. "invert_0PASSFORM ENDCLASS. "routine IMPLEMENTATION