Re: please help me write a code very urgent

Hi Sathish,

Find the below code.

  TABLES:pernr.

INFOTYPES:0000,0001,0002,0006.

data : INFTY_TAB type INFTY_TAB,
       INFTY_TAB1 type INFTY_TAB.
GET pernr .

CALL FUNCTION 'HR_READ_INFOTYPE'
   EXPORTING
*    TCLAS                 = 'A'
     pernr                 = pernr-pernr
     infty                 = '0002'
*    BEGDA                 = '18000101'
*    ENDDA                 = '99991231'
*    BYPASS_BUFFER         = ' '
*    LEGACY_MODE           = ' '
*  IMPORTING
*    SUBRC                 =
   tables
     infty_tab             = infty_tab
  EXCEPTIONS
    INFTY_NOT_FOUND       = 1
    OTHERS                = 2
           .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'HR_READ_INFOTYPE'
   EXPORTING
*    TCLAS                 = 'A'
     pernr                 = pernr-pernr
     infty                 = '0006'
*    BEGDA                 = '18000101'
*    ENDDA                 = '99991231'
*    BYPASS_BUFFER         = ' '
*    LEGACY_MODE           = ' '
*  IMPORTING
*    SUBRC                 =
   tables
     infty_tab             = infty_tab1
  EXCEPTIONS
    INFTY_NOT_FOUND       = 1
    OTHERS                = 2
           .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

end-of-selection.

Here you will get data from pa0002 and pa0006 tables.

and use PNP LDB.

Thanks & Regards,

Sujatha sahu.