Any BAPI available for Tcode MSC2N

Question

Hello,
Very Good Afternoon,
I need to change the few vlaues in the t-code MSC2N.
I need to change the City of Origin and Reg Of orign for few Batch numbers
in Basic Data1 tab.
There are around 1000 batch numbers which needs this change
Is there any BAPI available to go ahead..
Any suggestions will be appreciated.
Regards,
Kittu

Answer 1

Hi, You can update classification for a batch using the following code.
But first, you'll need to find out that the batch management is cross-plant or plant dependant.
If it is cross plant then plant(WERKS) is not part of the key to BAPI_OBJCL_CONCATENATEKEY.
CLEAR: objectkey, objectkeytable, objectkeytable[],
           allocvaluesnumnew, allocvaluesnumnew[],
           return.
    objectkeytable-key_field = 'MATNR'.
    objectkeytable-value_int = matnr.
    APPEND objectkeytable.
    objectkeytable-key_field = 'CHARG'.
    objectkeytable-value_int = charg.
    APPEND objectkeytable.
* Only if Batch management is Plant dependant
    objectkeytable-key_field = 'WERKS'.
    objectkeytable-value_int = werks.
    APPEND objectkeytable.
    CALL FUNCTION 'BAPI_OBJCL_CONCATENATEKEY'
      EXPORTING
        objecttable    = objecttable
      IMPORTING
        objectkey_conc = objectkey
      TABLES
        objectkeytable = objectkeytable
        return         = return.
    allocvaluesnumnew-charact = "characteristic name goes here".
    allocvaluesnumnew-value_from ="characteristic value goes here".
    APPEND allocvaluesnumnew.
    allocvaluesnumnew-charact =  "characteristic name goes here".
    allocvaluesnumnew-value_from =  "characteristic value goes here".
    APPEND allocvaluesnumnew.
    CALL FUNCTION 'BAPI_OBJCL_CHANGE'
      EXPORTING
        objectkey                = objectkey
        objecttable              = objecttable
        classnum                 = classnum
        classtype                = classtype
*   STATUS                   = '1'
*   STANDARDCLASS            = STANDARDCLASS
*   CHANGENUMBER             = CHANGENUMBER
*   KEYDATE                  = SY-DATUM
*   NO_DEFAULT_VALUES        = ' '
* IMPORTING
*   CLASSIF_STATUS           = CLASSIF_STATUS
      TABLES
        allocvaluesnumnew        = allocvaluesnumnew
        allocvaluescharnew       = allocvaluescharnew
        allocvaluescurrnew       = allocvaluescurrnew
        return                   = return
* Do not forget to commit, otherwise changes would not take effect.
commit work.
Regards,
Hashir Ahmed