1.FIRST SAVE DOCUMENT.
FORM CD_CALL_ZXLFSQ .
UPD_ZXLFZSQ = 'U'.
IF ( UPD_ZXLFZSQ NE SPACE )
OR ( UPD_ICDTXT_ZXLFSQ NE SPACE )
.
* CALL FUNCTION 'SWE_REQUESTER_TO_UPDATE'.
CALL FUNCTION 'ZXLFSQ_WRITE_DOCUMENT ' "IN UPDATE TASK
EXPORTING OBJECTID = OBJECTID
TCODE = TCODE
UTIME = UTIME
UDATE = UDATE
USERNAME = USERNAME
PLANNED_CHANGE_NUMBER = PLANNED_CHANGE_NUMBER
OBJECT_CHANGE_INDICATOR = CDOC_UPD_OBJECT
PLANNED_OR_REAL_CHANGES = CDOC_PLANNED_OR_REAL
NO_CHANGE_POINTERS = CDOC_NO_CHANGE_POINTERS
UPD_ZXLFZSQ
= UPD_ZXLFZSQ
UPD_ICDTXT_ZXLFSQ
= UPD_ICDTXT_ZXLFSQ
TABLES ICDTXT_ZXLFSQ
= ICDTXT_ZXLFSQ
XZXLFZSQ
= XZXLFZSQ
YZXLFZSQ
= YZXLFZSQ
.
ENDIF.
CLEAR PLANNED_CHANGE_NUMBER.
2.NEXT READ DOCUMENT.
CALL FUNCTION 'CHANGEDOCUMENT_READ'
EXPORTING
objectclass = 'ZXLFSQ'
TABKEY = objid
username = sy-uname
TABLES
editpos = icdred
EXCEPTIONS
no_position_found = 1
wrong_access_to_archive = 2
time_zone_conversion_error = 3
OTHERS = 4.
NOTICE:In this function u should define the objectclass and tabkey, so that u can get the table of editpos.
