Check existence of a classification for a network

Question

Hi,
I wloud like to check the existence of a gived classification for a network.
To do this, I try to fill BAPI_OBJCL_EXISTENCECHECK that wait for an objectkey.
So I think I need to retrieve that objectkey using BAPI_OBJCL_GET_KEY_OF_OBJECT.
I try to dos o, using the following code :
FORM update_conversion_ref TABLES   pi_error_msg STRUCTURE s_tdline
                           USING    pw_aufnr
                                    pw_conv_ref
                                    pw_klart
                                    pw_clint.
  DATA : lw_sb_key LIKE  bapi1003_key-object_guid,
         li_return TYPE bapiret2 OCCURS 0 WITH HEADER line,
         lw_objectname like BAPI1003_KEY-OBJECT,
         lw_classtype like BAPI1003_KEY-CLASSTYPE.
constants lk_objecttable like BAPI1003_KEY-OBJECTTABLE value 'AUFK'.
*--- Define SB Key
  CLEAR: lw_sb_key, li_return, li_return[],
         lw_objectname, lw_classtype.
  move pw_aufnr to lw_objectname.
  move pw_klart to lw_classtype.
  CALL FUNCTION 'BAPI_OBJCL_GET_KEY_OF_OBJECT'
   EXPORTING
   objectname               = lw_objectname
   objecttable              = lk_objecttable
   classtype                = lw_classtype
       CREATE_MISSING_KEY       = 'X'
  IMPORTING
   clobjectkeyout           = lw_sb_key
     TABLES
     return                 = li_return.
But li_return contains this error  : 'E   |CL |669   |Class type 021 requires additional object'
Can you tell me what is wrong in my code?
King regards,
Morgan

Answer 1

Hi
While using the BAPI - 'BAPI_OBJCL_EXISTENCECHECK'
The object key (ObjectKey) must be transferred in internal format, before application of conversion exits. For example, a material number must be transferred with leading zeros.
Here's the sample code. Try changing you code in a similar manner and check if this works.
CALL FUNCTION 'BAPI_OBJCL_GET_OBJECT_OF_KEY'
     EXPORTING
          clobjectkeyin  = clobjectkey
    IMPORTING
          OBJECTNAME     = l_object
          OBJECTTABLE    = l_objecttable
          CLASSTYPE      = l_classtype
     tables
          return         = return.
read table return
    with key type = 'E'
    transporting no fields.
if sy-subrc eq 0.
  exit.
endif.
refresh return.
if keydate is initial.
  write sy-datum to keydate.
endif.
CALL FUNCTION 'BAPI_OBJCL_EXISTENCECHECK'
     EXPORTING
          objectkey   = l_object
          objecttable = l_objecttable
          classnum    = classnum
          classtype   = l_classtype
          KEYDATE     = keydate
     tables
          return      = return.
Reward points if this helps.
Regards
Meera