InfoPackage ABAP Routine

Question

Hi,
I have two text tables T1 and T2. The key in T1 and T2 are the same. Only point is T2 has very few records compared to T1.
T1 has key and Medium Texts. T2 has the same.
I am loading the data from T1 to T2. I need to write ABAP routine in InfoPackage to load the text data to T2 where the keys match in T1 and T2.
Appreciate your help.
Thanks,
Pradeep

Answer 1

Hello Kumar,
You can do this using the following algorithm:
1) Read the text table for T2. The text table is named /BIC/T<name of T1 infoobject). For example, if my infoobject is ZSAMPLE, then my text table for that is /BIC/TZSAMPLE.
2) For each row in T2, check if the key can be found in T1.
3) If yes,then place the key for that current row in a selection.
4) if not, ignore the key
Here's a sample code:
data: l_sel type  rssdlrange.
data: t_t2 type table of /BIC/TT2,
      e_t2 type  /BIC/TT2,
      e_t1 type /bic/tt1.
select * from /BIC/TT2 into table t_t2.
loop at t_t2 into e_t2.
  select single * from /bic/tt1 into e_t1 where
    /bic/t1 = e_t2-/bic/t2.
  if sy-subrc eq 0.
    l_sel-fieldname = '/BIC/T1'.
    l_sel-SIGN = 'I'.
    l_sel-OPTION = 'EQ'.
    l_sel-LOW = e_t2-/bic/t2.
    append l_sel to l_t_range.
  endif.
endloop.
Hope this helps.