Matching data for two internal Table

hi guru's,
i have two internal table that is ITAB and itab1, and both has more than 2000 records, but MATNR is common field in both, so i want to update itab from itab1 according to matnr. can anyone please help me? actually i was using read table but it was not doing correct.
regards Nitin.

dear all,
thanx for reply again...but still same problem. actually i m making a report for material price comparison
purchased in current month and same material if purchased in before months. so i need maintain the final ITAB with including same material if purchased in previus months.
ITAB1 :   EBELN      BLDAT       MATNR    WRBTR
             100023     20080101      abcd        100.00
             100025     20080106      xyzr         250.00
             100028     20080102      abcd        100.00
             100129     20080117      xyzr         150.00
             100159     20080126       uvwx        170.00
ITAB2 :   EBELN      BLDAT1       MATNR    WRBTR1
             200026     20080201      abcd        105.00
             200024     20080206      xyz_r4      250.00
             200023     20080201      abcd        100.00
             200129     20080217      xyzrw        150.00
             200152     20080225      uvwx        190.00
Final record which i need.
ITAB3: EBELN      BLDAT       MATNR    WRBTR   WRBTR1
                   100023     20080101      abcd        100.00     105.00
                   100023     20080101      abcd        100.00     105.00
                   100159     20080126       uvwx        170.00    190.00
please suggest me accordingly...
regards nitin.

Similar Messages

Can we get the data from two internal tables in ALV.

hi friends i would like to display the data using two internal tables using alv grid.please guide me.

Hi,
ALV would be having a specific layout say :
MATNR
MAKTX
QTY
Now, if you have two internal tables, then do they have a different structure. If they have different structures, then what kind of ALV layout you expect. The ALV output should be as per the structure of 1st or 2nd internal table.
If both internal table have same layout, then populate the data from 2nd internal table into 1st internal table and pass the 1st internal table ( it will have data of both internal tables) to ALV.
Best regards,
Prashant

How to delete the matching records from two internal tables

Hi ,
I have two internal tables say A and B of the same type. If A has 10 records and B has 4 records , I want to delete the 4 records in B from A .
loop at B into wa .
delete A where key = wa - key .
endloop.
takes a long time if the table B is huge. how can I improve the performance.
Thanks.
Gayathri

Hi Gayathri,
You could try field-symbols. It reduces the data transfer from the internal table B to the work area.
field-symbols <fs_itab_b> like line of B.
loop at B assigning <fs_itab_b>.
delete A where key = <fs_itab_b>?-key.
endloop.
Regards,
<a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=zwcc%2fwm4ups%3d">anand Mandalika</a>.

Cann't move data between two internal table in Unicode program

Hello expert,
I import a program from old sap system to new system, but syntax error occurred --- ' L_T_S776[] = T_DATA_RECORDS[]. ',
it is said ' internal table L_T_S776 and T_DATA_RECORDS are not mutually convertible, in unicode program, two internal tables must have the same structure layout'.
The coding is:
DATA: L_T_S776 LIKE S776 OCCURS 0 WITH HEADER LINE.
DATA: L_T_S777 LIKE S777 OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <F_S776> TYPE S776.
FIELD-SYMBOLS: <F_S777> TYPE S777.
IF NOT ZCL_USEREXIT=>IS_ACTIVE( PROJN = 11 EXITN = 34 ) IS INITIAL.
CASE I_RMCP2-SCTYP.
 WHEN 'Z776'.
 L_T_S776[] = T_DATA_RECORDS[].
 LOOP AT L_T_S776 ASSIGNING <F_S776>.
 <F_S776>-ZZCUSER = SY-UNAME.
 <F_S776>-ZZCDATE = SY-DATUM.
 <F_S776>-ZZCTIME = SY-TIMLO.
 ENDLOOP.
 T_DATA_RECORDS[] = L_T_S776[].
 WHEN OTHERS.
ENDCASE.
internal table T_DATA_RECORDS is defined to like INDX.
this program is in function module EXIT_SAPMMCP6_011, it is a user_exit.
I also confuse the meaning of this part of coding, could anybody help me?
reward if got useful reply, thank you.
H.B

Hi,
The structure are different thats why you getting this error. But there must be some fields common to which you want to move data. So you change in that way.
And there will be no impact whatsoever because of such change.
Regards,
Atish

Two internal tables data into one

Hello Gurus,
I have data in two internal tables. One table IT_A contains the fields -
MATNR - SALES ORG - DCHANNEL - STATUS - DESCRIPTION
The other table IT_B contains the fields -
CUSTOMER - SALES ORG.
I need to display the result of all the fields when the sales org of both the tables are equal. i.e IT_A-VKORG = IT_B-VTORG.
MATNR - SALES ORG - DCHANNEL - STATUS - DESCRIPTION.
Please help me out with the code to be written.
Regards,
Balu

TABLES    : MVKE, CAUFVD, TVMST.
TYPES     : BEGIN OF T_MVKE,
            MATNR TYPE MVKE-MATNR,
            VKORG TYPE MVKE-VKORG,
            VTWEG TYPE MVKE-VTWEG,
            VMSTA TYPE MVKE-VMSTA,
            VMSTB TYPE TVMST-VMSTB,
            END OF T_MVKE.
DATA      : LT_MVKE TYPE STANDARD TABLE OF T_MVKE WITH HEADER LINE,
            LS_MVKE TYPE T_MVKE.
DATA      : LT1_MVKE TYPE STANDARD TABLE OF T_MVKE WITH HEADER LINE,
            LS1_MVKE TYPE T_MVKE.
