FUNCTION Z02HRFM_RETRIEVE_ORG_STRUC
.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(I_PERNR) TYPE PERNR_D
*" REFERENCE(I_DATE) TYPE DATS DEFAULT SY-DATUM
*" EXPORTING
*" REFERENCE(E_DEPARTMENT) TYPE STRING
*" REFERENCE(E_DIVISION) TYPE STRING
*" REFERENCE(E_ROOT) TYPE STRING
*"----------------------------------------------------------------------
DATA : LT_STRUC TYPE TABLE OF STRUC ,
LS_STRUC TYPE STRUC ,
LS_STRUC1 TYPE STRUC ,
LT_OBJEC TYPE TABLE OF OBJEC ,
LS_OBJEC TYPE OBJEC .
DATA : LV_OBJID TYPE HROBJID ,
LV_COUNT TYPE I .
CHECK I_PERNR IS NOT INITIAL .
LV_OBJID = I_PERNR .
CALL FUNCTION 'RH_STRUC_GET'
EXPORTING
ACT_OTYPE = 'P'
ACT_OBJID
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(I_PERNR) TYPE PERNR_D
*" REFERENCE(I_DATE) TYPE DATS DEFAULT SY-DATUM
*" EXPORTING
*" REFERENCE(E_DEPARTMENT) TYPE STRING
*" REFERENCE(E_DIVISION) TYPE STRING
*" REFERENCE(E_ROOT) TYPE STRING
*"----------------------------------------------------------------------
DATA : LT_STRUC TYPE TABLE OF STRUC ,
LS_STRUC TYPE STRUC ,
LS_STRUC1 TYPE STRUC ,
LT_OBJEC TYPE TABLE OF OBJEC ,
LS_OBJEC TYPE OBJEC .
DATA : LV_OBJID TYPE HROBJID ,
LV_COUNT TYPE I .
CHECK I_PERNR IS NOT INITIAL .
LV_OBJID = I_PERNR .
CALL FUNCTION 'RH_STRUC_GET'
EXPORTING
ACT_OTYPE = 'P'
ACT_OBJID