Start routine in DSO Self transformations

Question

Hi SCN,
I need to write start routine to fill one of my target feild.
Here my info object is ZCust and attribute zpur_grp
My DSO have 0customer and zpur_grp.
Am creating self transformations for my dso and need to fill zpur_grp from zcust if dso-zpur_grp is blank.
condition is dso-0customer = info object-customer.
Am new to abap code part and confused about specifying fields and tables(/bic/).
Need suggestions to write sample format code.
Thanks in advance.
Chandra

Answer 1

Hi Chandra,
U need to write look-up code.
Below s sample code. it might be help you.
Declare Internal Table Like follow:
TYPES: BEGIN OF TY_CUST,
                  ZCust TYPE /BIC/ ZCust ,
                  zpur_grp TYPE /BIC/ zpur_grp
               END OF TY_CUST.
select value for internal table.
SELECT /BIC/ ZCust /BIC/zpur_grp
       FROM /BIC/PZCust
       INTO TABLE IT_CUST
       FOR ALL ENTRIES IN SOURCE_PACKAGE
       WHERE /BIC/ZCust = SOURCE_PACKAGE-/BIC/0customer
       AND OBJVERS = 'A'.
Then write Lookup code in start routine.
LOOP AT SOURCE_PACKAGE ASSIGNING <SOURCE_FIELDS>.
       clear : WA_CUST_DBDIV.
* Read internal table for customer
       READ TABLE IT_CUST
       WITH KEY ZCust = <SOURCE_FIELDS>-/BIC/0custome
       INTO WA_CUST_DBDIV
       BINARY SEARCH.
*Populate the corresponding Customer and DB Division in RESULT_PACKAGE
       IF SY-SUBRC = 0.
         <SOURCE_FIELDS>-/BIC/0custome = WA_CUST_DBDIV-ZCust.
         <SOURCE_FIELDS>-/BIC/zpur_grp = WA_CUST_DBDIV-zpur_grp.
ENDLOOP.
Hope it 'll help you.
Regards,
Mukesh