Fetching data form database tables

Question

Hi all,
i have a requirment as below:
i have to fetch EINA-LIFNR, EINE-EKORG, MARA-MTART, EINA-IDNLF,
EINA-MATNR(also there in MARA), MARA-LVORM, EINA-LOEKZ.
for a given vendor LFA1-LIFNR.
we should not use joins in this.
is there any other way other than FOR ALL ENTRIES.
please help me with code in any of the way, it is very urgent...
thanks,
Rama

Answer 1

Hi Rama,
Please use the following code for your required Query with FOR ALL ENTRIES:-
tables: EINA, EINE , MARA, LFA1.
TYPES: BEGIN OF GS_DATA1,
       LIFNR TYPE LFA1-LIFNR,
       END OF GS_DATA1,
       BEGIN OF GS_DATA2,
       LIFNR TYPE EINA-LIFNR,
       IDNLF TYPE EINA-IDNLF,
       MATNR TYPE EINA-MATNR,
       LOEKZ TYPE EINA-LOEKZ,
       END OF GS_DATA2,
       BEGIN OF GS_DATA3,
       LIFNR TYPE EINA-LIFNR,
       IDNLF TYPE EINA-IDNLF,
       MATNR TYPE EINA-MATNR,
       LOEKZ TYPE EINA-LOEKZ,
       EKORG TYPE EINE-EKORG,
       END OF GS_DATA3,
       BEGIN OF GS_DATA4,
       LIFNR TYPE LFA1-LIFNR,
       IDNLF TYPE EINA-IDNLF,
       LOEKZ TYPE EINA-LOEKZ,
       EKORG TYPE EINE-EKORG,
       MATNR TYPE MARA-MATNR,
       MTART TYPE MARA-MTART,
       LVORM TYPE MARA-LVORM,
       END OF GS_DATA4.
DATA: ITAB1 TYPE STANDARD TABLE OF GS_DATA1,
      ITAB2 TYPE STANDARD TABLE OF GS_DATA2,
      ITAB3 TYPE STANDARD TABLE OF GS_DATA3,
      ITAB4 TYPE STANDARD TABLE OF GS_DATA4,
      WA1 LIKE LINE OF ITAB1,
      WA2 LIKE LINE OF ITAB2,
      WA3 LIKE LINE OF ITAB3,
      WA4 LIKE LINE OF ITAB4.
START-OF-SELECTION.
SELECT LIFNR FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB1.
SELECT LIFNR
        IDNLF
        MATNR
        LOEKZ
        FROM  EINA
        INTO CORRESPONDING FIELDS OF TABLE ITAB2
        FOR ALL ENTRIES IN ITAB1
        WHERE LIFNR = ITAB1-LIFNR.
SELECT LOEKZ
       EKORG
       FROM EINE
       INTO CORRESPONDING FIELDS OF TABLE ITAB3
       FOR ALL ENTRIES IN ITAB2
       WHERE LOEKZ = ITAB2-LOEKZ.
SORT ITAB2 BY LOEKZ.
LOOP AT ITAB3 INTO WA3.
READ TABLE ITAB2 INTO WA2 WITH KEY LOEKZ = WA3-LOEKZ BINARY SEARCH.
IF SY-SUBRC = 0.
  WA3-IDNLF = WA2-IDNLF.
  WA3-MATNR = WA2-MATNR.
  WA3-LIFNR = WA2-LIFNR.
  MODIFY ITAB3 FROM WA3 TRANSPORTING IDNLF MATNR LIFNR.
ENDIF.
ENDLOOP.
SELECT MATNR
       MTART
       LVORM
       FROM MARA
       INTO CORRESPONDING FIELDS OF TABLE ITAB4
       FOR ALL ENTRIES IN ITAB3
       WHERE MATNR = ITAB3-MATNR.
SORT ITAB3 BY MATNR.
LOOP AT ITAB4 INTO WA4.
READ TABLE ITAB3 INTO WA3 WITH KEY LOEKZ = WA4-LOEKZ BINARY SEARCH.
IF SY-SUBRC = 0.
  WA4-LIFNR = WA3-LIFNR.
  WA4-IDNLF = WA3-IDNLF.
  WA4-LOEKZ = WA3-LOEKZ.
  WA4-EKORG = WA4-EKORG.
  MODIFY ITAB4 FROM WA4 TRANSPORTING LIFNR IDNLF LOEKZ EKORG.
ENDIF.
ENDLOOP.
Hope this will solve your problem.
Reward points are useful.
Regard,
Shilpi