topic Re: doubt in Application Development and Automation Discussions

doubt

Former Member — Fri, 03 Aug 2007 07:29:53 GMT

hi experts

I have all my data in it_bseg1, based on that am using the following queries also.

if not it_bseg1[] is initial.

*- Ekko

SELECT EBELN LIFNR

FROM EKKO INTO table it_ekko

FOR ALL ENTRIES IN it_bseg1

WHERE EBELN = IT_BSEG1-EBELN.

if sy-subrc = 0.

sort it_ekko by ebeln lifnr.

*-Lfa1

SELECT LIFNR NAME1 FROM LFA1

INTO table it_lfa1

FOR ALL ENTRIES IN it_ekko

WHERE LIFNR = IT_EKKO-LIFNR.

if sy-subrc = 0.

sort it_lfa1 by lifnr.

endif.

now my problem is, i want all my data into it_bseg1 for display.

how can i do this , advise me on this.

Thanks in advance.

Regards

Rajaram

Re: doubt

Former Member — Fri, 03 Aug 2007 07:32:14 GMT

Write a select statement to <b>BSIK and BSAK</b> Tables instead of BSEG table (as it consumes lot of time) by passing LIFNR and EBELN fields to them and fetch the related data which you wants to fetch from BSEG..

<b>Reward points for useful Answers</b>

Regards

Anji

Re: doubt

Former Member — Fri, 03 Aug 2007 07:34:05 GMT

Hi,

Wite code like:

if not it_bseg1[] is initial.
*- Ekko
SELECT EBELN LIFNR
FROM EKKO INTO table it_ekko
FOR ALL ENTRIES IN it_bseg1
WHERE EBELN = IT_BSEG1-EBELN.
if sy-subrc = 0.
sort it_ekko by ebeln lifnr.
*-Lfa1
SELECT LIFNR NAME1 FROM LFA1
INTO table it_lfa1 
FOR ALL ENTRIES IN it_ekko
WHERE LIFNR = IT_EKKO-LIFNR.
if sy-subrc = 0.
sort it_lfa1 by lifnr.
endif.
endif.
endif.

loop at it_bseg1.
read table it_lfa1 with key lifnr = it_bseg1-lifnr.
if sy-subrc = 0.
it_bseg1-name = it_lfa1-name.
modiyf it_baseg1 transporting name.
endif.

endloop.

Re: doubt

Former Member — Fri, 03 Aug 2007 07:36:32 GMT

Hi,

First you include the all fields into it_bseg1.

sort it_ekko by ebeln.

sort it_lfa1 by lifnr.

Then loop at that table.

loop at it_bseg1 into wa_bseg1.

Read table it_ekko into wa_ekko with key ebeln = it_bseg1-ebeln binary search

if sy-subrceq 0.

read table it_lfa1 into wa_lfa1 with key lifnr = it_ekko-lifnr binary search.

if sy-subrc eq 0.

Move : the req, fields into it_bseg1.

modify the table it_bseg1.

endif.

endloop.

if it helps dont forget giving REWARD points....

rgds

harris

Re: doubt

Former Member — Fri, 03 Aug 2007 07:44:59 GMT

hai,

using modify statement u can do this.

loop at it_bseg1 into line_bseg1. ( if ur internal table without header line).

read table it_ekko into line_ekko with key ebeln = line_bseg1-ebeln.

if sy-subrc = 0.

line_bseg1-lifnr = line_ekko-lifnr.

modify it_bseg1 from line_bseg1 index sy-tabix transporting lifnr.

endif.

endloop.

before doing this u need to have lifnr in your it_bseg1 internal table structure.

reward points if useful.

bye.

Re: doubt

Former Member — Fri, 03 Aug 2007 08:05:19 GMT

Hi Raja

Try like this

Append lines of it_lfa11 to it_bseg1.

Modify it_lfa1 transporting it_bseg1

Check this links regarding performance tuning

http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_Introduction.asp

http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_SelectionCriteria.asp

Reward all helpfull answers

Regards

Pavan

Message was edited by:

Pavan praveen

Re: doubt

Former Member — Fri, 03 Aug 2007 08:44:55 GMT

Hi guys

I got it, now its working fine.

thank you one and all.

Regards

Rajaram