ABAP code help to replace one field with another

Question

Hi All,
I have one DSO which is holding data for fields WBS(Old) and Company Code(Old).
and I have one table which holds the information for Ols WBS and Ols Comp Code along with their New WBS and New Comp code.
for eg:
In DSO :
Old WBS , Old Comp.Code
abc        ,  001
xyz        , 002
In Table:
Old WBS , Old Comp.Code , New WBS , New Comp.Code
abc,           001,                    ABC,            001-04
xyz,           002,                    XYZ,            002-04
Now my requirement is ,
search record by record from DSO and look into the table .
If abc record in DSO matches with abc record in table, then in DSO it should replace with new WBS and Com.Codes.
after the code, data in DSO shuld be lik this.
WBS , Comp.Code
ABC ,  001-04
XYZ,   002-04.
Thanks in advance,
Sai Chand.S

Answer 1

Hi
If these fields are key fields dont think its possible to overwrite. Else plz write the following Code in End Routine it will overwrite the existing values in DSO.
Select * from DSO into it_dso_temp. "U can even select only key fields WBS and CC fields.
If sy_subrc=0.
Sort it_dso_temp by WBS CC.
endif.
Select old WBS
           old CC
           new WBS
           new CC
from Table
into it_table
for all entries in it_dso_temp
where old WBS = WBS and old CC = CC.
if sy_subrc=0.
sort it_table by old WBS, old CC.
endif.
Loop at it_dso_temp assigning result_fields.
Read it_table into wa_table with key old WBS = fs_dso_temp-WBS
                                                           old CC = fs_dso_temp-CC Binary SEarch.
If sy_subrc = 0.
result_fields-WBS = wa_table-new WBS.
result_fields-CC = wa_table-new CC.
endif.
Endloop.
Refresh result_package.
result_package[] = it_dso_temp[].
Also if incoming data has only old values u can loop at result package instead of it_dso_temp. let me know in case of issues.
hope this helps !
Reg
Aparna