Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

please check below query

laxman_sankhla3
Participant
0 Likes
457

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 EKKNEBELN EKKNKOSTL 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.

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
417

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

2 REPLIES 2
Read only

Former Member
0 Likes
418

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

Read only

Former Member
0 Likes
417

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.