Regarding usage of inner joins in EJBs

Hi All,
          I have a requirement to return an object which contains two tables results.In general in Database we do this by the help of innerjoins concept.Is EJB QL supports joins concept.If it supports how it is possible to write a query on two entity beans.
       I am using SAP NetWeaver Developer Studio IDE for developing EJBs.
Any one guide me in this issue.
Thanks & Regards
     Madhu.

hi
good
go through this link
http://www.hibernate.org/hib_docs/entitymanager/reference/en/html/queryhql.html
Installation problem
thanks
mrutyun

Similar Messages

Regarding Inner join query

Hi Guriji,s
I wrote one inner join query. it is working fine. but when i exceute this query it is fetching the data only 261 movement type but but i also fetch the data movement type 201. for this plz tell me the correction in this query.
select amatnr awerks abwart bbudat into table t_itab from mseg as a inner join mkpf as b
      on amblnr = bmblnr
         where awerks in plant and abwart = '261' or a~bwart = '201'
       and btcode2 = 'mb1a' or btcode2 = 'mfbf' .
thanks.

Hi Sachin
try to use like below
select amatnr awerks abwart bbudat into table t_itab from mseg as a inner join mkpf as b
on amblnr = bmblnr
where awerks in plant and ( abwart = '261' or a~bwart = '201' )
and ( btcode2 = 'mb1a' or btcode2 = 'mfbf' ).
or try to fill ranges like select-options or use like
select amatnr awerks abwart bbudat into table t_itab from mseg as a inner join mkpf as b
on amblnr = bmblnr
where awerks in plant and abwart in ('261', '201')
and btcode2 = 'mb1a' or btcode2 = 'mfbf' .
Regards
Praveen

Regarding : What is used in place of inner join

hi,
i want to know that we use to have inner joins in our reports and i want to know is there anything which can be used in place of it?

Hi,
In place of inner join you can use FOR ALL ENTRIES.
reward point if useful.
Regards
Kumar M

Urgent: Regarding Inner join relation b/w MSEG, MKPF, MARA and MAKT

I have written o code like below for inner join. However, The program has take much more time to give out put. Could any one please correct the below inner join statement. Its very urgent.
Thanks for your help.
SELECT mseg~mblnr
          mseg~matnr
          mseg~werks
          mseg~charg
          mseg~lifnr
          mseg~bualt
          mseg~erfmg
          mseg~ebeln
          mseg~ebelp
          mkpf~budat
          mara~zzshelf_life
          makt~maktx
          FROM mseg
          INNER JOIN mkpf
            ON mkpfmblnr EQ msegmblnr
          INNER JOIN mara
            ON msegmatnr EQ maramatnr
          INNER JOIN makt
            ON maramatnr EQ maktmatnr
          INTO TABLE gt_mat_doc
          WHERE mseg~matnr IN s_matnr
            AND mseg~werks IN s_werks
            AND mseg~lifnr IN s_lifnr
            AND mseg~bwart EQ p_bwart
            AND ( msegebeln NE ' ' AND msegebeln IN s_ebeln )
            AND mkpf~budat IN s_budat
            AND mara~mtart IN s_mtart
            AND makt~spras EQ sy-langu.

Hi,
Do like this
Types: begin of ty_mesg_mkpf,
         mblnr type mseg-mblnr,
         matnr type mseg-matnr,
         werks type mseg-werks,
         charg type mseg-charg,
         lifnr type mseg-lifnr,
         bualt type mseg-bualt,
         erfmg type mseg-erfmg,
         ebeln type mseg-ebeln,
         ebelp type mseg-ebelp,
         budat type mkpf-budat,
       end of ty_mseg_mkpf,
       Begin og ty_mara_makt,
        matnr type mara-matnr,
        zzshelf_life type mara-zzshelf_life,
        maktx type makt-maktx,
       end of ty_mara_makt.
Data: it_mseg_mkpf type table of ty_mseg_mkpf,
      wa_mseg_mkpf type ty_mseg_mkpf,
      it_mara_makt type table of ty_mara_makt,
      wa_mara_makt type ty_mara_makt.
SELECT m1~mblnr
m1~matnr
m1~werks
m1~charg
m1~lifnr
m1~bualt
m1~erfmg
m1~ebeln
m1~ebelp
m2~budat
FROM mseg
INTO TABLE it_mseg_mkpf
INNER JOIN mkpf
ON m1mblnr EQ m2mblnr
WHERE m1~matnr IN s_matnr
AND m1~werks IN s_werks
AND m1~lifnr IN s_lifnr
AND m1~bwart EQ p_bwart
AND ( m1ebeln NE ' ' AND m1ebeln IN s_ebeln )
AND m2~budat IN s_budat
if sy-subrc = 0.
Select m3~matnr
m3~zzshelf_life
m4~maktx from mara as m3
INNER JOIN makt as m4
ON m3matnr EQ m4matnr
INTO TABLE it_mara_makt
where m3~mtart IN s_mtart
AND m4~spras EQ sy-langu.
endif.
loop at it_mseg_mkpf into wa_mseg_mkpf.
Move necessary field values from wa_mseg_mkpf to wa_mat_doc.
Read table it_mara_makt into wa_mara_makt with key matnr = wa_mseg_mkpf-matnr.
if sy-subrc = 0.
move remaining field values to wa_mat_doc.
append wa_mat_doc to gt_mat_doc.
clear wa_mat_doc.
endif.
endloop.
Regards,
Satish

Regarding inner joins and calculations

Dear Experts,
I have a simple problem but i am a little confused. The problem is that i have 3 tables one is ekpo, ekes,ekbe
from ekpo i have to take matnr value and with respect to the matnr value i have to do this
Field discription is opening stock to get this value i have to do this
FOR ANY material sum of MENGE of EKES minus sum of MENGE of EKBE where VGABE=1
Where EKES. EBELN = EKBE. EBELN And EBELP
For input date range for EKBE BUDAT, EKES EINDT
could you help me out with this problem

Hi ,
Don't use inner join for 3 tables. Instead extract the data from 2 tables EKES and EKBE and store in a internal table. for EKPO store in another internal table. now you write the logic to calculate the desired result. By doing this way it will not cause any problems on performance.

Regarding inner join

I am not getting how to inner join two tables(any two internal tables).
please give one example.

