ICal - duplicated all entries

Hello
I have been using entourage with iCal as my calendar and sync this with my iphone. I synch possible once a week and no issues.
This monday i synch the phone and mac and only later when checking my phone i noticed a lot of entries had been duplicated, so checking the mac, some entries are repeated up to 5 times.
Im guessing there is not way to remove these new entries but i would like to know if anyone may know why this might have happened so that i can prevent it in the future

I had the same issue, and after several hours, the repeating problem has been eliminated (but not all my issues). This is what I did:
1. Opened Entourage and open Preferences
2. Under the Sync Services pane, uncheck the item "Synchronize Events and Tasks with iCal and .Mac"
3. Click OK
4. Open your Entourage calendar and select All Events under the Calendar Views in the Views Pane
(you may have to display the views pane)
5. Edit all your events to be sure you have only the ones in Entourage you wish to have.
6. Open Preferences back up and reselect the item "Synchronize Events and Tasks with iCal and .Mac"
7. When you do this a window will open and give you 3 options. Select the one that says, "Replace items in Sync Services with items from Entourage"
This should repopulate iCal with your Entourage items.
Hope this helps!

Similar Messages

ICal duplicating All Day events.

I sync my iPhone via USB (not iCloud) with my Mac.
Every now and then if I go through my historical iCal entries, I've noticed that quite a few All Day Events have replicated itself. Some twice whilst others can be replicated up to ten times or more.
This raises the need to indulge in a 'new hobby' of scanning iCal regularly to remove the duplicates manually. In spite of this, iCal persists to replicate some All Day events.
There doesn't appear to be a definite pattern to its replication because it replicates All Day events from more than one Calendar and does so on every other All Day event resulting in what appears to be a randomised replication.
I have no plugins or third party apps which integrate to iCal. For all intents and purposes (to my knowledge) my iCal is stock standard.
Does anyone know what causes this and how to stop it once and for all?
Thanks in advance!!

Try opening isync from your applications folder.
When isync opens, open the isync preferences.
In the isync preferences, click the button to reset sync history.
Once the sync history is reset, quit isync and try syncing the iphone again.
If this does not work, go into the entourage preferences and stop entourage from syncing with ical.
Export all events from ical and clear out any calendars.
Now create a new event in ical and try syncing just that event to the iphone.
If that event syncs ok, go back into the entourage preferences and enable syncing with ical again.
Now try syncing with the iphone.
Hope this helps.

All entries duplicated after update to new MobileMe Calendar

Since updating to the new MobileMe Calendar, all entries in my local calendars (those that appear on both my desktop and my laptop) have every entry duplicated. Each entry that was there before the upgrade is still there and it is overlaid by an identical entry at the exact same times and with the exact same text. The calendar that appears in MobileMe does not have these duplicates. Has anyone else experienced this and does anyone have a solution to remove all the duplicates?

John,
I think I'm in over my head. Yesterday I was prompted to download and install the newest software for my iPhone 4. During the course of the install, I was asked if I wanted to use iCloud as my backup destination, and I answered "yes". Later I was also asked if I wanted to set up a MobileMe account, to facilitate being able to use "Find My Phone". I answered "yes" to that also. (I'm so easy!)
I finished the install and then last night I plugged my phone into the computer to sync and charge, as I always do. It was this morning that I noticed that all the entried in my Calendar (on the phone) were duplicated. I didn't have time to deal with it right away, and while I was at work, I entered a few appointments into my phone. After work, I noticed that not only were the entries on my phone duplicated, but the appointments entered on to my phone this morning, weren't appearing on iCal (on my computer).
My Calendar appointments are crucial to my business, and I need to be able to trust that what I enter on my phone will also show up on my computer, and vice versa. That's where I'm trying to go, and frankly, I don't really understand iCloud or MobileMe, and probably shouldn't have tried to upgrade without more knowledge.
I certainly appreciate the time and patience you've offered me, but I don't want to use your whole day. Worse comes to worst, I can always make an appointment at my local Apple Store. You've been very generous, and I appreciate it.
Thanks again,
Nela

ICal syncing with mac and iphone problem - duplicating all alarms.

I have a mobile me account linked to my office mac, my home mac and my iPhone and my wife's iphone. I have been using this to sync all my contacts and calendar for 18 months with no problems until just after christmas. It suddenly duplicated all my contacts and all my iCal alarms. To solve it I had to use time machine to take my ical and address book back a few days and then force everything to update from that machine.
This I thought solved it but now three weeks later it has duplicated all my alarms again. Why is this happening and how do I stop it? It does not inspire confidence in this system if it randomly changes things. How do I know it will not suddenly delete something? It is also very frustrating and time consuming to reset all the data back a few days.
Any help or advice would be appreciated.

The synchronization between iCal, MobileMe, and iPhone is one of the biggest embarrassments and disgraces Apple has yet to deal with.
For over a year, I have been battling duplicates with little success. Add to all this MS Entourage, which I had to install last year because Mac Mail doesn't play nicely with Exchange server. (My company uses Exchange for our mail, etc.) To be clear, the duplicate problem existed prior to the addition of Entourage 2008. So you are out of luck, Koolaide Fans; you can't point the finger at MS in this case.
After 6 months of struggling and fighting with Entourage (and because there is no native version of MS Project or Visio for Mac) I finally had to install VM Ware with Windows 7, MS Office 2007, Visio, Project, etc. The MS apps work perfectly under the Windows 7 session. So, I my functionality for business has been restored. However, I am left wondering why I have a Mac if it can't provide me the functionality I need for such basic things as Email, calendars, contacts, and tasks. I am to the point where I am basically doing everything in the VMWare session under Windows.
I am very pleased with my Mac's ability to do video editing, graphics, and sound using Adobe products. But again, I work in mainstream corporate America where 90% of the marketshare is still PC/Windows.
In the end, I am hoping someone from Apple can come forward soon and say "This is EXACTLY how you need to configure your Entourage/iCal/MobileMe/iPhone so that you aren't crippled by duplicates and other nonsense...." It really is ridiculous.

