'HR_INFOTYPE_OPERATION' MOD is not updating my infotype

Question

Hi all,
I have a custom field called ZXXXX in both 2010 and 0015, I'm trying to clear it up if it's populated and update certain infotype record for the particular employee.
but I was able to clear ZXXXX in infotype 0015 but not 2010,  I'm using the same code but not understand why it works for infotype 0015 but not 2010. any thought?
Below is the code, thanks all!
DATA l_return1 TYPE bapiret1.
DATA l_return2 TYPE bapiret1.
START-OF-SELECTION.
GET PERNR.
  RP-PROVIDE-FROM-LAST P0015 SPACE  PNPBEGDA PNPENDDA.
  RP-PROVIDE-FROM-LAST P2010 SPACE  PNPBEGDA PNPENDDA.
      CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
        EXPORTING
          NUMBER = PERNR-PERNR.
            LOOP AT P2010 WHERE ZXXXX IS NOT INITIAL AND pernr = pernr-pernr.
        CLEAR P2010-ZXXXX.
        CALL FUNCTION 'HR_INFOTYPE_OPERATION'
          EXPORTING
            INFTY                  = '2010'
            NUMBER                 = P2010-PERNR
            SUBTYPE                = P2010-SUBTY
            OBJECTID               = P2010-OBJPS
            RECORDNUMBER           = P2010-SEQNR
            LOCKINDICATOR          = P2010-SPRPS
            VALIDITYEND            = P2010-ENDDA
            VALIDITYBEGIN          = P2010-BEGDA
*           RECORDNUMBER           =
            RECORD                 = P2010
            OPERATION              = 'MOD'
*            TCLAS                  = 'A'
*            DIALOG_MODE            = '0'
*           NOCOMMIT               =
*           VIEW_IDENTIFIER        =
*           SECONDARY_RECORD       =
          IMPORTING
            RETURN                 = L_RETURN1
*           KEY                    =
      ENDLOOP.
      LOOP AT P0015 WHERE ZXXXX IS NOT INITIAL AND pernr = pernr-pernr.
        CLEAR P0015-ZXXXX.
        CALL FUNCTION 'HR_INFOTYPE_OPERATION'
          EXPORTING
            INFTY                  = '0015'
            NUMBER                 = P0015-PERNR
            SUBTYPE                = P0015-SUBTY
            OBJECTID               = P0015-OBJPS
            RECORDNUMBER           = P0015-SEQNR
            LOCKINDICATOR          = P0015-SPRPS
            VALIDITYEND            = P0015-ENDDA
            VALIDITYBEGIN          = P0015-BEGDA
*           RECORDNUMBER           =
            RECORD                 = P0015
            OPERATION              = 'MOD'
*            TCLAS                  = 'A'
*            DIALOG_MODE            = '0'
*           NOCOMMIT               =
*           VIEW_IDENTIFIER        =
*           SECONDARY_RECORD       =
          IMPORTING
            RETURN                 = L_RETURN2
*           KEY                    =
      ENDLOOP.
        CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
          EXPORTING
            NUMBER = PERNR-PERNR.
        END-OF-SELECTION.

Answer 1

Hi Ben,
Let's forget about using FM 'HR_INFOTYPE_OPERATION' for the moment for IT2010 and try to implement this another way - please use the code below for the IT2010 change only.
  DATA:
    lif_msg_handler  TYPE REF TO if_hrpa_message_handler,
    lo_msg_handler   TYPE REF TO cl_hrpa_message_list,
    lv_ok            TYPE boole_d,
    ls_old_2010      TYPE pskey,
    ls_new_2010      TYPE P2010.
* instantiate the message handler object
  CREATE OBJECT lo_msg_handler.
* assign a reference to a rereference variable using the CAST operation
  lif_msg_handler ?= lo_msg_handler.
  CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
          EXPORTING
            NUMBER = PERNR-PERNR.
  LOOP AT P2010 WHERE ZXXXX IS NOT INITIAL.   
           "AND pernr = pernr-pernr.  "<=== you don't need this AND condition as you are using LDB already
     ls_old_2010 = p2010-pskey.
     ls_new_2010 = P2010.
     ls_new_2010-aedtm = sy-datum.      "<===== so that record history is correctly maintained
     ls_new_2010-uname = sy-uname.      "<===== so that record history is correctly maintained
     CLEAR ls_new_2010-ZXXXX.
* transfer the infotype record to the infotype buffer first
    CALL FUNCTION 'HR_ECM_MODIFY_INFOTYPE'
      EXPORTING
        PNNNN           = ls_new_2010               "<======= New/Modfied record
*        text_tab        =
*        modify_text  =
         OLD_PSKEY = ls_old_2010                    "<======== Old/Existing record
*        no_auth_check   =
        message_handler = lif_msg_handler
      IMPORTING
        is_ok           = lv_ok.
* process forward only if the transfer to buffer was successful
*  - if unsuccessful...
    IF lv_ok IS INITIAL.
*     "<==== Handle your exceptions here.....and CONTINUE processing the next row in the current loop
    ELSE.
*  - if successful...
* now flush to transfer from infotype buffer to SAP database
      CALL FUNCTION 'HR_ECM_FLUSH_INFOTYPE'
        EXPORTING
*        NOCOMMIT              = 'X'      
          message_handler       = lif_msg_handler
       IMPORTING
         is_ok                 = lv_ok.
   ENDIF.
ENDLOOP.
* unlock the employee - processing now complete
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
          EXPORTING
            NUMBER = PERNR-PERNR.
I'm confident that this will solve your problem - please let me know if it did not.
Cheers,
Sougata.