Need help to check the code!

[Former Member]

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.

[Former Member]

try to create internal table using data instead of types

[Former Member]

FIRST CHECK IN THE TABLE WHETHER DATA IS PRESENT OR NOT FOR THIS PARTICULAR SELECTION CRITERIA.

and secondly i would like to suggest you that dont use inner join on so many tables instead use FOR ALL ENTRIES and after every SELECT statement check whether that table is initial.

may be any of the table does not contain data for that criteria thats y it may not be displaying anything.

[Former Member]

Hi prachi ,

Send me the code to check whether the rable is initial or not

jyoti