Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

HOW to use HR_READ_INFOTYPE FM

Former Member

‎03-19-2008 1:39 PM

0 Kudos

Hi Guy's,

How to use " HR_READ_INFOTYPE" Function module.

Thanks and Regards,

Bhavani

3 REPLIES 3

Former Member

‎03-19-2008 1:42 PM

0 Kudos

hi use this,

&----

*& Report ZVENKAT_03

*&

&----

*&

*&

&----

REPORT ZVENKAT_03.

tables:p0002.

data: it_data type p0002 occurs 0 with header line.

data: it_data1 type p0008 occurs 0 with header line.

data:v_name1 like p0002-cname,

v_date like p0041-dat01.

data:begin of it_p0002 occurs 0,

pernr like p0002-pernr,

begda like p0002-begda,

endda like p0002-endda,

vorna like p0002-vorna,

nachn like p0002-nachn,

end of it_p0002.

data:begin of it_p0008 occurs 0,

pernr like p0008-pernr,

begda like p0008-begda,

endda like p0008-endda,

ansal like p0008-ansal,

bet01 like p0008-bet01,

preas like p0008-preas,

end of it_p0008.

parameters:p_pernr like p0002-pernr.

start-of-selection.

CALL FUNCTION 'HR_READ_INFOTYPE'

EXPORTING

pernr = p_pernr

infty = '0002'

TABLES

infty_tab = it_data.

if sy-subrc eq 0.

it_p0002-pernr = it_data-pernr.

it_p0002-begda = it_data-begda.

it_p0002-endda = it_data-endda.

it_p0002-vorna = it_data-vorna.

it_p0002-nachn = it_data-nachn.

append it_p0002.

clear it_p0002.

endif.

CALL FUNCTION 'HR_READ_INFOTYPE'

EXPORTING

pernr = it_data-pernr

infty = '0008'

BEGDA = it_data-begda

ENDDA = it_data-endda

TABLES

infty_tab = it_data1.

if sy-subrc eq 0.

it_p0008-pernr = it_data1-pernr.

it_p0008-begda = it_data1-begda.

it_p0008-endda = it_data1-endda.

it_p0008-ansal = it_data1-ansal.

it_p0008-bet01 = it_data1-bet01.

it_p0008-preas = it_data1-preas.

append it_p0008.

clear it_p0008.

endif.

sort it_p0002 by pernr begda.

read table it_p0002 index 1.

write:/ it_p0002-pernr,it_p0002-begda,it_p0002-endda,it_p0002-vorna,it_p0002-nachn.

sort it_p0008 by pernr.

read table it_p0008 with key pernr = it_p0002-pernr.

write:/ it_p0008-pernr,it_p0008-begda,it_p0008-endda,it_p0008-ansal,it_p0008-bet01,it_p0008-preas.

sort it_p0008 by pernr.

read table it_data1 index 2 .

write:/ it_data1-ansal.

regards,

venkat.

Former Member

‎03-19-2008 1:42 PM

0 Kudos

HR_READ_INFOTYPE

pernr1 = pernr-pernr.

call function 'HR_READ_INFOTYPE'

exporting

  • TCLAS = 'A'

pernr = pernr1

infty = '0001'

  • BEGDA = '18000101'

  • ENDDA = '99991231'

  • BYPASS_BUFFER = ' '

  • LEGACY_MODE = ' '

  • IMPORTING

  • SUBRC =

tables

infty_tab = It_p0001 <-- like p0001 structure

  • EXCEPTIONS

  • INFTY_NOT_FOUND = 1

  • OTHERS = 2

Former Member

‎03-19-2008 1:46 PM

0 Kudos

Hi,

Please refer code below:


CALL FUNCTION 'HR_READ_INFOTYPE'
         EXPORTING
*          TCLAS                 = 'A'
           pernr                 = wa_repdata-staff_id "PERNR- Personnel number
           infty                 = '0002'  "Info type
*          BEGDA                 = '18000101' "Begin date
*          ENDDA                 = '99991231' " End date
*          BYPASS_BUFFER         = ' '
*          LEGACY_MODE           = ' '
*        IMPORTING
*          SUBRC                 = 
         tables
           infty_tab             =  p0002
        EXCEPTIONS
          INFTY_NOT_FOUND       = 1
          OTHERS                = 2.

Thanks,

Sriram Ponnna.