Abap logic in Transformation end routine bringing 0 records

Question

Hi,
I wrote this logic but is not populating the figure that I need. I am trying to get a Key figure /
field-symbols: <fs_rp> LIKE LINE OF RESULT_PACKAGE.
Types : Begin of s_itab,
S_ITEMID TYPE /N/ADSO_ASPC00-/N42/S_ITEMID,
STRDCOST TYPE /N/ADSO_ASPC00-/N42/S_STRDCOST,
End of s_itab.
Data : it_itab type table of s_itab,
wa_itab type s_itab.
LOOP AT RESULT_PACKAGE ASSIGNING <fs_rp>.
Read table it_itab INTO wa_itab with key S_ITEMID =
<fs_rp>-/N42/S_ITEMID.
Clear wa_itab.
if sy-subrc ne 0.
SELECT /N/S_STRDCOST /N/S_ITEMID FROM /N/ADSO_ASPC00 INTO
CORRESPONDING FIELDS OF wa_itab
FOR ALL ENTRIES IN RESULT_PACKAGE
       WHERE /N/S_ITEMID EQ RESULT_PACKAGE-/N/S_ITEMID.
ENDSELECT.
<fs_rp>-/N/S_STRDCOST = wa_itab-STRDCOST.
ENDIF.
ENDLOOP.

Answer 1

1. the name of the fields in the internal table it_itab and in table /n/adso_dsc00 are not the same, so you're move-corresponding is not working.
2. you need to select in table it_itab not in workarea wa_itab.
Data rp TYPE tys_TG_1.
field-symbols: <fs_rp> LIKE LINE OF RESULT_PACKAGE.
Types : Begin of s_itab,
/N/S_ITEMID TYPE /N/ADSO_DSOC00-/N/S_ITEMID,
/N/S_STRDCOST TYPE N/ADSO_DSOC00-/N/S_STRDCOST,
End of s_itab.
Data : it_itab type table of s_itab,
wa_itab type s_itab.
SELECT /N/S_STRDCOST /N/S_ITEMID FROM N/ADSO_DSOC00 INTO
INTO table it_itab
FOR ALL ENTRIES IN RESULT_PACKAGE
WHERE /N/S_ITEMID EQ RESULT_PACKAGE-/N/S_ITEMID.
ENDSELECT.
LOOP AT RESULT_PACKAGE ASSIGNING <fs_rp>.
Read table it_itab INTO wa_itab with key /N/S_ITEMID =
<fs_rp>-/N/S_ITEMID.
if sy-subrc ne 0.
<fs_rp>-/N/S_STRDCOST = wa_itab-STRDCOST.
ENDIF.
ENDLOOP.