You can setup the change documents for different infotypes that you require to log changes to.
Use this path:
SPRO -> IMG -> Personnel Management -> Tools -> Revision -> Set up change document
You can display any changes made to infotype records with report Logged Changes in Infotype Data (RPUAUD00).
If you are evaluating documents in customer-specific reports, you can use the following function modules provided by SAP:
List of All Logged Infotype Records (HR_INFOTYPE_LOG_GET_LIST)
Read Logged Infotype Record (HR_INFOTYPE_LOG_GET_DETAIL).
Or
There is an infotype audit report that tracks all changes made to the various fields in the infotypes. The program is RPUAUD00. All the data changes is stored in cluster PCL4 which you can use to retrieve data in your own program.
Another option is to create a table of your own and log the changes for the relevant infotypes/fields in the exit
EXIT_SAPFP50M_002 (part of the enhancement PBAS0001)
Or
Get Abap developers to write a customized program, for example:
First consider only active employee. For this the below piece of code in INITIALIZATION.
pnptimed = 'D'.
pnpstat2-low = '3'.
pnpstat2-high = space.
pnpstat2-option = 'EQ'.
pnpstat2-sign = 'I'.
APPEND pnpstat2.
CLEAR pnpstat2.
How many days back records do you want to check. For this Create one parameter on SELECTION_SCREEN. Like tracking for one week changes.
In every Infotype there is one field called AEDTM (Date of Last Change).
Get the latest record from the infotype using RP-PROVIDE-FROM-LAST. Check this date. If it is in one week take that record in.
Sample coding:
START-OF-SELECTION.
pn_begda = pn-begda - p_days.
GET pernr.
PERFORM p0001_data_for_bankdet.
PERFORM p0009_data_for_bankdet.
&------------------------------------------------------------------------------------
*& Form p0001_data_for_bankdet
&------------------------------------------------------------------------------------
FORM p0001_data_for_bankdet .
rp-provide-from-last p0001 space pn-begda pn-endda.
IF pnp-sw-found = '1'.
i_bank_details-ename = p0001-ename.
ENDIF.
ENDFORM. " p0001_data_for_bankdet
&------------------------------------------------------------------------------------
*& Form p0009_data_for_bankdet
&------------------------------------------------------------------------------------
FORM p0009_data_for_bankdet .
DATA l_ename LIKE pa0001-ename.
l_ename = i_bank_details-ename.
LOOP AT p0009 WHERE aedtm GE pn_begda.
i_bank_details-pernr = p0009-pernr.
i_bank_details-ename = l_ename.
i_bank_details-uname = p0009-uname.
i_bank_details-zlsch = p0009-zlsch.
i_bank_details-bankl = p0009-bankl.
i_bank_details-bankn = p0009-bankn.
APPEND i_bank_details.
CLEAR i_bank_details.
ENDLOOP.
ENDFORM. " p0009_data_for_bankdet