Upgraded to 5.0, then 5.0.1. In the process the various calendar "types" disappeared, but at least all entries showed in Ical, with entries made after the upgrade showing pinkish/red. Yesterday all formerly made entries, disappeared. any tips?

Upgraded to 5.0, then 5.0.1. In the process the various calendar "types" disappeared, but at least all entries showed in Ical, with entries made after the upgrade showing pinkish/red. Yesterday all formerly made entries, both old and in the future, disappeared, only recently made ones in pink/red are shown. any tips?
I did switch off and on, did a sync with itunes, etc, but no luck.

RIM doesn't push the upgrades -- your service provider does so, once they have certified and approved the operating system upgrade for their devices.
But, .973 does work on the 9520 in the manner you wish it would, I've used it myself on that model.
1. If any post helps you please click the below the post(s) that helped you.
2. Please resolve your thread by marking the post "Solution?" which solved it for you!
3. Install free BlackBerry Protect today for backups of contacts and data.
4. Guide to Unlocking your BlackBerry & Unlock Codes
Join our BBM Channels (Beta)
BlackBerry Support Forums Channel
PIN: C0001B7B4 Display/Scan Bar Code
Knowledge Base Updates
PIN: C0005A9AA Display/Scan Bar Code

What would cause iCal to double up all entries on iPad, but not on iMac?

On iPAd4, ... Settings, iCloud - Calendars 'ON'.
..... Mail, Contacts, Calendars - /Calendars, New Invitation 'ON'.; Sync 1 Month back
It was working fine on the previous iPad3. Fairly certain that I did not make any hasty changes.
Every entry on iPad4 shows twice, while on iMac & iPhone5 all entries appear only once.
iPad and iPhone settings are identical.
Thoughts?
Thanks

On iPAd4, ... Settings, iCloud - Calendars 'ON'.
..... Mail, Contacts, Calendars - /Calendars, New Invitation 'ON'.; Sync 1 Month back
It was working fine on the previous iPad3. Fairly certain that I did not make any hasty changes.
Every entry on iPad4 shows twice, while on iMac & iPhone5 all entries appear only once.
iPad and iPhone settings are identical.
Thoughts?
Thanks

My itunes library has duplicated all of my music and would take me hours to delete one by one. What is a quick easy way to delete over 2,500 duplicates?

My itunes library has duplicated all of my music and would take me hours to delete one by one. What is a quick easy way to delete over 2,500 duplicates?

