hola
Hola,
Ahi te va el código, lo probé y funciona, cualquier cosa me avisas.
REPORT z_test_sebas2.
PARAMETERS: p_user TYPE usr02-bname.
TYPES: BEGIN OF ty_prueba,
bname TYPE usr02-bname,
class TYPE usr02-class,
persnumber TYPE usr21-persnumber,
addrnumber TYPE usr21-addrnumber,
name_text TYPE adrp-name_text,
smtp_addr TYPE adr6-smtp_addr,
END OF ty_prueba.
DATA: wa_prueba TYPE ty_prueba.
SELECT SINGLE a~bname a~class b~persnumber b~addrnumber c~name_text d~smtp_addr
INTO wa_prueba
FROM usr02 AS a
INNER JOIN usr21 AS b
ON a~bname = b~bname
INNER JOIN adrp AS c
ON b~persnumber = c~persnumber
INNER JOIN adr6 AS d
ON b~addrnumber = d~addrnumber
AND b~persnumber = d~persnumber
WHERE a~bname = p_user.
IF sy-subrc EQ 0.
WRITE: wa_prueba-bname.
SKIP.
WRITE: wa_prueba-class.
SKIP.
WRITE: wa_prueba-persnumber.
SKIP.
WRITE: wa_prueba-addrnumber.
SKIP.
WRITE: wa_prueba-name_text.
SKIP.
WRITE: wa_prueba-smtp_addr.
ENDIF.
Saludos!
__________________
Sebas
Desarrollador ABAP.
|