Here is some sample code from service marketplace.
Ravi Thothadri
User Exit Virtual Characteristics and Key figures
Example: InfoCube DEMOCUBE has the characteristic PRODUCT PRICE_TP and the key figure ACT_PRICE and QUANTITY. In the enhancement, the product from the current price for PRODUCT and the key figure QUANTITY should be determined. If successful, the characteristic PRICE_TP should contain the characteristic value '1'.
The include ZXRSRU02: Definition
***INCLUDE ZXRSRU02
DATA: L_S_CHANM TYPE RRKE_S_CHANM.
CASE I_S_RKB1D-INFOCUBE.
WHEN 'DEMOCUBE'.
L_S_CHANM-CHANM = 'PRODUCT'.
L_S_CHANM-MODE = RRKE_C_MODE-READ.
APPEND L_S_CHANM TO E_T_CHANM.
L_S_CHANM-CHANM = 'PRICE_TP'.
L_S_CHANM-MODE = RRKE_C_MODE-NO_SELETION.
APPEND L_S_CHANM TO E_T_CHANM.
APPEND 'ACT_PRICE' TO E_T_KYFNM.
APPEND 'QUANTITY' TO E_T_KYFNM.
ENDCASE.
The include ZXRSRTOP: global data
***INCLUDE ZXRSRTOP .
DATA: G_POS_DEMOCUBE_PRODUCT TYPE I.
DATA: G_POS_DEMOCUBE_PRICE_TP TYPE I.
DATA: G_POS_DEMOCUBE_ACT_PRICE TYPE I.
DATA: G_POS_DEMOCUBE_QUANTITY TYPE I.
The Include ZXRSRZZZ: Changing the data
***INCLUDE ZXRSRZZZ .
FORM USER_DEMOCUBE USING I_S_RKB1D TYPE RSR_S_RKB1D
CHANGING C_S_DATA TYPE ANY.
FIELD-SYMBOLS <L_PRODUCT>.
FIELD-SYMBOLS <L_PRICE_TP>.
FIELD-SYMBOLS <L_ACT_PRICE>.
FIELD-SYMBOLS <L_QUANTITY>.
ASSIGN COMPONENT G_POS_DEMOCUBE_PRODUCT
OF STRUCTURE C_S_DATA TO <L_PRODUCT>.
ASSIGN COMPONENT G_POS_DEMOCUBE_PRICE_TP
OF STRUCTURE C_S_DATA TO <L_PRICE_TP>.
ASSIGN COMPONENT G_POS_DEMOCUBE_ACT_PRICE
OF STRUCTURE C_S_DATA TO <L_ACT_PRICE>.
ASSIGN COMPONENT G_POS_DEMOCUBE_QUANTITY
OF STRUCTURE C_S_DATA TO <L_QUANTITY>.
IF <L_ACT_PRICE> GT 0.
<L_ACT_PRICE> = <L_ACT_PRICE> * <L_QUANTITY>.
<L_PRICE_TP> = '1'.
ENDIF.
ENDFORM.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.