Please check my code tell me where is the problem

In the following code output why i am not gettingall the data !

What will be changes !

REPORT ZTEST99 LINE-SIZE 1000.

PARAMETERS : S_VBELN TYPE VBAK-VBELN.

ranges: r_matkl for vbap-matkl.

r_matkl-sign = 'I'.

r_matkl-option = 'BT'.

r_matkl-low = '300'.

r_matkl-high = '399'.

append r_matkl.

DATA: BEGIN OF I_ITEM OCCURS 0,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

VKAUS LIKE VBAP-VKAUS,

SPART LIKE VBAP-SPART,

NETWR LIKE VBAP-NETWR,

WAERK LIKE VBAP-WAERK,

KWMENG LIKE VBAP-KWMENG,

KONDM LIKE VBAP-KONDM,

MVGR1 LIKE VBAP-MVGR1,

MVGR2 LIKE VBAP-MVGR2,

MVGR3 LIKE VBAP-MVGR3,

MVGR4 LIKE VBAP-MVGR4,

MVGR5 LIKE VBAP-MVGR5,

KONDA LIKE VBKD-KONDA,

BSTDK LIKE VBKD-BSTDK,

BSTDK_E LIKE VBKD-BSTDK_E,

KDKG2 LIKE VBKD-KDKG2,

BEZEI1 LIKE TVLVT-BEZEI,

BEZEI2 LIKE TVM1T-BEZEI,

BEZEI3 LIKE TVM2T-BEZEI,

BEZEI4 LIKE TVM3T-BEZEI,

BEZEI5 LIKE TVM4T-BEZEI,

BEZEI6 LIKE TVM5T-BEZEI,

VTEXT1 LIKE V_T178-VTEXT,

VTEXT2 LIKE V_T188-VTEXT,

VTEXT3 LIKE TVKGGT-VTEXT,

END OF I_ITEM.

data: ITEMWORKAREA like line of I_ITEM.

*break-point.

SELECT

VBAP~VBELN

VBAP~POSNR

VBAP~MATNR

VBAP~VKAUS

VBAP~SPART

VBAP~NETWR

VBAP~WAERK

VBAP~KWMENG

VBAP~KONDM

VBAP~MVGR1

VBAP~MVGR2

VBAP~MVGR3

VBAP~MVGR4

VBAP~MVGR5

VBKD~KONDA

VBKD~BSTDK

VBKD~BSTDK_E

VBKD~KDKG2

FROM VBAP AS VBAP left JOIN VBKD AS VBKD

ON VBAP_{VBELN EQ VBKD}VBELN

INTO CORRESPONDING FIELDS OF TABLE I_ITEM

WHERE VBAP~VBELN EQ S_VBELN

and vbap~matkl NOT IN r_matkl.

LOOP AT I_ITEM.

select single

mvgr1

bezei

FROM tvm1t

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE spras EQ sy-langu

AND mvgr1 EQ I_ITEM-mvgr1.

select single

mvgr2

bezei

FROM tvm2t

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE spras EQ sy-langu

AND mvgr2 EQ I_ITEM-mvgr2.

select single

mvgr3

bezei

FROM tvm3t

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE spras EQ sy-langu

AND mvgr3 EQ I_ITEM-mvgr3.

select single

mvgr4

bezei

FROM tvm4t

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE spras EQ sy-langu

AND mvgr4 EQ I_ITEM-mvgr4.

select single

mvgr5

bezei

FROM tvm5t

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE spras EQ sy-langu

AND mvgr5 EQ I_ITEM-mvgr5.

• SELECT SINGLE

• KONDM

* VTEXT

• FROM V_T178

• INTO CORRESPONDING FIELDS OF ITEMWORKAREA

• WHERE SPRAS EQ SY-LANGU

• AND KONDM EQ I_ITEM-KONDM.

*

• SELECT SINGLE

• KONDA

* VTEXT

• FROM V_T188

• INTO CORRESPONDING FIELDS OF ITEMWORKAREA

• WHERE SPRAS EQ SY-LANGU

• AND KONDA EQ I_ITEM-KONDA.

SELECT bezei FROM TVLVT

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE ABRVW = I_ITEM-VKAUS.

ENDSELECT.

SELECT vtext FROM TVKGGT

INTO CORRESPONDING FIELDS OF ITEMWORKAREA

WHERE KDKGR = I_ITEM-kdkg2.

ENDSELECT.

ITEMWORKAREA-VBELN = I_ITEM-VBELN.

ITEMWORKAREA-POSNR = I_ITEM-POSNR.

ITEMWORKAREA-MATNR = I_ITEM-MATNR.

ITEMWORKAREA-VKAUS = I_ITEM-VKAUS.

