error with bapi_equi_create!

[Former Member]

friends,

am using bapi_equi_create to create equipment..am not able to create the equipment as it gives two error msgs. (either one or another).

1) cost center 1000/190099009 does not exist even though the cost center exists.

2) if i use conversion exit for kostl or if i don't pass kostl itself to the bapi, then i get the err msg. Field contains invalid characters

when i create manually with the same cost center or without filling it, equipment gets created...where am i wrong?

fyi: bapi_equi_create calls ITOB_EQUIPMENT_CREATE_SINGLE -> which in turn calls ITOB_OBJECT_CREATE -> in this fm, this routine triggers the error

PERFORM RAISE_SPECIFIC_MESSAGE

USING

'ITOB' 'E' <L_ITOB_REC>-FLAGS-MESSAGE_NR

SPACE SPACE SPACE SPACE.

Sathish. R

[Former Member]

Hi,

BAPI_EQUI_CREATE

data:
* Export
  EXTERNAL_NUMBER   LIKE BAPI_ITOB_PARMS-EQUIPMENT,
  DATA_GENERAL      LIKE BAPI_ITOB,
  DATA_SPECIFIC     LIKE BAPI_ITOB_EQ_ONLY,
  VALID_DATE        LIKE BAPI_ITOB_PARMS-INST_DATE,
  DATA_INSTALL      LIKE BAPI_ITOB_EQ_INSTALL,
* Import
  EQUIPMENT         LIKE BAPI_ITOB_PARMS-EQUIPMENT,
  DATA_GENERAL_EXP  LIKE BAPI_ITOB,
  DATA_SPECIFIC_EXP LIKE BAPI_ITOB_EQ_ONLY,
  RETURN            LIKE BAPIRET2.

* für BAPI_OBJCL_CHANGE
data:
* export
  OBJECTKEY   LIKE BAPI1003_KEY-OBJECT,       " Objektschlüssel,
*                                                 konkateniert
  OBJECTTABLE LIKE BAPI1003_KEY-OBJECTTABLE,  " Objekttabelle
  CLASSNUM    LIKE BAPI1003_KEY-CLASSNUM,     "        Klassennummer
  CLASSTYPE   LIKE BAPI1003_KEY-CLASSTYPE,    " Klassenart
  STATUS      LIKE BAPI1003_KEY-STATUS,       " '1' Status der
*                                                 Klassifizierung
  STANDARDCLASS LIKE BAPI1003_KEY-STDCLASS,   " Kennzeichen:
*                                                Standardklasse
  CHANGENUMBER LIKE BAPI1003_KEY-CHANGENUMBER, " Änderungsnummer
  KEYDATE     LIKE BAPI1003_KEY-KEYDATE,       " SY-DATUM Stichtag
  NO_DEFAULT_VALUES LIKE BAPI1003_KEY-FLAG,    " SPACE Vorschlagswerte
* import
  CLASSIF_STATUS LIKE BAPI1003_KEY-STATUS,     " Status der
*                                                  Klassifizierung
* tables
*   neue Bewertungen NUM,DATE,TIME
  NUMNEW LIKE BAPI1003_ALLOC_VALUES_NUM
    occurs 0 with header line,
*   neue Bewertungen CHAR,BOOL
  CHARNEW LIKE BAPI1003_ALLOC_VALUES_CHAR
    occurs 0 with header line,
*   neue Bewertungen CURR
  CURRNEW LIKE BAPI1003_ALLOC_VALUES_CURR
    occurs 0 with header line,
*   Fehlermeldungen
  RETURN_BAPI_OBJCL_CHANGE LIKE BAPIRET2 occurs 0 with header line.


* <SNIP>


PERFORM prepare_data_bapi_equi.
PERFORM bapi_equi_create.
PERFORM prepare_data_classification.
PERFORM bapi_objcl_change.   " Klassifikation


* <SNIP>


