Problem in assigning characteristics values to characters against material

Question

Hello Gurus,,
I am doing a wrapper RFC to populate characteristic values to characters and finally that needs to be visible in material classfication view.
The following is my code let me know if any thing needs to be corrected on this
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(CLASSNUM) TYPE  BAPI1003_KEY-CLASSNUM
*"     VALUE(CLASSTYP) TYPE  BAPI1003_KEY-CLASSTYPE
*"     VALUE(MATNR) TYPE  MATNR
*"  TABLES
*"      CHARVALUES STRUCTURE  ZCLASSCHAR
*"      RETURN STRUCTURE  BAPIRET2
  TYPES: BEGIN OF ty_classchar,
         atnam TYPE atnam,
         atfor TYPE atfor,
         END OF ty_classchar.
  DATA: t_classchar TYPE TABLE OF ty_classchar,
        x_classchar TYPE ty_classchar,
        v_matnr(50) TYPE c.
  DATA: objectkeynew  TYPE  bapi1003_key-object,
        objecttablenew  TYPE  bapi1003_key-objecttable,
        classnumnew TYPE  bapi1003_key-classnum,
        classtypenew  TYPE  bapi1003_key-classtype,
        status  TYPE  bapi1003_key-status,
        standardclass TYPE  bapi1003_key-stdclass,
        changenumber  TYPE  bapi1003_key-changenumber,
        keydate TYPE  bapi1003_key-keydate,
        no_default_values TYPE  bapi1003_key-flag,
        classif_status  TYPE  bapi1003_key-status.
  DATA: allocvaluesnum  TYPE TABLE OF bapi1003_alloc_values_num WITH HEADER LINE,
        allocvalueschar     TYPE TABLE OF     bapi1003_alloc_values_char WITH HEADER LINE,
        allocvaluescurr     TYPE TABLE OF     bapi1003_alloc_values_curr WITH HEADER LINE.
  REFRESH: t_classchar,return.
  IF charvalues IS NOT INITIAL.
    SELECT atnam
           atfor
           FROM cabn
           INTO TABLE t_classchar
           FOR ALL ENTRIES
           IN charvalues WHERE
           atnam EQ charvalues-characteristic.
    IF sy-subrc <> 0.
      CLEAR return.
      return-message = 'No values in CABN against provided input'.
      APPEND return.
    ENDIF.
  ELSE.
    CLEAR return.
    return-message = 'No input is provided'.
    APPEND return.
  ENDIF.
  REFRESH: allocvalueschar,allocvaluesnum.
  LOOP AT charvalues.
    CLEAR x_classchar.
    READ TABLE t_classchar INTO x_classchar WITH KEY atnam = charvalues-characteristic.
    CASE x_classchar-atfor.
      WHEN 'NUM'.
        CLEAR allocvaluesnum.
        allocvaluesnum-charact = charvalues-characteristic.
        allocvaluesnum-value_from = sy-datum.
        APPEND allocvaluesnum.
      WHEN 'CHAR'.
        CLEAR allocvalueschar.
        allocvalueschar-charact = charvalues-characteristic.
        allocvalueschar-value_char = charvalues-description.
        APPEND allocvalueschar.
    ENDCASE.
  ENDLOOP.
  CLEAR: v_matnr.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = matnr
    IMPORTING
      output = v_matnr.
  CALL FUNCTION 'BAPI_OBJCL_CREATE'
    EXPORTING
      objectkeynew            = v_matnr
      objecttablenew          = 'MARA'
      classnumnew             = classnum
      classtypenew            = classtyp
   STATUS                  = '1'
*   STANDARDCLASS           =
*   CHANGENUMBER            =
     keydate                 = sy-datum
   NO_DEFAULT_VALUES       = ' '
   IMPORTING
     classif_status          = classif_status
   TABLES
     allocvaluesnum          = allocvaluesnum
     allocvalueschar         = allocvalueschar
*   ALLOCVALUESCURR         =
     return                  = return
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
The output which i got has following error codes
I CL                   732 Assignment does not exist or is not valid on
E CL                   763 Object 00000000000000000000000000000000000000000000001631 does not exist
I CL                   736 Assignment was not created
Please let me know what could be the error.
Regards
S.Janagar

Answer 1

Hi Mr.Sengathir Jeyamani,
Did u got the solution for this? Me also looking answer for your question. If u found, Pls let me know. Thanks.
-JANARAJA