Hi,
Check this,
data : begin of itab occurs 0,
matnr like mara-matnr,
ersda like mara-ersda,
maktx like makt-maktx,
end of itab.
SELECT Amatnr Aersda b~maktx
INTO itab
FROM mara AS A INNER JOIN makt AS b
ON Amatnr = bmatnr
ENDSELECT.
Also read this link for understanding,
http://help.sap.com/saphelp_46c/helpdata/en/cf/21ec77446011d189700000e8322d00/frameset.htm
Regards

Data is not fetching in inner join

Hi Experts,
I developed a select query using inner joins, all the fields data is gettting appended, but one field DISPO data is not getting appeneded. please check the innerjoin and suggest me ur soluitons.
MODULE GET_DATA OUTPUT.
select   arbpl
         sptag
         aufnr
         plnum
         posnr
         plnfl
         werks from s022
                    into table it_s022
                     where arbpl in s_arbpl
                      and werks in s_werks
                      and sptag in s_sptag
                      and matnr in s_matnr.
if sy-subrc eq 0.
select a~aufnr
       a~posnr
       a~kdauf
       a~pgmng
       a~plnum
       a~strmp
       b~plnty
       b~gamng
       b~igmng
       b~iasmg
       b~rmnga
       b~gstrp
       b~rsnum
       b~plnbez
       b~dispo
       c~maktx
       b~plnnr
       b~plnty
       b~zaehl
       d~vornr
       d~ltxa1
       b~aufpl
       b~aplzt
       e~astnr
       into corresponding fields of table it_afpo from afko as b
                inner join afpo as a
                 on a~aufnr = b~aufnr
                inner join makt as c
                 on b~plnbez = c~matnr
                inner join plpo as d
                 on b~plnnr = d~plnnr
                  and b~plnty = d~plnty
                  and b~zaehl = d~zaehl
                 inner join aufk as e
                  on b~aufnr = e~aufnr
                inner join marc as f
                 on bplnty = fmatnr
                for all entries in it_s022
                 where b~aufnr = it_s022-aufnr.
                     and e~erdat = it_s022-sptag
                 and a~posnr = it_s022-posnr
                and a~plnum = it_s022-plnum . .
if sy-subrc eq 0.
    it_afpo1[] = it_afpo[].
    sort it_afpo1 by aufpl." aplzt."""
    delete ADJACENT DUPLICATES FROM it_afpo1 COMPARING aufpl." aplzt ."""
    select aufpl
           aplzl
           fsavd
           fsavz
           ssedd
           ssedz
           mgvrg
            FROM afvv INTO TABLE It_afvv
                           FOR ALL ENTRIES IN IT_afpo1
                           WHERE aufpl = IT_afpo1-aufpl.
                            and aplzl = it_afpo1-aplzt.
   endif.
loop at it_afpo into wa_afpo.
DATA : G_SLNO(8) TYPE C.
G_SLNO = G_SLNO + 1.
wa_afpo-slno = g_slno.
    move-corresponding wa_afpo to wa_final.
   move-corresponding wa_afko to wa_final.
read table it_afvv into wa_afvv with key
            aufpl = wa_afpo-aufpl binary search."aplzl = wa_afpo-aplzt binary search."""
*read table it_afko into wa_afko with key aufnr = wa_final-aufnr.
IF SY-SUBRC EQ 0.
    move-corresponding wa_afvv to wa_final.
bal_qty = wa_final-gamng - wa_final-igmng.
    move : wa_afpo-slno to wa_final-slno,
           wa_afpo-aufnr to wa_final-aufnr,
           wa_afpo-posnr to wa_final-posnr,
           wa_afpo-kdauf to wa_final-kdauf, " Sales order Number
           wa_afpo-pgmng to wa_final-pgmng, " Order item qty
           wa_afpo-plnum to wa_final-plnum, " Planned Order Qty
           wa_afpo-strmp to wa_final-strmp, " Planned Order Date
           wa_afpo-gstrp to wa_final-gstrp, " Basic Finish date
           wa_afpo-rsnum to wa_final-rsnum, " Number of Reservation
           wa_afpo-plnbez to wa_final-plnbez, " Material Number
           wa_afpo-maktx to wa_final-maktx,
           wa_afpo-plnnr to wa_final-plnnr,
           wa_afpo-plnty to wa_final-plnty,
           wa_afpo-zaehl to wa_final-zaehl,
           wa_afpo-vornr to wa_final-vornr,
           wa_afpo-ltxa1 to wa_final-ltxa1,
           wa_afpo-aufpl to wa_final-aufpl,
           wa_afvv-fsavd to wa_final-fsavd,
           wa_afvv-fsavz to wa_final-fsavz,
           wa_afvv-ssedd to wa_final-ssedd,
           wa_afvv-ssedz to wa_final-ssedz,
           wa_afvv-mgvrg to wa_final-mgvrg,
           wa_afko-igmng to wa_final-igmng,
           wa_afko-iasmg to wa_final-iasmg,
           wa_afko-rmnga to wa_final-rmnga,
           wa_afko-dispo to wa_final-dispo,
          wa_afko-bal_qty to wa_final-bal_qty,
           wa_aufk-astnr to wa_final-astnr,
           wa_afpo-text to wa_final-text.
*bal_qty = wa_final-gamng - wa_final-igmng.
*bal_qty = wa_afko-bal_qty.
endif.
append wa_final to it_final.
clear:wa_final ,wa_afpo,wa_afvv,wa_aufk,wa_afko.
endloop.
endif.
ENDMODULE.                 " GET_DATA OUTPUT
*&      Module DISPLAY_DATA OUTPUT
      text
MODULE DISPLAY_DATA OUTPUT.
IF REF_CONTAINER IS INITIAL.
     PERFORM FIELD_CAT.