Apple's official advice is here... HT2905: How to find and remove duplicate items in your iTunes library. It is a manual process and the article fails to explain some of the potential pitfalls.
Use Shift > View > Show Exact Duplicate Items to display duplicates as this is normally a more useful selection. You need to manually select all but one of each group of identical tracks to remove. Sorting the list by Date Added may make it easier to select the appropriate tracks, however this works best when performed immediately after the dupes have been created. If you have multiple entries in iTunes connected to the same file on the hard drive then don't send to the recycle bin. This can happen, for example, if you start iTunes with a disconnected external drive, then connect it, reimport from your media folder, then restart iTunes.
Use my DeDuper script if you're not sure, don't want to do it by hand, or want to preserve ratings, play counts and playlist membership. See this thread for background. Please take note of the warning to backup your library before deduping, whether you do so by hand or using my script, in case something goes wrong.
(If you don't see the menu bar press ALT to show it temporarily or CTRL+B to keep it displayed)
tt2

For all entries changes the order of the itab

Hi Experts
             In the following query i have used two internal tables namely it_first and it_zlist.
            The material inwhich the it_zlist is different sorting order
      After executing this query, the order of the material inwhich the it_first is different from the it_zlist.
             What could be the reason, pls explain me on this.
select matnr test zsno ztnam from zmaster1
            into corresponding fields of table it_first
                  for all entries in it_zlist
                  where matnr = it_zlist-matnr.
Thanks in advance.
Regards
Rajaram

for all entries u should specified all primary key.
sort by u condition.
Effect
If the addition FOR ALL ENTRIES is specified before the language element WHERE, then the components comp of the internal table itab can be used as operands when comparing with relational operators.
The internal table itab must have a structured line type and the component comp must be compatible with the column col.
The logical expression sql_cond of the WHERE condition can comprise various logical expressions by using AND and OR. However, if FOR ALL ENTRIES is specified, there must be at least one Comparison with a column of the internal table itab, which can be specified either statistically or dynamically (Release 6.40 and higher). In a statement with a SELECTstatement with FOR ALL ENTRIES, the addition ORDER BY can only be used with the addition PRIMARY KEY.
The whole logical expression sql_cond is evaluated for each individual line of the internal table itab. The resulting set of the SELECT statement is the union of the resulting sets from the individual evaluations. Duplicate lines are automatically removed from the resulting set. If the internal table itab is empty, the whole WHERE statement is ignored and all lines in the database are put in the resulting set.
Notes
In Release 6.10 and higher, the same internal table can be specified after FOR ALL ENTRIES and after INTO.
The addition FOR ALL ENTRIES is only possible before WHERE conditions of the SELECT statement.
If the additions PACKAGE SIZE or UP TO n ROWS are specified together with FOR ALL ENTRIES, they are not passed to the database system but are applied instead to the resulting set once all selected rows on the application server have been imported.
With duplicated rows in the resulting set, the addition FOR ALL ENTRIES has the same effect as if addition DISTINCT were specified in the definition of the selection quantity. Unlike DISTINCT, the rows are not deleted from the database system but are deleted on the application server from the resulting set.
Addition FOR ALL ENTRIES is only possible for WHERE conditions of the SELECT statement.
Example
Exporting all flight data for a specified departure city. The relevant airlines and flight numbers are first put in an internal table entry_tab, which is evaluated in the WHERE condition of the subsquent SELECT statement.

Unable to Get the Data Using For All Entries

Hi everybody, i am using for all entries in a program. but when i am writing a code using for all entries i am getting an error as
Where condition does not refers to the FOR ALL ENTRIES tables...
SELECT KUNNR
       NAME1
       ORT01
       LAND1
   FROM KNA1 INTO TABLE ITAB1 WHERE KUNNR IN S_KUNNR.
IF NOT ITAB1 IS INITIAL.
SELECT VBELN
        ERDAT
        KUNNR
   FROM VBAK INTO TABLE ITAB2 FOR ALL ENTRIES IN ITAB1 WHERE KUNNR = IT_KNA1-KUNNR.
ENDIF.
can anybody help out in this
regards
hyder ali

The correct one may be like this:
SELECT KUNNR
NAME1
ORT01
LAND1
FROM KNA1 INTO TABLE ITAB1 WHERE KUNNR IN S_KUNNR.
IF NOT ITAB1 IS INITIAL.
SELECT VBELN
ERDAT
KUNNR
FROM VBAK INTO TABLE ITAB2 FOR ALL ENTRIES IN ITAB1 WHERE KUNNR = ITAB1-KUNNR. "modified here
ENDIF.
Edited by: XuJian84 on Mar 9, 2010 4:25 AM

What is the usage of for all entries ?

What is the Usage of read table after using for all entries ?
In the following example what exactly it is doing ?
Usage of 'for all entries' in Select Statement
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
DATA: BEGIN OF T_VBAP OCCURS 0,
        VBELN LIKE VBAP-VBELN,
        MATNR LIKE VBAP-MATNR,
        POSNR LIKE VBAP-POSNR,
        END OF T_VBAP.
DATA: BEGIN OF T_VBFA OCCURS 0,
        VBELV LIKE VBFA-VBELV,
        VBELN LIKE VBFA-VBELN,
        VBTYP_N LIKE VBFA-VBTYP_N,
        END OF T_VBFA.
DATA: BEGIN OF T_VBAK OCCURS 0,
        VBELN LIKE VBAK-VBELN,
        IHREZ LIKE VBAK-IHREZ,
        END OF T_VBAK.
DATA: BEGIN OF T_KNA1 OCCURS 0,
        KUNNR LIKE KNA1-KUNNR,
        NAME1 LIKE KNA1-NAME1,
        END OF T_KNA1.
   DATA: BEGIN OF T_MAKT OCCURS 0,
        MATNR LIKE MAKT-MATNR,
        MAKTX LIKE MAKT-MAKTX,
        END OF T_MAKT.
SELECT likpvbeln likplifex likpbldat likpwadat likpwadat_ist likpkodat likp~lfart
         likpkunnr likpvstel lipsposnv lipslfimg lipsvrkme lipslgmng lips~meins
         lipswerks lipslgort lipscharg lipsvbelv lipsposnr lipsmatnr
         lipsvbeln LIPSVGBEL LIPSVGPOS vbupkosta vbupwbsta vbupposnr vbup~vbeln
          VBAKIHREZ VBAKVBELN VBAP~VBELN
     INTO CORRESPONDING FIELDS OF TABLE it_itab
    FROM ( likp
           INNER JOIN lips
           ON lipsvbeln = likpvbeln
           INNER JOIN vbup
           ON vbupposnr = lipsposnr
           and VBUPVBELN = LIPSVBELN )
          left outer join VBAK
          on VBAKVBELN = LIPSVGBEL
          inner join VBAP
          on VBAPVBELN = VBAKVBELN )
         WHERE likp~vbeln IN so_vbeln
           AND likp~lifex IN so_lifex
           AND likp~lfart IN so_lfart
           AND likp~kunnr IN so_kunnr
           AND likp~vstel IN so_vstel
           AND likp~bldat IN so_bldat
           AND likp~wadat_ist IN so_wadat
           AND vbup~kosta IN so_kosta
           AND vbup~wbsta IN so_wbsta
           AND LIPS~LFIMG NE 0.
SELECT VBELN IHREZ INTO TABLE T_VBAK
FROM VBAK
FOR ALL ENTRIES IN IT_ITAB
WHERE VBELN = IT_ITAB-VGBEL.
APPEND T_VBAK.
ENDSELECT.
SELECT VBELN MATNR POSNR INTO TABLE T_VBAP
FROM VBAP
FOR ALL ENTRIES IN IT_ITAB
WHERE VBELN = IT_ITAB-VGBEL AND
        MATNR = IT_ITAB-MATNR AND
        POSNR = IT_ITAB-VGPOS.
APPEND T_VBAP.
ENDSELECT.
SELECT VBELV VBELN VBTYP_N INTO TABLE T_VBFA
FROM VBFA
FOR ALL ENTRIES IN IT_ITAB
WHERE VBELV = IT_ITAB-VBELN AND
        VBTYP_N = 'M' .
