Uploading fields in Infotype.

[Former Member]

Hi experts,

I am going to update a infotype IT0001.i.e updating 6 fields in the infotype from the application server.May I know how to upload these 6 fields pernr,werks,persk,abkrs,ansvh,vdsk1. values from the application server to IT0001.

Thanks,

Sakthi.

[Former Member]

First Open the file from the App Server and then populate the values for the table

HR_MAINTAIN_MASTERDATA

this will work fine.

Example code for IT0006.

DATA:       lv_val    TYPE prop_fval,
                lv_action TYPE actio.
DATA: lt_values   LIKE pprop OCCURS 10 WITH HEADER LINE,
      ls_return   LIKE bapireturn1.

  lv_val = ls_06-pernr.
  PERFORM append_field USING '0006' 'P0006-PERNR' lv_val. CLEAR lv_val.
  lv_val = ls_06-begda.
  PERFORM append_field USING '0006' 'P0006-BEGDA' lv_val. CLEAR lv_val.
  lv_val = ls_06-endda.
  PERFORM append_field USING '0006' 'P0006-ENDDA' lv_val. CLEAR lv_val.
  lv_val = ls_06-subty.
  PERFORM append_field USING '0006' 'P0006-SUBTY' lv_val. CLEAR lv_val.
  lv_val = ls_06-anssa.
  PERFORM append_field USING '0006' 'P0006-ANSSA' lv_val. CLEAR lv_val.
  lv_val = ls_06-name2.
  PERFORM append_field USING '0006' 'P0006-NAME2' lv_val. CLEAR lv_val.
  lv_val = ls_06-stras.
  PERFORM append_field USING '0006' 'P0006-STRAS' lv_val. CLEAR lv_val.
  lv_val = ls_06-pstlz.
  PERFORM append_field USING '0006' 'P0006-PSTLZ' lv_val. CLEAR lv_val.
  lv_val = ls_06-ort01.
  PERFORM append_field USING '0006' 'P0006-ORT01' lv_val. CLEAR lv_val.
  lv_val = ls_06-ort02.
  PERFORM append_field USING '0006' 'P0006-ORT02' lv_val. CLEAR lv_val.
  lv_val = ls_06-land1.
  PERFORM append_field USING '0006' 'P0006-LAND1' lv_val. CLEAR lv_val.
  lv_val = ls_06-telnr.
  PERFORM append_field USING '0006' 'P0006-TELNR' lv_val. CLEAR lv_val.
  lv_val = ls_06-entkm.
  PERFORM append_field USING '0006' 'P0006-ENTKM' lv_val. CLEAR lv_val.

* Call Function to Update IT0006
  CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
    EXPORTING
      pernr           = pernr
      actio           = 'MOD' " Update for new records use <b>INS</b> and for delete use <b>DEL</b>.
      begda           = begda
      endda           = endda
      subty           =  subty
      no_enqueue      = space
      dialog_mode     = '0'
      tclas           = 'A'
    IMPORTING
      return1         = ls_return
    TABLES
      proposed_values = lt_values
    EXCEPTIONS
      OTHERS          = 1.




FORM append_field  USING    p_infty TYPE infty
                            p_fname TYPE prop_fname
                            p_fval  TYPE prop_fval.

  lt_values-infty = p_infty.
  lt_values-fname = p_fname.
  lt_values-fval  = p_fval.
  APPEND lt_values.


ENDFORM.                    " append_field

you will have to modify the code as per you need...

Amandeep