*&---------------------------------------------------------------------*
*&      Form  prepare_data_bapi_equi
*&---------------------------------------------------------------------*
FORM prepare_data_bapi_equi.
* wir sind im loop at split_tab.

** Export
*~~~~~~~~~~~~~~~~~~~~~
*  EXTERNAL_NUMBER   LIKE BAPI_ITOB_PARMS-EQUIPMENT,
*  EQUIPMENT        EQUNR        CHAR        18        0        Equipmentnummer
*Die Equipmentnummer setzt sich zusammen aus der Sachnummer und der
*Stücknummer. Die Stücknummer ist mit führenden Nullen auf 4 Stellen
*aufzufüllen. Damit ergeben sich für die Equipmentnummer 14 Stellen
*(ohne Punkte)
  CLEAR: external_number.
  UNPACK split_tab-stknr TO split_tab-stknr.
  CONCATENATE split_tab-artnr split_tab-stknr INTO external_number.
* die Equipment-# muss 18-stellig sein wegen Textpflege
  UNPACK external_number TO external_number.

*~~~~~~~~~~~~~~~~~~~~~
*  DATA_GENERAL      LIKE BAPI_ITOB,
*  Berechtigungsgruppe zum Technischen Objekt  IAUTG  CHAR4
*    data_general-AUTHGRP =
*  Art des technischen Objekts  EQART  CHAR10
*    data_general-OBJECTTYPE =
*  Inventarnummer  INVNR  CHAR25
*    data_general-INVENTORY =
*  Größe/Abmessung  GROSS  CHAR18
*    data_general-OBJ_SIZE =
*  Gewicht des Objekts  OBJ_WEIGHT  QUAN13
*    data_general-OBJ_WEIGHT =
*  Gewichtseinheit  WEIGHT_UNIT  UNIT3
*    data_general-UNIT_OF_WT =
*  ISO-Code Maßeinheit  ISOCD_UNIT  CHAR3
*    data_general-UNIT_ISO =
*  Anschaffungsdatum  ANDTI  DATS8
*    data_general-ACQDATE =
*  Anschaffungswert  ANSWT  CURR13
*    data_general-ACQUISVAL =
*  Währungsschlüssel  WAERS  CUKY5
*    data_general-CURRENCY =
*  Iso-Code Währung  ISOCD  CHAR3
*    data_general-CURR_ISO =
*  Hersteller der Anlage  HERST  CHAR30
  data_general-manfacture = split_tab-herst.
*  Herstellerland  HERLD  CHAR3
*    data_general-MANCOUNTRY =
*  ISO-Code des Landes  INTCA  CHAR2
*    data_general-COUNTR_ISO =
*  Serialnummer gemäß Hersteller  SERGE  CHAR30
*    data_general-MANSERNO =
*  Typenbezeichnung des Herstellers  TYPBZ  CHAR20
*    data_general-MANMODEL =
*  Baujahr  BAUJJ  CHAR4
*    data_general-CONSTYEAR =
*  Baumonat  BAUMM  CHAR2
*    data_general-CONSTMONTH =
*  Datum der Inbetriebnahme des Technischen Objekts  ILOM_DATAB  DATS8
  data_general-start_from = sy-datum.
*  Instandhaltungsplanungswerk  IWERK  CHAR4
  data_general-planplant = '06'.
*  Bautypmaterial des technischen Objekts  SUBMT  CHAR18
*    data_general-CONSTTYPE =
*  Herstellerteilnummer  MAPAR  CHAR30
*    data_general-MANPARNO =
*  Planergruppe für Kundenservice und Instandhaltung  INGRP  CHAR3
*    data_general-PLANGROUP =
*  Berichtsschema  RBNR  CHAR9
*    data_general-CATPROFILE =
*  Objekt-ID des Arbeitsplatzes  LGWID  NUMC8
    select * from crhd
     where objty eq 'A'
     and   arbpl eq 'QLEHR'.
      data_general-WORK_CTR = crhd-objid.
      exit.
    endselect.
