使用代码删除IBASE object component

Created by Jerry Wang, last modified on Sep 05, 2014

需求: 将包含object ZJERRY0903C1的object component 从IBASE 中移除:

clipboard1

执行report，输入object component ID 112255:

clipboard2

成功删除之后，object ZJERRY0903C1已经从IBASE 的structure中消失,可以被assign到其他的IBASE上:

clipboard3

PARAMETERS id TYPE ibap_dat1-instance OBLIGATORY DEFAULT '112255'.

DATA: l_comp TYPE IBAP_DAT1.

l_comp-instance = id.

CALL FUNCTION 'CRM_IBASE_COMP_DELETE'

  EXPORTING

    i_comp                    = l_comp

 EXCEPTIONS

   DATA_NOT_CONSISTENT       = 1

   IBASE_LOCKED              = 2

   NOT_SUCCESFUL             = 3

   NO_AUTHORITY              = 4

   OTHERS                    = 5.

IF sy-subrc <> 0.

  WRITE: 'deletion failed: ' , sy-subrc.

  RETURN.

ENDIF.

CALL FUNCTION 'CRM_IBASE_SAVE'.

COMMIT WORK AND WAIT.

WRITE:/ 'deletion successful'.