Join 3 tables using FOR ALL ENTRIES

Hi,
I want to join 3 tables and show their result in a text file delimited by comma.
ITs a download program.Can someone tell me how to how to join the three table using for all entires instead of inner join.please give step by step illustration

Hi,
Please check below code which downloads records from 3 tables into excel file.
if you want other file means you can specify other file type in the fm parameter
REPORT zstemp_qty2_ LINE-SIZE 255 .
DATA:it_vbak LIKE vbak OCCURS 0 WITH HEADER LINE.
DATA:v_file1 LIKE rlgrap-filename.
DATA:v_file2(80) TYPE c.
DATA:it_vbap LIKE vbap OCCURS 0 WITH HEADER LINE.
DATA:it_mara LIKE mara OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
SELECT * FROM vbak INTO TABLE it_vbak UP TO 100 ROWS.
IF NOT it_vbak[] IS INITIAL.
 SELECT * FROM vbap INTO TABLE it_vbap
 FOR ALL ENTRIES IN it_vbak
 WHERE vbeln = it_vbak-vbeln.
ENDIF.
LOOP AT it_vbap.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = it_vbap-matnr
 IMPORTING
 output = it_vbap-matnr.
 MODIFY it_vbap TRANSPORTING matnr.CLEAR it_vbap.
ENDLOOP.
IF NOT it_vbap[] IS INITIAL.
 SELECT * FROM mara INTO TABLE it_mara
 FOR ALL ENTRIES IN it_vbap
 WHERE matnr = it_vbap-matnr.
ENDIF.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = sy-cprog
 dynpro_number = sy-dynnr
FIELD_NAME = ' '
 IMPORTING
 file_name = v_file1 .
v_file2 = v_file1.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
BIN_FILESIZE = ' '
CODEPAGE = ' '
 filename = v_file2
 filetype = 'WK1'
MODE = ' '
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
 col_select = '1'
COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
 TABLES
 data_tab = it_mara
FIELDNAMES =
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_mara.
 WRITE:/ it_mara-matnr.
ENDLOOP.
Regds
Sivaparvathi
Please reward points if helpful.....

Similar Messages

Populating Empty Fields for Existing Internal Table Using For All Entries

I have an internal table called itab_extract that populates without any issues in SELECT A and SELECT B below. Trying to avoid looping, I am using select DB table 'for all entries' in itab_extract. I want the empty fields in itab_extract to populate from the values in the database. However, about 200,000 entries are being appended to the table, and, the values that existed for the already populated fields in itab_extract are gone, and the new fields are populated.
I've played with the syntax and cannot seem to get it to work. My next option is a time consuming loop.
How should the for all entries syntax look to accomplish filling the empty fields in the itab?   Thank-You
*read ekko
    select ebeln lifnr aedat bsart from ekko                                                     *SELECT A*
           into CORRESPONDING FIELDS OF TABLE me->itab_extract
           where aedat in r_aedat.
    select ebeln lifnr aedat BSART from ekko                                                  *SELECT B*
           appending CORRESPONDING FIELDS OF TABLE me->itab_extract
           where aedat in S_DATE2 AND
                 BSART IN S_BSART.
      select ebelp werks matnr                                                                           *SELECT C*
        into CORRESPONDING FIELDS OF TABLE itab_extract
        from ekpo
        FOR ALL ENTRIES IN itab_extract
        where ebeln = itab_extract-ebeln.

Hi Tom,
           This SQL statement will be time consuming, Do not use a loop.
There are two options.
1. Select EKKO and EKPO details based on standard SAP view. (You can type EKKO in se11 view to find the correct view).
    also use one range table populate r_aedat and s_date2 in the same. So you where condition will have r_newrange and
    s_bsart. Also do not use into corresponding fields, it is not a good idea. It will increase your performance. Maintain the proper
    sequence (Based on database structure of EKKO and EKPO)
2. If you are keen to use for all entries, then first select ekko then after your sy-subrc check get the data from EKPO.
Should be like this.
select ebeln bsart aedat lifnr from ekko into table gt_ekko where aedat in r_newrange and bsart in s_bsart.
if sy-subrc eq 0.
sort gt_ekko by ebeln ascending.
select ebeln ebelp werks matnr into table gt_ekpo for all entries in gt_ekko where ebeln eq gt_ekko-ebeln.
endif.
Hope it helps,
Best Regards,
Tapodipta Khan.

