Question from Srinu on Sep 21 at 5:37 AM I have written below code.
Could you please go through the code?
If any changes or errors let me know
*&---*
*& Report ZLIFNR
*&---*
*&
*&---*
REPORT ZLIFNR.
TABLES: EKKO.
TYPES: BEGIN OF TY_EKKO,
LIFNR TYPE LIFNR,
EBELN TYPE EBELN,
END OF TY_EKKO.
TYPES: BEGIN OF TY_EKPO,
EBELN TYPE EBELN,
NETWR TYPE NETWR,
WERKS TYPE EWERK,
END OF TY_EKPO.
TYPES: BEGIN OF TY_FINAL,
LIFNR TYPE LIFNR,
EBELN TYPE EBELN,
NETWR TYPE NETWR,
WERKS TYPE EWERK,
END OF TY_FINAL.
DATA: GT_EKKO TYPE TABLE OF TY_EKKO,
WA_EKKO TYPE TY_EKKO,
GT_EKPO TYPE TABLE OF TY_EKPO,
WA_EKPO TYPE TY_EKPO,
GT_EKPO_TEMP TYPE TABLE OF TY_EKPO,
WA_EKPO_TEMP TYPE TY_EKPO,
GT_FINAL TYPE TABLE OF TY_FINAL,
WA_FINAL TYPE TY_FINAL.
SELECT-OPTIONS: S_LIFNR FOR EKKO-LIFNR.
SELECT LIFNR EBELN FROM EKKO INTO TABLE GT_EKKO
WHERE LIFNR IN S_LIFNR.
IF GT_EKKO IS NOT INITIAL.
SELECT EBELN NETWR WERKS FROM EKPO INTO TABLE GT_EKPO
FOR ALL ENTRIES IN GT_EKKO
WHERE EBELN = GT_EKKO-EBELN.
ENDIF.
SORT GT_EKKO BY EBELN LIFNR.
SORT GT_EKPO BY EBELN.
WA_EKPO_TEMP = WA_EKPO.
LOOP AT GT_EKKO INTO WA_EKKO.
WA_FINAL-EBELN = WA_EKKO-EBELN.
WA_FINAL-LIFNR = WA_EKKO-LIFNR.
CLEAR WA_EKPO.
READ TABLE GT_EKPO INTO WA_EKPO WITH KEY EBELN = WA_EKKO-EBELN BINARY SEARCH.
IF SY-SUBRC EQ 0 .
WA_FINAL-NETWR = WA_EKPO-NETWR.
WA_FINAL-WERKS = WA_EKPO-WERKS.
WA_EKPO_TEMP-WERKS = WA_EKPO-WERKS.
ENDIF.
APPEND WA_FINAL TO GT_FINAL.
CLEAR WA_FINAL.
ENDLOOP.
SORT GT_FINAL BY LIFNR.
DATA: GV_EBELN TYPE EBELN.
LOOP AT GT_FINAL INTO WA_FINAL.
AT NEW LIFNR.
WRITE:/ WA_FINAL-LIFNR.
* ULINE.
* SKIP ..
ENDAT.
GV_EBELN = WA_FINAL-EBELN.
AT END OF LIFNR.
SUM.
WRITE:/ WA_FINAL-LIFNR,
GV_EBELN,
WA_EKPO_TEMP-WERKS,
WA_FINAL-NETWR.
SKIP.
ENDAT.
ENDLOOP.
| Reply to this email to post your response. __.____._ |   _.____.__ |
