METHOD infotype_operation.

    CONSTANTS: lv_flag_trigger TYPE flag VALUE 'X'.

    DATA: lv_flag TYPE flag.

    CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
      EXPORTING
        number = im_lv_pernr
      IMPORTING
        return = ex_lst_return
      .  "  BAPI_EMPLOYEE_ENQUEUE

    IF ex_lst_return IS NOT INITIAL.
      MESSAGE e002(z_cor_db_errors).
    ENDIF.

    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        infty         = im_lv_infty
        number        = im_lv_pernr
        subtype       = im_lv_subty
        record        = im_lv_record
        operation     = im_lv_operation
        validityend   = im_lv_endda
        validitybegin = im_lv_begda
      IMPORTING
        return        = ex_lst_return
        key           = ex_lst_key
      .  "  HR_INFOTYPE_OPERATION

    IF ex_lst_return IS NOT INITIAL.
      lv_flag = lv_flag_trigger.
    ENDIF.

    CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
      EXPORTING
        number = im_lv_pernr
      IMPORTING
        return = ex_lst_return.
    .  "  BAPI_EMPLOYEE_DEQUEUE

    IF lv_flag IS NOT INITIAL.
      MESSAGE e001(z_cor_db_errors).
    ELSEIF ex_lst_return IS NOT INITIAL.
      MESSAGE e003(z_cor_db_errors).
    ENDIF.

  ENDMETHOD.