Joins and use FOR ALL ENTRIES

Two questions :
(1) I use join with for all entries: the performance will go down?:
SELECT t1~MBLNR t1~MJAHR ZEILE BUDAT
INTO TABLE gt_mseg
FROM MSEG as T1 INNER JOIN MKPF AS T2
ON T1~MBLNR = T2~MBLNR and
 T2~MJAHR = T2~MJAHR
FOR ALL ENTRIES IN gt_coss
WHERE T1~MJAHR = gt_coss-GJAHR AND
 T1~AUFNR = gt_coss-aufnr AND
 ( BWART = '261' OR
 BWART = '262' ) AND
 T2~BUDAT IN r_budat.
(2) With "For all entries", if itab is too long, performance will go down?. In affirmative case. What can I do?

Hi Jose,
You'll have to make sure your global table gt_coss isn't empty.
A nasty little habit of the IN statement (for all entries is a kind of IN statement)
is that when it is empty, the system selekts all records.
You might know this when u use Select-Options in your statement (like r_budat).
Also there is an OSS note on he for all entries (531337) problems on i-series database.
Greetings Fred.

Develop alv using for all entries

Develop an Sales Document ALV Report .
     Select the mentioned field from two tables using FOR ALL ENTRIES , display the output in ALV Format.
Table Name 1     KNA1     General Data in Customer Master
Fields     KUNNR
     LAND1
     ERDAT
     NAME1
     ORT01
     PSTLZ
Table Name 2     VBAK     Sales Document: Header Data
Fields     VBELN
     AUDAT
     VBTYP
     TRVOG
     AUART
ALV O / P Format Fields     KUNNR     from KNA1 Table
     LAND1     from KNA1 Table
     ERDAT     from KNA1 Table
     NAME1     from KNA1 Table
     ORT01     from KNA1 Table
     PSTLZ     from KNA1 Table
     VBELN     from VBAK Table
     AUDAT     from VBAK Table
     VBTYP     from VBAK Table
     TRVOG     from VBAK Table
     AUART     from VBAK Table
Moderator Message: This is not a training forum. Please refrain from using it as one.
Edited by: kishan P on Jun 6, 2011 2:23 PM

FOA is for passing one internal table to select statement..
Press F1 on it, it will give you the details.
if you really want to pass more than one tables, you can use range tables.. just similar to what we do in case of select-options..
as in
select x y z from dbtab
                     where x in s_x
                              y in s_y.
hope you understand..

Problem in getting records using FOR ALL ENTRIES

Hi All,
I am bringing the employee details with required selection criteria into an internal master table IT_EMPDETAILS.
Now, I would want to fill the other columns of this internal table, using FOR ALL ENTRIES as below:
SELECT ZRCODE FROM PA9001
INTO CORRESPONDING FIELDS OF TABLE IT_EMPDETAILS
FOR ALL ENTRIES IN IT_EMPDETAILS
WHERE PERNR = IT_EMPDETAILS-PERNR
AND ENDDA = '99991231'.
but while i use this, it is actually clearing the IT_EMPDETAILS instead of filling the column of IT_EMPDETAILS table.
what could be going wrong??
Thanks in advance,
Mohan

Dear All,
Thanks for the amazing replies, yesterday's world cup match is really doing wonders i guess!
To give more insight at what i am looking for and what is done so far:
I tried creating another Internal table and then filled that with only PERNR.
and then using that. tried to fill IT_EMPDETAILS internal table using for all entries,
alas it did not work, and it did not work with APPENDING CORRESPONDING either.
now, coming to using LOOP, if I use loop, I am going run the loop for 1lakh emp(approx..and going high everyday) and modify the internal table for 1lakh records. AND not only that, I am going to loop another 9 tables in similar manner. that is 9lakh loops AND thats not all,
after that I have to again loop the master internal table to loop and fill other employee details like 'text' instead of 'code' from a master table.
This is one of the most query intensive, realtime, online comprehensive employee report that i am making.
Appreciate replies from ABAP performance tuning experts and gurus in advance.
Cheers,
Mohan

