Getting error while updating IT 0105

Question

Hi,
I am inserting a record in Communications Infotype when user creates a IT 0006 record. I have written code in the user exit to do the job and I am using HR_INFOTYPE_OPERATION' Insert option (INS) for that. I am doing enqueue and dequeue properly.
Now, when I try to save the new record in IT 0006, it gives me an error saying that No entry in table T591A for 0105   4.
4 is subtype of IT0006 record which is not a subtype IT0105, thats why I am getting the error. But in my code before calling the FM I am assigning the correct subtype. here is the code from my user exit:
  IF innnn-infty = '0006' AND innnn-subty = '4' AND
    ( ipsyst-ioper = 'INS' OR ipsyst-ioper = 'MOD' ).
    CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
      EXPORTING
        prelp = innnn
      IMPORTING
        pnnnn = lx_0006.
    CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
      EXPORTING
        number = lx_0006-pernr
      IMPORTING
        return = wa_return.
    IF NOT wa_return IS INITIAL.
      WRITE:/ wa_return-message.
      EXIT.
    ENDIF.
    lx_0105-infty = '0105'.
    lx_0105-pernr = lx_0006-pernr.
    lx_0105-subty = 'CELL'.
    lx_0105-begda = lx_0006-begda.
    lx_0105-endda = lx_0006-endda.
    lx_0105-usrty = 'CELL'.
    lx_0105-usrid = lx_0006-num01.
    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
           EXPORTING
             infty            = '0105'
             number           = lx_0006-pernr
             subtype          = 'CELL'
             validityend      = lx_0006-endda
             validitybegin    = lx_0006-begda
             record           = lx_0105
             operation        = 'INS'
        TCLAS            = 'A'
        DIALOG_MODE      = '0'
        NOCOMMIT         =
        VIEW_IDENTIFIER  =
        SECONDARY_RECORD =
      IMPORTING
           return           = wa_return
           key              = wa_record_key.
    IF wa_return-type = 'E'.
      WRITE:/ wa_return-message.
    ENDIF.
    CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
      EXPORTING
        number = lx_0006-pernr
      IMPORTING
        return = wa_return.
    CLEAR: lx_0006, lx_0105.
  ENDIF.
Any tips ?

Answer 1

Thanks Balaji,
I tried it but it is throwing dump, here is how I tried it in above code:
Data: MESSAGE_HANDLER TYPE REF TO  IF_HRPA_MESSAGE_HANDLER.
  Data: is_ok TYPE BOOLE_D.
  DATA: wa_return     TYPE bapireturn1,
        wa_record_key TYPE bapipakey.
  DATA :  lx_0006       TYPE p0006,
          lx_0105       TYPE p0105.
if innnn-infty = '0006' and innnn-subty = '4' and
   ( ipsyst-ioper = 'INS' or ipsyst-ioper = 'MOD' ).
  CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
    EXPORTING
      prelp = innnn
    IMPORTING
      pnnnn = lx_0006.
  CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
    EXPORTING
      number = lx_0006-pernr
    IMPORTING
      return = wa_return.
  IF NOT wa_return IS INITIAL.
    WRITE:/ wa_return-message.
    EXIT.
  ENDIF.
CALL FUNCTION 'HR_ECM_INSERT_INFOTYPE'
  EXPORTING
    pnnnn                 = lx_0105
  TEXT_TAB              =
  NO_AUTH_CHECK         = ' '
    message_handler       = MESSAGE_HANDLER
  IMPORTING
  SEQNR                 =
    IS_OK                 = is_ok.
  CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
    EXPORTING
      number = lx_0006-pernr
    IMPORTING
      return = wa_return.
  break srehman.
  CLEAR: lx_0006, lx_0105.
ENDIF.
Now, when I create a new record in IT0006 it throws dump on the FM you suggested. It says Short text: Access via 'NULL' object reference not possible.
and the problem line is ...
   25   CREATE DATA dref LIKE pnnnn.
   26   ASSIGN pnnnn         TO <pnnnn>.
   27   ASSIGN <pnnnn>       TO <pnnnn_typ>       CASTING.
   28   ASSIGN dref->*       TO <pnnnn_local>.
   29   ASSIGN <pnnnn_local> TO <pnnnn_local_typ> CASTING.
   30   MOVE  <pnnnn_typ>    TO <pnnnn_local_typ>.
   31   text_tab_local[] = text_tab[].
   32 *
   33   CALL METHOD cl_hrpa_masterdata_factory=>get_plain_infotype_access
   34     IMPORTING
   35       plain_infotype_access = infotype_reader.
   36 *
>>>>>   CALL METHOD infotype_reader->insert
   38     EXPORTING
   39       tclas           = tclas_employee
   40       no_auth_check   = no_auth_check
   41       message_handler = message_handler
   42     IMPORTING
   43       is_ok           = is_ok
   44     CHANGING
   45       pnnnn           = <pnnnn_local_typ>
   46       text_tab        = text_tab_local.
   47   CHECK is_ok = true.
   48   MOVE <pnnnn_local> TO pskey.
   49   seqnr = pskey-seqnr.
   50 *
   51 ENDFUNCTION.
do you have the code that you have used earlier, I think I am not passing right parameters to the FM. the structure that I am passing to the FM seems lacking something. Please advise.
Thanks a lot!