FUNCTION zfm_idoc_it0021.
  INCLUDE mbdconwf.
  DATA:

    ls_data      TYPE edidd,
    ls_control   TYPE edidc,
    ls_idoc_body TYPE z1i0021,
    ls_t         LIKE z1i0021,
    ls_recrod    TYPE p0021,
    ls_msg       TYPE bapireturn1.

  READ TABLE idoc_contrl INTO ls_control INDEX 1.

  LOOP AT idoc_data INTO ls_data WHERE docnum = ls_control-docnum.
    IF ls_data-segnam = 'Z1I0021'.
      ls_idoc_body = ls_data-sdata.
      ls_recrod-begda = ls_idoc_body-begda.
      ls_recrod-endda = ls_idoc_body-endda.
      ls_recrod-subty = ls_idoc_body-rel_type.
      ls_recrod-fanam = ls_idoc_body-last_name.
      ls_recrod-favor = ls_idoc_body-first_name.
      ls_recrod-fgbdt = ls_idoc_body-dob.
      ls_recrod-fasex = ls_idoc_body-gender_key.

      CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
        EXPORTING
          number = CONV bapip0001-pernr( ls_idoc_body-pernr )
        IMPORTING
          return = ls_msg.
      IF sy-subrc EQ 0.

        CALL FUNCTION 'HR_INFOTYPE_OPERATION'
          EXPORTING
            infty     = '0021'
            number    = CONV p0001-pernr( ls_idoc_body-pernr )
            record    = ls_recrod
            operation = 'INS'
            tclas     = 'A'
          IMPORTING
            return    = ls_msg.

        IF ls_msg-type EQ 'E'.
          idoc_status-status = c_idoc_status_error.
          idoc_status-msgty  = sy-msgty.
          idoc_status-msgid  = ls_msg-id.
          idoc_status-msgno  = ls_msg-number.
          idoc_status-msgv1  = ls_msg-message.
          idoc_status-msgv2  = ls_msg-log_msg_no.
          idoc_status-msgv3  = ls_msg-message_v1.
          idoc_status-msgv4  = ls_msg-message_v2.
          workflow_result    = c_wf_result_error.
          return_variables-wf_param   = c_wf_par_error_idocs.
        ELSE.
          idoc_status-status = c_idoc_status_ok.
          idoc_status-msgty  = 'S'.
          idoc_status-msgid  = 'Delightfull!'(001).
          idoc_status-msgno  = 001.
          workflow_result    = c_wf_result_ok.
          return_variables-wf_param   = c_wf_par_processed_idocs.
        ENDIF.
      ENDIF.
      idoc_status-docnum = ls_control-docnum.
      idoc_status-repid  = sy-repid.
      APPEND idoc_status.
      return_variables-doc_number   = ls_control-docnum.
      APPEND return_variables.
    ENDIF.
  ENDLOOP.

ENDFUNCTION.