检查物料主数据是否重复

START-OF-SELECTION .

   DATA  : E_MATNR  TYPE MATNR .

  E_MATNR  =  '2100002' .
   CALL  FUNCTION  'CONVERSION_EXIT_MATN1_INPUT'
     EXPORTING
       INPUT         = E_MATNR
     IMPORTING
       OUTPUT        = E_MATNR
     EXCEPTIONS
      LENGTH_ERROR  =  1
       OTHERS        =  2 .
   IF SY -SUBRC <>  0 .
* Implement suitable error handling here
   ENDIF .


   SELECT  SINGLE @ABAP_TRUE  FROM MARA  INTO @DATA (ISEXIT )
   WHERE MATNR  = @E_MATNR .
   IF SY -SUBRC  =  0 .
     WRITE  :  'Exist' .
   ELSE .
     WRITE  :  '可以使用' .
   ENDIF .