DATA      : LT2_MVKE TYPE STANDARD TABLE OF T_MVKE WITH HEADER LINE,
            LS2_MVKE TYPE T_MVKE.
TYPES     : BEGIN OF T_KNVP,
            KUNNR TYPE KNVP-KUNNR,
            VKORG TYPE KNVP-VKORG,
            END OF T_KNVP.
DATA      : LT_KNVP TYPE STANDARD TABLE OF T_KNVP WITH HEADER       LINE,
            LS_KNVP TYPE T_KNVP.
SELECT-OPTIONS S_MATNR FOR MVKE-MATNR.
PARAMETER : P_KUNNR TYPE KNVP-KUNNR .
START-OF-SELECTION.
SELECT MATNR VKORG VTWEG VMSTA FROM MVKE INTO TABLE LT_MVKE WHERE MATNR IN S_MATNR .
IF SY-SUBRC = 0.
APPEND LT_MVKE.
ELSE.
EXIT.
ENDIF.
SELECT DISTINCT KUNNR VKORG FROM KNVP INTO TABLE LT_KNVP WHERE KUNNR = P_KUNNR.
IF SY-SUBRC = 0.
APPEND LT_KNVP.
ELSE.
EXIT.
ENDIF.
LOOP AT LT_MVKE.
LT1_MVKE-MATNR = LT_MVKE-MATNR.
LT1_MVKE-VKORG = LT_MVKE-VKORG.
LT1_MVKE-VTWEG = LT_MVKE-VTWEG.
LT1_MVKE-VMSTA = LT_MVKE-VMSTA.
SELECT SINGLE VMSTB FROM TVMST INTO LT1_MVKE-VMSTB WHERE VMSTA = LT_MVKE-VMSTA AND SPRAS = SYST-LANGU.
APPEND LT1_MVKE.
CLEAR LT1_MVKE.
ENDLOOP.
LOOP AT LT1_MVKE.
IF NOT LT_KNVP[] is INITIAL.
READ TABLE LT_KNVP WITH KEY VKORG = LT1_MVKE-VKORG BINARY SEARCH TRANSPORTING NO FIELDS.
   IF SY-SUBRC = 0.
   APPEND LT1_MVKE TO LT2_MVKE.
   ELSE.
   APPEND LT1_MVKE TO LT2_MVKE.
   MESSAGE S003.
   ENDIF.
CLEAR LT1_MVKE.
ELSE. "IF LT_KNVP[] IS INITIAL.
   APPEND LT1_MVKE TO LT2_MVKE.
ENDIF.
ENDLOOP.
WRITE: /1 'MATERIAL NUMBER', 20 'SALES ORG', 35 'DISTRIBUTION CHANNEL', 65 'MATERIAL STATUS', 85 'STATUS DESCRIPTION'.
LOOP AT LT2_MVKE.
FORMAT HOTSPOT ON.
WRITE: /1 LT2_MVKE-MATNR, 20 LT2_MVKE-VKORG, 35 LT2_MVKE-VTWEG, 65 LT2_MVKE-VMSTA, 85 LT2_MVKE-VMSTB.
HIDE: LT2_MVKE-MATNR, LT2_MVKE-VKORG, LT2_MVKE-VTWEG, LT2_MVKE-VMSTA, LT2_MVKE-VMSTB.
CLEAR LT2_MVKE.
FORMAT HOTSPOT OFF.
ENDLOOP.
AT LINE-SELECTION.
IF LT2_MVKE-VMSTA = ' '.
   MESSAGE E002.
ELSE.
SET PARAMETER ID 'MAT' FIELD LT2_MVKE-MATNR.
CALL TRANSACTION 'CO09'.
DATA WERKS(4) TYPE C VALUE '1200'.
SET PARAMETER ID 'WRK' FIELD WERKS.
DATA RULE(2) TYPE C VALUE 'ZB'.
SET PARAMETER ID 'PRR' FIELD RULE.
SET PARAMETER ID 'X' FIELD CAUFVD-PRMBD.
ENDIF.
Hello gurus,
The above code is working fine when I give both Material and customer in the select options. But it is not doing anything when I enter only the material.
Please help.
Regards,
Balu

Get the Common from Two Internal Tables with same structure

Hi ,
I need to get the Common data from Two Internal Tables with same structure with using the looping method.
For e.g.
I have two internal table say ITAB1 and ITAB2.
ITAB1 has values A,B,C,D,E,F
ITAB2 has values A,H,B,Y,O
Output at runtime should be : A,B

Hi mohit,
1. If u want to compare all fields,
   for matching purpose,
   then we can do like this.
2.
report abc.
data : a like t001 occurs 0 with header line.
data : b like t001 occurs 0 with header line.
loop at a.
LOOP AT B.
    IF A = B.
      WRITE :/ 'SAME'.
    ENDIF.
endloop.
ENDLOOP.
regards,
amit m.

How can i add two table data into third internal table see below

hi i insert diffferent table data into different internal table i did try to insert two different internal table data into third internal table by using move
but only single data is coming please help me
i want this two internal table data inot third internal table.
sELECT * FROM J_1IEXCHDR INTO CORRESPONDING FIELDS OF ITAB1 WHERE STATUS = 'P'.
SELECT * FROM J_1IEXCDTL INTO CORRESPONDING FIELDS OF ITAB2 WHERE LIFNR = J_1IEXCHDR-LIFNR.
                         AND DOCYR = J_1IEXCHDR-DOCYR,
                         AND DOCNO = J_1IEXCHDR-DOCNO.