*  Bezeichnung technisches Objekt  KTX01  CHAR40
  data_general-descript = split_tab-ktx01.
*  ABC-Kennzeichen zum technischen Objekt  ABCKZ  CHAR1
*    data_general-ABCINDIC =
*  Sortierfeld  EQFNR  CHAR30
*    data_general-SORTFIELD =

*  Standortwerk  SWERK  CHAR4
    data_general-maintplant = '0001'.
* Standort der Anlage  STORT  CHAR10
    data_general-maintloc = 'BESTAND'.

*  Raum  RAUMNR  CHAR8
*    data_general-MAINTROOM =
*  Betriebsbereich  BEBER  CHAR3
*    data_general-PLSECTN =
*  Objekt-ID des PPS-Arbeitsplatzes  PPSID  NUMC8
*    data_general-PP_WKCTR =
*  Geschäftsbereich  GSBER  CHAR4
*    data_general-BUS_AREA =

*  Kostenstelle  KOSTL  CHAR10
    data_general-COSTCENTER = '972'.
    UNPACK data_general-costcenter TO data_general-costcenter.


*  Projektstrukturplanelement (PSP-Element)  PS_PSP_PNR  NUMC8
*    data_general-WBS_ELEM =
*  Buchungskreis  BUKRS  CHAR4
  data_general-comp_code = 'Firma'.
*  Anlagen-Hauptnummer  ANLN1  CHAR12
*    data_general-ASSET_NO =
*  Anlagenunternummer  ANLN2  CHAR4
*    data_general-SUB_NUMBER =
*  Dauerauftragsnummer  DAUFN  CHAR12
*    data_general-STANDORDER =
*  Abrechnungsauftrag  ILOM_ORDST  CHAR12
*    data_general-SETTLORDER =
*  Verkaufsorganisation  VKORG  CHAR4
*    data_general-SALES_ORG =
*  Vertriebsweg  VTWEG  CHAR2
*    data_general-DISTR_CHAN =
*  Sparte  SPART  CHAR2
*    data_general-DIVISION =
*  Verkaufsbüro  VKBUR  CHAR4
*    data_general-SALES_OFF =
*  Verkäufergruppe  VKGRP  CHAR3
*    data_general-SALES_GRP =
*  Datum, an dem der Satz hinzugefügt wurde  ERDAT  DATS8
  data_general-read_crdat = sy-datum.
*  Name des Sachbearbeiters, der d Objekt hinzugefügt hat  ERNAM  CHAR12
  data_general-read_crnam = sy-uname.
*  Datum der letzten Änderung  AEDAT  DATS8
*    data_general-READ_CHDAT =
*  Name des Sachbearbeiters, der das Objekt geändert hat.  AENAM  CHAR12
*    data_general-READ_CHNAM =
*  Adreßnummer  AD_ADDRNUM  CHAR10
*    data_general-READ_ADRNR =


*~~~~~~~~~~~~~~~~~~~~~
*  DATA_SPECIFIC     LIKE BAPI_ITOB_EQ_ONLY,
*  Konfigurierbares Material  KMATN  CHAR18
*    data_specific-CONFIGMAT =
*  Materialnummer  MATNR  CHAR18
*    data_specific-MATERIAL =
*  Serialnummer  GERNR  CHAR18
*    data_specific-SERIALNO =
*  Equipmenttyp  EQTYP  CHAR1
  data_specific-equicatgry = 'E'.
