Hi Satish,
Please find the below logic.
SELECT WERKS FROM PA0001 INTO TABLE ITAB where werks = werks .
if itab is not initial.
SELECT PERSA NAME1 FROM T500P INTO TABLE ITAB1 FOR ALL ENTRIES IN itab WHERE PERSA = ITAB-WERKS.
endif.
LOOP AT ITAB INTO WA_ITAB.
FINAL-WERKS = WA_ITAB-WERKS.
READ TABLE ITAB1 INTO WA_ITAB1 WITH KEY PERSA = wa_ITAB-WERKS.
if sy-subrc eq 0.
final-persa = wa_itab1-persa.
FINAL-NAME1 = WA_ITAB1-NAME1.
endif.
APPEND FINAL.
clear final.
ENDLOOP.
LOOP AT FINAL.
WRITE: / FINAL-WERKS ,
/ FINAL-PERSA ,
/ FINAL-NAME1.
endloop.
thanks,
Sree