CALL FUNCTION 'CS_BI_BOM_CREATE_BATCH_INPUT1'
          EXPORTING
            BDC_FLAG     = SPACE
            BOM_HEADER   = BOM_HEADER
            COMMIT_WORK  = COMMIT_WORK
            GROUP_DATA   = BOM_BGR00
            TCODE_MODE   = TCODE_MODE
            TCODE_UPDATE = TCODE_UPDATE
          IMPORTING
            MSGID        = MESSAGE_ID
            MSGNO        = MESSAGE_NUMBER
            MSGTY        = MESSAGE_TYPE
            MSGV1        = MESSAGE_VAR1
            MSGV2        = MESSAGE_VAR2
            MSGV3        = MESSAGE_VAR3
            MSGV4        = MESSAGE_VAR4
          TABLES
            BOM_ITEM     = BOM_ITEM
            BOM_SUB_ITEM = BOM_SUB_ITEM
          EXCEPTIONS
            OTHERS       = 1.
        COMMIT WORK.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.