SELECT KUNNR NAME1 INTO TABLE T_KNA1
FROM KNA1
FOR ALL ENTRIES IN IT_ITAB
WHERE KUNNR = IT_ITAB-KUNNR.
APPEND T_KNA1.
ENDSELECT.
SELECT MATNR MAKTX INTO TABLE T_MAKT
FROM MAKT
FOR ALL ENTRIES IN IT_ITAB
WHERE MATNR = IT_ITAB-MATNR.
APPEND T_MAKT.
ENDSELECT.
*Populate field with color attributes
LOOP AT it_itab INTO wa_ITAB.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
i.e. wa_ekko-line_color = 'C410'
    REFRESH color.
    colourize 'VBELN' 0. " .
    WA_ITAB-farbe = color[].
    ld_color = ld_color + 1.
Only 7 colours so need to reset color value
    IF ld_color = 3. "8
      ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_ITAB-line_color.
    WA_ITAB-NAME1 = ''.
    WA_ITAB-MAKTX = ''.
    WA_ITAB-IHREZ = ''.
    WA_ITAB-VBELV = ''.
    READ TABLE T_KNA1 WITH KEY KUNNR = WA_ITAB-KUNNR.
    IF SY-SUBRC = 0.
       WA_ITAB-NAME1 = T_KNA1-NAME1.
    ENDIF.
    READ TABLE T_MAKT WITH KEY MATNR = WA_ITAB-MATNR.
    IF SY-SUBRC = 0.
    WA_ITAB-MAKTX = T_MAKT-MAKTX.
    ENDIF.
    READ TABLE T_VBAK WITH KEY VBELN = WA_ITAB-VGBEL.
    IF SY-SUBRC = 0.
    WA_ITAB-IHREZ = T_VBAK-IHREZ.
    ENDIF.
    READ TABLE T_VBFA WITH KEY VBELV = WA_ITAB-VBELN.
    IF SY-SUBRC = 0.
    WA_ITAB-VBELVA = T_VBFA-VBELN.
    ENDIF.
   READ TABLE T_VBAP WITH KEY VBELN = WA_ITAB-VGBEL
                              POSNR = WA_ITAB-VGPOS
                              MATNR = WA_ITAB-MATNR.
   IF SY-SUBRC = 0.
   WA_ITAB-IHREZ = T_VBAK-IHREZ.
   ENDIF.
wa_ekko-line_color = 'C410'.
    MODIFY it_itab FROM wa_itab.
ENDLOOP.
ENDFORM. " data_retrieval

hi Jyotirmoy,
The explanation below can give u an idea of wat is going in ur code..
Use of FOR ALL Entries
Outer join can be created using this addition to the where clause in a select statement. It speeds up the performance tremendously, but the cons of using this variation are listed below
Duplicates are automatically removed from the resulting data set. Hence care should be taken that the unique key of the detail line items should be given in the select statement.
If the table on which the For All Entries IN clause is based is empty, all rows are selected into the destination table. Hence it is advisable to check before-hand that the first table is not empty.
If the table on which the For All Entries IN clause is based is very large, the performance will go down instead of improving. Hence attempt should be made to keep the table size to a moderate level.
Not Recommended
            Loop at int_cntry.
             Select single * from zfligh into int_fligh
             where cntry = int_cntry-cntry.
             Append int_fligh.
            Endloop.
Recommended
            Select * from zfligh appending table int_fligh
            For all entries in int_cntry
            Where cntry = int_cntry-cntry.
Thankyou,
Regards.

Using delete and FOR ALL ENTRIES

Hi,
We have a error message regarding the following code :
Delete FROM TABLE FOR ALL ENTRIES IN lt_TABLE WHERE
TABLE_KEY1 = LT_TABLE_KEY1
Could we use the For All entries with "Select" ?
For information, the error message is "Unable to interpret "FOR". Possible causes: Incorrect spelling or comma error.
Thank you.

Hi,
Check the below syntax, if you want to delete from database
DELETE FROM sflight
WHERE carrid = p_carrid AND
fldate = sy-datum AND
seatsocc = 0.
Just a suggestion. May be from next time you can use F1 help for syntax:
1. Place the cursor on the delete keword in your program and press F1 - You willl get all the possible syntax for delete statement
2. Else open the transaction ABAPDOCU, Click Keyword Help, Enter the required keyword(delete in this case) and press cont.. You will get the syntax.
Hope thsi will help you.
Regards,
Swarna Munukoti.

Performance Issue in Select Statement (For All Entries)

Hello,
I have a report where i have two select statement
First Select Statement:
Select A B C P Q R
     from T1 into Table it_t1
          where ....
Internal Table it_t1 is populated with 359801 entries through this select statement.
Second Select Statement:
Select A B C X Y Z
     from T2 in it_t2 For All Entries in it_t1
          where A eq it_t1-A
             and B eq it_t1-B
             and C eq it_t1-C
Now Table T2 contains more than 10 lac records and at the end of select statement it_t2 is populated with 844003 but it takes a lot of time (15 -20 min) to execute second select statement.
Can this code be optimized?
Also i have created respective indexes on table T1 and T2 for the fields in Where Condition.
Regards,

If you have completed all the steps mentioned by others, in the above thread, and still you are facing issues then,.....
Use a Select within Select.
First Select Statement:
Select A B C P Q R package size 5000
     from T1 into Table it_t1
          where ....
