How to create Installation in ISU using fm ISU_S_INSTLN_CREATE

[Former Member]

Hi,

Could anyone please help me in creating an installation using the function module ISU_S_INSTLN_CREATE?

I am not aware of what all parameters and tables should be passed to this function module.

Please reply.

Thanks & Regards,

Manohar.

[former_member320335 · Accepted solution]

Hi Manohar,

Please maintain the value as follows:

X_SPARTE 01/02/03

X_KEYDATE dd.mm.yyyy

X_UPD_ONLINE X

X_NO_DIALOG X

Maintain X_Auto -Key as:

MANDT NNN

ANLAGE

BIS 31.12.2999

X_Auto-DATA for all the system mandatory fields (premise, start date, billing class, rate category, MRU and also if you have maintained any screen fields mandatory)

In CONTR-USE

OKCODE SAVE

WMODE 3

In X_AUTO-USE maintain

DATA X

RCAT X

FACTS X

OKCODE X

CURSOR X

OKCODE SAVE

CURSOR

I hope this will help you to resolve.

Thanks and regards,

Kaushik Das

PS: Please award point if it helps

[Former Member]

Hi Kaushik,

Thanks for the answer, it was helpful in solving my issue.

The following is the code that i used to create installation using a function module and it works.

local data

DATA:l_auto TYPE isu01_instln_auto,

l_billingclass TYPE etta-aklasse, "Billing Class

l_instln TYPE v_eanl, "Installation

l_msg TYPE char90, "Message

l_msg2 TYPE char90,

l_st_eanl LIKE LINE OF i_eanl,

l_db_update TYPE regen-db_update,

l_id TYPE char23.

• constants

CONSTANTS: l_c_rs TYPE etta-aklasse VALUE 'RS',

l_c_0001 TYPE eanldata-ablesartst VALUE '0001',

l_c_0002 TYPE eanldata-ablesartst VALUE '0002'.

REFRESH: i_eanl.

*Assigning values to the export parameters

l_auto-data-sparte = pv_ins_divi. "'03'.

l_auto-data-ab = pv_ins_date."syst-datum."g_tmdcdate.

l_auto-key-bis = '99991231'."g_tmdcdate.

l_auto-data-vstelle = pv_premise. "premise value

l_auto-data-anlart = pv_ins_type. "installation type

• l_auto-data-bapertyp = c_x.

l_auto-data-tariftyp = pv_ins_rate.

l_auto-data-aklasse = pv_ins_bill."l_billingclass.

l_auto-data-ableinh = pv_ins_mru."'M01J704'. "Replace with actual value.

l_auto-facts-refvalue_auto-routing_auto-contr-okcode = c_save.

l_auto-facts-refvalue_auto-routing_auto-contr-wmode = '3'.

l_auto-contr-use-data = c_x.

l_auto-contr-use-okcode = c_x.

l_auto-contr-okcode = c_save.

• l_auto-ableinh = 'B01N120D'.

*-- changes as per version 0.7

*-- start of change

• IF l_billingclass = l_c_rs.

• l_auto-data-ablesartst = l_c_0001.

• ELSE.

• l_auto-data-ablesartst = l_c_0002.

• ENDIF.

*-- end of change

CALL FUNCTION 'ISU_S_INSTLN_CREATE'

EXPORTING

x_sparte = pv_ins_divi

x_keydate = pv_ins_date

x_upd_online = c_x

x_no_dialog = c_x

x_auto = l_auto

IMPORTING

y_db_update = l_db_update

TABLES

yt_new_eanl = i_eanl

EXCEPTIONS

existing = 1

foreign_lock = 2

not_authorized = 3

invalid_keydate = 4

invalid_sparte = 5

input_error = 6

general_fault = 7

OTHERS = 8.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO l_msg.

ELSE.

• commit the connection object created.

COMMIT WORK.

CLEAR: st_log,

l_st_eanl.

READ TABLE i_eanl INTO l_st_eanl INDEX 1.

IF syst-subrc EQ 0.

st_log-icon = icon_green_light.

st_log-txt1 = 'Installation'.

CONCATENATE 'Installation created' l_st_eanl-anlage

INTO st_log-msg SEPARATED BY space.

APPEND st_log TO i_log.

CLEAR: l_st_eanl,

st_log.

ENDIF.

ENDIF.

[Former Member]

The above code is working. Thanks for the help