Create items using func mod crm_order_maintain

Question

Hi,
I am trying to create items within a service order with higher level item. Items are create but higher level item field is blank.
insert fieldnames
  ls_fldnames-fieldname = 'MODE'.
  insert ls_fldnames into table lt_fldnames.
  ls_fldnames-fieldname = 'ORDERED_PROD'.
  insert ls_fldnames into table lt_fldnames.
ls_fldnames-fieldname = 'NUMBER_PARENT'.
  ls_fldnames-fieldname = 'PARENT_HANDLE'.
  insert ls_fldnames into table lt_fldnames.
  ls_fldnames-fieldname = 'ITM_PROC_IDENT'.
  insert ls_fldnames into table lt_fldnames.
    ls_ordm_i-header = gv_hdrguid.
    ls_ordm_i-itm_proc_ident = 'SRVC'.
    if gs_hier-parent is not initial.
      ls_ordm_i-ordered_prod = ls_outtab-sor.
    else.
      ls_ordm_i-ordered_prod = ls_outtab-svc_act.
    endif.
    lv_prodid = ls_ordm_i-ordered_prod.
    if lv_prodid co '0123456789 '.
      unpack lv_prodid to lv_prodid.
    endif.
    add 1 to lv_handle.
    ls_ordm_i-mode = 'A'.        "create
    ls_ordm_i-handle = lv_handle.
    if gs_hier-parent is not initial.
      ls_ordm_i-parent_handle = ls_parent-handle.
    endif.
    insert ls_ordm_i into table lt_ordm_i.
    ls_parent-posnr = gv_posnr.
    ls_parent-handle = lv_handle.
    append ls_parent to lt_parent.
    ls_product-ref_handle = lv_handle.
    insert ls_product into table lt_product.
insert input fields
    ls_inputflds-field_names[] = lt_fldnames[].
    ls_inputflds-ref_handle = lv_Handle.
    ls_inputflds-objectname = 'ORDERADM_I'.
    insert ls_inputflds into table lt_inputflds.
  endloop.
return selected products back to service order's items
  CALL FUNCTION 'CRM_ORDER_MAINTAIN'
    EXPORTING
      it_product_i      = lt_product
    CHANGING
      CT_ORDERADM_I     = lt_ordm_i
      ct_input_fields   = lt_inputflds
    EXCEPTIONS
      ERROR_OCCURRED    = 1
      DOCUMENT_LOCKED   = 2
      NO_CHANGE_ALLOWED = 3
      NO_AUTHORITY      = 4
      OTHERS            = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Answer 1

Amit,
I am calling a action from a service order which will popup a window containing product tree. User will select the products. If a higher level product is select, child product will also be created as items with higher level item.
As I said the items are showing in the service order, but child item's higher level item is blank.
Cheers.