TABLES: PA0001 , T500P.
parameters: werks type PA0001-WERKS.
TYPES: BEGIN OF FS,
WERKS TYPE PA0001-WERKS,
END OF FS.
DATA: ITAB TYPE TABLE OF FS,
WA_ITAB TYPE FS.
TYPES: BEGIN OF FS1,
PERSA TYPE T500P-PERSA,
NAME1 TYPE T500P-NAME1,
END OF FS1.
DATA : ITAB1 TYPE TABLE OF FS1,
WA_ITAB1 TYPE FS1.
SELECT WERKS FROM PA0001 INTO TABLE ITAB where werks = werks .
SELECT PERSA NAME1 FROM T500P INTO TABLE ITAB1 FOR ALL ENTRIES IN itab WHERE PERSA = ITAB-WERKS.
LOOP AT ITAB INTO WA_ITAB.
LOOP AT ITAB1 INTO WA_ITAB1 WHERE PERSA = wa_ITAB-WERKS.
WRITE: / WA_ITAB-WERKS ,
/ WA_ITAB1-PERSA ,
/ WA_ITAB1-NAME1.
endloop.
endloop.