WRITE: / ITAB1-LIFNR,
          ITAB1-DOCNO,
          ITAB1-EXYEAR,
          ITAB1-BUDAT,
          ITAB2-EXBED,
          ITAB2-RDOC,
          ITAB2-ECS.
ENDSELECT.
ENDSELECT.
thank you .

hi
Two add two internal tables data. first we need to create third internal table with all the fields of first two internal tables.
later u move the two internal tables data to third internal table
by looping the internal table which have more records or depending on the requirement and move the corresponding fields of first internal table to the third internal table and use the read statement with condition based on primary key of first itab and get the corresponding data of 2table into 3table.
i am sending the sample code to u.
check it out. i think u will understand how to move.
select vbeln waerk netwr erdat audat kunnr
   into table it_vbeln
   from vbak
   where vbeln in s_vbeln
     and erdat in s_erdat.
if not it_vbeln[] is initial.
select kunnr name1
   into table it_kunnr
   from kna1
   for all entries in it_vbeln
     where kunnr = it_vbeln-kunnr.
endif.
loop at it_vbeln.
clear it_final.
   it_final-vbeln = it_vbeln-vbeln.
   it_final-waerk = it_vbeln-waerk.
   it_final-netwr = it_vbeln-netwr.
   it_final-erdat = it_vbeln-erdat.
   it_final-audat = it_vbeln-audat.
read table it_kunnr with key kunnr = it_vbeln-kunnr.
   it_final-name1 = it_kunnr-name1.
append it_final.
endloop.

Using for all entries of two internal tables in where clause of the select

Hi experts,
My requirement is, need to select Marc-minbe and wrpl-sobst, for all the entries of the two internal tables it_mara , and it_t001w.
here is the select queries i have used,
select matnr normt from mara into it_mara for all entries in it_data where normt = it_data-normt.
select konnr werks from t001w into it_t001w for all entries in it_data where konnr = it_data-konnr.
now i need to select minbe of marc table and sobse of wrpl table for all the entries of above internal tables, it_mara and it_t001w, using both matnr of it_mara and werks of it_t001w in where condition.
Pls advise how i can do it.
Thanks.
Moderator message: very basic, please work on this yourself first, these forums are not a substitute for ABAP training.
Edited by: Thomas Zloch on Dec 6, 2010 9:38 AM

Hi
call SE16 with table TFTIT in order to get a full list (it will be long...)
A list of FMs with parameters can be found in table FUNCT.
Finally go to sm37rsdf4
that will give you all the function modules with description
Here is the list:
http://www.erpgenie.com/abap/functions.htm
hope this helps...
Regards
CSM Reddy

Function module for comparing contents of two internal tables

Hi All,
Is there any function module to compare contents of two internal tables of same structure?
If yes please let me know.
Thanks in advance.
Amol

Hi
call SE16 with table TFTIT in order to get a full list (it will be long...)
A list of FMs with parameters can be found in table FUNCT.
Finally go to sm37rsdf4
that will give you all the function modules with description
Here is the list:
http://www.erpgenie.com/abap/functions.htm
hope this helps...
Regards
CSM Reddy

Data Transfer between two internal tables

Hi SDN,
If I have two internal tables itab_a and Itab_b and I want to copy a subset of itab_a to itab_b using a conditional statement, is it possible and how?
Second, what if I want to append the smaller internal table itab_b to itab_a, how would you do that.
My task is to take some of the rows from a into b, change one field and append back to a. So if a had 100 rows, now it would have 110.
Please help.
Thanks.
Saf.

If I have two internal tables itab_a and Itab_b and I want to copy a subset of itab_a to itab_b using a conditional statement, is it possible and how?
LOOP AT ITAB_A.
IF ITAB_A-SOME_FIELD = SOME_VALUE.
MOVE-CORRESPONDING ITAB_A TO ITAB_B.
APPEND ITAB_B.
ENDIF.
ENDLOOP.

Can we join two internal tables

Hi to all,
i want take data from one database(db) table into internal table from this we want to retrieve data from other db table and put this data into another internal table .provided that two db tables are depends on foreign key relations .

You can do this a number of ways. You can use an inner join in your select statement and put the required data into an internal table or you can do two selects from the db and loop at the first itab, then loop at the second where the keys match and put the required data into a third internal table.
Here is an example of using an inner joine to get data from db tables into one internal table.
report zrich_0001.
data: begin of ima occurs 0,
      matnr type mara-matnr,
      mtart type mara-mtart,
      werks type marc-werks,
      dispo type marc-werks,
      end of ima.
select-options: s_matnr for ima-matnr.
select mara~matnr mara~mtart marc~werks marc~dispo
       into table ima
             from mara
                 inner join marc
                     on mara~matnr = marc~matnr
                             where mara~matnr in s_matnr.
loop at ima.
write:/ ima-matnr, ima-mtart, ima-werks, ima-dispo.
endloop.
Regards,
Rich Heilman

How to get common datas from two int.tables

hi,
please tell me , how to i will get the common datas between two int. tables
& place them in third int. table.
give me syntax.
regards
subhasis.

