Error in creating Alternative BOM using IDOC_INPUT_BOMMAT

Question

Hi all,
I am trying to create an Alternative BOM using IDoc BOMMAT03.I have checked this IDoc will use FM IDOC_INPUT_BOMMAT inside.
In this function module, it is using FM CSAP_MAT_BOM_CREATE and CSAP_MAT_BOM_MAINTAIN to create and change.
This FM is allowing to create an Alterative BOM = '01' but it is not creating for Alt BOM = '02'.
Can anyone provide inputs on this .
Regards
Sathibabu

Answer 1

Hai Guy,
use below code for Alternate BOM with sub item .
Part 1.
DATA: bom_header     LIKE cad_bicsk,
      bom_item       type table of  cad_bom_item WITH HEADER LINE,
      bom_sub_item   type table of cssubitem WITH HEADER LINE,
      dms_class_data type table of cls_charac  WITH HEADER LINE,
      sap_field_data type table of rfcdmsdata  WITH HEADER LINE,
      e_return       LIKE cad_return-value,
      e_message      LIKE message-msgtx,
      e_message_len  LIKE cad_return-message_len.
DATA v_ITEM  TYPE I.
TYPES : BEGIN OF ty_data,
        level TYPE i,
        matnr TYPE cad_bicsk-matnr,
        werks TYPE werks_d,
        usage TYPE stlan,
        qty   TYPE cad_bom_item-menge,
        fqty type fmeng, " Quantity is Fixed
        sub_upmng type upmng,
        text type cad_bicsk-ztext,
        END OF ty_data.
DATA : it_data TYPE TABLE OF ty_data ,
       wa_data TYPE ty_data.
**---selection screen
PARAMETERS:p_file TYPE ibipparms-path OBLIGATORY.
**---f4 help for the file from PC
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_f4help.
*--start-of-selection .
START-OF-SELECTION.
PERFORM upload_file_itab.
CLEAR: bom_header, bom_item, bom_sub_item.
REFRESH: bom_item, bom_sub_item.
data : v_lineitem type SPOSN value '0000',
       v_slineitem type SPOSN value '0'.
  LOOP AT it_data INTO wa_data.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = wa_data-matnr
    IMPORTING
      output = wa_data-matnr.
  IF wa_data-level = 0.
* fill BOM header
clear  bom_header.
      bom_header-matnr = wa_data-matnr. "'000000000200000016'.
*      bom_header-stlal = '1'. " Alternative Bom
      bom_header-werks = wa_data-werks. "'1000'.
      bom_header-stlan = wa_data-usage."'3'.
      bom_header-bmeng = wa_data-qty.
      bom_header-cadkz = 'X'.
      bom_header-stktx = wa_data-text.
*      bom_header-ztext = wa_data-text.
      bom_header-datuv = '01.10.2010'.
ELSEIF wa_data-level = 1.
* fill item
v_lineitem = v_lineitem + 10.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_lineitem
    IMPORTING
      output = v_lineitem.
*    bom_item-upskz     = 'X'.     " If We hav the Sub items Enable it.
    bom_item-idnrk     = wa_data-matnr. "'000000000200000017'.
    bom_item-posnr     = v_lineitem.
    bom_item-postp     = 'L'.
    bom_item-menge     = wa_data-qty. "'1'.
    bom_item-fmeng     = wa_data-fqty.
    APPEND bom_item.
    CLEAR: bom_item.
*** fill sub item
CLEAR V_ITEM .
v_slineitem = v_slineitem + 1.
ELSEIF wa_data-level = 2.
*  V_ITEM =  V_ITEM + 1.
*  bom_sub_item-posid = v_slineitem.
*  bom_sub_item-ebort = 'test'.
*  bom_sub_item-upmng = wa_data-sub_upmng.
*  bom_sub_item-uposz =  V_ITEM.
*  bom_sub_item-uptxt = 'test'.
*  append bom_sub_item.
*  clear bom_sub_item.
ENDIF.
if wa_data-level = 0.
else.
at END OF LEVEL.
* Call function
  CALL FUNCTION 'CAD_CREATE_BOM_WITH_SUB_ITEMS'
       EXPORTING
            i_bom_header   = bom_header
            i_auto_posnr   = ''
       IMPORTING
            e_return       = e_return
            e_message      = e_message
            e_message_len  = e_message_len
            e_bom_header   = bom_header
       TABLES
            bom_item       = bom_item
            bom_sub_item   = bom_sub_item
            dms_class_data = dms_class_data
            sap_field_data = sap_field_data
       EXCEPTIONS
             OTHERS         = 1.
  refresh bom_item.
  write : e_message.
  ENDAT.
ENDIF.
CLEAR wa_data.
endloop.