Hi,
We have a requirement to update batch characteristics in SAP. I used the VB_BATCH_CHANGE to update the batch characteristics. Below is my code. After the call, I don't get any error from this BAPI/RFC, but batch chararacteristcis values are not updated. Any ideas?
FUNCTION Z_VB_CHANGE_BATCH. *"---------------------------------------------------------------------- *"*"Global Interface: *" IMPORTING *" VALUE(YMCHA) LIKE MCHA STRUCTURE MCHA *" VALUE(YUPDMCHA) LIKE UPDMCHA STRUCTURE UPDMCHA OPTIONAL *" VALUE(CHANGE_LGORT) LIKE MCHB-LGORT OPTIONAL *" VALUE(BYPASS_LOCK) LIKE AM07M-XSELK DEFAULT SPACE *" VALUE(BYPASS_POST) LIKE AM07M-XSELK DEFAULT SPACE *" VALUE(X_BNCOM) LIKE BNCOM STRUCTURE BNCOM OPTIONAL *" VALUE(KZCLA) LIKE T156-KZCLA OPTIONAL *" VALUE(XKCFC) LIKE T156-XKCFC OPTIONAL *" VALUE(CLASS) LIKE KLAH-CLASS OPTIONAL *" VALUE(NO_CHECK_OF_QM_CHAR) LIKE AM07M-XSELK DEFAULT SPACE *" VALUE(REF_MATNR) LIKE MCHA-MATNR OPTIONAL *" VALUE(REF_CHARG) LIKE MCHA-CHARG OPTIONAL *" VALUE(REF_WERKS) LIKE MCHA-WERKS OPTIONAL *" VALUE(SET_OLD_BATCH) LIKE AM07M-XSELK DEFAULT 'X' *" VALUE(BUFFER_REFRESH) LIKE AM07M-XSELK OPTIONAL *" VALUE(NO_CHANGE_DOCUMENT) LIKE AM07M-XSELK DEFAULT SPACE *" VALUE(GRUND) LIKE MSEG-GRUND DEFAULT SPACE *" VALUE(NO_CFC_CALLS) LIKE AM07M-XSELK DEFAULT SPACE *" VALUE(BATCH_DEL_FLAGS) LIKE BATCHDELFLG STRUCTURE BATCHDELFLG *" DEFAULT SPACE *" VALUE(SEND_SYS) TYPE LOGSYS DEFAULT SPACE *" EXPORTING *" VALUE(YMCHA) LIKE MCHA STRUCTURE MCHA *" VALUE(EMKPF) LIKE EMKPF STRUCTURE EMKPF *" TABLES *" CHAR_OF_BATCH STRUCTURE CLBATCH OPTIONAL *" CHANGED_BATCH STRUCTURE MCHA OPTIONAL *" ZIMSEG STRUCTURE IMSEG OPTIONAL *" RETURN STRUCTURE BAPIRET2 OPTIONAL *" EXCEPTIONS *" NO_MATERIAL *" NO_BATCH *" NO_PLANT *" MATERIAL_NOT_FOUND *" PLANT_NOT_FOUND *" LOCK_ON_MATERIAL *" LOCK_ON_PLANT *" LOCK_ON_BATCH *" LOCK_SYSTEM_ERROR *" NO_AUTHORITY *" BATCH_NOT_EXIST *" NO_CLASS *" ERROR_IN_CLASSIFICATION *" ERROR_IN_VALUATION_CHANGE *"---------------------------------------------------------------------- DATA: F_TRANSACTION_ID LIKE ARFCTID. CALL FUNCTION 'TRANSACTION_BEGIN' IMPORTING TRANSACTION_ID = F_TRANSACTION_ID. CALL FUNCTION 'VB_CHANGE_BATCH' EXPORTING YMCHA = YMCHA YUPDMCHA = YUPDMCHA CHANGE_LGORT = CHANGE_LGORT BYPASS_LOCK = BYPASS_LOCK BYPASS_POST = BYPASS_POST X_BNCOM = X_BNCOM KZCLA = KZCLA XKCFC = XKCFC CLASS = CLASS NO_CHECK_OF_QM_CHAR = NO_CHECK_OF_QM_CHAR REF_MATNR = REF_MATNR REF_CHARG = REF_CHARG REF_WERKS = REF_WERKS SET_OLD_BATCH = SET_OLD_BATCH BUFFER_REFRESH = BUFFER_REFRESH NO_CHANGE_DOCUMENT = NO_CHANGE_DOCUMENT GRUND = GRUND NO_CFC_CALLS = NO_CFC_CALLS BATCH_DEL_FLAGS = BATCH_DEL_FLAGS SEND_SYS = SEND_SYS IMPORTING YMCHA = YMCHA EMKPF = EMKPF TABLES CHAR_OF_BATCH = CHAR_OF_BATCH CHANGED_BATCH = CHANGED_BATCH ZIMSEG = ZIMSEG EXCEPTIONS NO_MATERIAL = 1 NO_BATCH = 2 NO_PLANT = 3 MATERIAL_NOT_FOUND = 4 PLANT_NOT_FOUND = 5 LOCK_ON_MATERIAL = 6 LOCK_ON_PLANT = 7 LOCK_ON_BATCH = 8 LOCK_SYSTEM_ERROR = 9 NO_AUTHORITY = 10 BATCH_NOT_EXIST = 11 NO_CLASS = 12 ERROR_IN_CLASSIFICATION = 13 ERROR_IN_VALUATION_CHANGE = 14 OTHERS = 15. IF SY-SUBRC IS INITIAL. CALL FUNCTION 'TRANSACTION_END' EXPORTING TRANSACTION_ID = F_TRANSACTION_ID EXCEPTIONS OTHERS = 1. ELSE. CALL FUNCTION 'BALW_BAPIRETURN_GET2' EXPORTING TYPE = SY-MSGTY CL = SY-MSGID NUMBER = SY-MSGNO PAR1 = SY-MSGV1 PAR2 = SY-MSGV2 PAR3 = SY-MSGV3 PAR4 = SY-MSGV4 IMPORTING RETURN = RETURN. APPEND RETURN. CALL FUNCTION 'TRANSACTION_ABORT' EXPORTING TRANSACTION_ID = F_TRANSACTION_ID EXCEPTIONS OTHERS = 1. EXIT. ENDIF. ENDFUNCTION.
Thanks,
Sara