Edit the Data Transfer Program 

Description

Report RPUSTD00 is used to transfer master data from your legacy Human Resource system.

The dataset must be on a sequential file. The file is required in the logical file name specified in the "Logical file name" parameter.

The report reads this dataset, and creates a batch input session for transaction PA30 (Maintain HR Master Data).

The data definition of your legacy record is included in the report according to structure HRDATASET. If this structure does not meet your requirements, create structure CI_HRDATAS in the Dictionary. You can provide this structure with all of the infotype fields that you want to fill with data when the transfer takes place.

You must then adapt report RPUSTD00 accordingly.

Example of Report Adaptation

If you enhance include CI_HRADATAS with field F1, which must be assigned to the infotype with the number nnnn, you must enhance FORM Dnnnn with the following statements:

CLEAR BDCDATA.

BDCDATA-FNAM = 'Pnnnn-F1'.

BDCDATA-FVAL = SATZ-F1.

APPEND BDCDATA.

If FORM Dnnnn does not exist yet for your infotype nnnn, create a copy of FORM D0008 and rename it FORM Dnnnn. Replace each occurrence of 0008 with your infotype number:

FORM Dnnnn.

CLEAR BDCDATA.

BDCDATA-PROGRAM= 'MPnnnn00'.

BDCDATA-DYNPRO = '2000'.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

CLEAR BDCDATA.

BDCDATA-FNAM = 'Pnnnn-F1'.

BDCDATA-FVAL = SATZ-F1.

APPEND BDCDATA.

CLEAR BDCDATA.

BDCDATA-FNAM = 'BDC_OKCODE'.

BDCDATA-FVAL = '=UPD'.

APPEND BDCDATA.

ENDFORM.

This FORM Dnnnn is accessed in the code immediately after FORM D0008. See the instruction in the following sequence flagged with "<------ INSERT (as of line 1730 in the standard):

LOOP AT INFTAB.

CASE INFTAB.

*******************************************************************

* At this point, list all of the infotypes that occur in your action *

*******************************************************************

WHEN '0002'. PERFORM D0002.

WHEN '0001'. PERFORM D0001.

WHEN '0006'. PERFORM D0006.

WHEN '0007'. PERFORM D0007.

WHEN '0008'. PERFORM D0008.

WHEN 'nnnn'. PERFORM Dnnnn. "<------ INSERT

WHEN OTHERS. WRITE: / 'Infotype does not exist:'(008), INFTAB.

STOP.

ENDCASE.

ENDLOOP.

Report Parameters

Parameter DSLOGNAM

Logical file name

Parameter MAPNAME

Session name

&DEFINITION&

Enter your preferred name for the session to be created.

Additional Adaptations

After you have adapted the report, you must also adapt the action used for the data transfer.