Can a JOIN statement be rewritten using FOR ALL ENTRIES in any case ?

I had a SELECT statement, like:
 select p~key1 t~col3 t~col4 p~col2 p~col3
 into table itab1
 from ( table1 as p left outer join table2 as t
 on p~key1 = t~key1 and t~col2 = someValue ).
Among which, table1 and table2 are fully buffered.
Code Inspector suggests that this statement should be, e.g., rewritten using FOR ALL ENTRIES.
Since FOR ALL ENTRIES is only possible for WHERE conditions of the SELECT statement, which means the internal table right after it is not available for the RESULT clause of the SELECT statement, can the above statement be rewritten? If yes, how?
Thanks!

hi ,
select pkey1 tcol3 tcol4 pcol2 p~col3
 into table itab1
 from ( table1 as p left outer join table2 as t
 on pkey1 = tkey1 and t~col2 = someValue ).
look below code
select * from table2 into table int_tab2 where col2 = someValue.
select key1 col2 col3 into table int_tab1
FOR ALL ENTRIES IN int_tab2
WHERE key = int_tab2-key1.
then use read statements for manipulations
rgds
Anver

Left outer join using For All Entries

how to implement left outer join using for all entries In REPORTS.

hi Mansi,
this is how i populate
SELECT VGBEL LFIMG POSNR VBELN FROM LIPS INTO TABLE IT_delv FOR ALL ENTRIES IN IT_VBAP WHERE VGBEL = IT_VBAP-VBELN.
LOOP AT IT_delv INTO WA_delv.
WA_FINAL-VBELN_1 = WA_DELV-VBELN_1.
WA_FINAL-LFDAT =   WA_DELV-LFDAT.
WA_FINAL-LFIMG   = WA_DELV-LFIMG.
WA_FINAL-POSNR2 =   WA_DELV-POSNR2..
APPEND WA_FINAL TO IT_FINAL.
CLEAR: WA_FINAL , WA_delv.
ENDLOOP.
LOOP AT IT_FINAL INTO WA_FINAL.
READ TABLE IT_vbap INTO WA_vbap WITH KEY VGBEL = WA_FINAL-VBELN.
WA_FINAL-VBELN = WA_VBAP-VBELN.
WA_FINAL-MATNR = WA_VBAP-MATNR.
WA_FINAL-KWMENG = WA_VBAP-KWMENG.
WA_FINAL-NETWR = WA_VBAP-NETWR.
MODIFY IT_FINAL FROM WA_FINAL.
ENDLOOP.
My question is , it_vbap has 5 five records A,B,C,D,E.
in it_delv ,there are 20 record corrresponding to A,B,D of IT_VBAP.
in final table i wont get info of recors B,E. I want those info also in final table ..how can i do that...

How to use single buffered table with FOR ALL ENTRIES KEYWORD

Hai,
I'm Using TJ02T Database table, It is single buffered table but at the same time I want to use FOR ALL ENTRIES KEYWORD , Please Help me.
Regards,
S.Janani

Hi,
FOR ALL ENTRIES will not depend on the buffering nature of the table. The single buffered table will only only buffer one record into memory. You can still use the statement to query the values, but it may have performance problems if the data volume is high since the records are not completely buffered into memory, the time will spent in getting data from DB.
Thanks..
Preetham S

How to use dynamic internal table with FOR ALL ENTRIES

Hello SDNers,
I am having a dynamic internal table & want to use FOR ALL ENTRIES(FAE) using this dyn. table.
This works fine for me:
IF <lt_tmp> IS NOT INITIAL. "<lt_tmp> is my dyn. internal table
 SELECT field1 field2
 FROM TABLE ztable
 INTO TABLE itab "Itab is a static table
 FOR ALL ENTRIES IN <lt_tmp>
 WHERE (lv_dynwhere). "lv_dynwhere -> dynamic where clause
 ENDIF.
