RFC Failure: Processing Repairable Materials: BAPI_ALM_ORDER_MAINTAIN

Question

Hello,
We are using a Function Module BAPI_ALM_ORDER_MAINTAIN Process Maintenance-/Service Order with in
custom RFC for "Autocreate repair order" and Executes in a separate LUW,
called in the User Exit EXIT_SAPLMBMB_001 (Customer Function Exit in the Case of Updating a Material Document),
in the Function Module MB_POST_DOCUMENT.
We are getting the Short Dump with RFC as Connection Closed no data, where as the Destination is NONE.
And the respective data is locked, while de-bugging no dump is resulted, seems like before getting the connection closed data is passed to the RFC, but here Destination is NONE,

Answer 1

Hello,
Please find the following Code.
function Z_PM_0491_REPAIR_ORDER.
""Local Interface:
*"  IMPORTING
*"     VALUE(T_MSEG) TYPE  CCRCTT_MSEG
*"     VALUE(T_MKPF) TYPE  CCRCTT_MKPF
*"  EXCEPTIONS
*"      PROBLEM
Description: Autocreate repair order                       *
Get plant value
  loop at t_mseg into lw_mseg.
  Check if udd is active
    refresh lt_dev.
    call function 'Z_PM_XXXX_DEV_GET_PARAMETERS'
    exporting
      i_udd     = lc_udd_0491
      i_werks   = lw_mseg-werks
    importing
      e_dev     = lt_dev
    exceptions
      not_found = 1
      others    = 2.
    check sy-subrc eq 0 and not lt_dev[] is initial.
  Only for movement type 261
    read table lt_dev into lw_dev index 1.
    check lw_mseg-bwart = lw_dev-zzparameter1(3).
  Check if material is repairable
    move lw_mseg-matnr to lv_objek.
    call function 'CLAF_CLASSIFICATION_OF_OBJECTS'
        EXPORTING
          classtype          = lc_class_001
          object             = lv_objek
          inherited_char     = lc_x
        TABLES
          t_class            = lt_class[]
          t_objectdata       = lt_value_class[]
        EXCEPTIONS
          no_classification  = 1
          no_classtypes      = 2
          invalid_class_type = 3
          OTHERS             = 4.
    if sy-subrc eq 0.
      read table lt_value_class into lw_value with key atnam = lc_ypm_repairable.
      if sy-subrc eq 0.
        if lw_value-ausp1 eq lc_repairable.
        Material is repairable -> get PM order data
          CALL FUNCTION 'BAPI_ALM_ORDER_GET_DETAIL'
            EXPORTING
              NUMBER                 = lw_mseg-aufnr
            IMPORTING
              ES_HEADER              = lw_pheader
            TABLES
              RETURN                 = lt_bapiret2.
        Continue if data read successfully
          read table lt_bapiret2 with key type = lc_e.
          check sy-subrc ne 0.
        Refresh all tables
          clear: lw_methods, lw_header, lw_operation, lw_component, lw_extension_in.
          refresh: lt_methods, lt_header, lt_operation, lt_extension_in, lt_component, lt_return, lt_numbers.
        Prepare data for suborder creation
        Append following info in the IT_METHODS
          lw_methods-refnumber = 1.
          lw_methods-objecttype = 'HEADER'.
          lw_methods-method = lc_create.
          lw_methods-objectkey = lc_objectkey.
          append lw_methods TO lt_methods.
          lw_methods-refnumber = 1.
          lw_methods-objecttype = 'OPERATION'.
          lw_methods-method = lc_create.
          lw_methods-objectkey = lc_objectkey.
          append lw_methods TO lt_methods.
        We will create a component
          lw_methods-refnumber = 1.
          lw_methods-objecttype = 'COMPONENT'.
          lw_methods-method = lc_create.
          lw_methods-objectkey = lc_objectkey.
          append lw_methods TO lt_methods.
          lw_methods-refnumber = 1.
          lw_methods-objecttype = space.
          lw_methods-method = lc_save_method.
          lw_methods-objectkey = lc_objectkey.
          append lw_methods TO lt_methods.
        Specify header information in IT_HEADER
          lw_header-orderid = lc_orderid.
          lw_header-order_type = lw_pheader-order_type.
          lw_header-planplant = lw_pheader-planplant.
          lw_header-mn_wk_ctr = lw_pheader-mn_wk_ctr.
          lw_header-plant = lw_pheader-planplant.
          lw_header-pmacttype = lc_rev.
          lw_header-funct_loc = lw_pheader-funct_loc.
          lw_header-equipment = lw_pheader-equipment.
          lw_header-priority = lc_3.
          lw_header-start_date = sy-datum.
          lw_header-finish_date = sy-datum + lc_30.
          lw_header-short_text = lw_mseg-matnr.
          shift lw_header-short_text left deleting leading lc_0.
          concatenate lc_repairof lw_header-short_text into lw_header-short_text separated by space.
          lw_header-assembly = lw_mseg-matnr.
          append lw_header to lt_header.
        Update IT_OPERATION
          lw_operation-activity = lc_0010.
          lw_operation-control_key = lc_ypm1.
          lw_operation-plant = lw_pheader-maintplant.
          lw_operation-assembly = lw_mseg-matnr.
          lw_operation-work_cntr = lw_pheader-mn_wk_ctr.
          lw_operation-description = lw_header-short_text.
          append lw_operation to lt_operation.
        Update component in IT_COMPONENT
          lw_component-material = lw_mseg-matnr.
          lw_component-plant = lw_pheader-maintplant.
          lw_component-stge_loc = lw_mseg-lgort.
          lw_component-activity = lc_0010.
          lw_component-item_cat = lc_l.
          lw_component-requirement_quantity = - lw_mseg-menge.
          lw_component-requirement_quantity_unit = lw_mseg-meins.
          append lw_component to lt_component.
        Linking to the superior order: will happen in Badi IBAPI_ALM_ORD_MODIFY
          lw_extension_in-structure = lc_struc.
          lw_extension_in-valuepart1 = lw_mseg-aufnr.
          append lw_extension_in to lt_extension_in.
        Create subordinate order
          call function 'BAPI_ALM_ORDER_MAINTAIN'
            tables
              it_methods = lt_methods
              it_header = lt_header
              it_operation = lt_operation
              extension_in = lt_extension_in
              it_component = lt_component
              return = lt_return
              et_numbers = lt_numbers.
          read table lt_return into lw_return with key type = lc_e.
          if sy-subrc ne 0.
          If all went well, commit order creation
            clear lw_return.
            call function 'BAPI_TRANSACTION_COMMIT'
                exporting
                  wait   = 'X'
                importing
                  return = lw_return.
          else.
          Otherwise raise exception
            raise problem.
          endif.
        endif.
      endif.
    endif.
  endloop.
endfunction.