*&---------------------------------------------------------------------*
*& Report ZYS_INFTY1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZYS_INFTY1.

    DATA: ls_p2001 TYPE p2001.
    DATA: ls_pskey TYPE pskey.
    DATA: return_struct TYPE bapireturn1.

    data: i_pernr type persno VALUE '6'.

    CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
      EXPORTING
        number = i_pernr
      IMPORTING
        return = return_struct.

    CHECK return_struct IS INITIAL.

      ls_p2001-pernr = i_pernr.
      ls_p2001-infty = '2001'.
      ls_p2001-subty = '0112'.
      ls_p2001-awart = '0112'.
      ls_p2001-begda = '20200724'.
      ls_p2001-endda = '20200724'.

      CLEAR return_struct.

      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '2001'
          subtype       = ls_p2001-subty
          objectid      = ''
          lockindicator = ''
          number        = ls_p2001-pernr
          validityend   = ls_p2001-endda
          validitybegin = ls_p2001-begda
          record        = ls_p2001
          operation     = 'INS'
          tclas         = 'A'
          nocommit      = '1'
          dialog_mode   = '0'
        IMPORTING
          return        = return_struct
        EXCEPTIONS
          OTHERS        = 0.

      IF return_struct IS INITIAL.
        COMMIT WORK.
      ENDIF.