ABAP coding error...enhance transactional datasource

Question

i need to enhance CRM extractor with additional field.
This is transactional data so i used Exit_rs_001
Here is the extractor result -
Guid...date...........objectid...item guid
1122......1.1.10....901..........8811
1122......2.1.10....901..........8812
1123......1.1.10....902..........8813
1123......2.1.10....902..........8814
now i need field Product id in it which is called from DB Table CRMD_SRV_REFOBJ
itemguid...referencekey...product
8811............01.................110011
8812............02.................110012
8813............03.................110013
now i want to extract data--
Guid...date...........objectid...item guid...product
1122......1.1.10....901..........8811.........110011
1122......2.1.10....901..........8812.........110012
1123......1.1.10....902..........8813.........110013
so i appended the extractor...with field zproduct
FOLLOWING Code doesnot work:::
DATA: L_S_INFOSTRU LIKE ziw_orderma_i.
CASE I_DATASOURCE.
FIELD-SYMBOLS: <PRO_01> TYPE ziw_orderma_i.
CASE i_datasource.
WHEN 'ziw_orderma_i.'. " Upper case
LOOP AT c_t_data ASSIGNING <PRO_01>.
SELECT PRODUCT_ID INTO <PRO_01>-zZPRODUCT
FROM CRMD_SRV_REFOBJ UP TO 1 ROWS
WHERE ITEM_GUID = <PRO_01>-CRMD_SRV_REFOBJ.
ENDSELECT. " not whole primary key
ENDLOOP.
ENDCASE.

Answer 1

Hi,
For this, you can do as below
REFER EXTRACTOR GUID --1122
Find GUID References for guid = 1122 in table CRMD_ORDERADMI (item level table)
for the guid reference in CRMD_ORDERADMI, find the Product >0 in table CRMD_SRV_REFOBJ
select that Product and write into extractor field zzproduct#
WHEN 'ziw_orderma_i'.
LOOP AT c_t_data INTO l_s_ziw_orderma_i.
l_tabix = sy-tabix.
data: temp_guid like CRMD_ORDERADM-GUID. to create a temporary variable
SELECT single GUID FROM CRMD_ORDERADMI INTO temp_guid
WHERE GUIDREF = l_s_ziw_orderma_i-GUID.
The above statement would give you value for GUID from this table i.e. z1122
SELECT PRODUCT_IT FROM CRMD_SRV_REFOBJ INTO l_s_ziw_orderma_i-ZZPRODUCT
WHERE GUID = temp_guid.
MODIFY c_t_data FROM l_s_ziw_orderma_i INDEX l_tabix.
ENDSELECT.
This would fetch your value
clear temp_guid. to clear this temporary variable
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
PS: It appears that you have corrected already so not requried any more
Edited by: Rahul K Rai on Oct 17, 2010 9:27 PM