SAP documentation says:
"The logical expression sql_cond of the WHERE condition can be comprised of several logical expressions 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 that can be specified statically or dynamically. "
How do we specify the column of the internal table dynamically ? Can we do something like this:
IF <lt_tmp> IS NOT INITIAL. "<lt_tmp> is my dyn. internal table
 SELECT field1 field2
 FROM TABLE
 INTO TABLE itab "Itab is a static table
 FOR ALL ENTRIES IN <lt_tmp>
 WHERE key_field1 = (dynamic token for column1 of <lt_tmp>)
 key_field2 = (dynamic token for column2 of <lt_tmp>)
 ENDIF.
 ENDIF.
Let me know if i am not clear about my requirement.
BR,
Suhas

Hello Thomas,
What i meant was something like this:
WHERE key_field1 = ('<LT_TMP-COL1>') AND
 key_field2 = ('<LT_TMP-COL2>')
I am confused by what SAP means with "dynamic representation of internal table columns" in FAE ?
@Rob: I was referring to SAPNW 7.0 documentation & the phrase (release 6.40 & higher) is missing. Anyways fyi i am on ECC5.0 ABAP release 6.40.
@Subhankar: This is what Marcin had proposed in For all entries and dynamic table.
Thanks,
Suhas
Edited by: Suhas Saha on Apr 6, 2010 11:53 AM

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

How to restrict field of BSEG using for all entries in

Hi All,
i want restrict field BSEG-UMSKZ by using for all entries in but facing some problem.can someone tell me how to use with example.If you want to see my Query is this.
SELECT: bkpf~belnr
         with_item~buzei
         bkpf~blart
         with_item~wt_acco AS lifnr
         lfa1~name1
         lfa1~stras
         lfa1~ort01
         lfa1~stcd2 AS lifntn
         lfa1~stcd1 AS lifnic
         bkpf~budat
         wt_qsshb AS dmbtr
         qsatz
         witht
         wt_withcd
         wt_qbshb
         hkont
         with_item~wt_wtexmn
   INTO CORRESPONDING FIELDS
   OF TABLE gi_accdocs
   FROM bkpf
   JOIN with_item
   ON ( with_itembukrs = bkpfbukrs AND
   with_itembelnr = bkpfbelnr AND
   with_itemgjahr = bkpfgjahr )
   JOIN lfa1
   ON ( lfa1lifnr = with_itemwt_acco )
   WHERE bkpf~bukrs EQ p_bukrs AND
   bkpf~gjahr EQ p_gjahr AND
   bkpf~budat IN s_budat AND
   bkpf~stblg EQ space AND
   wt_withcd IN s_withcd AND
   with_item~wt_acco IN s_lifnr AND
   with_item~hkont IN s_hkont AND
   bkpf~belnr IN s_belnr.
Thanks & Regards,

hi,
this is the whole coding with FOR ALL ENTRIES:
SELECT: bkpf~belnr
         with_item~buzei
         bkpf~blart
         with_item~wt_acco AS lifnr
         lfa1~name1
         lfa1~stras
         lfa1~ort01
         lfa1~stcd2 AS lifntn
         lfa1~stcd1 AS lifnic
         bkpf~budat
         wt_qsshb AS dmbtr
         qsatz
         witht
         wt_withcd
         wt_qbshb
         hkont
         with_item~wt_wtexmn
   INTO CORRESPONDING FIELDS
   OF TABLE gi_accdocs
   FROM bkpf
   JOIN with_item
   ON ( with_itembukrs = bkpfbukrs AND
   with_itembelnr = bkpfbelnr AND
   with_itemgjahr = bkpfgjahr )
   JOIN lfa1
   ON ( lfa1lifnr = with_itemwt_acco )
   WHERE bkpf~bukrs EQ p_bukrs AND
   bkpf~gjahr EQ p_gjahr AND
   bkpf~budat IN s_budat AND
   bkpf~stblg EQ space AND
   wt_withcd IN s_withcd AND
   with_item~wt_acco IN s_lifnr AND
   with_item~hkont IN s_hkont AND
   bkpf~belnr IN s_belnr.
    SELECT UMSKZ
      from BSEG
      INTO CORRESPONDING FIELDS OF TABLE gi_amount
      FOR ALL ENTRIES IN GI_MAIN
      WHERE UMSKZ NE 'F'.
Thanks & Regards.

How can i write the below code using "For all entries"

