INNER JOIN

Code: Alles auswählen.

TYPES: BEGIN OF ty_test,
         matnr TYPE marc-matnr,
         werks TYPE marc-werks,
         ekgrp TYPE marc-ekgrp,
         matkl TYPE mara-matkl,
         mtart TYPE mara-mtart,
         meins TYPE mara-meins,
         maktx TYPE makt-maktx,
         lbkum TYPE mbew-lbkum,
         berid TYPE mdlg-berid,
         dtnum TYPE mdkp-dtnum,
       END OF ty_test.

DATA: ls_outtab TYPE ty_outtab,
      lt_outtab TYPE TABLE OF ty_outtab,
      ls_marc   TYPE marc,
      lt_marc   TYPE TABLE OF marc,
      ls_test   TYPE ty_test,
      lt_test   TYPE TABLE OF ty_test,
      ls_mdlg   TYPE mdlg,
      lt_mdlg   TYPE TABLE OF mdlg.

*At Selection-screen
SELECTION-SCREEN BEGIN OF BLOCK start WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: so_matnr FOR ls_marc-matnr DEFAULT '30660'.
  SELECT-OPTIONS: so_werks FOR ls_marc-werks DEFAULT '2200'.
  SELECT-OPTIONS: so_berid FOR ls_mdlg-berid DEFAULT '2200'.
SELECTION-SCREEN END OF BLOCK start.

SELECT a~matnr,
  a~werks,
  a~ekgrp,
  b~matkl,
  b~mtart,
  b~meins,
  c~maktx,
  d~lbkum,
  e~berid,
  f~dtnum
FROM marc AS a
INNER JOIN mara AS b
ON a~matnr = b~matnr
INNER JOIN makt AS c
ON a~matnr = c~matnr
INNER JOIN mbew AS d
ON a~matnr = d~matnr
AND a~werks = d~bwkey
INNER JOIN mdlg AS e
ON a~werks = e~werks
INNER JOIN mdkp AS f
ON a~werks = f~plwrk
AND a~matnr = f~matnr
WHERE a~matnr IN @so_matnr
  AND a~werks IN @so_werks
  AND e~berid IN @so_berid
INTO TABLE @lt_test.

DELETE ADJACENT DUPLICATES FROM lt_test.

cl_demo_output=>display( lt_test ).

Code: Alles auswählen.

SELECT a~matnr,
  a~werks,
  a~ekgrp,
  b~matkl,
  b~mtart,
  b~meins,
  d~lbkum,
  e~berid,
  f~dtnum
FROM marc AS a
INNER JOIN mara AS b
ON a~matnr = b~matnr
INNER JOIN t001w AS c
ON a~werks = c~werks
INNER JOIN mbew AS d
ON a~matnr = d~matnr
AND c~bwkey = d~bwkey
INNER JOIN mdlg AS e
ON a~werks = e~werks
INNER JOIN mdkp AS f
ON a~werks = f~plwrk
AND a~matnr = f~matnr
WHERE a~matnr IN @so_matnr
  AND a~werks IN @so_werks
  AND e~berid IN @so_berid
  AND d~bwtar = @space
INTO TABLE @lt_test.
IF sy-subrc <> 0.
  RETURN.
ENDIF.

SELECT matnr, maktx FROM makt
  FOR ALL ENTRIES IN @lt_test
  WHERE matnr = @lt_test-matnr AND spras = @sy-langu
  INTO TABLE @DATA(material_texts).
LOOP AT lt_test ASSIGNING FIELD-SYMBOL(<material_entity>).
  READ TABLE material_texts REFERENCE INTO DATA(material_text)
    WITH KEY matnr = <material_entity>-matnr.
  IF sy-subrc = 0.
    <material_entity>-maktx = material_text->*-maktx.
  ENDIF.
ENDLOOP.