Second Select Statement:
Select A B C X Y Z
     from T2 in it_t2 For All Entries in it_t1
          where A eq it_t1-A
             and B eq it_t1-B
             and C eq it_t1-C
do processing........
endselect
This way, while using for all entries on T2, your it_t1, will have limited number of entries and thus the 2nd select will be faster.
Thanks,
Juwin

Performance issue with select query and for all entries.

hi,
i have a report to be performance tuned.
the database table has around 20 million entries and 25 fields.
so, the report fetches the distinct values of two fields using one select query.
so, the first select query fetches around 150 entries from the table for 2 fields.
then it applies some logic and eliminates some entries and makes entries around 80-90...
and then it again applies the select query on the same table using for all entries applied on the internal table with 80-90 entries...
in short,
it accesses the same database table twice.
so, i tried to get the database table in internal table and apply the logic on internal table and delete the unwanted entries.. but it gave me memory dump, and it wont take that huge amount of data into abap memory...
is around 80-90 entries too much for using "for all entries"?
the logic that is applied to eliminate the entries from internal table is too long, and hence cannot be converted into where clause to convert it into single select..
i really cant find the way out...
please help.

chinmay kulkarni wrote:Chinmay,
Even though you tried to ask the question with detailed explanation, unfortunately it is still not clear.
It is perfectly fine to access the same database twice. If that is working for you, I don't think there is any need to change the logic. As Rob mentioned, 80 or 8000 records is not a problem in "for all entries" clause.
>
> so, i tried to get the database table in internal table and apply the logic on internal table and delete the unwanted entries.. but it gave me memory dump, and it wont take that huge amount of data into abap memory...
>
It is not clear what you tried to do here. Did you try to bring all 20 million records into an internal table? That will certainly cause the program to short dump with memory shortage.
> the logic that is applied to eliminate the entries from internal table is too long, and hence cannot be converted into where clause to convert it into single select..
>
That is fine. Actually, it is better (performance wise) to do much of the work in ABAP than writing a complex WHERE clause that might bog down the database.

SD Flow program using For all entries.

using simple ALV grid: I have the urgent requirement of changing the following program using 'For all entries' instead of joins and I should not use 'TABLES' -- For top-of-page I need to get dynamic fields like if I select company code in the selection screen then I need to get 'This report is base on COMPANY CODE'.
This program is about sales flow where i shud get only those records that have ebeln in vbak, delivery, invoice.
The original program is as follows:
*& Report ZSD_DOCU_FLOW                                               *
REPORT zsd_docu_flow NO STANDARD PAGE HEADING                    .
* Program     : ZCOS_SALES                                           *
* Dev. Class : ZSD
* Functional :
* Created on :                                                        *
* Project     :
* CR Number   :
* Transaction : ZSDCSUT                                               *
* Description :   * Sales document life cylce for given customer
*                  to declaired period displaying the sales document
*                  details ,with relevant del details and corresponding
*                  Invocie Details
*-----------     Tables Declaration      -----------*
TABLES: vbak,vbap,vbfa,kna1,vbrk,vbrp,likp,lips,t001.
TYPE-POOLS : slis.
*-----------    Internal Tables Declaration      -----------*
*      Internal Table for Sales Order data                   *
DATA: BEGIN OF it_so OCCURS 0,
        vbeln LIKE vbak-vbeln,
        kunnr LIKE vbak-kunnr,
        posnr LIKE vbap-posnr,
        matnr LIKE vbap-matnr,
        kwmeng LIKE vbap-kwmeng,
        netwr LIKE vbap-netwr,
     END OF it_so.
*      Internal Table for Delivery Order data                   *
DATA: BEGIN OF it_del OCCURS 0,
        delnum LIKE likp-vbeln,
        lfdat LIKE likp-lfdat,
        delitem LIKE lips-posnr,
        lfimg LIKE lips-lfimg,
      END OF it_del.
*      Internal Table for Invoice data                          *
DATA: BEGIN OF it_inv OCCURS 0,
        invnum LIKE vbrk-vbeln,
        invitem LIKE vbrp-posnr,
        fkimg LIKE vbrp-fkimg,
        amount LIKE vbrp-netwr,
     END OF it_inv.
*      Internal Table for Final data                            *
DATA: BEGIN OF it_final OCCURS 0,
        vbeln LIKE vbak-vbeln,
        posnr LIKE vbap-posnr,
        kunnr LIKE vbak-kunnr,
        name LIKE kna1-name1,
        matnr LIKE vbap-matnr,
        kwmeng LIKE vbap-kwmeng,
        netwr LIKE vbap-netwr,
        delnum LIKE likp-vbeln,
        lfdat LIKE likp-lfdat,
        delitem LIKE lips-posnr,
        lfimg LIKE lips-lfimg,
        invnum LIKE vbrk-vbeln,
        invitem LIKE vbrp-posnr,
        fkimg LIKE vbrp-fkimg,
        amount LIKE vbrp-netwr,
     END OF it_final.
*-----------    Variables Declaration      -----------*
DATA: v_name LIKE kna1-kunnr," variable for customer name
      v_delnum LIKE likp-vbeln," variable for delivery number
      v_invnum LIKE vbrk-vbeln." variable for invoce number
DATA : ls_layout TYPE slis_layout_alv,
       it_fcat TYPE slis_t_fieldcat_alv ,
       wa_fcat TYPE slis_fieldcat_alv,
       lh TYPE slis_t_listheader,
       ls TYPE slis_listheader,
       it_events TYPE slis_t_event ,
       ls_event TYPE slis_alv_event ,
       i_sort     TYPE slis_t_sortinfo_alv,
       w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20).