*  Chargennummer  CHARG_D  CHAR10
*    data_specific-BATCH =
*  Zeichnungsnummer laut Hersteller  HZEIN  CHAR30
*    data_specific-MANDRAWNO =
*  Erstes Auslieferungsdatum des Equipments  AULDT  DATS8
*    data_specific-DELIVDATE =
*  Datum, für SAP-interne Nutzung vorgesehen  EQDAT  DATS8
*    data_specific-FREE_DATE1 =
*  Technische Informationen, für SAP-interne Nutzung vorges EQBER CHAR30
*    data_specific-FREE_NOTE1 =
*  Numerisches Feld, für SAP-interne Nutzung vorgesehen  EQNUM  NUMC9
*    data_specific-FREE_NUM1 =
*  Technische Identnummer  TIDNR  CHAR25
*    data_specific-TECHID =
*  Lizenznummer des Equipments  LIZNR  CHAR20
*    data_specific-LICENSE =
*  Datum, für SAP-interne Nutzung vorgesehen  EQDAT  DATS8
*    data_specific-FREE_DATE2 =
*  Technische Informationen, für SAP-interne Nutzung vorges EQBER CHAR30
*    data_specific-FREE_NOTE2 =
*  Numerisches Feld, für SAP-interne Nutzung vorgesehen  EQNUM  NUMC9
*    data_specific-FREE_NUM2 =
*  Konfiguration (interne Objektnummer)  CUOBJ  NUMC18
*    data_specific-READ_CUOBJ =
*  Referenzierte Konfiguration  KRFKZ  CHAR1
*    data_specific-READ_CUREF =
*  Übergeordnetes Equipment  HEQUI  CHAR18
*    data_specific-READ_SUPEQ =
*  Kennzeichnung des Technischen Platzes  ILOM_STRNO  CHAR40
*    data_specific-READ_FLOC =


*~~~~~~~~~~~~~~~~~~~~~
*  VALID_DATE        LIKE BAPI_ITOB_PARMS-INST_DATE,
*  Gültig-Ab-Datum für anzulegendes Equipment


*~~~~~~~~~~~~~~~~~~~~~
*  DATA_INSTALL      LIKE BAPI_ITOB_EQ_INSTALL,
*  Kennzeichnung des Technischen Platzes  ILOM_STRNO  CHAR40
*    data_install-FUNCLOC =
*  Übergeordnetes Equipment  HEQUI  CHAR18
*    data_install-SUPEQUI =
*  Equipmentposition am Einbauort (überg.Eqmt/Techn.Platz) INSTALLPOS C4
*    data_install-INST_POS =

ENDFORM.                    " prepare_data_bapi_equi


*&---------------------------------------------------------------------*
*&      Form  bapi_equi_create
*----------------------------------------------------------------------*
FORM bapi_equi_create.
* wir sind im loop at split_tab.

  CALL FUNCTION 'BAPI_EQUI_CREATE'
       EXPORTING
            external_number   = external_number
            data_general      = data_general
            data_specific     = data_specific
            valid_date        = valid_date
            data_install      = data_install
       IMPORTING
            equipment         = equipment
            data_general_exp  = data_general_exp
            data_specific_exp = data_specific_exp
            return            = return
       . " PUNKT!!!!
* Fehlerauswertung
  IF NOT return-type IS INITIAL.         " an error occurs
    IF return-type = 'A'.
      return-type = 'E'.     " no abortion!!!
      WRITE: / external_number,
               split_tab-lgort,
               'ID',     return-id(2),
               'TYPE',   return-type,
               'NUMBER', return-number,
                return-message,
                return-message_v1,
                return-message_v2,
                return-message_v3.
      MESSAGE
                  ID  return-id(2)
                TYPE  return-type
              NUMBER  return-number
                WITH  return-message
                      return-message_v1
                      return-message_v2
                      return-message_v3.

*    ELSEIF return-type = 'S'.
**    nothing to do
*      perform bapi_commit using 'BAPI_EQUI_CREATE'.
    ELSE.  " return-type = 'A'
      WRITE: / external_number,
               split_tab-lgort,
               'ID',     return-id(2),
               'TYPE',   return-type,
               'NUMBER', return-number,
                return-message,
                return-message_v1,
                return-message_v2,
                return-message_v3.

*      MESSAGE
*                  ID  return-id(2)
*                TYPE  return-type
*              NUMBER  return-number
*                WITH  return-message
*                      return-message_v1
*                      return-message_v2
*                      return-message_v3.
    ENDIF. " return-type = 'A'
  ELSE.  "  NOT return-type IS INITIAL
