ABAP Coding- enhance transactional datasource

Question

i need to bring in data from different tables and following code works for me:
DATA: l_s_ziw_orderma_i like ziw_orderma_i.
CASE i_DATASOURCE.
WHEN 'ziw_orderma_i'.
LOOP AT c_t_data INTO l_s_ziw_orderma_i.
l_tabix = sy-tabix.
SELECT PRODUCT_IT FROM CRMD_SRV_REFOBJ INTO l_s_ziw_orderma_i-ZZPRODUCT
WHERE GUID = l_s_ziw_orderma_i-GUID .
MODIFY c_t_data FROM l_s_ziw_orderma_i INDEX l_tabix.
ENDSELECT.
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
Guid...date...........objectid...item guid
1122......1.1.10....901..........z1122
1122......1.1.10....901..........z1123
1122......1.1.10....901..........z1124
using this ITEM GUID from extractor, i want to pull out data from table - CRMD_SRV_REF
guid ...............product...............Product type..........product quality
z1122.............110011..........ABC.........................GUD
z1123.............110012..........DEF..........................GUD
z1124.............110013...........DFG.........................GUD
NOW my code works for extracting PRODUCT..
what MODIFICATION I need to do so that i can bring in PRODUCT TYPE & PRODUCT QUALITY

Answer 1

HI ,
I am not sure about the Product quality( Do you know the source table ?)  , but Product type will be available in the
will not be available in CRMD_SRV_REFOBJ, you can get that from table COMM_PRODUCT ,
Change your code as below sample code  to get product id and Type , find the source table for product quality and extend this code in the similar way , check for syntax error if any and fix it
TYPES : BEGIN OF PROD        ,
        PRODUCT_ID   TYPE COMT_PRODUCT_ID ,
        PRODUCT_TYPE TYPE COMT_PRODUCT_TYPE,
        END OF PROD .
DATA: l_s_ziw_orderma_i like ziw_orderma_i,
      i_PROD TYPE TABLE OF PROD ,
      WA_PROD LIKE LINE OF i_PROD .
CASE i_DATASOURCE.
WHEN 'ziw_orderma_i'.
LOOP AT c_t_data INTO l_s_ziw_orderma_i.
l_tabix = sy-tabix.
SELECT PRODUCT_ID
  FROM CRMD_SRV_REFOBJ
  INTO l_s_ziw_orderma_i-ZZPRODUCT
WHERE GUID = l_s_ziw_orderma_i-GUID .
ENDSELECT.
IF SY-SUBRC EQ 0 .
SELECT PRODUCT_ID
        PRODUCT_TYPE
    INTO TABLE i_PROD
    FROM COMM_PRODUCT
         WHERE PRODUCT_ID = l_s_ziw_orderma_i-ZZPRODUCT .
ENDIF .
IF i_PROD[] IS NOT INITIAL .
READ TABLE I_PROD INTO WA_PROD WITH KEY
                        PRODUCT_ID = l_s_ziw_orderma_i-ZZPRODUCT .
IF SY-SUBRC EQ 0 .
l_s_ziw_orderma_i-ZZPROD_TYPE = WA_PROD-PRODUCT_TYPE .
ENDIF.
ENDIF .
MODIFY c_t_data FROM l_s_ziw_orderma_i INDEX l_tabix.
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
Regards,
Sathya