DATA : l_repid LIKE trdir-name.
l_repid = 'ZSD_DOCU_FLOW1'.
*-----------    Select-options & parameters Declaration ---*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE vbak-bukrs_vf,
             p_vkorg LIKE vbak-vkorg,
            p_vtweg LIKE vbak-vtweg,
            p_spart LIKE vbak-spart.
SELECT-OPTIONS: s_kunnr FOR vbak-kunnr,
                s_audat FOR vbak-audat.
SELECTION-SCREEN END OF BLOCK b1.
*----------- AT SELECTION-SCREEN --------------------------*
AT SELECTION-SCREEN.
SELECT SINGLE * FROM t001 INTO t001
                            WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Company Code'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                          WHERE vkorg = p_vkorg.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Sales Organization'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                            WHERE vtweg = p_vtweg.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid distribution channel'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                            WHERE spart = p_spart.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Division'.
ENDIF.
SELECT SINGLE * FROM kna1 INTO kna1
                            WHERE kunnr IN s_kunnr.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Customer Number'.
ENDIF.
*----------- START-OF-SELECTION-----------------------------*
START-OF-SELECTION.
ls-typ = 'H'.
ls-info = 'Sales Document Flow'.
APPEND ls TO lh.
ls-typ = 'S'.
WRITE: sy-datum TO l_date USING EDIT MASK '__/__/____'.
CONCATENATE 'DATE :' l_date INTO l_date1 SEPARATED BY space.
ls-info = l_date1.
APPEND ls TO lh.
PERFORM field_cat.
PERFORM t_sort_build USING i_sort.
PERFORM get-data.
*----------- END-OF-SELECTION-----------------------------*
END-OF-SELECTION.
IF it_final[] IS INITIAL.
    MESSAGE i000(8i) WITH 'No data Found'.
    EXIT.
ENDIF.
PERFORM print-data.
*&      Form get-data
*       text
* --> p1        text
* <-- p2        text
FORM get-data .
* Accesing Sales Data
SELECT a~vbeln a~kunnr b~posnr b~matnr b~kwmeng b~netwr
   INTO CORRESPONDING FIELDS OF TABLE it_so
   FROM vbak AS a INNER JOIN vbap AS b
                         ON a~vbeln = b~vbeln
                          WHERE a~bukrs_vf = p_bukrs
                             AND a~vkorg = p_vkorg
                             AND a~vtweg = p_vtweg
                                AND a~spart = p_spart
                                 AND a~kunnr IN s_kunnr
                                      AND a~audat IN s_audat.
LOOP AT it_so.
    SELECT SINGLE name1 FROM kna1 INTO v_name
                                     WHERE kunnr = it_so-kunnr.
    SELECT SINGLE vbeln FROM vbfa INTO v_delnum
                                      WHERE vbelv = it_so-vbeln
                                        AND vbtyp_n = 'J'.
    IF sy-subrc = 0.
      SELECT SINGLE vbeln FROM vbfa INTO v_invnum
                            WHERE vbelv = v_delnum
                              AND vbtyp_n = 'M'.
    ENDIF.
    MOVE-CORRESPONDING it_so TO it_final.
    it_final-name = v_name.
    it_final-delnum = v_delnum.
    it_final-invnum = v_invnum.
    APPEND it_final.
    CLEAR it_final.
    CLEAR v_delnum.
    CLEAR v_invnum.
ENDLOOP.
LOOP AT it_final.
    IF it_final-delnum NE ' '.
* Reading Del Data.
      SELECT SINGLE a~vbeln a~lfdat b~posnr b~lfimg   INTO
                (it_del-delnum, it_del-lfdat, it_del-delitem,
                 it_del-lfimg ) FROM
                    likp AS a INNER JOIN lips AS b ON a~vbeln = b~vbeln
                               WHERE a~vbeln = it_final-delnum
                               AND b~posnr = it_final-posnr.
      MOVE-CORRESPONDING it_del TO it_final.
      MODIFY it_final.
    ENDIF.
    IF it_final-invnum NE ' '.
* Reading Invoice Data.
      SELECT SINGLE vbeln posnr fkimg netwr INTO
     (it_inv-invnum, it_inv-invitem, it_inv-fkimg, it_inv-amount )
                   FROM vbrp WHERE vbeln = it_final-invnum
                              AND   posnr = it_final-posnr.
      MOVE-CORRESPONDING it_inv TO it_final.
      MODIFY it_final.
    ENDIF.
