How to upload data into IT0000 using ABAP-HR program

[Former Member]

Hello,

I'm required to upload data into multiple infotypes [IT000, 0001, 0002, etc] using single input text file. Can anyone able to guide me, how to upload data into IT0000 using ABAP program ?

Thanks in advance.

Regards

Prabhakar.

Message was edited by:

Prabhakara Muthyal

[Former Member]

Hello,

I'm required to upload data into multiple infotypes [IT000, 0001, 0002, etc] using single input text file. Can anyone able to guide me, how to upload data into IT0000 using ABAP program ?

Thanks in advance.

Regards

Prabhakar.

Message was edited by:

Prabhakara Muthyal

[Former Member]

Try using

HR_MAINTAIN_MASTERDATA
HR_INFOTYPE_OPERATION

Or if you are oin ECC 5 there is a Data Transfer Toolbox from SAP.

/HRBP/ZDTT

Activate the BC set by

/HRBP/S001_K00_01

For more help on this read HR Best Practrices

Or

Creata a BDC program as screen vary per country for IT0002

Amandeep

[Former Member]

Hi Amandeep,

Thanks for very quick response.

I will try this option.

FYI: I'm using SAP 4.6c.

Regards

Prabhakar

[Former Member]

Example code for HR_MAINTAIN_MASTERDATA to COPY IT0002

   
DATA: INT_0002_FINAL TYPE STANDARD TABLE OF PA0002 WITH HEADER LINE.
DATA: VALUES        LIKE PPROP OCCURS 10 WITH HEADER LINE,
 RETURN        LIKE BAPIRETURN1,.

 LOOP AT INT_0002_FINAL.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-PERNR'.
      VALUES-FVAL  = INT_0002_FINAL-PERNR.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-BEGDA'.
      VALUES-FVAL  = INT_0002_FINAL-BEGDA.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-ENDDA'.
      VALUES-FVAL  = INT_0002_FINAL-ENDDA.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-nachn'.
      VALUES-FVAL  = INT_0002_FINAL-NACHN.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-gblnd'.
      VALUES-FVAL  = INT_0002_FINAL-GBLND.
      APPEND VALUES.


      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-vorna'.
      VALUES-FVAL  = INT_0002_FINAL-VORNA.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-rufnm'.
      VALUES-FVAL  = INT_0002_FINAL-RUFNM.
      APPEND VALUES.


      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-name2'.
      VALUES-FVAL  = INT_0002_FINAL-NAME2.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-inits'.
      VALUES-FVAL  = INT_0002_FINAL-INITS.
      APPEND VALUES.



      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-famst'.
      VALUES-FVAL  = INT_0002_FINAL-FAMST.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-gbdat'.
      VALUES-FVAL  = INT_0002_FINAL-GBDAT.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-sprsl'.
      VALUES-FVAL  = INT_0002_FINAL-SPRSL.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-anzkd'.
      VALUES-FVAL  = INT_0002_FINAL-ANZKD.
      APPEND VALUES.

      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-natio'.
      VALUES-FVAL  = INT_0002_FINAL-NATIO.
      APPEND VALUES.
* maintain master data

      CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
        EXPORTING
          PERNR           = INT_0002_FINAL-PERNR
          ACTIO           = 'COP'
          BEGDA           = INT_0002_FINAL-BEGDA
*         ENDDA           = INT_0002_FINAL-ENDDA
          SUBTY           = SPACE
          NO_ENQUEUE      = SPACE
          DIALOG_MODE        = '0'
          TCLAS              = 'A'

        IMPORTING
          RETURN1         = RETURN
        TABLES
          PROPOSED_VALUES = VALUES
*         MODIFIED_KEYS   =
        EXCEPTIONS
          OTHERS          = 1.

      IF RETURN IS INITIAL.
        WRITE:/' Done....'.
      ELSE.
        WRITE:/   RETURN-ID, RETURN-TYPE, RETURN-NUMBER, RETURN-MESSAGE_V1, RETURN-MESSAGE_V2, RETURN-MESSAGE_V3, RETURN-MESSAGE_V4.
      ENDIF.

      CLEAR VALUES.
      REFRESH VALUES.
    ENDLOOP.