CT04 修改或添加特性包含的特性值BAPI_CHARACT_CHANGE

DATA : CHARACTNAME  LIKE  BAPICHARACTKEY-CHARACTNAME.
DATA : CHARACTDETAILNEW   LIKE   TABLE   OF  BAPICHARACTDETAIL  WITH   HEADER   LINE .
DATA : CHARACTVALUESCHARNEW  LIKE   TABLE   OF  BAPICHARACTVALUESCHAR  WITH   HEADER   LINE .
DATA : CHARACTDESCRNEW  LIKE   TABLE   OF  BAPICHARACTDESCR  WITH   HEADER   LINE .
DATA : CHARACTVALUESDESCRNEW  LIKE   TABLE   OF  BAPICHARACTVALUESDESCR  WITH   HEADER   LINE .
"--DATA: RETURN LIKE TABLE OF BAPIRET2 WITH HEADER LINE.
CLEAR :CHARACTNAME,CHARACTDETAILNEW,CHARACTVALUESCHARNEW,CHARACTDESCRNEW.
CLEAR :CHARACTNAME,CHARACTDETAILNEW[],CHARACTVALUESCHARNEW[],CHARACTDESCRNEW[].

DATA : CLASSBASICDATA    LIKE      BAPI1003_BASIC,
      CLASSDOCUMENT     LIKE      BAPI1003_DOCU,
      CLASSADDITIONAL   LIKE      BAPI1003_ADD,
      CLASSSTANDARD     LIKE      BAPI1003_STAND.

DATA : CLASSDESCRIPTIONS      LIKE   TABLE   OF   BAPI1003_CATCH_R  WITH   HEADER   LINE ,
      CLASSLONGTEXTS         LIKE   TABLE   OF   BAPI1003_LONGTEXT_R  WITH   HEADER   LINE ,
      CLASSCHARACTERISTICS   LIKE   TABLE   OF   BAPI1003_CHARACT_R  WITH   HEADER   LINE ,
      CLASSCHARVALUES        LIKE   TABLE   OF   BAPI1003_CHAR_VAL_R  WITH   HEADER   LINE .
DATA : L_INDEX  LIKE  SY-TABIX.


CHARACTNAME =  'Z_BATCH_PVD_005' .
*檢查CHARACTNAME存在與否(不存在肯定沒有值可選)
CALL   FUNCTION   'BAPI_CHARACT_EXISTENCECHECK'
   EXPORTING
    CHARACTNAME       =  CHARACTNAME
*   KEYDATE           = SY-DATUM
   TABLES
     RETURN             = O_RESULT.
READ   TABLE  O_RESULT  WITH   KEY   TYPE  =  'S' .
IF  SY-SUBRC <>  0 .
     EXIT .
ENDIF .
*-1
CLEAR : CHARACTDETAILNEW, CHARACTDETAILNEW[].
CHARACTDETAILNEW-CHARACT_NAME      = CHARACTNAME.
CHARACTDETAILNEW-DATA_TYPE         =  'CHAR' .
CHARACTDETAILNEW-LENGTH            =  '12' .
CHARACTDETAILNEW-STATUS            =   '1' .
CHARACTDETAILNEW-VALUE_ASSIGNMENT  =  'M' .
CHARACTDETAILNEW-ADDITIONAL_VALUES =  'X' .
APPEND  CHARACTDETAILNEW.

*-2
CLEAR : CHARACTDESCRNEW, CHARACTDESCRNEW[].
CHARACTDESCRNEW-LANGUAGE_INT       =  'E' .
CHARACTDESCRNEW-DESCRIPTION        =  'RM BATCH' .
APPEND  CHARACTDESCRNEW.
CHARACTDESCRNEW-LANGUAGE_INT =  '1' .
CHARACTDESCRNEW-DESCRIPTION =  '原材料批号' .
APPEND  CHARACTDESCRNEW.


L_INDEX =  0 .
DO   2   TIMES .
     L_INDEX = L_INDEX +  1 .
      IF  L_INDEX =  1 .   "L_INDEX=1時，執行bapi是清空值,第二次才修改值
*        *--3
          CLEAR : CHARACTVALUESCHARNEW, CHARACTVALUESCHARNEW[].
          CLEAR : CHARACTVALUESDESCRNEW, CHARACTVALUESDESCRNEW[].
      ELSE .
          IF  I_BATCH[]  IS   INITIAL .
               CONTINUE .
          ENDIF .
          LOOP   AT  I_BATCH.
             CHARACTVALUESCHARNEW-VALUE_CHAR = I_BATCH-CHARG.
              APPEND  CHARACTVALUESCHARNEW.
              CLEAR   CHARACTVALUESCHARNEW.

             CHARACTVALUESDESCRNEW-LANGUAGE_INT = sy-langu.
             CHARACTVALUESDESCRNEW-LANGUAGE_ISO = SY-LANGU.
             CHARACTVALUESDESCRNEW-VALUE_CHAR = I_BATCH-CHARG.
              CONCATENATE   '['  I_BATCH-CHARG  ']'  I_BATCH-MAKTX  INTO  CHARACTVALUESDESCRNEW-DESCRIPTION.
              "-CHARACTVALUESDESCRNEW-DESCRIPTION = 'TEST 882'.   "I_BATCH-MATNR
              APPEND  CHARACTVALUESDESCRNEW.
              CLEAR   CHARACTVALUESDESCRNEW.
          ENDLOOP .
      ENDIF .
       CALL   FUNCTION   'BAPI_CHARACT_CHANGE'
         EXPORTING
          CHARACTNAME                  = CHARACTNAME
*         CHANGENUMBER                 =
*         KEYDATE                      = SY-DATUM
         TABLES
          CHARACTDETAILNEW             = CHARACTDETAILNEW
          CHARACTDESCRNEW              = CHARACTDESCRNEW
*         CHARACTVALUESNUMNEW          =
          CHARACTVALUESCHARNEW         = CHARACTVALUESCHARNEW
*         CHARACTVALUESCURRNEW         =
          CHARACTVALUESDESCRNEW        = CHARACTVALUESDESCRNEW
*         CHARACTREFERENCESNEW         =
*         CHARACTRESTRICTIONSNEW       =
           RETURN                        = O_RESULT.

         CALL   FUNCTION   'BAPI_TRANSACTION_COMMIT'
           EXPORTING
              WAIT  =  'X' .

ENDDO.

转载自：http://blog.csdn.net/twty5210/article/details/6003114