CREATE OBJECT REF_CONTAINER
EXPORTING
       PARENT                      =
    CONTAINER_NAME              = 'CUSTOM_CONTROL'
       STYLE                       =
       LIFETIME                    = lifetime_default
       REPID                       =
       DYNNR                       =
       NO_AUTODEF_PROGID_DYNNR     =
      EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5
        others                      = 6
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
L_LAYO-ZEBRA = 'X'.
L_LAYO-GRID_TITLE = 'JOB CARD'.
data: variant type disvariant.
CREATE OBJECT REF_ALV_GRID
    EXPORTING
       I_SHELLSTYLE      = 0
       I_LIFETIME        =
      I_PARENT          = REF_CONTAINER
       I_APPL_EVENTS     = space
       I_PARENTDBG       =
       I_APPLOGPARENT    =
       I_GRAPHICSPARENT =
       I_NAME            =
       I_FCAT_COMPLETE   = SPACE
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        others            = 5
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
l_variant-report = sy-cprog.
*data: l_prnt type lvc_s_prnt.
*l_prnt-print = 'X'.
SORT T_FCAT.
call method ref_alv_grid->set_ready_for_input
   exporting
    i_ready_for_input = 1.
create object event_receiver.
   set handler event_receiver->handle_top_of_page for ref_alv_grid.
CALL METHOD REF_ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
       EXPORTING
       I_BUFFER_ACTIVE               =
       I_BYPASSING_BUFFER            =
       I_CONSISTENCY_CHECK           =
       I_STRUCTURE_NAME              =
        is_variant                     = variant   "l_variant
        i_save                        = 'X'
       I_DEFAULT                     = 'X'
         IS_LAYOUT                     = L_LAYO
       IS_PRINT                      =
       IT_SPECIAL_GROUPS             =
       IT_TOOLBAR_EXCLUDING          =
       IT_HYPERLINK                  =
       IT_ALV_GRAPHICS               =
       IT_EXCEPT_QINFO               =
       IR_SALV_ADAPTER               =
    CHANGING
      IT_OUTTAB                     = IT_final[]
      IT_FIELDCATALOG               = T_FCAT
       IT_SORT                       =
       IT_FILTER                     =
      EXCEPTIONS
        INVALID_PARAMETER_COMBINATION = 1
        PROGRAM_ERROR                 = 2
        TOO_MANY_LINES                = 3
        others                        = 4
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
   create object g_event_receiver.
   set handler g_event_receiver->handle_user_command for ref_alv_grid.
   set handler g_event_receiver->handle_toolbar for ref_alv_grid.
§ 4.Call method 'set_toolbar_interactive' to raise event TOOLBAR.
   call method ref_alv_grid->set_toolbar_interactive.
   call method cl_gui_control=>set_focus exporting control = ref_alv_grid.
ENDIF.
ENDMODULE.                 " DISPLAY_DATA OUTPUT
*&      Module STATUS_0100 OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN001'.
SET TITLEBAR 'xxx'.
Regards,
Bharath Kumar

I agree with Shiva Kumar - most likely there is no such field in it_afpo. A few more suggestions though:
1) Do not post large pieces of code here - if you have a question about a particular SELECT statement, post only that statement and relevant data definitions. No one is going to read your whole program anyway - we have work to do too.
2) Your JOIN is way too big and would be difficult to analyze if anything goes wrong. You might want to start with smaller SELECTs and, when you're sure everything is working correctly, then combine them into one. Also huge JOINT is not necessarily more efficient.
3) You don't have to use aliases "AS a... AS b", etc. Instead, just use the table name, e.g. AFKO... AFPO... .It is much easier to read this way. The aliases are needed only if you're joining the same table more than once. Also they're not limited to one letter either.

Link for BUT000 table and ADRC in CRM and inner join is not working in PCUI

Hi Gurus,
   Please tell me the link btween BUT000 and ADRC table. and i wrote one inner join between BUT000 and BUT0id table but it not working. I m in CRM 4.0 version working with PCUI.
select but000partner but000name_org1 but000name_org2 but000bus_sort1 but0id~parnter1
      but0ididnumber from but000 inner join but0id on but0idpartner = but000~parnter
into corresponding fields of table it_result where partner in s_partner.
It is giving error as partner unknown from but000 table. I delcared everything and tried with alias names also.
please clarify me.
regards,
Ramakrishna.

Hi Frederic,
   thanks a lot. But is inner join between BUT000 and BUT0ID will work. for me it is not working. plesae see this code.
tables : but000,
         but0id,
         crmm_but_custno,
         adrc.
types : begin of typ_but000,
        partner type bu_partner,
        name_org1 type BU_NAMEOR1,
        name_org2 type BU_NAMEOR2,
        bu_sort1 type BU_SORT1,
        idnumber type BU_ID_NUMBER,
        partner1 type bu_partner,
        end of typ_but000.
data: lt_but000 type table of typ_but000,
      ls_but000 like line of lt_but000.
*select-options : s_partnr for but000-partner.
start-of-selection.
      select but000partner but000name_org1 but000name_org2 but000bu_sort1 but0id~parnter1
                but0id~idnumber into corresponding fields of table lt_but000 from but000
                inner join but0id on but0idpartner = but000parnter. " where partner in s_partner.
it is giving error as but000-partner is not know or but0id-partner not known.
So, i think if it not works then i should write two select stmts.
please clarify me.
i gave u rating.
thanks
ramakrishna.

For All Entries is NOT better than INNER JOIN in most cases