* Alles ging gut!
** Import
*  EQUIPMENT         LIKE BAPI_ITOB_PARMS-EQUIPMENT,
*  DATA_GENERAL_EXP  LIKE BAPI_ITOB,
*  DATA_SPECIFIC_EXP LIKE BAPI_ITOB_EQ_ONLY,
*  RETURN            LIKE BAPIRET2,
    IF NOT split_tab-bemer IS INITIAL.
      PERFORM equi_langtext.
    ENDIF. " split_tab-bemer is initial
    IF NOT ( split_tab-prfer IS INITIAL
       AND split_tab-prfbm IS INITIAL
       AND split_tab-prfdt IS INITIAL
       AND split_tab-prfnm IS INITIAL ).
      PERFORM equi_vermerk.
    ENDIF. " ( 4 Felder initial)
    PERFORM bapi_commit USING 'BAPI_EQUI_CREATE'.
  ENDIF. "  NOT return-type IS INITIAL
ENDFORM.                    " bapi_equi_create


*&---------------------------------------------------------------------*
*&      Form  bapi_commit
*&---------------------------------------------------------------------*
FORM bapi_commit USING aufrufer.
  DATA:
    bapi_return  TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
            wait   = 'X'
       IMPORTING
            return = bapi_return.
*    save_subrc = sy-subrc.
  IF NOT bapi_return[] IS INITIAL.
    LOOP AT bapi_return.
      WRITE: / bapi_return-message.
    ENDLOOP.
  ELSE. " not bapi_return[] is initial
** Import
*  EQUIPMENT         LIKE BAPI_ITOB_PARMS-EQUIPMENT,
*  DATA_GENERAL_EXP  LIKE BAPI_ITOB,
*  DATA_SPECIFIC_EXP LIKE BAPI_ITOB_EQ_ONLY,
*  RETURN            LIKE BAPIRET2,
    CASE aufrufer.
      WHEN 'BAPI_EQUI_CREATE'.
        WRITE: /
          'Equipment erfolgreich angelegt:'(011), equipment.
      WHEN 'CLAF_CLASSIFICATION_OF_OBJECTS'.
        WRITE: /
          'Klassifikation erfolgreich angelegt:'(012), equipment.
    ENDCASE.
  ENDIF. " not bapi_return[] is initial
ENDFORM.                    " bapi_commit


*&---------------------------------------------------------------------*
*&      Form  equi_langtext
*&---------------------------------------------------------------------*
FORM equi_langtext.
* wir sind im loop at split_tab.
*  split_tab-bemer (70)
  CLEAR: text_header, text_lines.
  REFRESH: text_lines.
  text_header-tdname  = external_number. " Equipment
  text_header-tdid    = 'LTXT'.
  text_header-tdspras = sy-langu.
  text_header-tdobject = 'EQUI'.
  text_header-tdfuser = sy-uname.
  text_header-tdfdate = sy-datum.
  text_header-tdftime = sy-uzeit.

  text_lines-tdformat = '*'.   " Default-Absatz
  text_lines-tdline = split_tab-bemer.
  APPEND text_lines.

  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      client                = sy-mandt
      header                = text_header
      insert                = ' '
      savemode_direct       = ' '
      owner_specified       = ' '
      local_cat             = ' '
*   IMPORTING
*     FUNCTION              =
*     NEWHEADER             =
    TABLES
      lines                 = text_lines
    EXCEPTIONS
      id                    = 1
      language              = 2
      name                  = 3
      object                = 4
      OTHERS                = 5
            . " PUNKT!!
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE. " sy-subrc <> 0
    PERFORM commit_text.
  ENDIF. " sy-subrc <> 0
ENDFORM.                    " equi_langtext


