Problem creating change document for BP1012
Hello all,
I have a problem with creating change documents for the table BP1012 (which is used to store the data from the Ratings tab in the BP module). When I create a change document with the code at the end of the posting everything executes fine without any sy-subrc being different from zero. But when I lateron update the previously created change document I get an position_insert_failed exception in the CHANGEDOCUMENT_CLOSE function. I use objectclas BUPA_FS08, which I think is right for BP1012 (since BUPA_FS08 is defined for the Ratings tab in the BDT tool) and I'm preatty sure that I create a unique objectid (it consists of all the primary keys in the table). I spent some time debugging into these CHANGEDOCUMENT_* functions, but it is preatty cumbersome and not really insightful. Maybe somebody has an idea where I could start searching for the problem.
Thanks, Oliver Plohmann
FUNCTION zdra_changedoc_bp1012.
*"----
-
""Lokale Schnittstelle:
*" IMPORTING
*" REFERENCE(PARTNER) LIKE BUT000-PARTNER
*" REFERENCE(BP1012_NEW) LIKE BP1012 STRUCTURE BP1012
*" REFERENCE(BP1012_OLD) LIKE BP1012 STRUCTURE BP1012
*" REFERENCE(MODE) TYPE CHAR1
*"----
-
DATA:
wrk_mode(1) TYPE c,
wrk_objectid LIKE cdhdr-objectid, " Objekt-ID
con_objectclas LIKE cdhdr-objectclas VALUE 'BUPA_FS08'.
MOVE mode TO wrk_mode.
MOVE partner TO wrk_objectid. " konvertieren
MOVE bp1012_new-timestamp TO wrk_objectid+10.
MOVE bp1012_new-diftval TO wrk_objectid+24.
MOVE bp1012_new-date_to TO wrk_objectid+34.
MOVE bp1012_new-grade_method TO wrk_objectid+42.
PARTNER BU_PARTNER CHAR 10
*.INCLUDE BP1012_KEY STRU 0
*TIMESTAMP BP_TIMESTAMP CHAR 14
*DIFTVAL BP_CRITER CHAR 10
*DATE_TO BP_DATE_R DATS 8
*GRADE_METHOD BP_GRADE_METHOD CHAR 10
CALL FUNCTION 'CHANGEDOCUMENT_OPEN' "
EXPORTING "
objectclass = con_objectclas " Objektklasse
objectid = wrk_objectid " Objekt-ID
PLANNED_CHANGE_NUMBER = ' ' "
PLANNED_OR_REAL_CHANGES = ' ' "
EXCEPTIONS "
sequence_invalid = 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. "
IF mode = 'U'.
CALL FUNCTION 'CHANGEDOCUMENT_SINGLE_CASE' "
EXPORTING "
change_indicator = 'U' " Update
docu_delete = 'X'
DOCU_DELETE = ' ' "
REFAREA_NEW = ' ' "
REFAREA_OLD = ' ' "
REFTABLENAME = ' ' "
tablename = 'BP1012' " Tabelle
workarea_new = bp1012_new " neue Werte
workarea_old = bp1012_old " alte Werte
EXCEPTIONS "
nametab_error = 1 "
open_missing = 2 "
position_insert_failed = 3 "
OTHERS = 4 "
. "
IF sy-subrc <> 0. "
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno "
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. "
ENDIF. "
ENDIF.
IF mode = 'I'.
CALL FUNCTION 'CHANGEDOCUMENT_SINGLE_CASE' "
EXPORTING "
change_indicator = 'I' " Update
DOCU_DELETE = ' ' "
REFAREA_NEW = ' ' "
REFAREA_OLD = ' ' "
REFTABLENAME = ' ' "
tablename = 'BP1012' " Tabelle
workarea_new = bp1012_new " neue Werte
workarea_old = bp1012_old " alte Werte
EXCEPTIONS "
nametab_error = 1 "
open_missing = 2 "
position_insert_failed = 3 "
OTHERS = 4 "
. "
IF sy-subrc <> 0. "
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno "
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. "
ENDIF. "
ENDIF.
CALL FUNCTION 'CHANGEDOCUMENT_CLOSE' "
EXPORTING "
date_of_change = sy-datum " Änderungsdatum
objectclass = con_objectclas " Objektklasse
objectid = wrk_objectid " Objekt-ID
tcode = 'BP' " Transaktion
time_of_change = sy-uzeit " Änderungszeit
username = sy-uname " Änderer
object_change_indicator = wrk_mode "
PLANNED_OR_REAL_CHANGES = ' ' "
NO_CHANGE_POINTERS = ' ' "
IMPORTING "
CHANGENUMBER = "
EXCEPTIONS "
header_insert_failed = 1 "
no_position_inserted = 2 "
object_invalid = 3 "
open_missing = 4 "
position_insert_failed = 5 "
OTHERS = 6 "
. "
IF sy-subrc <> 0. "
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno "
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. "
ENDIF.
ENDFUNCTION.