The following code which I have done for my one of the requirement.This will helps you,
SELECT * FROM EKKN INTO TABLE IT_EKKN WHERE PS_PSP_PNR IN LR_WBS[] .
IF IT_EKKN[] IS NOT INITIAL.
IT_EKKN1[] = IT_EKKN[].
SORT IT_EKKN BY EBELN EBELP.
DELETE ADJACENT DUPLICATES FROM IT_EKKN1 COMPARING EBELN EBELP.
SELECT * FROM ESLH INTO TABLE T_ESLH FOR ALL ENTRIES IN IT_EKKN1 WHERE EBELN = IT_EKKN1-EBELN
AND EBELP = IT_EKKN1-EBELP
AND BSTYP = 'F'
AND ESLH~PACKNO <> ESLH~HPACKNO.
SELECT * FROM EKPO INTO TABLE TT_EKPO FOR ALL ENTRIES IN T_ESLH WHERE EBELN = T_ESLH-EBELN
AND EBELP = T_ESLH-EBELP
AND LOEKZ EQ ''." AND STATU EQ ''.
IF T_ESLH[] IS NOT INITIAL.
SELECT * FROM ESLL INTO TABLE IT_ESLL FOR ALL ENTRIES IN T_ESLH WHERE PACKNO = T_ESLH-PACKNO." AND DEL NE 'X'.
IF IT_ESLL[] IS NOT INITIAL.
SELECT * FROM ESKL INTO TABLE T_ESKL FOR ALL ENTRIES IN IT_ESLL WHERE PACKNO = IT_ESLL-PACKNO AND INTROW = IT_ESLL-INTROW.
IF T_ESKL[] IS NOT INITIAL.
LOOP AT IT_ESLL INTO WIT_ESLL.
READ TABLE T_ESKL INTO W_ESKL WITH KEY PACKNO = WIT_ESLL-PACKNO INTROW = WIT_ESLL-INTROW.
IF SY-SUBRC = 0.
READ TABLE T_ESLH INTO W_ESLH WITH KEY PACKNO = WIT_ESLL-PACKNO.
IF SY-SUBRC = 0.
READ TABLE TT_EKPO INTO WW_EKPO WITH KEY EBELN = W_ESLH-EBELN EBELP = W_ESLH-EBELP.
IF SY-SUBRC = 0.
READ TABLE IT_EKKN INTO WIT_EKKN WITH KEY EBELN = W_ESLH-EBELN EBELP = W_ESLH-EBELP ZEKKN = W_ESKL-ZEKKN.
IF SY-SUBRC = 0.
WA_SCPRICE-PACKNO = W_EKKN-PACKNO = WIT_ESLL-PACKNO.
W_EKKN-FPACKNO = W_ESLH-FPACKNO .
W_EKKN-KNUMV = W_ESLH-KNUMV.
W_EKKN-EBELN = W_ESLH-EBELN.
W_EKKN-EBELP = W_ESLH-EBELP.
W_EKKN-WAERS = W_ESLH-WAERS .
W_EKKN-WKURS = W_ESLH-WKURS .
WA_SCPRICE-INTROW = WIT_ESLL-INTROW.
WA_SCPRICE-EXTROW = WIT_ESLL-EXTROW.
WA_SCPRICE-SRVPOS = WIT_ESLL-SRVPOS.
WA_SCPRICE-MATKL = WIT_ESLL-MATKL.
WA_SCPRICE-MENGE = WIT_ESLL-MENGE.
WA_SCPRICE-MEINS = WIT_ESLL-MEINS.
WA_SCPRICE-TBTWR = WIT_ESLL-TBTWR.
WA_SCPRICE-NETWR = WIT_ESLL-NETWR.
WA_SCPRICE-KTEXT1 = WIT_ESLL-KTEXT1.
WA_SCPRICE-ACT_WERT = WIT_ESLL-ACT_WERT.
W_EKKN-SAKTO = WIT_EKKN-SAKTO .
W_EKKN-PS_PSP_PNR = WIT_EKKN-PS_PSP_PNR .
W_EKKN-ZEKKN = WIT_EKKN-ZEKKN.
W_EKKN-EXTROW = WIT_ESLL-EXTROW.
APPEND WA_SCPRICE TO IT_SCPRICE.
APPEND W_EKKN TO T_EKKN.
CLEAR :WW_EKPO.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
**********************************************************************
IF T_EKKN[] IS NOT INITIAL.
IF IT_SCPRICE[] IS NOT INITIAL.
SELECT KNUMV KWERT FROM KONV INTO TABLE IT_DISCOUNT FOR ALL ENTRIES IN T_EKKN WHERE KNUMV = T_EKKN-KNUMV
AND KSCHL = 'RA00' AND KHERK = 'C' .
IT_SCPRICE1[] = IT_SCPRICE[].
REFRESH IT_SCPRICE.
LOOP AT IT_SCPRICE1 INTO WA_SCPRICE.
READ TABLE T_ESKL INTO W_ESKL WITH KEY PACKNO = WA_SCPRICE-PACKNO INTROW = WA_SCPRICE-INTROW.
IF SY-SUBRC = 0.
READ TABLE T_EKKN INTO W_EKKN WITH KEY PACKNO = WA_SCPRICE-PACKNO ZEKKN = W_ESKL-ZEKKN.
IF SY-SUBRC = 0.
WA_SCPRICE-KNUMV = W_EKKN-KNUMV .
WA_SCPRICE-EBELN = W_EKKN-EBELN .
WA_SCPRICE-EBELP = W_EKKN-EBELP .
WA_SCPRICE-WAERS = W_EKKN-WAERS .
WA_SCPRICE-WKURS = W_EKKN-WKURS .
WA_SCPRICE-SAKTO = W_EKKN-SAKTO .
WA_SCPRICE-PS_PSP_PNR = W_EKKN-PS_PSP_PNR.
WA_SCPRICE-ZEKKN = W_EKKN-ZEKKN .
IF WA_SCPRICE-WAERS <> 'QAR'.
PERFORM CURRENCY_CONVERSON_FACTOR USING WA_SCPRICE-NETWR WA_SCPRICE-WAERS CHANGING WA_SCPRICE-NETWR.
ENDIF.
READ TABLE IT_DISCOUNT INTO WA_DISCOUNT WITH KEY KNUMV = WA_SCPRICE-KNUMV.
IF SY-SUBRC EQ 0.
WA_SCPRICE-NETWR = WA_SCPRICE-NETWR + WA_DISCOUNT-KWERT.
ENDIF.
APPEND WA_SCPRICE TO IT_SCPRICE.
ENDIF.
ENDIF.
CLEAR :WA_DISCOUNT,WA_SCPRICE,W_EKKN.
ENDLOOP.
ENDIF.
ENDIF.
