select PERNR PA0001~SNAME pa0021~FAMSA T591S~STEXT Pa0528~CNNAM PA0021~FANAT PA0021~FASEX Pa0021~ZTEL Pa0021~ZADD PA0021~FGBOT
From Pa0021
join pa0001 on pa0001~pernr = pa0021~pernr
join pa0528 on pa0528~pernr = Pa0021~pernr and PA0528~SUBTY = PA0021~SUBTY
join T591S on T591s~SPRSL = 1 and T591S~INFTY = '0021' and T591S~SUBTY = pa0021~FAMSA
where pa0001~ENDDA > sy-datum and pa0001~BEGDA < sy-datum