please check below query

laxman_sankhla3 — Sat, 23 Dec 2006 07:12:47 GMT

hi i wrote below query but

lifnr is not coming

please give me suggestion how lifnr will come .in output .

DATA: BEGIN OF ITAB OCCURS 10,

EBELN LIKE EKKO-EBELN,

LIFNR LIKE EKKO-LIFNR,

EBELP LIKE EKBE-EBELP,

BELNR LIKE EKBE-BELNR,

VGABE LIKE EKBE-VGABE,

GJAHR LIKE EKBE-GJAHR,

KNUMV LIKE EKKO-KNUMV,

VAKEY LIKE KONH-VAKEY,

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 10,

EBELN LIKE EKPO-EBELN,

LIFNR LIKE EKKO-LIFNR,

EBELP LIKE EKPO-EBELP,

EBELP LIKE EKBE-EBELP,

KNUMH LIKE KONH-KNUMH,

BELNR LIKE EKBE-BELNR,

MATNR LIKE EKPO-MATNR,

TXZ01 LIKE EKPO-TXZ01,

PS_PSP_PNR LIKE EKKN-PS_PSP_PNR,

KOSTL LIKE EKKN-KOSTL,

WERKS LIKE EKPO-WERKS,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

MWSKZ LIKE EKPO-MWSKZ,

end of itab1.

SELECT A~EBELN A~LIFNR A~KNUMV B~VGABE B~EBELP B~GJAHR B~BELNR

FROM EKKO AS A

INNER JOIN EKBE AS B ON B~EBELN = A~EBELN

INTO CORRESPONDING

FIELDS OF TABLE ITAB WHERE B~VGABE = '2'.

SELECT EKPO~EBELN EKPO~MATNR EKPO~TXZ01 EKPO~WERKS EKPO~NETWR

EKPO~MENGE EKPO~MWSKZ EKPO~EBELP

FROM EKPO

INTO CORRESPONDING FIELDS OF TABLE ITAB1

FOR ALL ENTRIES IN ITAB

WHERE EKPO~EBELN = ITAB-EBELN.

SELECT EKKN_{EBELN EKKN}KOSTL EKKN~PS_PSP_PNR
FROM EKKN
INTO CORRESPONDING FIELDS OF TABLE ITAB2
FOR ALL ENTRIES IN ITAB1
WHERE EKKN~EBELN = ITAB1-EBELN.

LOOP AT ITAB1.

READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.

IF ITAB1-EBELN = ITAB-EBELN.

ITAB1-EBELN = ITAB-EBELN.

ITAB1-LIFNR = ITAB-LIFNR.

ITAB1-EBELP = ITAB-EBELP.

ITAB1-BELNR = ITAB-BELNR.

ITAB1-EBELP = ITAB-EBELP.

ENDIF.

modify itab1.

endloop.

Re: please check below query

Former Member — Sat, 23 Dec 2006 07:20:49 GMT

LOOP AT ITAB.

READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.

IF sy-subrc eq 0.

ITAB1-LIFNR = ITAB-LIFNR.

ITAB1-EBELP = ITAB-EBELP.

ITAB1-BELNR = ITAB-BELNR.

ITAB1-EBELP = ITAB-EBELP.

modify itab1 index index sy-tabix.

ENDIF.

endloop.

regards

shiba dutta

Re: please check below query

Former Member — Sat, 23 Dec 2006 07:45:13 GMT

LOOP AT ITAB.

READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.

IF sy-subrc eq 0.

ITAB1-LIFNR = ITAB-LIFNR.

ITAB1-EBELP = ITAB-EBELP.

ITAB1-BELNR = ITAB-BELNR.

ITAB1-EBELP = ITAB-EBELP.

modify itab1 index index sy-tabix.

ENDIF.

endloop.

topic please check below query in Application Development and Automation Discussions

please check below query

Re: please check below query

Re: please check below query