[Irua]

Hola tengo el suiguiente codigo:

TABLES: ZTHR_USUA_EMPL,PA0001,PA0002,PA0032.

DATA: BEGIN OF T_DATA1 OCCURS 0,
BUKRS LIKE ZTHR_USUA_EMPL-BUKRS,
Z_PERNR LIKE ZTHR_USUA_EMPL-PERNR,
USUARIO LIKE ZTHR_USUA_EMPL-USUARIO,
FEC_ING LIKE ZTHR_USUA_EMPL-FEC_ING,
TIP_CTA LIKE ZTHR_USUA_EMPL-TIP_CTA,
FECHA LIKE ZTHR_USUA_EMPL-FECHA,
HORA LIKE ZTHR_USUA_EMPL-HORA,
P_ORGEH LIKE PA0001-ORGEH,
T_NACHN LIKE PA0002-NACHN,
T_VORNA LIKE PA0002-VORNA,
T_INICIAL TYPE C,
T_APELLIDO TYPE STRING,
T_CODIGO TYPE STRING,

END OF T_DATA1.

FORM OBTENER_DATOS.

SELECT BUKRS PERNR TIP_CTA
INTO T_DATA1
FROM ZTHR_USUA_EMPL
WHERE BUKRS IN S_TSOC
AND PERNR IN S_TEMPL.
APPEND T_DATA1.
ENDSELECT.


LOOP AT T_DATA1.
SELECT ORGEH PERNR
INTO T_DATA1
FROM PA0001
WHERE PERNR = S_TEMPL
and endda ='99991231'.
APPEND T_DATA1.
ENDSELECT.



SELECT NACHN PERNR VORNA
INTO T_DATA1
FROM PA0002
WHERE PERNR = T_DATA1-PERNR
and endda ='99991231'.
APPEND T_DATA1.
ENDSELECT.

SELECT PERNR GEBNR ZIMNR
INTO T_DATA1
FROM PA0032
WHERE PERNR = T_DATA1-Z_PERNR
and endda ='99991231'.
APPEND T_DATA1
ENDSELECT.
ENDLOOP.

ENDFORM.

COMO SERIAN LOS SELECT PARA BUSCAR LA BUSQUEDA DE VARIAS TABLAS CON UNA SOLA TABLA INTERNA Y CUAL SERIA LA ESTRUCTURA DEL LOOP PARAFORMAR EL SIGUIENTE REPORTE


WRITE:/1 T_DATA1-BUKRS,7 T_DATA1-Z_PERNR, 25 T_DATA1-T_NACHN ,33 T_DATA1-T_VORNA,50 T_PA0032-C_GEBNR, 65 T_DATA1-P_ORGEH.

MIL GRACIAS