topic Re: se38 -Code in Application Development and Automation Discussions

se38 -Code

Former Member — Fri, 02 Mar 2007 18:47:55 GMT

Hello friends,

I have 2 internal tables of the same structure.

I need to insert data into ITAB1 from ITAB2, based on where condition on ITAB1.

IN ITAB1, i have vbeln = 'P01' and is found multiple time. But i want to insert before the last 'P01' in Itab1.

Let me know if i am not clear.

Below is an example of data in ITAB1 and ITAB2.

MAdhu.

DATA : BEGIN OF itab1 OCCURS 0,

vbeln LIKE vbak-vbeln,

matnr LIKE mara-matnr,

END OF itab1.

DATA : BEGIN OF itab2 OCCURS 0,

vbeln LIKE vbak-vbeln,

matnr LIKE mara-matnr,

END OF itab2.

itab1-vbeln = 'A01'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'B01'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'P01'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'P04'.

itab1-matnr = '231'.

APPEND itab1.

itab1-vbeln = 'P20'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'P04'.

itab1-matnr = '231'.

APPEND itab1.

itab1-vbeln = 'P20'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'PT1'.

itab1-matnr = '111'.

APPEND itab1.

itab1-vbeln = 'PT2'.

itab1-matnr = '121'.

APPEND itab1.

itab1-vbeln = 'PT2'.

itab1-matnr = '222'.

APPEND itab1.

itab1-vbeln = 'P01'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'PA1'.

itab1-matnr = '231'.

APPEND itab1.

itab1-vbeln = 'P04'.

itab1-matnr = '234'.

APPEND itab1.

itab1-vbeln = 'PT2'.

itab1-matnr = '1212'.

APPEND itab1.

itab1-vbeln = 'P01'.

itab1-matnr = '2222'.

APPEND itab1.

itab1-vbeln = 'PT1'.

itab1-matnr = '1112'.

APPEND itab1.

itab2-vbeln = 'PT1'.

itab2-matnr = 'MADHU'.

APPEND itab2.

itab2-vbeln = 'PT2'.

itab2-matnr = '1'.

APPEND itab2.

itab2-vbeln = 'PT2'.

itab2-matnr = '2'.

APPEND itab2.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 18:54:00 GMT

Try this:

LOOP AT ITAB1.

AT END OF VBELN.

IF ITAB1-VBELN EQ 'P01'.

ITAB2-VBELN = ITAB1-VBELN.

ITAB2-MATNR = ITAB1-MATNR.

APPEND ITAB2.

CLEAR ITAB2.

ENDIF.

ENDAT.

ENDLOOP.

Thanks,

Santosh

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 18:58:14 GMT

Thanks SKJ,

I dont want to append i want to insert to ITAB1 and before the last hit where vbeln - 'P01' in ITAB1.

Thanks for the suggestion,

MAdhu.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 18:59:13 GMT

Hi,

You can sort the internal table by VBELN..and do AT END OF vbeln..

SORT ITAB2 by vbeln.

LOOP AT ITAB2.

AT END OF VBELN.

****Do your change here.

ENDAT.

ENDLOOP.

Thanks,

Naren

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:00:34 GMT

Hi Madhu,

Check this code.

Try this:

DATA: WA_ITAB1 TYPE LINE OF ITAB1.

SORT ITAB1 BY VBELN.

LOOP AT ITAB1.

AT END OF VBELN.

READ TABLE ITAB1 INDEX SY-TABIX INTO WA_ITAB1.

IF ITAB1-VBELN EQ 'P01'.

ITAB2-VBELN = WA_ITAB1-VBELN.

ITAB2-MATNR = WA_ITAB1-MATNR.

APPEND WA_ITAB1 TO ITAB2.

CLEAR WA_ITAB1.

ENDIF.

ENDAT.

ENDLOOP.

Thanks,

Vinay

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:01:52 GMT

Thanks Naren for the suggestion.

Cant sort the table. I need to maintain the order which they are in. Its an IDOC program for segments and the order is important.

Madhu.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:04:51 GMT

Thanks Vinay,

I need to modify ITAB1, not ITAB2 and I cant sort.

Any more suggestions,

Madhu. Let me know if I am not clear.

Madhu.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:04:53 GMT

Hi,

Okay...Let me understand the requirement clearly..

You want to add the from internal table ITAB2 to ITAB1 ...

Sorry..Please explain clearly..

Thanks,

Naren

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:06:47 GMT

hey check this.

data: v_tabix type sy-tabix.

loop at itab1 where vbeln = 'P01'.

