topic Re: Internal table Item lines in Application Development and Automation Discussions

Internal table Item lines

Former Member — Fri, 30 Jul 2010 10:58:19 GMT

I have an internal table with header and line items for a posting. The header and line items are differntiated with a field called record type and it has values as H or L...now i have to run BDC for the line items.

So ihave to send lines for both H and L as one document...

Record type

This will from two documents: H L L L and H L L....

How should i loop through the internal table to split....i am not sure of the logic to do that.....

KIndly help...

Thanks.

Re: Internal table Item lines

Former Member — Fri, 30 Jul 2010 11:05:20 GMT

Check the syntax

ON CHANGE OF

AT NEW

Check the below code for the DIfference

DATA : BEGIN OF itab OCCURS 0,
bukrs LIKE t001-bukrs,
f1(10) TYPE c,
END OF itab.

itab-bukrs = '1000'.
itab-f1 = '1111111'.
APPEND itab.

itab-bukrs = '1100'.
itab-f1 = '3333333'.
APPEND itab.


itab-bukrs = '1200'.
itab-f1 = '555555'.
APPEND itab.

*at new

LOOP AT itab.
  AT NEW bukrs.
    WRITE :/ itab-bukrs , itab-f1.
  ENDAT.

ENDLOOP.

*onchange

LOOP AT itab.
  ON CHANGE OF itab-bukrs.
    WRITE :/ itab-bukrs , itab-f1.

  ENDON.

ENDLOOP.

Please find the output

1000 **********
1100 **********
1200 **********


1000 1111111
1100 3333333
1200 555555

Edited by: Raj on Jul 30, 2010 4:37 PM

Re: Internal table Item lines

SuhaSaha — Fri, 30 Jul 2010 11:14:38 GMT

You can use loop control statements to achieve this requirement:

LOOP AT itab INTO wa.
  
  wa1 = wa. "Trick to remove the * inside the AT ... ENDAT block

  AT NEW record_type.
    IF wa-record_type = 'H'.
      "Code for header data
    ELSEIF wa-record_type = 'L'.
      "Code for line items
    ENDIF.
  ENDAT.

ENDLOOP.

BR,

Suhas

Re: Internal table Item lines

Former Member — Fri, 30 Jul 2010 15:13:22 GMT

Hi Suhas,

This is not working in this case,if it is header is following with item record it will works,but for the last item records

its not working.

Re: Internal table Item lines

Former Member — Fri, 30 Jul 2010 15:51:05 GMT

you could separate the IT in TWO IT.. one for the header and one for the details.! and do two loops...

Re: Internal table Item lines

kesavadas_thekkillath — Sun, 01 Aug 2010 15:57:06 GMT

It can be done two ways.

You will be having the key fields common for header and item tables.

you can either seperate the item details and header details into seperate internal tables.

The loop at header and then a nested loop at item, like this you can process your bdc.

or you can use control berak statements if you are planning to use a singe internal table.

Re: Internal table Item lines

Former Member — Mon, 02 Aug 2010 07:38:52 GMT

Hi kesav,

This is not working.

Re: Internal table Item lines

kesavadas_thekkillath — Mon, 02 Aug 2010 09:03:46 GMT

Please paste the internal data and your code part.

Re: Internal table Item lines

Former Member — Mon, 02 Aug 2010 11:01:46 GMT

hi,

Just use this simple code .

DATA : BEGIN OF itab OCCURS 0,

bukrs LIKE t001-bukrs,

f1(1) TYPE c,

END OF itab.

itab-f1 = '1'.

itab-bukrs = 'H'.

APPEND itab.

itab-f1 = '2'.

itab-bukrs = 'L'.

APPEND itab.

itab-f1 = '3'.

itab-bukrs = 'L'.

APPEND itab.

itab-f1 = '4'.

itab-bukrs = 'H'.

APPEND itab.

itab-f1 = '5'.

itab-bukrs = 'L'.

APPEND itab.

itab-f1 = '6'.

itab-bukrs = 'L'.

APPEND itab.

itab-f1 = '6'.

itab-bukrs = 'L'.

APPEND itab.

LOOP AT itab.

IF itab-bukrs = 'H'.

"Code for header data

WRITE 😕 itab-bukrs , itab-f1.

ELSEIF itab-bukrs = 'L'.

"Code for line items

WRITE 😕 itab-bukrs , itab-f1.

ENDIF.

ENDLOOP.

Hope this code will help you .

With Regards

Re: Internal table Item lines

Former Member — Mon, 02 Aug 2010 12:04:19 GMT

Hi,

Please try this if it helps...

Before looping the internal table, add a tail record at the end (i.e. a dummy record which you won't process, let's say a record with record_type = 'D') then the syntax ON-CHANGE-OF will work till the last required record.

Let me know if useful...

Regards,

Kiran