Skip to Content
0
Former Member
Feb 18, 2011 at 09:57 AM

Endroutine is not working

33 Views

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?