Creating an Infotype Record 0019 using HR_INFOTYPE_OPERATION

Question

All,
I have written a little test application for this, my code is below, and there is something funny happening. For some reason when I run the program for the first time it creates the 0019 infotype but it doesn't add on the additional text. However if I run the program again, without doing anything else, the text does get updated.
It appears that I am missing a commit statement or something along those lines but I am not sure.
I would appreciate any help on getting this working
Many Thanks,
Colm
DATA t0019 TYPE TABLE OF p0019.
DATA w0019 TYPE p0019.
DATA in_pernr TYPE prelp-pernr.
in_pernr = '02000305'.
BREAK-POINT.
CALL FUNCTION 'HR_READ_INFOTYPE'
  EXPORTING
*   TCLAS                 = 'A'
    pernr                 = in_pernr
    infty                 = '0019'
   begda                 = '18000101'
   endda                 = '99991231'
*   BYPASS_BUFFER         = ' '
*   LEGACY_MODE           = ' '
* IMPORTING
*   SUBRC                 =
  TABLES
    infty_tab             = t0019
EXCEPTIONS
   infty_not_found       = 1
   OTHERS                = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
BREAK-POINT.
DATA in_infty TYPE prelp-infty VALUE 0019.
DATA in_subty TYPE p0001-subty VALUE 02.
DATA wa_return1 TYPE bapireturn1.
DATA wa_pakey TYPE bapipakey.
DATA wa_pskey TYPE pskey.
DATA l_pgmid TYPE old_prog.
DATA it_text TYPE hrpad_text_tab.
DATA wa_text TYPE hrpad_text.
wa_text = 'Line 1'.
APPEND wa_text TO it_text.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
  EXPORTING
    number = in_pernr
  IMPORTING
    return = wa_return1.
IF NOT wa_return1 IS INITIAL.
*ERROR MESSAGE
ENDIF.
w0019-pernr = in_pernr.
w0019-subty = '02'.
w0019-infty = '0019'.
w0019-endda = '20081204'.
w0019-begda = '20081204'.
w0019-seqnr = '000'.
w0019-aedtm = sy-datum."CREATED DATE
w0019-uname = sy-uname.
w0019-itxex = 'X'.
w0019-tmart = '02'. "TASK TYPE
w0019-termn = '20081204'. "DATE OF TASK
w0019-mndat = '20081203'. "REMINDER DATE
w0019-tmjhr = '2008'. "DATE OF TASK YEAR
w0019-tmmon = '12'. "DATE OF TASK MONTH
w0019-tmtag = '04'. "DATE OF TASK DAY
w0019-mnjhr = '2008'. "REMINDER DATE YEAR
w0019-mnmon = '12'. "REMINDER DATE MONTH
w0019-mntag = '03'. "REMINDER DATE DAY
BREAK-POINT.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
  EXPORTING
    infty         = '0019'
    number        = in_pernr
    subtype       = '02'
    validityend   = sy-datum
    validitybegin = sy-datum
    record        = w0019
    operation     = 'INS'
  IMPORTING
    return        = wa_return1
    key           = wa_pakey
  EXCEPTIONS
    OTHERS        = 0.
IF NOT wa_return1 IS INITIAL.
*ERROR HANDLING
ELSE.
*SUCCESS
  wa_pskey-pernr = wa_pakey-employeeno.
  wa_pskey-infty = '0019'.
  wa_pskey-subty = wa_pakey-subtype.
  wa_pskey-objps = wa_pakey-objectid.
  wa_pskey-sprps = wa_pakey-lockindic.
  wa_pskey-endda = wa_pakey-validend.
  wa_pskey-begda = wa_pakey-validbegin.
  wa_pskey-seqnr = wa_pakey-recordnr.
  l_pgmid = 'SAPFP50P'.
  BREAK-POINT.
  TRY.
    CALL METHOD cl_hrpa_text_cluster=>update
      EXPORTING
        tclas         = 'A'
        pskey         = wa_pskey
        histo         = 'X'
        uname         = sy-uname
        aedtm         = sy-datum
        pgmid         = l_pgmid
        text_tab      = it_text
        no_auth_check = 'X'.
  ENDTRY.
  IF sy-subrc EQ 0.
*SUCCESS
  ENDIF.
ENDIF.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
  EXPORTING
    number = in_pernr
  IMPORTING
    return = wa_return1.
BREAK-POINT.

Answer 1

[url]HR_INFOTYPE_OPERATION is not working in user exit ZXPADU02[url]
If you do this and then update the text using the update task it should work perfectly.