*&---------------------------------------------------------------------*
*&      Form  equi_vermerk
*&---------------------------------------------------------------------*
FORM equi_vermerk.
* wir sind im loop at split_tab.
*1. Zeile = split_tab-PRFER (12)
*2. Zeile = split_tab-PRFBM (40)
*3. Zeile = split_tab-PRFDT (8)
*4. Zeile = split_tab-PRFNM (12)

  CLEAR: text_header, text_lines.
  REFRESH: text_lines.
  text_header-tdname  = external_number. " Equipment
  text_header-tdid    = 'INTV'.
  text_header-tdspras = sy-langu.
  text_header-tdobject = 'EQUI'.
  text_header-tdfuser = sy-uname.
  text_header-tdfdate = sy-datum.
  text_header-tdftime = sy-uzeit.

  text_lines-tdformat = '*'.  " Default-Absatz
  text_lines-tdline = split_tab-prfer.
  APPEND text_lines.
  text_lines-tdline = split_tab-prfbm.
  APPEND text_lines.
  text_lines-tdline = split_tab-prfdt.
  APPEND text_lines.
  text_lines-tdline = split_tab-prfnm.
  APPEND text_lines.

  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      client                = sy-mandt
      header                = text_header
      insert                = ' '
      savemode_direct       = ' '
      owner_specified       = ' '
      local_cat             = ' '
*   IMPORTING
*     FUNCTION              =
*     NEWHEADER             =
    TABLES
      lines                 = text_lines
    EXCEPTIONS
      id                    = 1
      language              = 2
      name                  = 3
      object                = 4
      OTHERS                = 5
            . " PUNKT!!
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE. " sy-subrc <> 0
    PERFORM commit_text.
  ENDIF. " sy-subrc <> 0
ENDFORM.                    " equi_vermerk


*&---------------------------------------------------------------------*
*&      Form  COMMIT_TEXT
*&---------------------------------------------------------------------*
FORM commit_text.
  CALL FUNCTION 'COMMIT_TEXT'
   EXPORTING
     object                = 'EQUI'
     name                  = '*'
     id                    = '*'
     language              = '*'
*     SAVEMODE_DIRECT       = ' '
*     KEEP                  = ' '
*     LOCAL_CAT             = ' '
*   IMPORTING
*     COMMIT_COUNT          =
*   TABLES
*     T_OBJECT              =
*     T_NAME                =
*     T_ID                  =
*     T_LANGUAGE            =
            . " PUNKT!!
ENDFORM.                    " COMMIT_TEXT



*&---------------------------------------------------------------------*
*&      Form  prepare_data_CLASSIFICATION
*&---------------------------------------------------------------------*
FORM prepare_data_classification.
* wir sind im loop at split_tab.

* Export
*OBJECTKEY  LIKE  BAPI1003_KEY-OBJECT                Objektschlüssel,
*konkateniert
*OBJECTTABLE        LIKE        BAPI1003_KEY-OBJECTTABLE                Objekttabelle
*CLASSNUM        LIKE        BAPI1003_KEY-CLASSNUM                Klassennummer
*CLASSTYPE        LIKE        BAPI1003_KEY-CLASSTYPE                Klassenart
*STATUS        LIKE        BAPI1003_KEY-STATUS        '1'        Status der
*                                                Klassifizierung
*STANDARDCLASS        LIKE        BAPI1003_KEY-STDCLASS
*                Kennzeichen: Standardklasse
*CHANGENUMBER        LIKE        BAPI1003_KEY-CHANGENUMBER                Änderungsnummer
*KEYDATE        LIKE        BAPI1003_KEY-KEYDATE        SY-DATUM        Stichtag
*NO_DEFAULT_VALUES        LIKE        BAPI1003_KEY-FLAG        SPACE        Vorschlagswerte

  objectkey = external_number.
  objecttable = 'EQUI'.          " Name der Datenbanktabelle d. Objektes
  classtype = '002'.   " Fix
  classnum = 'ZQM_MESSMITTEL'.
  status = ''.
  standardclass = ''.
  keydate = sy-datum.