ENDLOOP.
ENDFORM.                    " get-data
*&      Form print-data
*       text
* --> p1        text
* <-- p2        text
FORM print-data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = l_repid
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
     i_callback_top_of_page            = 'TOP'
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      =
*     I_GRID_SETTINGS                   =
*     IS_LAYOUT                         =
     it_fieldcat                       = it_fcat
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
     IT_SORT                           = i_sort[]
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     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
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     I_HTML_HEIGHT_TOP                 =
*     I_HTML_HEIGHT_END                 =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it_final.
*   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.                    " print-data
*&      Form field_cat
*       text
* --> p1        text
* <-- p2        text
FORM field_cat .
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-key = 'X'.
wa_fcat-ref_fieldname = 'VBELN'.
wa_fcat-ref_tabname = 'VBAK'.
wa_fcat-seltext_m = 'Sales Order NO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'POSNR'.
wa_fcat-ref_fieldname = 'POSNR'.
wa_fcat-ref_tabname = 'VBAP'.
wa_fcat-seltext_m = 'SalesItemNO'.
wa_fcat-fix_column = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KUNNR'.
wa_fcat-seltext_m = 'CUSTNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NAME'.
wa_fcat-seltext_m = 'CUSTNAME'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'MATNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KWMENG'.
wa_fcat-seltext_m = 'Sales Quantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NETWR'.
wa_fcat-seltext_m = 'Value'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELNUM'.
wa_fcat-seltext_m = 'DeloveryNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELITEM'.
wa_fcat-seltext_m = 'DelItemNO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFDAT'.
wa_fcat-seltext_m = 'DelDate'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFIMG'.
wa_fcat-seltext_m = 'DelQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVNUM'.
wa_fcat-seltext_m = 'InvoiceNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVITEM'.
wa_fcat-seltext_m = 'InvoiceItem'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'FKIMG'.
wa_fcat-seltext_m = 'INVQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'AMOUNT'.
wa_fcat-seltext_m = 'INVvalue'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
ENDFORM.     " field_cat
*&      Form top
*       text
FORM t_sort_build USING l_sort TYPE slis_t_sortinfo_alv.
DATA: ls_sort TYPE slis_sortinfo_alv.
ls_sort-fieldname = 'VBELN'.
ls_sort-spos      = 1.
ls_sort-up        = 'X'.
ls_sort-subtot    = 'X'.
APPEND ls_sort TO l_sort.
ls_sort-fieldname = 'KUNNR'.
ls_sort-spos      = 2.
ls_sort-up        = 'X'.
APPEND ls_sort TO l_sort.
ENDFORM.                    "t_sort_bui
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = lh
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP
===========================================================================
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW                                                    *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN,     "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR,     " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR,     " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR,     " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG,   " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR,     " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN,           "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT,           " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR,           " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG,           " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN,          "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR,          "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG,          "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR,          "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
      V_DELVBELN TYPE LIKP-VBELN,
      V_INVVBELN TYPE VBRK-VBELN,
      V_BUKRS TYPE T001-BUKRS,    "COMPANY CODE "#EC *
      V_AUDAT TYPE VBAK-AUDAT,
      V_VKORG TYPE VBAK-VKORG,
      V_VKGRP TYPE VBAK-VKGRP,
      V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
      WA_VBAK TYPE XT_VBAK,
      IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
      WA_VBAP TYPE XT_VBAP,
      IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
      WA_LIKP TYPE XT_LIKP,
      IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
      WA_LIPS TYPE XT_LIPS,
      IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
      WA_VBRK TYPE XT_VBRK,
      IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
      WA_VBRP TYPE XT_VBRP,
      IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
      WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_LSTHDR TYPE SLIS_T_LISTHEADER,
      WA_LSTHDR TYPE SLIS_LISTHEADER,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
                S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
                S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
                S_AUDAT FOR V_AUDAT,      "SALES DOCUMENT DATE
                S_VKORG FOR V_VKORG,      "SALES ORGANISATION
                S_VKGRP FOR V_VKGRP,      "SALES GROUP
                S_SPART FOR V_SPART.      "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*&      Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
        INTO TABLE IT_VBAK
        FROM VBAK
        WHERE VBELN IN S_VBELN.
*        BUKRS_VF IN S_BUKRS AND
*        VKORG IN S_VKORG AND
*        VKGRP IN S_VKGRP AND
*        SPART IN S_SPART AND
*        KUNNR IN S_KUNNR AND
*        AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
        INTO TABLE IT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
        INTO TABLE IT_LIKP
        FROM LIKP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
        INTO TABLE IT_LIPS
        FROM LIPS
        FOR ALL ENTRIES IN IT_VBAP
        WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
        INTO TABLE IT_VBRK
        FROM VBRK
        FOR ALL ENTRIES IN IT_LIKP
        WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
        INTO TABLE IT_VBRP
        FROM VBRP
        FOR ALL ENTRIES IN IT_LIPS
        WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM.                    " GET_DATA
Edited by: srk s on Jan 29, 2008 7:33 PM
Edited by: Alvaro Tejada Galindo on Jan 29, 2008 9:49 AM

Hi Satish,
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries, I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW                                                    *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN,     "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR,     " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR,     " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR,     " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG,   " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR,     " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN,           "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT,           " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR,           " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG,           " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN,          "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR,          "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG,          "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR,          "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
      V_DELVBELN TYPE LIKP-VBELN,
      V_INVVBELN TYPE VBRK-VBELN,
      V_BUKRS TYPE T001-BUKRS,    "COMPANY CODE "#EC *
      V_AUDAT TYPE VBAK-AUDAT,
      V_VKORG TYPE VBAK-VKORG,
      V_VKGRP TYPE VBAK-VKGRP,
      V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
      WA_VBAK TYPE XT_VBAK,
      IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
      WA_VBAP TYPE XT_VBAP,
      IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
      WA_LIKP TYPE XT_LIKP,
      IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
      WA_LIPS TYPE XT_LIPS,
      IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
      WA_VBRK TYPE XT_VBRK,
      IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
      WA_VBRP TYPE XT_VBRP,
      IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
      WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_LSTHDR TYPE SLIS_T_LISTHEADER,
      WA_LSTHDR TYPE SLIS_LISTHEADER,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
                S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
                S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
                S_AUDAT FOR V_AUDAT,      "SALES DOCUMENT DATE
                S_VKORG FOR V_VKORG,      "SALES ORGANISATION
                S_VKGRP FOR V_VKGRP,      "SALES GROUP
                S_SPART FOR V_SPART.      "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*&      Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
        INTO TABLE IT_VBAK
        FROM VBAK
        WHERE VBELN IN S_VBELN.