Hi
How can we write the below code using "for all entries" and need to avoid joins...
Please help
SELECT aaufnr aobjnr aauart atxjcd a~pspel
agstrp awerks carbpl cwerks
INTO TABLE t_caufv
FROM caufv AS a
INNER JOIN afih AS b
ON aaufnr = baufnr
INNER JOIN crhd AS c
ON bgewrk = cobjid
AND c~objty = 'D'
WHERE ( a~pspel = space
OR a~txjcd = space
OR NOT a~objnr IN
( select OBJNR from COBRB AS e
WHERE objnr = a~objnr ) )
AND a~werks IN s_plant
AND a~auart IN s_wtype
AND NOT a~objnr IN
( select OBJNR from JEST AS d
WHERE objnr = a~objnr
AND ( dstat = 'A0081'OR dstat = 'A0018' )
AND d~inact 'X' ).
Reward points for all helpfull answers
Thanks
Ammi.

Hi,
SELECT objnr objid aufnr
        from afih
        into table t_afih.
SELECT objnr
        from JEST
        into table t_JEST
        where stat = 'A0045'
           OR stat = 'A0046'
           AND inact 'X'.
SELECT objnr
        from COBRB
        into table t_cobrb.
SELECT arbpl werks objid objty
      from crhd
      INTO table it_crhd
      FOR ALL ENTRIES IN it_afih
      WHERE objty eq 'D'
      AND gewrk = it_afih-objid.
SELECT aufnr objnr auart txjcd pspel gstrp werks aufnr
        FROM caufv
        INTO table t_caufv
        FOR ALL ENTRIES IN it_afih
        WHERE aufnr = it_afih-aufnr
          And pspel = ' '
          AND txjcd = ' '
         ANd objnr ne it_crhd-objnr
          AND auart in s_wtype
          AND werks in s_plant.
         AND objnr ne it_jest-objnr.
dont use NE in the select statements, it may effect performance also. Instead use if statements inside
loops.
loop at t_caufv.
read table it_chrd............
if t_caufv-objnr ne it_chrd-objnr.
read table it_jest..........
   if   if t_caufv-objnr ne it_jest-objnr.
    (proceed further).
   endif.
endif.
endloop.
hope this helps.
Reward if useful.
Regards,
Anu

I have a problem in using for all entries

Hi i have a problem in using for all entries
i have declared the two internal tables as below
DATA: BEGIN OF ITAB OCCURS 10,
 EBELN LIKE EKKO-EBELN,
 LIFNR LIKE EKKO-LIFNR,
 EBELP LIKE EKBE-EBELP,
 BELNR LIKE EKBE-BELNR,
* MATNR LIKE EKPO-MATNR,
* TXZ01 LIKE EKPO-TXZ01,
 VGABE LIKE EKBE-VGABE,
 GJAHR LIKE EKBE-GJAHR,
 KNUMV LIKE EKKO-KNUMV,
 END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 10,
 EBELN LIKE EKPO-EBELN,
 MATNR LIKE EKPO-MATNR,
 TXZ01 LIKE EKPO-TXZ01,
 WERKS LIKE EKPO-WERKS,
 NETWR LIKE EKPO-NETWR,
 MENGE LIKE EKPO-MENGE,
 MWSKZ LIKE EKPO-MWSKZ,
 LIFNR LIKE EKKO-LIFNR,
 EBELP LIKE EKBE-EBELP,
 BELNR LIKE EKBE-BELNR,
 END OF ITAB1.
and now i have tried to move the values in those internal tables using these statements
 SELECT A~EBELN A~LIFNR A~KNUMV B~VGABE B~EBELP B~GJAHR B~BELNR
 FROM EKKO AS A
 INNER JOIN EKBE AS B ON B~EBELN = A~EBELN
 INTO CORRESPONDING
 FIELDS OF TABLE ITAB WHERE B~VGABE = '2'.
 SELECT EKPO~EBELN EKPO~MATNR EKPO~TXZ01 EKPO~WERKS EKPO~NETWR
 EKPO~MENGE EKPO~MWSKZ
 FROM EKPO
 INTO CORRESPONDING FIELDS OF TABLE ITAB1
 FOR ALL ENTRIES IN ITAB
 WHERE EBELN = ITAB-EBELN.
 LOOP AT ITAB1.
 READ TABLE ITAB WITH KEY EBELN = ITAB-EBELN.
 ITAB-EBELN = ITAB1-EBELN.
 ITAB1-LIFNR = ITAB-LIFNR.
 ITAB1-EBELP = ITAB-EBELP.
 ITAB1-BELNR = ITAB-BELNR.
 ITAB1-EBELP = ITAB-EBELP.
 APPEND ITAB1.
 ENDLOOP.
