exemplo hr_read_infotype
DATA: t_p0001 LIKE p0001 OCCURS 0 WITH HEADER LINE.
* Ler os dados do infotipo 0001
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = p_pernr
infty = c_0001
begda = t_000-begda
endda = c_data
TABLES
infty_tab = t_p0001
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
|