Problem in fetching data from different tables !

[Former Member]

Hi friends plz check this program. I am not getting data for tvm1t-bezei,tvm2t-bezei,tvm3t-bezei.....etc etc. i know i should use for all entries but i have no time.

Please check it and correct it.

REPORT YINTERACTIVEPROGRAM01.

TABLES:VBAP,

VBPA,

VBRP,

VBRK,

KNA1,

ADRC,

TPAR,

TVKGG,

TVM1T,

TVM2T,

TVM3T,

TVM4T,

VBKD,

SZA1_D0100,

TVLVT,

T002,

T178T.

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,

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

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

join tvm2t as b2

on c1_{spras = b2}spras

join tvm3t as b3

on c1_{spras = b3}spras

join tvm4t as b4

on c1_{spras = b4}spras

UP TO 10 ROWS.

*where k1~vbeln = salesno.

*and s1_{vbeln = salesno and p1}vbeln = salesno

*and r1~vbeln = salesno.

*

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)'BEZEI1:', itab-BEZEI1,

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

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

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

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

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

uline.

ENDLOOP.

if sy-subrc <> 0.

write : / 'No data found'.

endif.

[Former Member]

ALSO tell me how to get the value of

SZA1_D0100-SMTP_ADDR ie the value of partner email.

I want my data against vbeln.

ie i have to use parameters: salesno like vbap-vbeln.

[ThomasZloch]

change code like this:

join tvm1t as b1
on c1~spras = b1~spras
and p1~mvgr1 = b1~mvgr1     <--- add

same for the other three text tables.

In general make sure you join all primary key fields of the check tables.

Cheers

Thomas

[Former Member]

thanks Thomas for for this information,

Another thing I want to get the data against VBELN as input !

thanks

[ThomasZloch]

it's in your code already, but commented out...

add a select-option S_VBELN, then add WHERE S1~VBELN IN S_VBELN to your select statement.

[Former Member]

thanks really helpfull !