But when i was using loop then it was displaying values in debugging mode but while i was trying to execute it was taking a lot of time i thought that it was due to more information in the already declared internal table so i have tried to remove the previous entries but it was showing an error while i was removing the old entries
and when i remove the loop at itab1 then i'll get output directly but it was displaying the itab fields which is my 1st internal table but not the values of itab1 can u explain me what is the possible error for that
Regards ,
Pavan

before using for all entries in, u need to check whether the driver internal table is empty, if it is empty, u should not enter into select statement.
if u wont use this check means, when the driver internal table is empty, the second select will take all the entires from the tables.
SELECT AEBELN ALIFNR AKNUMV BVGABE BEBELP BGJAHR B~BELNR
 FROM EKKO AS A
 INNER JOIN EKBE AS B ON BEBELN = AEBELN
 INTO CORRESPONDING
 FIELDS OF TABLE ITAB WHERE B~VGABE = '2'.
if itab[] is not initial.
 SELECT EKPOEBELN EKPOMATNR EKPOTXZ01 EKPOWERKS EKPO~NETWR
 EKPOMENGE EKPOMWSKZ
 FROM EKPO
 INTO CORRESPONDING FIELDS OF TABLE ITAB1
 FOR ALL ENTRIES IN ITAB
 WHERE EBELN = ITAB-EBELN.
endif.
I hope this will help u.
else,
Sujatha.

Inner join and select for all entries with respect to performance

Hi Friends,
I just want to know which is more efficient with respect to performance the Inner join or select for all entries?which is more efficient? and how? can you explain me in detail ?
Regards,
Dinesh

INNER JOIN->
The data that can be selected with a view depends primarily on whether the view implements an inner join or an outer join. With an inner join, you only get the records of the cross-product for which there is an entry in all tables used in the view. With an outer join, records are also selected for which there is no entry in some of the tables used in the view.
http://help.sap.com/saphelp_nw2004s/helpdata/en/cf/21ec77446011d189700000e8322d00/content.htm
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.

What is the condition for using 'for all entries' and why?

what is the condition for using 'for all entries' and why? can any body tell the reason for this ? its a big favour of me .
regards,
ravi.

hi,
for all entries is used to join two or more tables.
It is same as join but performance wise for all entries is more effective.
You can only use FOR ALL ENTRIES IN ...WHERE ...in a SELECT statement.
SELECT ... FOR ALL ENTRIES IN itab WHERE cond returns the union of the solution sets of all SELECT
statements that would result if you wrote a separate statement for each line of the internal table replacing the symbol
itab-f with the corresponding value of component f in the WHERE condition.Duplicates are discarded from the result
set. If the internal table itab does not contain any entries, the system treats the statement as though there were
no WHERE cond condition, and selects all records (in the current client).
for example:
SELECT * FROM sflight INTO wa_sflight
FOR ALL ENTRIES IN ftab
WHERE CARRID = ftab-carrid AND
CONNID = ftab-connid AND
fldate = '20010228'.
this condition, return all entries of the sflight
hen using FOR ALL ENTRIES the number of matching records is restricted to the number of records in the internal table. If the number of records in the database tables is too large then join would cause overheads in performance. Additionally a JOIN bypasses the table buffering.
So for all entries is used for filtering out the data from the two tables based on the entries in them.
Advantages:
1) For all entries avoids inner join & so the performance increases.
2) For specified values in 1 itab, if you to fetch values from other table you can use it.
3) Use of select stmt in loop is gets avoided, as u can use read statement on the the new itab.

Join 3 tables using FOR ALL ENTRIES

Similar Messages

Maybe you are looking for