Inner Join on 4 tables
*---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Author : JATIN SINGHAL *
* Date : 14.08.2014 *
* Ref Doc : *
* TR No. : *
REPORT yj_innerjoin_4_tables.
TYPES : BEGIN OF ty_equip,
equnr TYPE equnr,
eqart TYPE eqart,
serge TYPE serge,
objnr TYPE objnr,
submt TYPE submt,
ingrp TYPE ingrp,
iloan TYPE iloan,
END OF ty_equip.
DATA gt_equip TYPE TABLE OF ty_equip.
DATA :gr_table TYPE REF TO cl_salv_table.
SELECT equi~equnr equi~eqart equi~serge equi~objnr
equz~submt equz~ingrp
iloa~iloan
INTO TABLE gt_equip
FROM equi
INNER JOIN equz
ON equi~equnr = equz~equnr
INNER JOIN iloa
ON equz~iloan = iloa~iloan .
DELETE gt_equip where serge = space.
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_equip.
*Display the ALV table.
gr_table->display( ).
*----------------------------------------------------------------------*
* Author : JATIN SINGHAL *
* Date : 14.08.2014 *
* Ref Doc : *
* TR No. : *
REPORT yj_innerjoin_4_tables.
TYPES : BEGIN OF ty_equip,
equnr TYPE equnr,
eqart TYPE eqart,
serge TYPE serge,
objnr TYPE objnr,
submt TYPE submt,
ingrp TYPE ingrp,
iloan TYPE iloan,
END OF ty_equip.
DATA gt_equip TYPE TABLE OF ty_equip.
DATA :gr_table TYPE REF TO cl_salv_table.
SELECT equi~equnr equi~eqart equi~serge equi~objnr
equz~submt equz~ingrp
iloa~iloan
INTO TABLE gt_equip
FROM equi
INNER JOIN equz
ON equi~equnr = equz~equnr
INNER JOIN iloa
ON equz~iloan = iloa~iloan .
DELETE gt_equip where serge = space.
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_equip.
*Display the ALV table.
gr_table->display( ).
Comments
Post a Comment