HR_INFOTYPE_OPERATION in insert mode

Question

Hello
I'm having trouble using this function - the delete & update works ok but not the create what am I doing wrong?
FORM UPDATE_INFOTYPE USING VALUE(P_PERNR) VALUE(P_DATE) VALUE(P_SUBTYPE)
                                VALUE(P_AMOUNT) VALUE(P_OPERATION).
  WRITE:/ 'Before Updation'.
  LOOP AT P0015.
    WRITE:/ P0015-PERNR,
            P0015-BEGDA,
            P0015-LGART,
            P0015-BETRG.
  ENDLOOP.
* Passing values to modify the infotype
  P0015-PERNR = P_PERNR .
  P0015-BEGDA = P_DATE.
  P0015-LGART = P_SUBTYPE.
  P0015-BETRG = p_amount.
*This function module enables you to maintain master data for employees and
*applicants. You can transfer one data record
  CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      INFTY                = '0015'
      NUMBER               = P_PERNR
     SUBTYPE               = P0015-SUBTY
*   OBJECTID               =
*   LOCKINDICATOR          =
     VALIDITYEND           = P0015-BEGDA
     VALIDITYBEGIN         = P0015-BEGDA
*   RECORDNUMBER           =
      RECORD               = P0015
      OPERATION            = P_OPERATION
*   TCLAS                  = 'A'
*   DIALOG_MODE            = '0'
*   NOCOMMIT               =
*   VIEW_IDENTIFIER        =
*   SECONDARY_RECORD       =
   IMPORTING
     RETURN                = FS_RETURN
*   KEY                    =
  REFRESH P0015.
  CLEAR P0015.
ENDFORM.                    " READ_UPDATE_INFOTYPE
The return messeage I am geting for FS_RETURN is as follows:-
Enter a true account assignment relevant to cost accounting

Answer 1

Hi Raj,
<li>I tried the with the below code. It worked for me. Can you please check this way.
REPORT  ztest_notepad .
DATA:p0015  TYPE p0015.
DATA:return LIKE  bapireturn1.
p0015-pernr = '00909089'.
p0015-subty = '1500'.
p0015-endda = '99991231'.
p0015-begda = sy-datum.
p0015-lgart = '1500'.
p0015-betrg = '100.00'.
CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
  EXPORTING
    number = '00909089'.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
  EXPORTING
    infty         = '0015'
    number        = '00909089'
    subtype       = '1500'
    validityend   = '99991231'
    validitybegin = sy-datum
    record        = p0015
    operation     = 'INS'
    tclas         = 'A'
  IMPORTING
    return        = return.
WRITE return.
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
  EXPORTING
    number = '00909089'.
Thanks
Venkat.O