report -very urgent

Hi gurus,

Can any one check the code .Iam not getting the output correctly .some garbage values it is taking .Kindly check and reply me it is very urgent for me.

REPORT Z_MARPOSS.

TABLES : EKPO ,

EKET.

DATA : BEGIN OF ITAB OCCURS 2,

EBELN LIKE EKET-EBELN,

END OF ITAB .

DATA : BEGIN OF ITAB1 OCCURS 2,

MATNR LIKE EKPO-MATNR,

TXZ01 LIKE EKPO-TXZ01,

MENGE LIKE EKET-MENGE,

WEMNG LIKE EKET-WEMNG,

MOBMNG LIKE EKET-MENGE,

END OF ITAB1.

SELECT-OPTIONS MEINDT FOR EKET-EINDT.

SELECT EBELN INTO TABLE ITAB FROM EKET WHERE EINDT IN MEINDT.

LOOP AT ITAB.

clear itab1-matnr.

clear itab1-txz01.

SELECT MATNR TXZ01 INTO CORRESPONDING FIELDS OF ITAB1 FROM EKPO WHERE EBELN = ITAB-EBELN.

APPEND ITAB1.

ENDSELECT.

ENDLOOP.

LOOP AT ITAB.

CLEAR ITAB1-MENGE .

CLEAR ITAB1-WEMNG .

SELECT MENGE WEMNG INTO CORRESPONDING FIELDS OF ITAB1 FROM EKET WHERE EBELN = ITAB-EBELN.

APPEND ITAB1.

ENDSELECT.

ENDLOOP.

top-of-page .

write : 50 'REPORT FOR STOCK OF PURCHASING MATERIALS' .

uline .

write : /2 'MATERIAL.' , 13 sy-vline , 14 'DESCRIPTION', 60 sy-vline , 61 'TOTAL QUANTITY' , 78 SY-VLINE , 79 'DEL QTY' , 95 SY-VLINE , 96 'REM QTY'.

uline .

END-OF-SELECTION.

LOOP AT ITAB1.

ITAB1-MOBMNG = ITAB1-MENGE - ITAB1-WEMNG.

MODIFY ITAB1. "Update the Record

WRITE : / ITAB1-MATNR UNDER 'MATERIAL' ,

ITAB1-TXZ01 UNDER 'DESCRIPTION' ,

ITAB1-MENGE UNDER 'TOTAL QUANTITY' ,

ITAB1-WEMNG UNDER 'DEL QTY' ,

ITAB1-MOBMNG UNDER 'REM QTY'.

ENDLOOP.

thx & Regards,

sunder