I am been using DB2 Direct Update to Maintain Records and my User wants things to be logged so I'm trying to Use HR_INFOTYPE_OPERATION, but the problem is I can't get it to delete.
Here is my code:
It finds the record ok using GETDETAIL, but when it tries to delete it says 'No Data stored for 0381 in the selected period'. Am I doing something wrong or what?
***************************************
***************************************
FORM DELETE_RECORD_P0381.
CALL FUNCTION 'HR_INFOTYPE_GETDETAIL'
EXPORTING
INFTY = '0381'
SUBTYPE = 'MERS'
NUMBER = P_PERNR
LOCKINDICATOR = ' '
VALIDITYEND = P_ENDDA
VALIDITYBEGIN = P_BEGDA
TCLAS = 'A'
IMPORTING
RETURN = ZRETURN
RECORD = P0381
EXCEPTIONS
OTHERS = 0.
IF ZRETURN-TYPE = ' ' OR
ZRETURN-TYPE = 'I'.
ELSE.
WRITE: / 'ERROR SELECTING P0381 PERNR', P0381-PERNR.
WRITE: / ZRETURN-ID, ZRETURN-NUMBER, ZRETURN-MESSAGE.
ENDIF.
CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
EXPORTING NUMBER = P0381-PERNR.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
INFTY = '0381'
NUMBER = P0380-PERNR
LOCKINDICATOR = ' '
VALIDITYEND = P0381-ENDDA
VALIDITYBEGIN = P0381-BEGDA
RECORD = p0381
OPERATION = 'DEL'
NOCOMMIT = ' '
DIALOG_MODE = '0'
TCLAS = 'A'
IMPORTING
RETURN = ZRETURN
EXCEPTIONS
OTHERS = 0.
IF ZRETURN-TYPE = ' ' OR
ZRETURN-TYPE = 'I'.
ELSE.
WRITE: / 'ERROR DELETING P0381 PERNR', P0381-PERNR.
WRITE: / ZRETURN-ID, ZRETURN-NUMBER, ZRETURN-MESSAGE.
ENDIF.
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING NUMBER = P0381-PERNR.
CLEAR P0381.
ENDFORM.
Bluesky
