LOOKUP TABLE
CC,PC,CCN,PCN,PERCENTAGE
77,**,*,**, 0.5
77,AAA,77,0.5
77,AAA,88,0.5
SOURCE
CC,PC,Debit amount
77,22,200
11,77,400
Result
CC,PC,Debit amount
77,22,100
AAA,77,200
AAA,88,200
CODE:
DATA : IT_JV TYPE STANDARD TABLE OF /BIC/AZGSDJV0100,
IWA_JV TYPE /BIC/AZGSDJV0100.
DATA : IT_RESULT TYPE TABLE OF TYS_TG_1,
LV_COUNT TYPE RSARECORD.
LV_COUNT = 0.
SELECT * FROM /BIC/AZGSDJV0100 INTO TABLE IT_JV[].
IF SY-SUBRC = 0 AND IT_JV[] IS NOT INITIAL.
LOOP AT RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>.
LOOP AT IT_JV INTO IWA_JV WHERE PCOMPANY = <RESULT_FIELDS>-PCOMPANY.
<RESULT_FIELDS>-DEB_CRE_LC = IWA_JV-/BIC/ZGSOJVPAT *
<RESULT_FIELDS>-DEB_CRE_LC.
<RESULT_FIELDS>-DEB_CRE_L2 = IWA_JV-/BIC/ZGSOJVPAT *
<RESULT_FIELDS>-DEB_CRE_L2.
<RESULT_FIELDS>-COMP_CODE = IWA_JV-/BIC/ZGSOCOMNW.
<RESULT_FIELDS>-PCOMPANY = IWA_JV-/BIC/ZGSOPCONW.
LV_COUNT = LV_COUNT + 1.
<RESULT_FIELDS>-RECORD = LV_COUNT.
ENDLOOP.
LOOP AT IT_JV INTO IWA_JV WHERE COMP_CODE = <RESULT_FIELDS>-COMP_CODE.
<RESULT_FIELDS>-DEB_CRE_LC = IWA_JV-/BIC/ZGSOJVPAT *
<RESULT_FIELDS>-DEB_CRE_LC.
<RESULT_FIELDS>-DEB_CRE_L2 = IWA_JV-/BIC/ZGSOJVPAT *
<RESULT_FIELDS>-DEB_CRE_L2.
LV_COUNT = LV_COUNT + 1.
<RESULT_FIELDS>-RECORD = LV_COUNT.
ENDLOOP.
ENDLOOP.
ENDIF.
Any suggestions?