Hi Subhasis,
SORT :
SORT itab.
Extras:
1. ... BY f1 f2 ... fn
2. ... ASCENDING
3. ... DESCENDING
4. ... AS TEXT
5. ... STABLE
The syntax check performed in an ABAP Objects context is stricter than in other ABAP areas. See Field symbols not allowed as sort criterion.
Effect
The entries in the internal table are sorted in ascending order using the key from the table definition (DATA, TYPES).
Addition 1
... BY f1 f2 ... fn
Effect
Uses the sort key defined by the sub-fields f1, f2, ..., fn of the table itab instead of the table key. The fields can be of any type; even number fields and tables are allowed.
You can also specify the sort fields dynamically in the form (name). If name is blank at runtime, the sort field is ignored. If itab is a table with a header line, you can also use a field symbol pointing to the header line of itab as a dynamic sort criterion. A field symbol that is not assigned is ignored. If a field symbol is assigned, but does not point to the header line of the internal table, a runtime error occurs.
If the line type of the internal table contains object reference variables as components, or the entire line type is a reference variable, you can use the attributes of the object to which a reference is pointing in a line as sort criteria (see Attributes of Objects as the Key of an Internal Table.
You can address the entire line of an internal table as the key using the pseudocomponent TABLE_LINE. This is particularly relevant for tables with a non-structured line type when you want to address the whole line as the key of the table (see also Pseudocomponent TABLE_LINE With Internal Tables).
If you use one of the additions 2 to 5 before BY, it applies to all fields of the sort key by default. You can also specify these additions after each individual sort field f1, f2, ..., fn. For each key field, this defines an individual sort rule which overrides the default.
Addition 2
... ASCENDING
Effect
Sorts in ascending order. This is also the default if no sort order is specified directly after SORT. For this reason, it is not necessary to specify ASCENDING explicitly as the default sort order.
With the addition BY, you can also specify ASCENDING directly after a sort field to define ascending order explicitly as the sort sequence for this field.
Addition 3
... DESCENDING
Effect
Sorts in descending order. If the addition comes right after SORT, DESCENDING is taken as the default for all fields of the sort key.
With the addition BY, you can also specify DESCENDING directly after a sort field.
Addition 4
... AS TEXT
Effect
Text fields are sorted appropriate to the locale. This means that the relative order of characters is defined according to the text environment being used.
When an internal mode is opened (in other words, when a roll area is opened), the text environment is automatically set to the logon language specified in the user master record. If necessary, however, you can change the text environment explicitly in your program by using a SET-LOCALE statement.
If the addition comes directly after itab, locale-specific rules are used for all fields of the sort key where the type of these fields is C or W. After the sort, the sequence of entries usually does not match the sequence which results otherwise, without using the addition AS TEXT, i.e. with binary sorting.
With the addition BY, you can also specify AS TEXT directly after a sort field, provided it is of type C or W, or a structured type. Otherwise, a runtime error occurs. In sort fields with a structured type, AS TEXT only affects subcomponents with type C or W.
In case of an invalid character, a SYSLOG message is written, and the respective record is inserted at the end.
Note
Please keep the rules for site-specific sorting in mind.
Example
Sort a name table with different keys:
TYPES: BEGIN OF PERSON_TYPE,
 NAME(10) TYPE C,
 AGE TYPE I,
 COUNTRY(3) TYPE C,
 END OF PERSON_TYPE.
DATA: PERSON TYPE STANDARD TABLE OF PERSON_TYPE WITH
 NON-UNIQUE DEFAULT KEY INITIAL SIZE 5,
 WA_PERSON TYPE PERSON_TYPE.
WA_PERSON-NAME = 'Muller'. WA_PERSON-AGE = 22.
WA_PERSON-COUNTRY = 'USA'.
APPEND WA_PERSON TO PERSON.
WA_PERSON-NAME = 'Moller'. WA_PERSON-AGE = 25.
WA_PERSON-COUNTRY = 'FRG'.
APPEND WA_PERSON TO PERSON.
WA_PERSON-NAME = 'Möller'. WA_PERSON-AGE = 22.
WA_PERSON-COUNTRY = 'USA'.
APPEND WA_PERSON TO PERSON.
WA_PERSON-NAME = 'Miller'. WA_PERSON-AGE = 23.
WA_PERSON-COUNTRY = 'USA'.
APPEND WA_PERSON TO PERSON.
SORT PERSON.
Now, the sequence of the table entries is as follows:
Miller 23 USA
Moller 25 FRG
Muller 22 USA
Möller 22 USA
If, for example, you apply German sort rules where the umlaut comes directly after the letter 'o' in the sort, the data record beginning with 'Möller' would not be in the right place in this sequence. It should come second.
Provided a German-language locale is set (e.g. sorting is according to German grammatical rules, see also SET LOCALE), you can sort the names according to German rules as follows:
SORT PERSON BY NAME AS TEXT.
Now, the sequence of table entries is as follows:
Miller 23 USA
Moller 25 FRG
Möller 22 USA
Muller 22 USA
Further examples:
SORT PERSON DESCENDING BY COUNTRY AGE NAME.
Now, the sequence of table entries is as follows:
Miller 23 USA
Möller 22 USA
Muller 22 USA
Moller 25 FRG
SORT PERSON DESCENDING BY AGE ASCENDING NAME AS TEXT.
Now, the sequence of table entries is as follows:
Muller 22 USA
Möller 22 USA
Miller 23 USA
Moller 25 FRG
Addition 5
... STABLE
Effect
Uses a stable sort, that is, the relative sequence of entries that have the same sort key remains unchanged.
Unlike additions 2 to 4, you cannot use this addition directly after a sort field.
Notes
General:
The number of sort fields is restricted to 250.
The sort process is only stable if you use the STABLE addition. Otherwise, a predefined sequence of fields used to sort a list is not usually retained.
It does not make sense to use the SORT command for a SORTED TABLE. If the table type is statically declared, the system returns a syntax error if you try to SORT the table. If the table type is not statically declared (for example, because the table was passed to a FORM routine as an INDEX TABLE in a parameter), and the system can interpret the SORT statement as an empty operation, it ignores the statement. This is the case when the key in the BY clause corresponds to the beginning of the table key. Otherwise, a runtime error occurs.
To delete all duplicate entries from a sorted internal table (e.g. just after SORT), you can use the DELETE ADJACENT DUPLICATES FROM itab statement.
When using the addition AS TEXT, the sequence of entries after the sort does not usually match the sequence resulting from a binary sort, i.e. if the addition AS TEXT is not specified. The consequence of this is that after the SORT, you are not allowed to access with the READ TABLE itab ... BINARY SEARCH statement.
If you still want to access data sorted apppropriate to the locale with a binary search, you can do this by including an additional component in the table where you can explictly store the data formatted using the CONVERT TEXT ... INTO SORTABLE CODE statement. This is also recommended for performance reasons if you have to re-sort the table several times according to locale-specific criteria.
If the internal table has more than 2^19 lines or is larger than 12 MB, the system sorts it physically using an external auxiliary file. You can specify the directory in which the file should be created using the SAP profile parameter DIR_SORTTMP. By default, the system uses the SAP data directory (SAP profile parameter DIR_DATA).
Notes
Performance:
The runtime required to sort an internal table increases with the number of entries and the length of the sort key.
Sorting an internal table with 100 entries with a 50 byte key requires about 1300 msn (standardized microseconds). Using a 30-byte key, the runtime is about 950 msn.
If one of the specified sort criteria is itself an internal table, SORT may sometimes take much longer.
The runtime increases if you use a stable sort.
Physical sorting reduces the runtime required for subsequent sequential processing.
Reward If Useful.
Regards,
Chitra

Copy data from 4 internal tables

Hi Experts,
I need to split a database field into 2 separate fields on the frontend and display it in an alv report.
For this i used 4 internal tables. first one for regular fields and rest 3 of them for the split fields.
Now the problem is, if i use 1 loop and insert workarea in it, the second record overwrites the first and if i use 3 internal tables, the looping is improper and it gives me duplicate entries in the report.
delete adjacent duplicate is also not working.
i am pasting the code. kindly help.
thx
*& Report YVENDRALVRPTFINAL
REPORT YVENDRALVRPTFINAL.
TYPE-POOLS: SLIS.
 DATA: program LIKE sy-repid.
 DATA: fcat TYPE slis_fieldcat_alv.
 DATA: fieldcat TYPE TABLE OF slis_fieldcat_alv.
 DATA: layout TYPE slis_layout_alv.
 Tables: LFA1,
 LFB1,
 T002T.
DATA: Begin of itab1 occurs 0,
 LIFNR LIKE LFA1-LIFNR,
 BUKRS LIKE LFB1-BUKRS,
 KTOKK LIKE LFA1-KTOKK,
 ANRED LIKE LFA1-ANRED,
 NAME1 LIKE LFA1-NAME1,
 SORTL LIKE LFA1-SORTL,
 STRAS LIKE LFA1-STRAS, " HOUSE and STREET NUMBER
 STRAS1 LIKE LFA1-STRAS," STREET NUMBER
 PSTLZ LIKE LFA1-PSTLZ,
 ORT01 LIKE LFA1-ORT01,
 REGIO LIKE LFA1-REGIO,
 LAND1 LIKE LFA1-LAND1,
 SPTXT LIKE T002T-SPTXT,
 TELF1 LIKE LFA1-TELF1,
 TELF2 LIKE LFA1-TELF2,
 TELFX LIKE LFA1-TELFX,
 TELTX LIKE LFA1-TELTX,
 SMTP_SRCH LIKE ADR6-SMTP_SRCH,
 STCEG LIKE LFA1-STCEG,
 BRSCH LIKE LFA1-BRSCH,
 END OF itab1.
DATA: wrkarea1 LIKE LINE OF itab1.
 DATA: Begin of itab2 occurs 0,
 LIFNR LIKE LFA1-LIFNR,
 BUKRS LIKE LFB1-BUKRS,
 KTOKK LIKE LFA1-KTOKK,
 ANRED LIKE LFA1-ANRED,
 NAME1 LIKE LFA1-NAME1,
 SORTL LIKE LFA1-SORTL,
 STRAS LIKE LFA1-STRAS, " HOUSE and STREET NUMBER
 STRAS1 LIKE LFA1-STRAS," STREET NUMBER
 STR LIKE LFA1-STRAS,
 HOU LIKE LFA1-STRAS,
 PSTLZ LIKE LFA1-PSTLZ,
 ORT01 LIKE LFA1-ORT01,
 REGIO LIKE LFA1-REGIO,
 LAND1 LIKE LFA1-LAND1,
 SPTXT LIKE T002T-SPTXT,
 *TELF1 LIKE LFA1-TELF1,
 PHONE LIKE LFA1-TELF1,
 PHONE_EXT LIKE LFA1-TELF1,
 *TELFX LIKE LFA1-TELFX,
 FAX LIKE LFA1-TELFX,
 FAX_EXT LIKE LFA1-TELFX,
 * TELTX LIKE LFA1-TELTX,
 SMTP_SRCH LIKE ADR6-SMTP_SRCH,
 STCEG LIKE LFA1-STCEG,
 BRSCH LIKE LFA1-BRSCH,
 END OF itab2.
 DATA: wrkarea2 LIKE LINE OF itab2.
 DATA: STREET1 TYPE STRING,
 HOUSE1 TYPE STRING,
 PHONE1 TYPE STRING,
 PHONE_EXT1 TYPE STRING,
 FAX1 TYPE STRING,
 FAX_EXT1 TYPE STRING.
 DATA: BEGIN OF ADRDTL,
 HOU TYPE LFA1-STRAS,
 STR TYPE LFA1-STRAS,
 PHONE TYPE LFA1-TELF1,
*PHONE_EXT TYPE LFA1-TELF1,
*FAX TYPE LFA1-TELFX,
*FAX_EXT TYPE LFA1-TELFX,
*END OF ADRDTL.
 DATA: BEGIN OF itabhs occurs 0,
 HSESTREET LIKE LFA1-STRAS,
 END OF itabhs.
 DATA: wahs LIKE LINE OF itabhs.
 DATA: BEGIN OF itabph occurs 0,
 PHONENPHEXT TYPE LFA1-TELF1,
 END OF itabph.
 DATA: waph LIKE LINE OF itabhs.
 DATA: BEGIN OF itabfx occurs 0,
 FAXNFAXEXT TYPE LFA1-TELFX,
 END OF itabfx.
 DATA: wafx LIKE LINE OF itabhs.
 DATA: THREE LIKE LINE OF itab2,
 FOUR LIKE LINE OF itab2.
 DATA: THREE TYPE LFA1-STRAS,
 FOUR TYPE LFA1-STRAS.
SELECT-OPTIONS vendor FOR LFA1-LIFNR.
*parameter vendor type LFA1-LIFNR.
DATA: wa LIKE LFA1-STRAS,
 wa1 LIKE LFA1-STRAS,
 wa2 LIKE LFA1-STRAS.
DATA: BEGIN OF itabhsnew occurs 0,
 STR LIKE LFA1-STRAS,
 HOU LIKE LFA1-STRAS,
 END OF itabhsnew.
DATA: wahsnew LIKE LINE OF itabhsnew.
DATA: BEGIN OF itabphnew occurs 0,
 PHONE LIKE LFA1-TELF1,
 PHONE_EXT LIKE LFA1-TELF1,
 END OF itabphnew.
DATA: waphnew LIKE LINE OF itabphnew.
DATA: BEGIN OF itabfxnew occurs 0,
 FAX LIKE LFA1-TELFX,
 FAX_EXT LIKE LFA1-TELFX,
 END OF itabfxnew.
DATA: wafxnew LIKE LINE OF itabfxnew.
START-OF-SELECTION.
SELECT LFA1STRAS FROM LFA1 INTO TABLE itabhs where LFA1LIFNR IN vendor.
LOOP at itabhs into wahs.
SPLIT wahs AT SPACE INTO STREET1 HOUSE1 .
MOVE STREET1 TO wahsnew-STR.
MOVE HOUSE1 TO wahsnew-HOU.
INSERT wahsnew INTO TABLE itabhsnew.
ENDLOOP.
SELECT LFA1TELF1 FROM LFA1 INTO TABLE itabph where LFA1LIFNR IN vendor.
LOOP at itabph into waph.
SPLIT waph AT '-' INTO PHONE1 PHONE_EXT1.
MOVE PHONE1 TO waphnew-PHONE.
MOVE PHONE_EXT1 TO waphnew-PHONE_EXT.
INSERT waphnew INTO TABLE itabphnew.
ENDLOOP.
SELECT LFA1TELFX FROM LFA1 INTO TABLE itabfx where LFA1LIFNR IN vendor.
LOOP at itabfx into wafx.
SPLIT wafx AT '-' INTO FAX1 FAX_EXT1.
MOVE FAX1 TO wafxnew-FAX.
MOVE FAX_EXT1 TO wafxnew-FAX_EXT.
INSERT wafxnew INTO TABLE itabfxnew.
ENDLOOP.
*MOVE STREET1 TO ADRDTL-STR.
*MOVE HOUSE1 TO ADRDTL-HOU.
*MOVE PHONE1 TO ADRDTL-PHONE.
*MOVE PHONE_EXT1 TO ADRDTL-PHONE_EXT.
*MOVE FAX1 TO ADRDTL-FAX.
*MOVE FAX_EXT1 TO ADRDTL-FAX_EXT.
SELECT LFA1LIFNR LFB1BUKRS LFA1KTOKK LFA1ANRED LFA1~NAME1
LFA1SORTL LFA1PSTLZ LFA1ORT01 LFA1REGIO
LFA1~LAND1
T002T~SPTXT
LFA1TELF1 LFA1TELF2 LFA1TELFX LFA1TELTX
ADR6~SMTP_SRCH
LFA1STCEG LFA1BRSCH
FROM LFA1
INNER JOIN T002T ON LFA1SPRAS = T002TSPRSL AND T002T~SPRAS = 2
INNER JOIN LFB1 ON LFA1LIFNR = LFB1LIFNR
INNER JOIN ADR6 ON LFA1ADRNR = ADR6ADDRNUMBER
INTO TABLE itab1 WHERE LFB1~LIFNR IN vendor.
LOOP AT itab1 INTO wrkarea1.
MOVE-CORRESPONDING wrkarea1 TO wrkarea2.
*MOVE STREET1 TO wrkarea2-STR.
*MOVE HOUSE1 TO wrkarea2-HOU.
*MOVE PHONE1 TO wrkarea2-PHONE.
*MOVE PHONE_EXT1 TO wrkarea2-PHONE_EXT.
*MOVE FAX1 TO wrkarea2-FAX.
*MOVE FAX_EXT1 TO wrkarea2-FAX_EXT.
*MOVE ADRDTL-STR TO wrkarea2-STR.
*MOVE ADRDTL-HOU TO wrkarea2-HOU.
*MOVE ADRDTL-PHONE TO wrkarea2-PHONE.
*MOVE ADRDTL-PHONE_EXT TO wrkarea2-PHONE_EXT.
*MOVE ADRDTL-FAX TO wrkarea2-FAX.
*MOVE ADRDTL-FAX_EXT TO wrkarea2-FAX_EXT.
*MOVE-CORRESPONDING wahs TO wrkarea2.
*MOVE-CORRESPONDING waph TO wrkarea2.
*MOVE-CORRESPONDING wafx TO wrkarea2.
*MOVE-CORRESPONDING wahsnew TO wrkarea2.
*MOVE-CORRESPONDING waphnew TO wrkarea2.
*MOVE-CORRESPONDING wafxnew TO wrkarea2.
*MOVE itabhsnew TO itab2.
INSERT wrkarea2 INTO TABLE itab2.
ENDLOOP.
LOOP AT itabhsnew INTO wahsnew.
MOVE-CORRESPONDING wahsnew TO wrkarea2.
INSERT wrkarea2 INTO TABLE itab2.
ENDLOOP.
LOOP AT itabphnew into waphnew.
MOVE-CORRESPONDING waphnew TO wrkarea2.
INSERT wrkarea2 INTO TABLE itab2.
ENDLOOP.
LOOP AT itabfxnew into wafxnew.
MOVE-CORRESPONDING wafxnew TO wrkarea2.
INSERT wrkarea2 INTO TABLE itab2.
ENDLOOP.
*loop at itabhsnew.
*itab2-HOU = itabhsnew-HOU.
*itab2-str = itabhsnew-str.
*append itab2.
*endloop.
*LOOP AT itabhsnew.
*itab2-HOU = itabhsnew-HOU.
*itab2-str = itabhsnew-str.
*append itab2.
*ENDLOOP.
*delete adjacent duplicates FROM itab2 COMPARING HOU STR PHONE PHONE_EXT FAX FAX_EXT.
*LOOP AT itab2.
*INSERT wrkarea2 INTO TABLE itab2.
*endloop.
*WRITE: THREE.
*new-line.
*WRITE: four.
*new-line.
*WRITE: five.
program = SY-REPID.
*PERFORM SELECT.
*loop at itab2.
*write:/ itab2-LIFNR,
 itab2-BUKRS,
 itab2-KTOKK,
 itab2-ANRED,
 itab2-NAME1,
 itab2-SORTL,
 itab2-HOU,
 itab2-STR,
 itab2-PSTLZ,
 itab2-ORT01,
 itab2-REGIO,
 itab2-LAND1,
 itab2-SPTXT,
 itab2-TELF1,
*itab2-PHONE,
*itab2-PHONE_EXT,
 itab2-TELF2,
 itab2-TELFX,
*itab2-FAX,
*itab2-FAX_EXT,
 itab2-TELTX,
 itab2-SMTP_SRCH,
 itab2-STCEG,
 itab2-BRSCH.
*endloop.
PERFORM CATALOG.
PERFORM LAYOUTMAIN.
PERFORM DISPLAY.
LFA1STRAS LFA1STRAS
*FORM SELECT.
SELECT LFA1LIFNR LFB1BUKRS LFA1KTOKK LFA1ANRED LFA1~NAME1
*LFA1SORTL LFA1PSTLZ LFA1ORT01 LFA1REGIO
*LFA1LAND1 T002TSPTXT LFA1TELF1 LFA1TELF2 LFA1TELFX LFA1TELTX
*ADR6SMTP_SRCH LFA1STCEG LFA1~BRSCH
*FROM LFA1
*INNER JOIN T002T ON LFA1SPRAS = T002TSPRSL AND T002T~SPRAS = 2
*INNER JOIN LFB1 ON LFA1LIFNR = LFB1LIFNR
INNER JOIN ADR6 ON LFA1ADRNR = ADR6ADDRNUMBER
*INTO TABLE itab1 WHERE LFA1~LIFNR IN vendor.
*LOOP AT itab2.
*MOVE itab1 TO itab2.
*APPEND itab2.
*MOVE-CORRESPONDING ADRDTL TO itab2.
*APPEND itab2.
*MOVE-CORRESPONDING ADRDTL TO itab2.
*APPEND itab2.
*ENDLOOP.
*LOOP AT itab1 INTO wrkarea1.
*MOVE-CORRESPONDING wrkarea1 TO wrkarea2.
*ENDLOOP.
*MOVE-CORRESPONDING adrdtl TO wrkarea2.
*LOOP AT itab2.
*INSERT wrkarea2 INTO TABLE itab2.
*ENDLOOP.
*ENDFORM.
FORM CATALOG.
fcat-tabname = 'LFA1'.
fcat-fieldname ='LIFNR'.
fcat-seltext_m = 'Vendor Number'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFB1'.
fcat-fieldname ='BUKRS'.
fcat-seltext_m = 'Company Code'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='KTOKK'.
fcat-seltext_m = 'Account Group'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='ANRED'.
fcat-seltext_m = 'Title'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='NAME1'.
fcat-seltext_m = 'Name'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='SORTL'.
fcat-seltext_m = 'Search Term'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='HOU'.
fcat-seltext_m = 'Street'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='STR'.
fcat-seltext_m = 'House Number'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='PSTLZ'.
fcat-seltext_m = 'Postal Code'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='ORT01'.
fcat-seltext_m = 'City'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='REGIO'.
fcat-seltext_m = 'Region or State'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='LAND1'.
fcat-seltext_m = 'Country'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='SPTXT'.
fcat-seltext_m = 'Language'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='PHONE'.
fcat-seltext_m = 'Telephone'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='PHONE_EXT'.
fcat-seltext_m = 'Extension'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='FAX'.
fcat-seltext_m = 'Fax Number'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='FAX_EXT'.
fcat-seltext_m = 'Extension'.
APPEND fcat TO fieldcat.
fcat-tabname = 'ADR6'.
fcat-fieldname ='SMTP_SRCH'.
fcat-seltext_m = 'E-Mail'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='STCEG'.
fcat-seltext_m = 'VAT Registration Number'.
APPEND fcat TO fieldcat.
fcat-tabname = 'LFA1'.
fcat-fieldname ='BRSCH'.
fcat-seltext_m = 'Industry Type'.
APPEND fcat TO fieldcat.
ENDFORM.
FORM LAYOUTMAIN.
layout-zebra = 'X'.
*layout-edit= 'X'.
*layout-zebra = 'X'.
*layout-zebra = 'X'.
ENDFORM.
FORM DISPLAY.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = 'program'
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = 'VENDOR DETAILS'
I_GRID_SETTINGS =
 IS_LAYOUT = layout
 IT_FIELDCAT = fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 T_OUTTAB = itab2.
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.

HI,
" By taking two internal table
LOOP AT ITAB.
IT_FINAL-FIELD1 = ITAB-FIELD(10).
IT_FINAL-FIELD2 = ITAB-FIELD+10(10).
APPEND IT_FINAL.
CLEAR IT_FINAL.
ENDLOOP.
" By taking one internal table
LOOP AT ITAB.
ITAB-FIELD2 = ITAB-FIELD1(10).
ITAB-FIELD3 = ITAB-FIELD1+10(10).
MODIFY ITAB INDEX SY_TABIX.
ENDLOOP.

How to populate data into Dynamic Internal Table.

Hi Experts,
I had created one Dynamic Internal table and one static internal table.I want to move data from Static Internal table to Dynamic interal table.And aslo the number of coloum of these two tables are not same.
So please help me for solving this issue.
Thanks,
Seema.

Hi,
Check out this sample program for dynamictable report.
REPORT YMS_DYNAMICDEMO
 NO STANDARD PAGE HEADING
 MESSAGE-ID zcs_c2c_001.
type-pools : abap.
field-symbols: <dyn_table> type standard table,
 <dyn_wa>,
 <dyn_field>.
data: dy_table type ref to data,
 dy_line type ref to data,
 xfc type lvc_s_fcat,
 ifc type lvc_t_fcat.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c default 'T001'.
selection-screen end of block b1.
start-of-selection.
perform get_structure.
perform create_dynamic_itab.
perform get_data.
perform write_out.
form get_structure.
data : idetails type abap_compdescr_tab,
 xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
Get the structure of the table.
ref_table_des ?=
 cl_abap_typedescr=>describe_by_name( p_table ).
idetails[] = ref_table_des->components[].
loop at idetails into xdetails.
 clear xfc.
 xfc-fieldname = xdetails-name .
 xfc-datatype = xdetails-type_kind.
 xfc-intlen = xdetails-length.
 xfc-decimals = xdetails-decimals.
 append xfc to ifc.
endloop.
endform.
form create_dynamic_itab.
Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
 exporting
 it_fieldcatalog = ifc
 importing
 ep_table = dy_table.
assign dy_table->* to <dyn_table>.
Create dynamic work area and assign to FS
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
endform.
form get_data.
Select Data from table.
select * into table <dyn_table>
 from (p_table).
endform.
form write_out.
Write out data from table.
loop at <dyn_table> into <dyn_wa>.
 do.
 assign component sy-index
 of structure <dyn_wa> to <dyn_field>.
 if sy-subrc <> 0.
 exit.
 endif.
 if sy-index = 1.
 write:/ <dyn_field>.
 else.
 write: <dyn_field>.
 endif.
 enddo.
endloop.
endform.
Thanks,
Shankar

How to fill the data of two different tables into one?

Hi Experts,
I have two tables named CDHDR and CDSHW(structure). I have extracted the data from these two tables through two function modules named CHANGEDDOCUMENT_HEADER and CHANGEDOCUMENT_POSITION. Now I have the data in to different tables.
These two tables neither has relationship with each other through any field nor have any field which exist in both. Can anyone tell me in this case what should be the process to take the data of both the tables into one table. How can I match the record of one table to another?
thanks a ton in advance.
Edited by: Moni Bindal on Apr 28, 2008 4:16 PM
Edited by: Alvaro Tejada Galindo on Apr 28, 2008 1:42 PM

Hye Bindal,
without a relation, it is not possible to club the data of 2 internal tables. More over it depends on the requirement as to y u should club to non related quantities in an internal table.
if you wish to do so, one thing is it has internal table which includes the strucute of the 2.
data: begin of ty_out,
 first type first_structure,
 second type second_structure,
 end of ty_out.
data: itab type standard table of ty_out.
data: wa type ty_out.
loop into it1 into wa1.
move corresponding wa to wa1.
append wa to itab.
endloop.
loop into it2 into wa2.
move corresponding wa to wa2.
append wa to itab.
endloop.
now the internal table itab will have all the contents of it1 and it2.
<REMOVED BY MODERATOR>
Thanks,
Imran.
Edited by: Alvaro Tejada Galindo on Apr 28, 2008 1:43 PM

Matching data for two internal Table

Similar Messages

Maybe you are looking for