v_tabix = sy-tabix.

endloop.

loop at itab1 from v_tabix.

insert lines of itab2 into itab1.

exit.

endloop.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:09:00 GMT

Try this:

SORT ITAB2 BY VBELN.

LOOP AT ITAB2.

AT END OF VBELN.

INSERT LINES OF ITAB2 INDEX SY-TABIX INTO ITAB1.

CLEAR ITAB1.

ENDAT.

ENDLOOP.

Thanks,

Santosh

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:11:16 GMT

yes Naren I want to add from itab2 to itab1.

where itab1-vbeln = 'p01' and should be the last hit itab1-vbeln = 'P01'.

In this example if you loop itab1 where vbeln = 'P01' the first time u will hit sy-tabix = 3 and the next time you will hit sy-tabix = 11.

so i need to insert data from itab2 in itab1 starting from sy-tabix 11.

Hope i am clear..let me know.

Madhu.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:15:15 GMT

check my code & award points if it helps you.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:27:50 GMT

Hi,

Try this..

LOOP AT ITAB1 WHERE VBELN = 'P01'.

***dummy loop..

ENDLOOP.

V_TABIX = SY-TABIX.

LOOP AT ITAB2.

MOVE ITAB2 TO ITAB1.

INSERT ITAB1 INDEX V_TABIX.

V_TABIX = V_TABIX + 1.

ENDLOOP.

Hope this is what you want..

Thanks,

Naren

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:33:00 GMT

Try this:

DATA: BEGIN OF IT_INDEX OCCURS 0,

TABIX LIKE SY-TABIX,

END OF IT_INDEX.

DATA: LV_LINES TYPE I,

LV_TABIX LIKE SY-TABIX.

Store tabix number of occurence of 'P01'

LOOP AT ITAB2.

IF ITAB2-VBELN = 'P01'.

IT_INDEX-TABIX = SY-TABIX.

APPEND IT_INDEX.

CLEAR IT_INDEX.

ENDLOOP.

Take the last tabix

DESCRIBE TABLE IT_INDEX LINES LV_LINES.

READ TABLE IT_INDEX INDEX LV_LINES.

IF SY-SUBRC EQ 0.

LV_TABIX = IT_INDEX-TABIX.

ENDIF.

Store rows into ITAB1 from last tabix of P01

INSERT LINES OF ITAB2 FROM LV_TABIX INTO ITAB1.

Thanks,

Santosh

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:37:44 GMT

try out this

Try this:

LOOP AT ITAB1 where vbelm EQ 'P01'.

AT LAST.

READ ITAB2 into WA_ITAB2 with key (specify the key).

wa_ITAB1-VBELN = wa_ITAB2-VBELN.

wa_ITAB1-MATNR = wa_ITAB2-MATNR.

APPEND wa_ITAB1 to ITAB1.

CLEAR wa_ITAB1.

ENDAT.

ENDLOOP.

hope this will help

Ashwani

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:40:15 GMT

Hi SKJ, where is the Cursor for ITAB1 ? You have to write this in loop

check my code madhu, with out sorting i had given the solution first. But i have copied your code too so may be you got confused.

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:42:54 GMT

Thanks Naren.

When I am looping the dummy loop for sy-tabix. First the value is 3, 11 and 15. But when it comes to the next statement V_TABIX = SY-TABIX. the value od sy-tabix go back to 3.

I dont understant why?

I added anothere line to ITAB 4 and made it 4 rows and now when i execute the program and when i caome to V_TABIX = SY-TABIX. the value od sy-tabix go back to 4.

What could be the reason.

Madhu

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:42:58 GMT

Hi Madhu,

Check this code.

DATA V_INDEX TYPE SY-TABIX.

LOOP AT ITAB2 WHERE VBELN = 'P01'.

V_INDEX = SY-TABIX.

ENDLOOP.

INSERT LINES OF ITAB2 FROM V_INDEX INTO ITAB1.

Thanks,

Vinay

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:45:04 GMT

Madhu - Did you get a chance to look at my code?

Thanks,

Santosh

Re: se38 -Code

Former Member — Fri, 02 Mar 2007 19:48:34 GMT

madhu you have to come out of the loop of itab1 after capturing the sy-tabix of the last record and then process the table again in another loop.

This will work..

data: v_tabix type sy-tabix.

loop at itab1 where vbeln = 'P01'.

v_tabix = sy-tabix.

endloop.

loop at itab1 from v_tabix.

insert lines of itab2 into itab1.

exit.

endloop.