BEX - Virtual key-figure

Question

Hi gentlemen,
I am facing a problem with a BADI that I created for populating a virtual key figure.
I simply want to read a masterdata table and populate a key figure. When executing the query, a dump occurs with a very explicit explanation. Unfortunately, I don't know how to solve it.
Dump:
You attempted to assign a field to a typed field symbol,
but the field does not have the required type.      
Attributes in the BADI:
P_CHA_0PLANT     Instance Attribute     Private     Type     I     Plant
P_KYF_ZSHPQTEUT     Instance Attribute     Private     Type     I     Shipment quantity EUT
See below.
Define:
method IF_EX_RSR_OLAP_BADI~DEFINE.
DATA: l_s_chanm like line of c_t_chanm.
DATA: l_kyfnm TYPE rsd_kyfnm.
CASE i_s_rkb1d-infocube.
    WHEN 'ZFM_M01'.
      l_s_chanm-chanm = '0PLANT'.
      l_s_chanm-mode  = rrke_c_mode-read.
      APPEND l_s_chanm TO c_t_chanm.
l_kyfnm = 'ZSHPQTEUT'.
APPEND l_kyfnm TO c_t_kyfnm.
endcase.
ENDMETHOD. "if_ex_rsr_olap_badi~define   "
Compute:
METHOD if_ex_rsr_olap_badi~compute .
  FIELD-SYMBOLS: <fs_ZSHPQTEUT> TYPE /BIC/OIZSHPQTEUT.
  FIELD-SYMBOLS: <fs_0PLANT> TYPE /BI0/OIPLANT.
  ASSIGN COMPONENT P_CHA_0PLANT OF STRUCTURE c_s_data
  TO <fs_0PLANT>.
  ASSIGN COMPONENT P_KYF_ZSHPQTEUT OF STRUCTURE c_s_data
  TO <fs_ZSHPQTEUT>.
  SELECT /BIC/ZSHPQTEUT
  INTO <fs_ZSHPQTEUT>
  UP TO 1 ROWS
  FROM /BI0/PPLANT
  WHERE PLANT = <fs_0PLANT>.
  ENDSELECT.
ENDMETHOD.
Thank you in advance.
Jacques

Answer 1

Hi Jacques,
Please include 2 changes:
1. As suggested by Jen, declare Field Symbols with type ANY.
2. Instead of directly using Field symbol values in the select query, create 2 temporary variables of type string and use them.
After changes the method COMPUTE would look like below:
METHOD if_ex_rsr_olap_badi~compute.
FIELD-SYMBOLS: <fs_ZSHPQTEUT> TYPE ANY.
FIELD-SYMBOLS: <fs_0PLANT> TYPE ANY.
ASSIGN COMPONENT P_CHA_0PLANT OF STRUCTURE c_s_data
TO <fs_0PLANT>.
ASSIGN COMPONENT P_KYF_ZSHPQTEUT OF STRUCTURE c_s_data
TO <fs_ZSHPQTEUT>.
DATA tp_shpqty type string.
DATA tp_plnt  type string.
IF <fs_0PLANT> is ASSIGNED.
tp_plnt = <fs_0PLANT>.
ENDIF.
SELECT SINGLE  /BIC/ZSHPQTEUT
INTO tp_shpqty
FROM /BI0/PPLANT
WHERE PLANT = tp_plnt.
IF <fs_ZSHPQTEUT> is ASSIGNED.
<fs_ZSHPQTEUT> = tp_shpqty.
ENDIF.
ENDMETHOD.
Regards,
Hemant Khemani