REPORT
ZHR_D220_OM.
TABLES PERNR.
INFOTYPES: 1000,1001,0001 MODE N.
DATA SOBID TYPE PLOG-OBJID.
DATA: BEGIN OF IT_T500P OCCURS 0,
PERSA TYPE T500P-PERSA,
NAME1 TYPE T500P-NAME1,
END OF IT_T500P.
DATA: BEGIN OF IT_T501T OCCURS 0,
PERSG TYPE T501T-PERSG,
PTEXT TYPE T501T-PTEXT,
END OF IT_T501T.
DATA: BEGIN OF IT_T527X OCCURS 0,
ORGEH TYPE T527X-ORGEH,
ORGTX TYPE T527X-ORGTX,
END OF IT_T527X.
DATA SOB(8) TYPE N.
START-OF-SELECTION.
SELECT PERSA NAME1 FROM T500P INTO TABLE IT_T500P.
SELECT PERSG PTEXT FROM T501T INTO TABLE IT_T501T WHERE SPRSL =
SY-LANGU.
SELECT ORGEH ORGTX FROM T527X INTO TABLE IT_T527X WHERE SPRSL =
SY-LANGU.
GET PERNR.
CALL FUNCTION 'RH_READ_INFTY_1000'
EXPORTING
*
AUTHORITY = 'DISP'
*
WITH_STRU_AUTH = 'X'
PLVAR = '01'
OTYPE = 'S'
OBJID =
PERNR-PLANS
*
ISTAT = ' '
*
EXTEND = 'X'
*
BEGDA =
'19000101'
*
ENDDA =
'99991231'
*
CONDITION = '00000'
*
SORT = 'X'
TABLES
I1000 = P1000
*
OBJECTS =.
CALL FUNCTION 'RH_READ_INFTY_1001'
EXPORTING
*
AUTHORITY = 'DISP'
*
WITH_STRU_AUTH = 'X'
PLVAR = '01'
OTYPE = 'S'
OBJID =
PERNR-PLANS
*
ISTAT = ' '
*
EXTEND = 'X'
*
SUBTY = ' '
*
BEGDA =
'19000101'
*
ENDDA =
'99991231'
*
CONDITION = '00000'
*
SORT = 'X'
*
WITH_EV = ' '
*
ADATA = 'X'
*
AUTH_SOBID = ' '
TABLES
I1001 = P1001.
*
OBJECTS =
READ TABLE IT_T500P WITH KEY PERSA = PERNR-WERKS .
READ TABLE IT_T501T WITH KEY PERSG = PERNR-PERSG .
READ TABLE IT_T527X WITH KEY ORGEH = PERNR-ORGEH .
READ TABLE P1000 WITH KEY LANGU = SY-LANGU.
READ TABLE P1001 WITH KEY RSIGN = 'B'
RELAT = '002'.
SOBID = P1001-SOBID.
REFRESH P1001[].
CALL FUNCTION 'RH_READ_INFTY_1001'
EXPORTING
*
AUTHORITY = 'DISP'
*
WITH_STRU_AUTH = 'X'
PLVAR = '01'
OTYPE = 'S'
OBJID = SOBID
*
ISTAT = ' '
*
AUTH_SOBID =
TABLES
I1001 = P1001.
*
OBJECTS =
READ TABLE P1001 WITH KEY RSIGN = 'A'
RELAT = '008'.
SOB = P1001-SOBID.
RP-READ-INFOTYPE SOB 0001 P0001 PN-BEGDA PN-ENDDA.
WRITE:/ PERNR-PERNR, PERNR-SNAME, PERNR-WERKS,IT_T500P-NAME1,PERNR-PERSG,IT_T501T-PTEXT,
PERNR-ORGEH,IT_T527X-ORGTX,PERNR-PLANS,P1000-STEXT,P0001-SNAME.
