TABLES : LFA1 ,
EKKO .
PARAMETERS : VENDOR TYPE LFA1-LIFNR .
DATA : BEGIN OF I_ITAB OCCURS 0 ,
LIFNR TYPE LFA1-LIFNR ,
NAME1 TYPE LFA1-NAME1 ,
EBELN TYPE EKKO-EBELN ,
AEDAT TYPE EKKO-AEDAT,
END OF I_ITAB .
SELECT LFA1~LIFNR LFA1~NAME1 EKKO~EBELN EKKO~AEDAT INTO TABLE I_ITAB[]
FROM LFA1 INNER JOIN EKKO
ON LFA1~LIFNR = EKKO~LIFNR
WHERE LFA1~LIFNR = VENDOR .
IF NOT I_ITAB[] IS INITIAL .
SORT I_ITAB[] BY EBELN .
LOOP AT I_ITAB[] INTO I_ITAB.
WRITE : / I_ITAB-LIFNR ,
I_ITAB-NAME1 ,
I_ITAB-EBELN ,
I_ITAB-AEDAT.
ENDLOOP .
ENDIF.
CLEAR I_ITAB .
REFRESH I_ITAB[] .