*        BUKRS_VF IN S_BUKRS AND
*        VKORG IN S_VKORG AND
*        VKGRP IN S_VKGRP AND
*        SPART IN S_SPART AND
*        KUNNR IN S_KUNNR AND
*        AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
        INTO TABLE IT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
        INTO TABLE IT_LIKP
        FROM LIKP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
        INTO TABLE IT_LIPS
        FROM LIPS
        FOR ALL ENTRIES IN IT_VBAP
        WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
        INTO TABLE IT_VBRK
        FROM VBRK
        FOR ALL ENTRIES IN IT_LIKP
        WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
        INTO TABLE IT_VBRP
        FROM VBRP
        FOR ALL ENTRIES IN IT_LIPS
        WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM.                    " GET_DATA
Code Formatted by: Alvaro Tejada Galindo on Jan 29, 2008 9:48 AM

Use of for all entries in abap

Please tell me how to use "for all entries" in linking two
tables for retrieve informations by using corresponding fields in both the tables.plz send the codings.

REPORT YVCHIERSEQ                              .
TYPE-POOLS:SLIS.
DATA:T_VBAK TYPE STANDARD TABLE OF VBAK INITIAL SIZE 0,
     T_VBAP TYPE STANDARD TABLE OF VBAP INITIAL SIZE 0,
     W_VBAK TYPE VBAK,
     W_VBAP TYPE VBAP,
     G_VBELN TYPE VBAK-VBELN,
     W_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
     T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
     W_KEYINFO TYPE SLIS_KEYINFO_ALV.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS:S_VBELN FOR G_VBELN.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
CLEAR:W_VBAK,
      W_VBAP.
REFRESH:T_VBAK,
        T_VBAP.
START-OF-SELECTION.
PERFORM SUB_GET_VBAK.
PERFORM SUB_GET_VBAP.
PERFORM SUB_DISP_OUTPUT.
FORM SUB_GET_VBAK.
SELECT * FROM VBAK INTO TABLE T_VBAK WHERE VBELN IN S_VBELN.
ENDFORM.
FORM SUB_GET_VBAP.
SELECT * FROM VBAP INTO TABLE T_VBAP FOR ALL ENTRIES IN T_VBAK WHERE
VBELN = T_VBAK-VBELN.
ENDFORM.
FORM SUB_DISP_OUTPUT.
W_FIELDCAT-COL_POS = 1.
W_FIELDCAT-FIELDNAME = 'VBELN'.
W_FIELDCAT-SELTEXT_M = 'SALESORDER'.
W_FIELDCAT-TABNAME = 'VBAK'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 2.
W_FIELDCAT-FIELDNAME = 'ERNAM'.
W_FIELDCAT-SELTEXT_M = 'NAME'.
W_FIELDCAT-TABNAME = 'VBAK'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 3.
W_FIELDCAT-FIELDNAME = 'VBTYP'.
W_FIELDCAT-SELTEXT_M = 'SD CATEGORY'.
W_FIELDCAT-TABNAME = 'VBAK'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 4.
W_FIELDCAT-FIELDNAME = 'KUNNR'.
W_FIELDCAT-SELTEXT_M = 'SOLD TO PARTY'.
W_FIELDCAT-TABNAME = 'VBAK'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 5.
W_FIELDCAT-FIELDNAME = 'NETWR'.
W_FIELDCAT-SELTEXT_M = 'NET VALUE'.
W_FIELDCAT-TABNAME = 'VBAK'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 1.
W_FIELDCAT-FIELDNAME = 'POSNR'.
W_FIELDCAT-SELTEXT_M = 'SALES ITEM'.
W_FIELDCAT-TABNAME = 'VBAP'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 2.
W_FIELDCAT-FIELDNAME = 'MATNR'.
W_FIELDCAT-SELTEXT_M = 'MATERIAL NO'.
W_FIELDCAT-TABNAME = 'VBAP'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 3.
W_FIELDCAT-FIELDNAME = 'MATKL'.
W_FIELDCAT-SELTEXT_M = 'MAT GROUP'.
W_FIELDCAT-TABNAME = 'VBAP'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = 4.
W_FIELDCAT-FIELDNAME = 'NETWR'.
W_FIELDCAT-SELTEXT_M = 'NET VALUE'.
W_FIELDCAT-TABNAME = 'VBAP'.
APPEND W_FIELDCAT TO T_FIELDCAT.
CLEAR W_FIELDCAT.
W_KEYINFO-HEADER01 = 'VBELN'.
W_KEYINFO-ITEM01   = 'VBELN'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK              = ' '
    I_CALLBACK_PROGRAM             = SY-CPROG
I_CALLBACK_PF_STATUS_SET       = ' '
I_CALLBACK_USER_COMMAND        = ' '
IS_LAYOUT                      =
    IT_FIELDCAT                    = T_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
I_DEFAULT                      = 'X'
I_SAVE                         = ' '
IS_VARIANT                     =
IT_EVENTS                      =
IT_EVENT_EXIT                  =
    i_tabname_header               =   'VBAK'
    i_tabname_item                 = 'VBAP'
I_STRUCTURE_NAME_HEADER        =
I_STRUCTURE_NAME_ITEM          =
    is_keyinfo                     = W_KEYINFO
IS_PRINT                       =
IS_REPREP_ID                   =
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                =
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
tables
    t_outtab_header                = T_VBAK
    t_outtab_item                  = T_VBAP
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.

ICal - duplicated all entries

Similar Messages

Maybe you are looking for