Report

Former Member — Fri, 16 Nov 2007 10:12:20 GMT

Hi,

I clear the work area but it is not working........same output here.....

code........

LOOP AT ITAB .

SELECT FKDAT NETWR MWSBK KNUMV FKART FROM VBRK INTO (ITAB-FKDAT, ITAB-NETWR1, ITAB-MWSBK, ITAB-KNUMV, ITAB-FKART) WHERE VBELN = ITAB-VBELN1 .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING FKDAT NETWR1 MWSBK KNUMV FKART.

ENDSELECT .

SELECT NAME1 FROM KNA1 INTO ITAB-NAME1 WHERE KUNNR = ITAB-KUNNR .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING NAME1 .

ENDSELECT .

SELECT BLART FROM BSID INTO ITAB-BLART WHERE VBELN = ITAB-VBELN1 .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING BLART .

ENDSELECT .

SELECT ZTERM FROM VBKD INTO ITAB-ZTERM WHERE VBELN = ITAB-VBELN .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING ZTERM .

ENDSELECT.

SELECT KNUMV KAWRT KBETR KSCHL INTO CORRESPONDING FIELDS OF TABLE ITAB1 FROM KONV

FOR ALL ENTRIES IN ITAB

WHERE KNUMV = ITAB-KNUMV AND KSCHL IN ('SKTO') .

LOOP AT ITAB1 INTO WA1.

ON CHANGE OF WA1-KNUMV.

ITAB2[] = ITAB1[].

DELETE ITAB2 WHERE KNUMV NE WA1-KNUMV.

ENDON.

ENDLOOP.

X = 0.

LOOP AT ITAB2.

X = X + ITAB2-KAWRT * ITAB2-KBETR / 1000 .

ENDLOOP .

ITAB-CD_AMT = X.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING CD_AMT.

CLEAR WA1.

ENDLOOP .

Regards,

<b>Anil Kumar</b>

Re: Report

Former Member — Fri, 16 Nov 2007 10:14:43 GMT

CHEKCK ALL SY-SUBRC.

PUT INTO BREAK POINT.

ALL ITAB IS INITIAL.

DEBUG THE PROGRAM STEP BY STEP