How to use Change doc Function Module?

Question

Fn mod:ZSUBTESTCHG_WRITE_DOCUMENT
Import parameters               Value
OBJECTID                        ZSUBTESTCHG
TCODE                            SE37
UTIME                             00:00:00
UDATE                             09.03.2009
USERNAME                        'TESTUSER'
PLANNED_CHANGE_NUMBER
OBJECT_CHANGE_INDICATOR            I
PLANNED_OR_REAL_CHANGES         R
NO_CHANGE_POINTERS
UPD_ICDTXT_ZSUBTESTCHG               I
N_ZSUBTEST                         2         TEST
O_ZSUBTEST                         2         TEST
UPD_ZSUBTEST                    I
Tables                          Value
ICDTXT_ZSUBTESTCHG                 0 Entries
I have a ztable 'ZSUBTEST' with 2 fields DEPTID and DEPNAME and ticked "change document" for data element.
I have created the above change doc write fn module. I am trying to insert a new reocrd into table.
How to use ZSUBTESTCHG_WRITE_DOCUMENT so that even if i try to change an existing record in ztable the old and new values for a particulat ztable will be filled in CDPOS Table.
Would appreciate if you can suggest me how to use in1) Update and 2) Insert scenarios.
Thanks,
Subba

Answer 1

hi check this,
Types Declaration***
types: BEGIN OF X_audit,
Field of ZAUDIT TABLE OR a custom created table------
       END OF X_audit.
Data Declaration***
Data: w_newvalues type X_audit,
      w_oldvalues type X_audit.
DATA: BEGIN OF t_cdtxt OCCURS 0.
        INCLUDE STRUCTURE cdtxt.
DATA: END OF t_cdtxt.
DATA:  l_tcode type cdhdr-tcode ,
       l_time type cdhdr-utime,
       l_usnam type cdhdr-username,
       l_date type cdhdr-udate.
**Constants****
CONSTANTS : l_objectid TYPE cdhdr-objectid VALUE 'ZAUDIT_CD'.
Initialization.
Clear: l_tcode,l_time, l_usnam, l_date.
Clear: w_newvalues, w_oldvalues.
**Start-Of-Selection**
Start-of-selection.
*Populating w_oldvalues workarea with old values from the table
Select single * from zaudit_t
                Into w_oldvalues
                Where belnr eq belnr_1
                And  gjahr eq gjahr_1
                And  bukrs eq bukrs_1. u201C where, belnr_1, gjahr_1, bukrs_1  are the fields on selection screen.
here we are populating w_newvalues workarea with new values
W_newvalues-f1 = w_oldvalues-f1
f2 = u2018XXXXXXXu2019     -
f3 = u2018YYYYYYYu2019
f4 = u2018ZZZZZZZu2019
l_tcode = sy-tcode.
l_time = sy-uzeit.
l_usnam = sy-uname.
l_date = sy-datum.
modify the table with new values***
MODIFY zaudit_t FROM w_submit.
IF sy-subrc EQ 0.
    MESSAGE 'Document Updated' TYPE 'S'.
call function 'ZAUDIT_CD1_WRITE_DOCUMENT'
    exporting
      objectid                   = l_objectid
      tcode                      = l_tcode
      utime                      = l_time
      udate                      = l_date
      username                   = l_usnam
    PLANNED_CHANGE_NUMBER      = ' '
      object_change_indicator    = 'U'           u201CU-update, I-insert, D-delete
    PLANNED_OR_REAL_CHANGES    = ' '
    NO_CHANGE_POINTERS         = ' '
      upd_icdtxt_zaudit_cd       = 'U'
      n_zaudit_t                 = w_newvalues  u201Cpass the work area containing new values     
      o_zaudit_t                 = w_oldvalues  u201Cpass the work area containing old values
      upd_zaudit_t               = 'U'         u201C this parameter gives the values in the columns(new value, old value and changed field name) of table CDPOS.
    tables
      icdtxt_zaudit_cd           = t_cdtxt
ELSE.
   MESSAGE 'Document Not Updated' TYPE 'S'.
ENDIF. u201CIF sy-subrc EQ 0.