IF TMPI > 0 .
CALL FUNCTION ‘ARCHIV_DELETE_META’
EXPORTING
* ARCHIV_ID = INT_CONN-ARCHIV_ID "内容存储库标识
* ARC_DOC_ID = INT_CONN-ARC_DOC_ID "ID文档
AR_OBJECT = C_AR_OBJECT "ID文档
DELETE_FLAG = ‘2’ "删除时是否输出对画，3代表不输 "出，0代表输出
OBJECT_ID = P_PERNRID "对象标识符 (对象标识符)
SAP_OBJECT = C_SAP_OBJECT "业务对象的对象类型
* IMPORTING
* ALL_CONNECTIONS_DELETED = ALL_DELETED
EXCEPTIONS
ERROR_CONNECTIONTABLE = 1
OTHERS = 9.
IF SY-SUBRC = 0.
P_FLG = 0.
ELSE.
P_FLG = 3.
ENDIF.
ENDIF.