ITEMWORKAREA-SPART = I_ITEM-SPART.

ITEMWORKAREA-NETWR = I_ITEM-NETWR.

ITEMWORKAREA-WAERK = I_ITEM-WAERK.

ITEMWORKAREA-KWMENG = I_ITEM-KWMENG.

ITEMWORKAREA-KONDM = I_ITEM-KONDM.

ITEMWORKAREA-MVGR1 = I_ITEM-MVGR1.

ITEMWORKAREA-MVGR2 = I_ITEM-MVGR2.

ITEMWORKAREA-MVGR3 = I_ITEM-MVGR3.

ITEMWORKAREA-MVGR4 = I_ITEM-MVGR4.

ITEMWORKAREA-MVGR5 = I_ITEM-MVGR5.

ITEMWORKAREA-KONDA = I_ITEM-KONDA.

ITEMWORKAREA-BSTDK = I_ITEM-BSTDK.

ITEMWORKAREA-BSTDK_E = I_ITEM-BSTDK_E.

ITEMWORKAREA-KDKG2 = I_ITEM-KDKG2.

modify I_ITEM from ITEMWORKAREA.

ENDLOOP.

FORMAT COLOR COL_NEGATIVE.

WRITE: 'LINE ITEM DATA'.

FORMAT COLOR COL_HEADING.

WRITE:/ 'SO NUMBER',' ',

'MATERIAL NO',' ',

'RUNTIME BAND CODE',' ',

'RUNTIME BAND DESC',' ',

'MATERIAL DIV',' ',

'COMPILER CODE',' ',

'COMPILER DESC',' ',

'PRODUCT LINE AND EDITION CODE',' ',

'PRODUCT LINE AND EDITION DESC',' ',

'PRODUCT NAME CODE',

'PRODUCT NAME DESC',' ',

'PRODUCT VERSION CODE',' ',

'PRODUCT VERSION DESC',' ',

'PRODUCT PLATFORM CODE',' ',

'PRODUCT PLATFORM DESC','',

'PRODUCT APP SERVER CODE',' ',

'PRODUCT APP SERVER DESC','',

'LANGUAGE CODE',' ',

'LANGUAGE DESC',' ',

'SUPPORT START DATE',' ',

'SUPPORT END DATE',' ',

'SUPPORT LEVEL CODE',' ',

'SUPPORT LEVEL DESC',' ',

'CURRENCY',' ',

'NET PRICE',' ',

'ORDER QUANTITY'.

ULINE.

FORMAT COLOR COL_NORMAL.

LOOP AT I_ITEM.

WRITE:/

I_ITEM-VBELN UNDER 'SO NUMBER',

I_ITEM-MATNR UNDER 'MATERIAL NO',

I_ITEM-VKAUS UNDER 'RUNTIME BAND CODE',

I_ITEM-SPART UNDER 'MATERIAL DIV',

I_ITEM-NETWR UNDER 'NET PRICE',

I_ITEM-WAERK UNDER 'CURRENCY',

I_ITEM-KWMENG UNDER 'ORDER QUANTITY',

I_ITEM-KONDM UNDER 'COMPILER CODE',

I_ITEM-MVGR1 UNDER 'PRODUCT LINE AND EDITION CODE',

I_ITEM-MVGR2 UNDER 'PRODUCT NAME CODE',

I_ITEM-MVGR3 UNDER 'PRODUCT VERSION CODE',

I_ITEM-MVGR4 UNDER 'PRODUCT PLATFORM CODE',

I_ITEM-MVGR5 UNDER 'PRODUCT APP SERVER CODE',

I_ITEM-KONDA UNDER 'LANGUAGE CODE',

I_ITEM-BSTDK UNDER 'SUPPORT START DATE',

I_ITEM-BSTDK_E UNDER 'SUPPORT END DATE',

I_ITEM-KDKG2 UNDER 'SUPPORT LEVEL CODE',

I_ITEM-BEZEI1 UNDER 'RUNTIME BAND DESC',

I_ITEM-BEZEI2 UNDER 'PRODUCT LINE ANDEDITION DESC',

I_ITEM-BEZEI3 UNDER 'PRODUCT NAME DESC',

I_ITEM-BEZEI4 UNDER 'PRODUCT VERSION DESC',

I_ITEM-BEZEI5 UNDER 'PRODUCT PLATFORM DESC',

I_ITEM-BEZEI6 UNDER 'PRODUCT APP SERVERDESC',

I_ITEM-VTEXT1 UNDER 'COMPILER DESC',

I_ITEM-VTEXT2 UNDER 'LANGUAGE DESC',

I_ITEM-VTEXT3 UNDER 'SUPPORT LEVEL DESC'.

ULINE.

endloop.