I quote from Siegfried Boes' excellent post here: Will writing an inner join be better or creating a view?
For all the FOR ALL ENTRIES lovers ... there is no proof for these reappearing recommendation.
There is nearly nobody who receives forum points, who recommends FOR ALL ENTRIES instead of Joins. What is the reason ???
It is easier to prove the opposite. A Join is a nested loop inside the database, a FOR ALL ENTRIES is partly outside of the database. FOR ALL ENTRIES works in blocks, joins on totals.
FOR ALL ENTRIES are not recommded on really large tables, because the chances are too high that
too many records are transferred.
People prefer FOR ALL ENTRIES, because JOINs are not so easy to understand. Joins can go wrong, but with a bit of understanding they can be fixed.
Some Joins are slow and can not be fixed, but then the FOR ALL ENTRIES would be extremely slow.
There are several kinds of views:
- projection views, i.e. only one table involved just fields reduced
- join views, several tables, joins conditions stored in dictionary
- materialized views, here the joined data are actually stored in the database. Storing and synchronisation has to be done manually.
Only the last one creates real overhead. It should be the exception.
Join Views and Joins are nearly identical. The view is better for reuse. The join is better in complicated, becuase if the access goes wrong, it can often be fixed by adding a hint. Hints can not be added to views.
Abraham Bukit points out:
If it is cluster table, (you can't use join). If it is buffered table, I would also say avoid join.
If they all are transaction table which are not buffered and are not cluster tables.
He further supports Siegfried's statement that FAE is easier to undestand than INNER JOINs.
Thomas Zloch says, regarding buffered tables:
At least think twice, maybe compare runtimes if in doubt.
So, unless someone has some EVIDENCE that FOR ALL ENTRIES is better, I don't think we want to see this discussed further.
Kind regards
Matt

To give food for thought here's an example I gave in a thread:
If you have a statement like
SELECT ... FOR ALL ENTRIES IN FAE_itab WHERE f = FAE_itab-f.
SAP sends it to the database depending how the parameter rsdb/prefer_union_all is set:
rsdb/prefer_union_all = 0 =>
SELECT ... WHERE f = FAE_itab[1]-f
          OR    f = FAE_itab[2]-f
          OR    f = FAE_itab[N]-f
You have some influence of the generated statement type: Instead of OR'ed fields an IN list can be used
if you have only a single coulmn N to compare:
rsdb/prefer_in_itab_opt parameter:
SELECT ... WHERE f IN (itab[1]-f, itab[2]-f, ..., itab[N]-f)
rsdb/prefer_union_all = 1 =>
SELECT ... WHERE f = FAE_itab[1]-f
UNION ALL SELECT ... WHERE f = FAE_itab[2]-f
UNION ALL SELECT ... WHERE f = FAE_itab[N]-f
see: Note 48230 - Parameters for the SELECT ... FOR ALL ENTRIES statement
As you can see for the 2nd parameter several statements are generated and combined with a UNION ALL,
the first setting generates statements with OR's (or uses IN if possible) for the entries in FAE_itab.
I give you a little example here (my parameters are set in a way that the OR's are translated to IN lists; i traced the execution in ST05)
Select myid into table t_tabcount from mydbtable
for all entries in t_table    " 484 entries
    where myid = t_table-myid .
ST05 trace:
|Transaction SEU_INT|Work process no 0|Proc.type DIA|Client 200|User |
|Duration |Obj. name |Op.    |Recs.|RC    |Statement|
| 640|mydbtable |PREPARE|   | 0|SELECT WHERE "myid" IN ( :A0 , :A1 , :A2 , :A3 , :A4 ) AND "myid" = :A5|
| 2|mydbtable |OPEN   |   | 0|SELECT WHERE "myid" IN ( 1 , 2 , 3 , 4 , 5 ) AND "myid" = 72 |
| 2.536|mydbtable |FETCH |    0| 1403|   |
| 3|mydbtable |REOPEN |   | 0|SELECT WHERE "myid" IN ( 6 , 7 , 8 , 9 , 10 ) AND "myid" = 72 |
| 118|mydbtable |FETCH | 0| |
| 2|mydbtable |REOPEN | | 0|SELECT WHERE "myid" IN ( 11 , 12 , 13 , 14 , 15 ) AND "myid" = 72     |
| 3|mydbtable |REOPEN | | 0|SELECT WHERE "myid" IN ( 475 , 476 , 477 , 478 , 479 ) AND "myid" = 72 |
| 94|mydbtable |FETCH | 0| 1403|   |
| 2|mydbtable |REOPEN |   | 0|SELECT WHERE "myid" IN ( 480 , 481 , 482 , 483 , 484 ) AND "myid" = 72 |
You see the IN list contained 5 entries each , wich made up about 97 statements for all 484 entries.
For every statment you have a single fetch operation wich means a separate access to the database.
If you would replace the FAE with a join you would only have one fetch to the database.
With the example above we can derive these observations:
1. From database point of view these settings kill performance when you access a big table and/or have a lot of entries or columns in your FAE_itab. Furthermore, you hide information what data you will access
at all and thus you block the database from creating a more efficient execution plan because it DOESN'T KNOW wich data you will select in the next step. I.e. it may be more efficient to scan the table in one shot instead of having many index accesses - but the database can make this decision only if it can examine ONE statement that has ALL the information of what data to retrieve.
2. A second impact is that with every statement execution you trigger the allocation of database resources
wich will contribute to the overhead described above.
Said that, FAE can never be a replacement for joining big tables (think of having a table with thousands of records in a FAE table )
Edited by: kishan P on Nov 2, 2010 2:16 PM - Format Fixed

Help on Inner Join Query

Hi ABAPers,
I was trying to develop a report for which query is something like this.
*& Report ZT_SERIAL
REPORT ZT_SERIAL.
TABLES : SER01,SER03,OBJK,LIKP,LIPS. " LIKP - SD invoice header table, LIPS - SD invoice details table
TYPE-POOLS: SLIS.
DATA: AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
MANDATORY WHILE DECLARING ALV ***
DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV..
DATA: V_EVENTS TYPE SLIS_T_EVENT.
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.
DATA: I_TITLE_SL_NO_TRACK TYPE LVC_TITLE VALUE 'SERIAL NO TRACKER'.
DATA : BEGIN OF ITAB OCCURS 0,
       OBKNR LIKE OBJK-OBKNR,     "OBJECT LIST
       OBZAE LIKE OBJK-OBZAE,     "OBJECT COUNTER
       KUNDE LIKE SER01-KUNDE,    "CUSTOMER NO
       MATNR LIKE OBJK-MATNR,     "PART NO
       SERNR LIKE OBJK-SERNR,     "SERIAL NO
       MBLNR LIKE SER03-MBLNR,    "GRN/MATERIAL DOC NO
       LIEF_NR LIKE SER01-LIEF_NR,"OUTBOUND DELV NO
       DATUM LIKE SER01-DATUM,    "OUTBOUND DELV DATE
       TASER LIKE OBJK-TASER,     "HEADER TABLE
       ANZSN LIKE SER01-ANZSN,    "NO OF SERIAL NOS
       VGBEL LIKE LIPS-VGBEL,     "SALES ORDER NO
       END OF ITAB.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KUNDE FOR SER01-KUNDE,
                  S_VGBEL FOR LIPS-VGBEL,
                  S_MATNR FOR OBJK-MATNR,
                  S_SERNR FOR OBJK-SERNR,
                  S_MBLNR FOR SER03-MBLNR,
                  S_LIFNR FOR SER01-LIEF_NR,
                  S_DATUM FOR SER01-DATUM.
SELECTION-SCREEN : END OF BLOCK B1.
PERFORM TRACKING.
PERFORM FLDCAT.
PERFORM BUILD_LAYOUT.
***CALL FUNCTION TO DISPLAY IN ALV FORMAT*******
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM = SY-REPID
    I_GRID_TITLE       = I_TITLE_SL_NO_TRACK
    IS_LAYOUT          = LAYOUT
    IT_FIELDCAT        = P_FIELDTAB[]
    I_SAVE             = 'A'
    IT_EVENTS          = V_EVENTS
TABLES
    T_OUTTAB           = ITAB.
***END OF CALL FUNCTION
FORM TRACKING.
SELECT OBJKOBKNR OBJKOBZAE OBJKMATNR OBJKSERNR OBJK~TASER
       SER01KUNDE SER01LIEF_NR SER01DATUM SER01ANZSN
       SER03~MBLNR
       LIPS~VGBEL
       INTO TABLE ITAB FROM OBJK
       INNER JOIN SER01 ON OBJKOBKNR = SER01OBKNR
       INNER JOIN SER03 ON OBJKOBKNR = SER03OBKNR
       INNER JOIN LIPS ON SER01LIEF_NR = LIPSVBELN
       WHERE
       OBJKTASER = 'SER01' OR OBJKTASER = 'SER03'.
       OBJK~MATNR IN S_MATNR AND
       OBJK~SERNR IN S_SERNR AND
       SER01~KUNDE IN S_KUNDE AND
       SER01~LIEF_NR IN S_LIFNR AND
       SER01~DATUM IN S_DATUM AND
       SER03~MBLNR IN S_MBLNR AND
       LIPS~VGBEL IN S_VGBEL.
ENDFORM.
*&      Form fldcat
      text
FORM FLDCAT.
PERFORM FLDCAT1 USING 'KUNDE' 'Customer No'.
PERFORM FLDCAT1 USING 'VGBEL' 'Sales Order No'.
PERFORM FLDCAT1 USING 'MATNR' 'Tejas Part No'.
PERFORM FLDCAT1 USING 'SERNR' 'Serial No'.
PERFORM FLDCAT1 USING 'MBLNR' 'Material Doc No'.
PERFORM FLDCAT1 USING 'LIEF_NR' 'Outbound Delv No'.
PERFORM FLDCAT1 USING 'DATUM' 'Outbound Delv Date'.
ENDFORM.                    "fldcat
*&      Form fldcat1
      text
     -->FNAM       text
     -->FTEXT      text
FORM FLDCAT1 USING FNAM FTEXT.
    DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
          L_FIELDCAT-FIELDNAME = FNAM.
          L_FIELDCAT-SELTEXT_M = FTEXT.
IF FNAM EQ 'MATNR'."OR fnam EQ 'PKUNAG'.
    L_FIELDCAT-KEY = 'X'.
ENDIF.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
APPEND L_FIELDCAT TO P_FIELDTAB.
CLEAR fldcat1.
ENDFORM.                                                    "fldcat1
*&      Form build_layout
      text
FORM BUILD_LAYOUT .
LAYOUT-NO_INPUT          = 'X'.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-ZEBRA = 'X'.
LAYOUT-TOTALS_TEXT       = 'Totals'(256).
layout-coltab_fieldname = 'CELL_COLOUR'.
*clear layout.
ENDFORM.
But when I run this query,the program gets terminated.Can you please help me in rectifying the query and generate the output?
Thanks in advance
Bhavin

Hi
I have corrected the code please copy and past it and then try.
Report ZT_SERIAL.
TABLES : SER01,SER03,OBJK,LIKP,LIPS.
" LIKP - SD invoice header table, LIPS - SD invoice details table
TYPE-POOLS: SLIS.
DATA: AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
     + MANDATORY WHILE DECLARING ALV ***
DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV..
DATA: V_EVENTS TYPE SLIS_T_EVENT.
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.
DATA: I_TITLE_SL_NO_TRACK TYPE LVC_TITLE VALUE 'SERIAL NO TRACKER'.
DATA : BEGIN OF ITAB OCCURS 0,
OBKNR LIKE OBJK-OBKNR, "OBJECT LIST
OBZAE LIKE OBJK-OBZAE, "OBJECT COUNTER
KUNDE LIKE SER01-KUNDE, "CUSTOMER NO
MATNR LIKE OBJK-MATNR, "PART NO
SERNR LIKE OBJK-SERNR, "SERIAL NO
MBLNR LIKE SER03-MBLNR, "GRN/MATERIAL DOC NO
LIEF_NR LIKE SER01-LIEF_NR,"OUTBOUND DELV NO
DATUM LIKE SER01-DATUM, "OUTBOUND DELV DATE
TASER LIKE OBJK-TASER, "HEADER TABLE
ANZSN LIKE SER01-ANZSN, "NO OF SERIAL NOS
VGBEL LIKE LIPS-VGBEL, "SALES ORDER NO
END OF ITAB.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KUNDE FOR SER01-KUNDE,
S_VGBEL FOR LIPS-VGBEL,
S_MATNR FOR OBJK-MATNR,
S_SERNR FOR OBJK-SERNR,
S_MBLNR FOR SER03-MBLNR,
S_LIFNR FOR SER01-LIEF_NR,
S_DATUM FOR SER01-DATUM.
SELECTION-SCREEN : END OF BLOCK B1.
PERFORM TRACKING.
PERFORM FLDCAT.
PERFORM BUILD_LAYOUT.
***CALL FUNCTION TO DISPLAY IN ALV FORMAT*******
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_GRID_TITLE = I_TITLE_SL_NO_TRACK
IS_LAYOUT = LAYOUT
IT_FIELDCAT = P_FIELDTAB[]
I_SAVE = 'A'
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = ITAB.
***END OF CALL FUNCTION
FORM TRACKING.
*SELECT OBJK~OBKNR
      OBJK~OBZAE
      OBJK~MATNR
      OBJK~SERNR
      OBJK~TASER
      SER01~KUNDE
      SER01~LIEF_NR
      SER01~DATUM
      SER01~ANZSN
      SER03~MBLNR
      LIPS~VGBEL
INTO TABLE ITAB FROM OBJK
INNER JOIN SER01 ON OBJKOBKNR = SER01OBKNR
INNER JOIN SER03 ON OBJKOBKNR = SER03OBKNR
INNER JOIN LIPS ON SER01LIEF_NR = LIPSVBELN
WHERE
*( OBJKTASER = 'SER01' OR OBJKTASER = 'SER03' ) and
*OBJK-MATNR IN S_MATNR AND
*OBJK~SERNR IN S_SERNR AND
*SER01~KUNDE IN S_KUNDE AND
*SER01~LIEF_NR IN S_LIFNR AND
*SER01~DATUM IN S_DATUM AND
*SER03~MBLNR IN S_MBLNR AND
*LIPS~VGBEL IN S_VGBEL.
SELECT a~OBKNR         "OBJK
       a~OBZAE
       a~MATNR
       a~SERNR
       a~TASER
       b~KUNDE         "SER01
       b~LIEF_NR
       b~DATUM
       b~ANZSN
       c~MBLNR        "SER03
       D~VGBEL        "LIPS
   INTO TABLE ITAB FROM ( OBJK as a
   INNER JOIN SER01 as b ON aOBKNR = bOBKNR
   INNER JOIN SER03 as c ON aOBKNR = cOBKNR
   INNER JOIN LIPS as d ON bLIEF_NR = dVBELN )
   WHERE
( aTASER = 'SER01' OR aTASER = 'SER03' ) and
a~MATNR IN S_MATNR AND
a~SERNR IN S_SERNR AND
b~KUNDE IN S_KUNDE AND
b~LIEF_NR IN S_LIFNR AND
b~DATUM IN S_DATUM AND
c~MBLNR IN S_MBLNR AND
d~VGBEL IN S_VGBEL.
ENDFORM.
*& Form fldcat
   * text
FORM FLDCAT.
PERFORM FLDCAT1 USING 'KUNDE' 'Customer No'.
PERFORM FLDCAT1 USING 'VGBEL' 'Sales Order No'.
PERFORM FLDCAT1 USING 'MATNR' 'Tejas Part No'.
PERFORM FLDCAT1 USING 'SERNR' 'Serial No'.
PERFORM FLDCAT1 USING 'MBLNR' 'Material Doc No'.
PERFORM FLDCAT1 USING 'LIEF_NR' 'Outbound Delv No'.
PERFORM FLDCAT1 USING 'DATUM' 'Outbound Delv Date'.
ENDFORM. "fldcat
*& Form fldcat1
    text
    -->FNAM text
    -->FTEXT text
FORM FLDCAT1 USING FNAM FTEXT.
DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
L_FIELDCAT-FIELDNAME = FNAM.
L_FIELDCAT-SELTEXT_M = FTEXT.
IF FNAM EQ 'MATNR'."OR fnam EQ 'PKUNAG'.
L_FIELDCAT-KEY = 'X'.
ENDIF.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
APPEND L_FIELDCAT TO P_FIELDTAB.
   * CLEAR fldcat1.
ENDFORM. "fldcat1
*& Form build_layout
   * text
FORM BUILD_LAYOUT .
LAYOUT-NO_INPUT = 'X'.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-ZEBRA = 'X'.
LAYOUT-TOTALS_TEXT = 'Totals'(256).
   * layout-coltab_fieldname = 'CELL_COLOUR'.
*clear layout.
ENDFORM.
Regards,
Venkat

Reply to vj (qery on the inner joins v/s performane test)

this is ravi shiva's friend.
hi vj,
         u r working for intelli group....and i had met u twice. by the way give u r contact number i want to speak to u personally.
          here is the code...
REPORT rv_sid_purchase_order_status NO STANDARD PAGE HEADING MESSAGE-ID zrv_message_cl LINE-COUNT 65 LINE-SIZE 110 .
This include contains declarations
INCLUDE zrv_sid_purchase_order_t.
This include contains code for the performs
INCLUDE zrv_sid_purchase_order_f.
                      Initialization
INITIALIZATION.
This perform will initialize the values.
PERFORM f_initilaize.
This perform will initialize the field catalog.
PERFORM f_e01_fieldcat_init USING gt_fieldcat[].
                     Start-Of-Selection
START-OF-SELECTION.
This perform will read the values from the database.
PERFORM f_selection.
This perform will call the function module to display the values on the list.
PERFORM f_display.
          End-Of-Selection
END-OF-SELECTION.
*& Include           ZRV_SID_PURCHASE_ORDER_T                         *
           T a b l e s   D e c l a r a t i o n s                     *
TABLES: ekko,ekpo,ekbe,ekkn,mkpf.
           Type Pools D e c l a r a t i o n s                       *
TYPE-POOLS: slis.
      Selection Screen Declaration
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-100.
SELECT-OPTIONS: ebeln FOR ekko-ebeln,
                aedat FOR ekko-aedat.
SELECTION-SCREEN END OF BLOCK b1.
           V a r i a b l e s                                        *
DATA : gt_fieldcat         TYPE slis_t_fieldcat_alv,
       g_repid             LIKE sy-repid,
       gs_keyinfo          TYPE slis_keyinfo_alv,
       g_tabname_header    TYPE slis_tabname,
       g_tabname_item      TYPE slis_tabname,
       ls_layout           TYPE slis_layout_alv,
       gt_list_top_of_page TYPE slis_t_listheader.
           I n t e r n a l T a b l e s                               *
DATA: BEGIN OF itab OCCURS 0,
       ebeln LIKE ekko-ebeln,
       lifnr LIKE ekko-lifnr,
       aedat LIKE ekko-aedat,
       submi LIKE ekko-submi,
       name1 LIKE lfa1-name1,
       netwr LIKE erev-netwr,
      END OF itab.
DATA: BEGIN OF jtab OCCURS 0,
       ebeln      LIKE ekpo-ebeln,
       ebelp      LIKE ekpo-ebelp,
       aedat      LIKE ekpo-aedat,
       txz01      LIKE ekpo-txz01,
       menge1     LIKE ekpo-menge,
       menge2     LIKE ekbe-menge,
       effwr1     LIKE ekpo-effwr,
       mwskz1     LIKE ekpo-mwskz,
       ps_psp_pnr LIKE ekkn-ps_psp_pnr,
       bewtp1     LIKE ekbe-bewtp,
       belnr1     LIKE ekbe-belnr,
       dmbtt      LIKE ekbe-dmbtr,
       mblnr1     LIKE mkpf-mblnr,
       bldat1     LIKE mkpf-bldat,
       xblnr1     LIKE mkpf-xblnr,
       frbnr      LIKE mkpf-frbnr,
      END OF jtab.
*& Include           ZRV_SID_PURCHASE_ORDER_F                         *
FORM f_initilaize .
g_repid = sy-repid.
g_tabname_header            = 'itab'.
g_tabname_item              = 'jtab'.
CLEAR gs_keyinfo.
gs_keyinfo-header01         = 'EBELN'.
gs_keyinfo-item01           = 'EBELN'.
gs_keyinfo-header02         = space.
gs_keyinfo-item02           = 'EBELP'.
ls_layout-group_change_edit = 'X'.
ls_layout-colwidth_optimize = 'X'.
ls_layout-zebra             = 'X'.
ls_layout-detail_popup      = 'X'.
ls_layout-get_selinfos      = 'X'.
ls_layout-window_titlebar   = 'PURCHASE ORDER STATUS'.
ls_layout-no_keyfix         = 'X'.
ENDFORM.                    " f_INITILAIZE
*&      Form f_e01_fieldcat_init
      text
     -->E01_LT_FIELtext
FORM f_e01_fieldcat_init USING e01_lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'SUBMI'.
ls_fieldcat-tabname       = g_tabname_header.
ls_fieldcat-ref_fieldname = 'SUBMI'.
ls_fieldcat-ref_tabname   = 'EKKO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'EBELN'.
ls_fieldcat-tabname       = g_tabname_header.
ls_fieldcat-ref_fieldname = 'EBELN'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'LIFNR'.
ls_fieldcat-tabname       = g_tabname_header.
ls_fieldcat-ref_fieldname = 'LIFNR'.
ls_fieldcat-ref_tabname   = 'EKKO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'NAME1'.
ls_fieldcat-tabname       = g_tabname_header.
ls_fieldcat-ref_fieldname = 'NAME1'.
ls_fieldcat-ref_tabname   = 'LFA1'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'NETWR'.
ls_fieldcat-tabname       = g_tabname_header.
ls_fieldcat-ref_fieldname = 'NETWR'.
ls_fieldcat-ref_tabname   = 'EREV'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-do_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'EBELP'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'EBELP'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'TXZ01'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'TXZ01'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-just = 'L'.
ls_fieldcat-fieldname     = 'MWSKZ1'.
ls_fieldcat-seltext_l     = 'Tax code'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'MWSKZ1'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-just          = 'L'.
ls_fieldcat-fieldname     = 'PS_PSP_PNR'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'PS_PSP_PNR'.
ls_fieldcat-ref_tabname   = 'EKKN'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'MENGE1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'Po quantity'.
ls_fieldcat-ref_fieldname = 'MENGE1'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'MENGE1'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'EFFWR1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'Po value'.
ls_fieldcat-ref_fieldname = 'EFFWR1'.
ls_fieldcat-ref_tabname   = 'EKPO'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'BEWTP1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'Cat'.
ls_fieldcat-ref_fieldname = 'BEWTP1'.
ls_fieldcat-ref_tabname   = 'EKBE'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'BELNR1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'GR/IR MDoc'.
ls_fieldcat-ref_fieldname = 'BELNR1'.
ls_fieldcat-ref_tabname   = 'EKBE'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'MENGE2'.
ls_fieldcat-seltext_l     = 'GR/IR quantity'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'MENGE2'.
ls_fieldcat-ref_tabname   = 'EKBE'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'MBLNR1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'GR No'.
ls_fieldcat-ref_fieldname = 'MBLNR1'.
ls_fieldcat-ref_tabname   = 'MKPF'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'BLDAT1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'GR Date'.
ls_fieldcat-ref_fieldname = 'BLDAT1'.
ls_fieldcat-ref_tabname   = 'MKPF'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'FRBNR'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'FRBNR'.
ls_fieldcat-ref_tabname   = 'MKPF'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'XBLNR1'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-seltext_l     = 'Invoice No in GR'.
ls_fieldcat-ref_fieldname = 'XBLNR1'.
ls_fieldcat-ref_tabname   = 'MKPF'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname     = 'DMBTT'.
ls_fieldcat-seltext_l     = 'Invoice value W/O tax'.
ls_fieldcat-tabname       = g_tabname_item.
ls_fieldcat-ref_fieldname = 'DMBTT'.
ls_fieldcat-ref_tabname   = 'EKBE'.
ls_fieldcat-key           = 'X'.
ls_fieldcat-no_out        = 'X'.
ls_fieldcat-no_sum        = 'X'.
ls_fieldcat-sp_group      = 'A'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
ENDFORM.                    " f_e01_fieldcat_init
*&      Form f_selection
      text
FORM f_selection .
SELECT   ekko~ebeln
           ekko~lifnr
           ekko~aedat
           ekko~submi
           lfa1~name1
           erev~netwr
                           FROM ekko INNER JOIN lfa1 ON ( ekkolifnr = lfa1lifnr )
                                      INNER JOIN erev ON ( ekkoebeln = erevedokn )
                                      INTO TABLE itab WHERE ekko~ebeln IN ebeln AND
                                                            ekko~aedat IN aedat AND
                                                            bsart <> 'AN'.
SELECT
         ekpo~ebeln
         ekpo~ebelp
         ekpo~aedat
         ekpo~txz01
         ekpo~menge
         ekbe~menge
         ekpo~effwr
         ekpo~mwskz
         ekkn~ps_psp_pnr
         ekbe~bewtp
         ekbe~belnr
         ekbe~dmbtr
         mkpf~mblnr
         mkpf~bldat
         mkpf~xblnr
         mkpf~frbnr
                        FROM ekpo INNER JOIN ekkn      ON ( ekpoebeln = ekknebeln
                                                                       AND
                                                             ekknebelp = ekpoebelp )
                                   INNER JOIN ekbe      ON ( ekknebeln = ekbeebeln
                                                                       AND
                                                             ekknebelp = ekbeebelp )
                                   LEFT OUTER JOIN mkpf ON ( ekbebelnr = mkpfmblnr )
                                   INTO TABLE jtab FOR ALL ENTRIES IN itab WHERE ekpo~ebeln = itab-ebeln AND
                                                                                ekpo~aedat = itab-aedat.
ENDFORM.                    " f_selection
*&      Form f_display
      text
FORM f_display .
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      it_fieldcat        = gt_fieldcat[]
      i_tabname_header   = g_tabname_header
      i_tabname_item     = g_tabname_item
      is_keyinfo         = gs_keyinfo
      is_layout          = ls_layout
    TABLES
      t_outtab_header    = itab
      t_outtab_item      = jtab.
ENDFORM.                    " f_display

Hi Ravi,
1. To check performance of a report we use the perfromance trace. The transaction code is ST05.
You can also refer the link :
     http://help.sap.com/saphelp_erp2005/helpdata/en/8a/3b834014d26f1de10000000a1550b0/content.htm
2. Also we can do the run time analysis of the code uising transaction code SE30.
3. To do a general check on the code , you can use the SAP Code Inspector. The transaction code for this is SCI. This will defentely give you a detailed analysis of the program.
4 . To have a general idea about the performance tuning of a report , you should refer the link :
   http://www.sapgenie.com/abap/performance.htm.
Hope this solves yopur query.
Regards,
Kunal.

Report - INNER JOIN Problem

Hi,
In my report List of Block Customer's, INNER JOIN is not working..
Code:----
SELECT DISTINCT M1KUNNR M1KTOKD M1NAME1 M1CASSD M1AUFSD M1LIFSD M1~FAKSD INTO CORRESPONDING FIELDS OF TABLE ITAB
                    FROM KNA1 AS M1 INNER JOIN KNVV AS M2 ON M1KUNNR = M2KUNNR
                                           WHERE M1~KTOKD IN ('0001' , 'KTOKD')
                                            AND M1~CASSD EQ 'X'
                                             OR M1~AUFSD NE ''
                                             OR M1~LIFSD NE ''
                                             OR M1~FAKSD NE ''
                                             OR (M2~AUFSD NE ''
                                             OR M2~LIFSD NE ''
                                             OR M2~FAKSD NE ''
                                             OR M2~CASSD EQ 'X'.
Here, condition on 0001 is not matching..
Plz tell me, what is the problem in it..
Thanks
Edited by: Prince Kumar on Oct 20, 2008 9:37 AM

hi,
please use " FOR ALL ENTRIES " as it is better performance wise also rather then inner joins
and for syntax refer this code:
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.
PARAMETERS p_city TYPE spfli-cityfrom.
TYPES: BEGIN OF entry_tab_type,
         carrid TYPE spfli-carrid,
         connid TYPE spfli-connid,
       END OF entry_tab_type.
DATA: entry_tab   TYPE TABLE OF entry_tab_type,
      sflight_tab TYPE SORTED TABLE OF sflight
                       WITH UNIQUE KEY carrid connid fldate.
SELECT carrid connid
       FROM spfli
       INTO CORRESPONDING FIELDS OF TABLE entry_tab
       WHERE cityfrom = p_city.
SELECT carrid connid fldate
       FROM sflight
       INTO CORRESPONDING FIELDS OF TABLE sflight_tab
       FOR ALL ENTRIES IN entry_tab
       WHERE carrid = entry_tab-carrid AND
             connid = entry_tab-connid.
thanks and regards
RAHUL

Error in inner join when i am using 3 tables to join..

hi,
why error is giving when i am joining 3 tables ..
tables : lfa1,lfb1,lfm1.
types : begin of ty_lfa1,
          lifnr type lfa1-lifnr,
         name1 type lfa1-name1,
         bukrs type lfb1-bukrs,
           erdat type lfm1-erdat,
        end of ty_lfa1.
data :   i_lfa1 type ty_lfa1 occurs 1.
select a~lifnr
       a~name1
       b~bukrs
       m~erdat
into table i_lfa1
       from ((lfa1 as a inner join lfb1 as b on alifnr = blifnr) inner join lfm1 as m on alifnr = mlifnr).
error : The table name "((LFA1 AS A INNER JOIN LFB1 AS B ON ALIFNR = BLIFNR)
INNER JOIN LFM1 AS M ON ALIFNR = MLIFNR)" is too long . unique.
unique. unique. unique. unique. unique.
plz help me ...why it is showing..
thanks & regards ,
kalyan

Hi Kalyan,
Do it this way: In your code just give the space between ( & ( & lfa1 and also at the end ~lifnr )
select a~lifnr
a~name1
b~bukrs
m~erdat
into table i_lfa1
from ( ( lfa1 as a inner join lfb1 as b on a~lifnr eq b~lifnr ) " maintain a space bwteen ( and field
inner join lfm1 as m on a~lifnr eq m~lifnr ).
or
select a~lifnr
a~name1
b~bukrs
m~erdat
into table i_lfa1
from lfa1 as a inner join lfb1 as b
on a~lifnr eq b~lifnr
     inner join lfm1 as m
on a~lifnr eq m~lifnr.
With luck,
Pritam.
Edited by: Pritam Ghosh on Jan 13, 2009 2:31 PM

Query related to inner join V/S all entries........

Hi all,
I have a dought ...related to join and all entries
Which one will be the better as per performance prospective :
1>For all entries
or
2> using inner join condition
i am combining 2 tables ...
but in my where clause is having 6-7 condition if i used inner join concept...
Please let me know thanks for the help...in advance
regards
Amit

Check Re: Multiple Table Join instead of Nested Selects? I wrote a program that compares the performance of a join against for all entries. The join won. But the best thing to do is for you test and compare both methods for your particular situation.
In a select, the most important factor is the use of an index.
Rob

Dynamic table name in an inner join - select statement

Hi,
Please can you let me know if is possible to use a Dynamic table name in an inner join?
Something like the statement below? (It works in a simple select statement but not in an inner join)
SELECT *
     INTO CORRESPONDING FIELDS OF <t_itab>
      FROM <Dynamic table name> INNER JOIN pa0050 ON
      ( <Dynamic table name>pernr = pa0050pernr )
       WHERE <Dynamic table name>~pernr = it_pernr-l_pernr
       AND pa0050~bdegr = f_bdegr.
Any help would be apprecited very much.
Thanks & Regards.

Hi,
Check this link.
[http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb39c4358411d1829f0000e829fbfe/frameset.htm]
[Re: accessing dynamic internal table's fields??;
hope it'll help u.
Regards,
Sneha.
Edited by: sneha kumari on Jun 18, 2009 1:57 PM

Regarding usage of inner joins in EJBs

Similar Messages

Maybe you are looking for