* Import
* CLASSIF_STATUS        LIKE        BAPI1003_KEY-STATUS        Status der
*                              Klassifizierung


* Tabellen
*neue Bewertungen NUM,DATE,TIME
*ALLOCVALUESNUMNEW        LIKE        BAPI1003_ALLOC_VALUES_NUM
**
*CHARACT        ATNAM        CHAR        30        0        Merkmalname
*VALUE_FROM        ATFLV        FLTP        16        16        interner Fließkomma-Wert von
*VALUE_TO        ATFLB        FLTP        16        16        interner Fließkomma-Wert bis
*VALUE_RELATION        ATCOD        CHAR        1        0        Code für Wertebeziehung
*UNIT_FROM        MEINS        UNIT        3        0        Basismengeneinheit
*UNIT_TO        MEINS        UNIT        3        0        Basismengeneinheit
*UNIT_FROM_ISO        MEINS_ISO        CHAR        3        0
*        Basismengeneinheit im ISO-Code
*UNIT_TO_ISO        MEINS_ISO        CHAR        3        0        Basismengeneinheit im
*ISO-Code
*INHERITED        FLINH        CHAR        1        0        Kennzeichen: Merkmal ererbt
*INSTANCE        ATZIS        NUMC        3        0        Instanzenzähler
*CHARACT_DESCR        ATBEZ        CHAR        30        0        Merkmalbezeichnung


* neue Bewertungen CHAR,BOOL
*ALLOCVALUESCHARNEW        LIKE        BAPI1003_ALLOC_VALUES_CHAR
**
*CHARACT        ATNAM        CHAR        30        0        Merkmalname
*VALUE_CHAR        ATWRT        CHAR        30        0        Merkmalwert
*INHERITED        FLINH        CHAR        1        0        Kennzeichen: Merkmal ererbt
*INSTANCE        ATZIS        NUMC        3        0        Instanzenzähler
*VALUE_NEUTRAL        ATWRT        CHAR        30        0        Merkmalwert
*CHARACT_DESCR        ATBEZ        CHAR        30        0        Merkmalbezeichnung


* neue Bewertungen CURR
*ALLOCVALUESCURRNEW        LIKE        BAPI1003_ALLOC_VALUES_CURR
**
*CHARACT        ATNAM        CHAR        30        0        Merkmalname
*VALUE_FROM        ATFLV        FLTP        16        16        interner Fließkomma-Wert von
*VALUE_TO        ATFLB        FLTP        16        16        interner Fließkomma-Wert bis
*VALUE_RELATION        ATCOD        CHAR        1        0        Code für Wertebeziehung
*CURRENCY_FROM        WAERS        CUKY        5        0        Währungsschlüssel
*CURRENCY_TO        WAERS        CUKY        5        0        Währungsschlüssel
*CURRENCY_FROM_ISO        ISOCD        CHAR        3        0        Iso-Code Währung
*CURRENCY_TO_ISO        ISOCD        CHAR        3        0        Iso-Code Währung
*INHERITED        FLINH        CHAR        1        0        Kennzeichen: Merkmal ererbt
*INSTANCE        ATZIS        NUMC        3        0        Instanzenzähler
*CHARACT_DESCR        ATBEZ        CHAR        30        0        Merkmalbezeichnung

  CLEAR: charnew. REFRESH: charnew.
  charnew-charact    = 'ZQM_PERSONALNUMMER'.       " Merkmalname
  charnew-value_char = split_tab-prsnr.            " Merkmalwert
  APPEND charnew.
  charnew-charact    = 'ZQM_MASCHINENNUMMER'.      " Merkmalname
  charnew-value_char = split_tab-masnr.            " Merkmalwert
  APPEND charnew.
ENDFORM.                    " prepare_data_CLASSIFICATION

Below link is having the example Program

[Former Member]

hi

thx for answering..in fact, i do have this code, but my requirement is i get the error Field contains invalid characters --> how to overcome this?

Sathish. R