Need help to check the code!

In my program its not giving data for any value of VBELN.What is the reason !

I am only getting one record between 3000 and 5000 ! What is wrong here!

REPORT YINTERACTIVEPROGRAM01.

TABLES:VBAP,

VBPA,

vbak,

VBRP,

VBRK,

KNA1,

ADRC,

TPAR,

TVKGG,

TVM1T,

TVM2T,

TVM3T,

TVM4T,

VBKD,

SZA1_D0100,

TVLVT,

T002,

T178T.

Select-options S_VBELN for vbak-vbeln.

TYPES:BEGIN OF TY_TAB,

VBELN LIKE VBAK-VBELN,

VKORG LIKE VBAK-VKORG,

ERDAT LIKE VBAK-ERDAT,

AUGRU LIKE VBAK-AUGRU,

BSTDK LIKE VBKD-BSTDK,

BSTDK_E LIKE VBKD-BSTDK_E,

spart like vbap-spart,

kondm like vbap-kondm,

waerk like vbap-waerk,

netwr like vbap-netwr,

kwmeng like vbap-kwmeng,

vkaus like vbap-vkaus,

land1 like vbpa-land1,

nrart like tpar-nrart,

• vtext like tpar-vtext,

parvw like tpar-parvw,

name1 like adrc-name1,

name2 like adrc-name2,

name3 like adrc-name3,

name4 like adrc-name4,

ort01 like kna1-ort01,

pstlz like kna1-pstlz,

vtext like t178t-vtext,

bezei1 like tvm1t-bezei,

bezei2 like tvm2t-bezei,

bezei3 like tvm3t-bezei,

bezei4 like tvm4t-bezei,

bezei5 like tvm5t-bezei,

BEZEI like tvlvt-bezei,

spras like t002-spras,

laspez like t002-laspez,

END OF TY_TAB.

DATA: ITAB TYPE STANDARD TABLE OF TY_TAB WITH HEADER LINE.

*parameters:salesno like itab-vbeln.

select s1~vbeln

s1~vkorg

s1~erdat

s1~augru

k1~BSTDK

k1~BSTDK_E

p1~spart

p1~kondm

p1~waerk

p1~netwr

p1~kwmeng

p1~vkaus

r1~land1

t1~nrart

• t1~vtext

t1~parvw

n1~name1

n1~name2

n1~name3

n1~name4

c1~ort01

c1~pstlz

x1~vtext

t2~BEZEI

b1~bezei

b2~bezei

b3~bezei

b4~bezei

b5~bezei

t3~spras

t3~laspez

into corresponding fields of table itab

from vbak as s1

join VBKD as k1

on s1_{vbeln = k1}VBELN

join vbap as p1

on k1_{vbeln = p1}vbeln

join t178t as x1

on p1_{kondm = x1}kondm

join vbpa as r1

on p1_{vbeln = r1}vbeln

join tpar as t1

on r1_{parvw = t1}parvw

join ADRC as n1

on r1_{adrnr = n1}addrnumber

join kna1 as c1

on r1_{land1 = c1}land1

join tvlvT as t2

on p1_{vkaus = t2}abrvw

join t002 as t3

on c1_{spras = t3}spras

join tvm1t as b1

on c1_{spras = b1}spras

AND p1_{mvgr1 = b1}mvgr1

join tvm2t as b2

on c1_{spras = b2}spras

AND p1_{mvgr2 = b2}mvgr2

join tvm3t as b3

on c1_{spras = b3}spras

AND p1_{mvgr3 = b3}mvgr3

join tvm4t as b4

on c1_{spras = b4}spras

AND p1_{mvgr4 = b4}mvgr4

join tvm5t as b5

on c1_{spras = b5}spras

AND p1_{mvgr5 = b5}mvgr5

up to 10 rows

WHERE S1~VBELN IN S_VBELN.

loop AT ITAB.

WRITE : /(30)'VBELN: ', ITAB-VBELN,

/(30)'VKORG: ', ITAB-VKORG,

/(30)'ERDAT: ', ITAB-ERDAT,

/(30)'AUGRU: ', ITAB-AUGRU,

/(30)'BSTDK: ', ITAB-BSTDK,

/(30)'BSTDK_E:', ITAB-BSTDK_E,

/(30)'SPART: ', itab-spart,

/(30)'KONDM: ', itab-kondm,

/(30)'WAERK: ', itab-waerk,

/(19)'NETWR: ' , itab-netwr,

/(17)'KWMENG: ', itab-kwmeng,

/(30)'VKAUS:', itab-vkaus,

/(30)'LAND1:', itab-land1,

/(30)'NRART:', itab-nrart,

/(30)'PARVW:', itab-parvw,

/(30)'ADDR1:', itab-name1,

/(30)'ADDR2:', itab-name2,

/(30)'ADDR3:', itab-name3,

/(30)'ADDR4:', itab-name4,

/(30)'PSTLZ:', itab-pstlz,

/(30)'ORT01:', itab-ort01,

/(30)'RUN TIME BAND DESC:', itab-BEZEI,

/(30)'Compiler desc:',itab-vtext,

/(30)'BEZEI:', itab-bezei,

/(30)'BEZEI1:', itab-BEZEI1,

/(30)'BEZEI2:', itab-BEZEI2,

/(30)'BEZEI3:', itab-BEZEI3,

/(30)'BEZEI4:', itab-BEZEI4,

/(30)'BEZEI5:', itab-bezei5,

/(30)'LASPEZ :', itab-LASPEZ,

/(30)'spras :', itab-spras.

uline.

ENDLOOP.

if sy-subrc <> 0.

write : / 'No data found'.

endif.