QUERY NEEDED

[Former Member]

I HAVE 2 INTERNAL TABLES

A AND B.

FINAL INTERNAL TABLE C.

I NEED TO SEND THE DATA FROM THE TWO INTERNAL TABLES FROM A

AND B TO INTERNAL TABLE C.

WITHOUT DISTURBING THE INTERNAL TABLE C.

CAN ANYONE EXPLAIN ME

[Former Member]

Hi Ashok,

Use APPEND LINES OF statement to append data into final internal table without disturbing the final internal table to your requirement.

APPEND LINES OF ITAB_A TO ITAB_C.

APPEND LINES OF ITAB_B TO ITAB_C.

<b>Friendly Note:</b> You have many open threads and Plz close the threads if they are answered/solved and reward points to the people who are helping you by taking their valuable time apart from their regular activities.

Thanks,

Vinay

[Former Member]

hi ashok..

chk this thread..

hope this helps...

[former_member196299]

Hi ,

You can try this logic :

loop at itab A and append the values to ITAB C . then loop at ITAB B and append the values to ITAB C .. This will not diturb the ITAB C .

Else use APPEND LINES OF statement .

Regards,

Ranjita

[Former Member]

Hi Ashok.

check this code.

here i created two seperate itab for ekko and ekpo,

then one final itab to move the above two itab records.

TABLES : ekko, ekpo.

************************************************************************

• INTERNAL TABLE FOR EKKO *

************************************************************************

TYPES : BEGIN OF fieldst,

ebeln LIKE ekko-ebeln, "Purchase Order Number

aedat LIKE ekko-aedat, "Purchase Order Creation Date

lifnr LIKE ekko-lifnr, "Vendor Number

ekorg LIKE ekko-ekorg, "Purchase Organization

zterm LIKE ekko-zterm, "Payment Text

bstyp LIKE ekko-bstyp, "Document Category

bsart LIKE ekko-bsart, "Dcoument Type

statu LIKE ekko-statu, "Purchase Order Status

END OF fieldst.

DATA itab_ekko TYPE TABLE OF fieldst WITH HEADER LINE.

DATA: lifnr1 TYPE lfa1-lifnr.

************************************************************************

• INTERNAL TABLE FOR EKPO *

************************************************************************

TYPES : BEGIN OF fieldst1,

ebeln LIKE ekpo-ebeln, "Purchase order Number

aedat LIKE ekpo-aedat, "Purchase Order Creation Date

matnr LIKE ekpo-matnr, "Material Number

matkl LIKE ekpo-matkl, "Material Group

menge LIKE ekpo-menge, "Ordered Quantity

netwr LIKE ekpo-netwr, "Net Value

bstyp LIKE ekpo-bstyp, "Document Category

END OF fieldst1.

DATA itab_ekpo TYPE TABLE OF fieldst1 WITH HEADER LINE.

DATA wa like line of itab_ekpo.

************************************************************************

• FINAL OUTPUT TABLE *

************************************************************************

TYPES : BEGIN OF fieldst2,

ebeln LIKE ekko-ebeln,

aedat LIKE ekko-aedat,

lifnr LIKE ekko-lifnr,

ekorg LIKE ekko-ekorg,

zterm(08),

bstyp LIKE ekko-bstyp,

bsart LIKE ekko-bsart,

statu LIKE ekko-statu,

menge LIKE ekpo-menge,

matnr LIKE ekpo-matnr,

matkl LIKE ekpo-matkl,

netwr LIKE ekpo-netwr,

END OF fieldst2.

DATA itab_output TYPE TABLE OF fieldst2 WITH HEADER LINE.

**

*DECLARING CONSTANTS *

************************************************************************

**

DATA : type(3).

type = 'ZWT'.

CONSTANTS : c_bstyp TYPE c VALUE 'F', "Document Category

c_statu TYPE i VALUE '9'. "Status.

************************************************************************

**

*SELECTION SCREEN *

************************************************************************

**

SELECTION-SCREEN BEGIN OF BLOCK input WITH FRAME TITLE text-t01.

SELECT-OPTIONS : s_aedat FOR ekko-aedat.

SELECTION-SCREEN END OF BLOCK input.

************************************************************************

**

*FETCHING RECORDS FROM EKKO TABLE TO ITAB_EKKO *

************************************************************************

SELECT ebeln aedat lifnr ekorg

zterm bstyp bsart statu

FROM ekko INTO TABLE

itab_ekko

WHERE aedat IN s_aedat AND

bstyp EQ c_bstyp AND

bsart EQ type AND

statu EQ c_statu.

************************************************************************

***

*FETCHING RECORDS FROM EKPO TABLE TO ITAB_EKPO *

************************************************************************

***

IF NOT itab_ekko[] IS INITIAL.

SELECT ebeln aedat matnr matkl

menge netwr bstyp

FROM ekpo INTO TABLE itab_ekpo

FOR ALL ENTRIES IN itab_ekko

WHERE aedat IN s_aedat AND

bstyp EQ itab_ekko-bstyp AND

ebeln EQ itab_ekko-ebeln.

LOOP AT itab_ekko.

READ TABLE itab_ekpo INTO wa WITH KEY

ebeln = itab_ekko-ebeln

bstyp = itab_ekko-bstyp

aedat = itab_ekko-aedat BINARY SEARCH.

itab_output-ebeln = itab_ekko-ebeln.

itab_output-aedat = itab_ekko-aedat.

itab_output-lifnr = itab_ekko-lifnr.

itab_output-ekorg = itab_ekko-ekorg.

itab_output-zterm = itab_ekko-zterm.

itab_output-bstyp = itab_ekko-bstyp.

itab_output-bsart = itab_ekko-bsart.

itab_output-statu = itab_ekko-statu.

itab_output-menge = wa-menge.

itab_output-matnr = wa-matnr.

itab_output-matkl = wa-matkl.

itab_output-netwr = wa-netwr.

Append itab_output.

ENDLOOP.

<b>Regards,

Jackie.</b>