10-08-2009 4:47 PM
Hi guys,
We are trying to install a newly created Device into a Device Location (with meter readings) using the following function modules:
- ISU_S_WORKLIST_INSTALL_PROVIDE
followed by
- ISU_S_WORKLIST_INSTALL
However, we cannot seem to get it to add the meter readings.
Does anyone have some sample code?
PeteA
10-09-2009 6:49 AM
10-09-2009 6:49 AM
10-09-2009 7:57 AM
11-09-2009 9:42 AM
Hi,
I had the similar requirement, below code works fine for me. Please let me know if you have any problems.
type-pools: abap, isu07.
data : wlv_db_upd type regen-db_update,
wlv_et_typ type regen-exit_type,
wlv_dp_inp type isu07_reg30_i,
wlv_input type isu07_zwt.
data: wlt_res type isu07_install_result_tab,
wlt_zw type isu07_zwt,
wlt_ger type isu07_auto_gert,
wlt_mod type isu07_reg30_auto_zw_modt.
data: wls_zw type isu07_zw,
wls_ger type isu07_auto_ger,
wls_mod type reg30_auto_zw_mod,
wls_int type isu07_install_auto_interface,
wls_auto type isu07_install_auto,
wls_cont type ccmcont_t.
* Technical Device Installation
wls_auto-interface-eadat = 'Date of Activity'.
* Technical Device Installation
wls_auto-interface-action = '06'.
* Auto Parameters
wls_auto-interface-upd_online = abap_true.
wls_auto-interface-no_dialog = abap_true.
wls_auto-interface-no_event = abap_false.
wls_auto-interface-no_statistic = abap_false.
wls_auto-interface-no_change_doc = abap_false.
* Registers Data for automating Install/Removal/Reversal
loop into registers data.
wls_zw-anzerg = 'No of MR per results'.
wls_zw-zwnummere = 'Register'.
wls_zw-zwstandce = 'Meter Readings'.
wls_zw-geraete = 'Serial Number'.
wls_zw-equnre = 'Equipment Number'.
wls_zw-matnre = 'Material No / Device Category'.
wls_zw-kennziffe = 'Code for identifying Register'.
append wls_zw to wlt_zw.
endloop
* Devices Data for automating Install/Removal/Reversal
wls_ger-matnr = 'Material No / Device Category'.
wls_ger-geraetneu = 'Serial Number'.
wls_ger-equnrneu = 'Equipment Number'.
append wls_ger to wlt_ger.
wls_auto-auto_zw = wlt_zw.
wls_auto-auto_ger = wlt_ger.
wls_auto-okcode = 'SAVE'.
wls_auto-zwstand = 'X'.
call function 'ISU_S_WORKLIST_INSTALL'
exporting
x_haus = 'Connection Object'
x_eadat = 'Date of Activity'
x_action = '06'
x_upd_online = 'X'
x_no_dialog = 'X'
x_no_event = ''
x_no_statistic = ''
x_no_change_doc = ''
importing
y_db_update = wlv_db_upd
y_result_tab = wlt_res
changing
xy_auto = wls_auto
xy_ext_cont = wls_cont
exceptions
not_found = 1
foreign_lock = 2
invalid = 3
internal_error = 4
not_qualified = 5
input_error = 6
system_error = 7
not_customized = 8
others = 9.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
Regards,
Krishna
Edited by: Vamsee Krishna on Nov 9, 2009 4:42 AM