Hi,
Refer below code and do as per u r requirement.
In program attributes use the LDB PNPCE
TABLES PERNR.
NODES: PERAS,PERSON.
DATA G_SUBTY TYPE P0006-SUBTY VALUE ‘1’.
INFOTYPES 0006.
START-OF-SELECTION.
GET PERAS.
RP-PROVIDE-FROM-LAST P0006 SPACE '18000101' '99991231'.
* RP-READ-INFOTYPE PERSON-PERNR 0006 P0006 PN-BEGDA PN-ENDDA.
WRITE:/ P0006-PERNR,P0006-STRAS,P0006-ORT01.
Regards,
Rajesh K