Equipment change.. address info

Question

Hi Experts,
I need to update address info(fields:NAME1,STREET,DISTRICT,POST_CODE1,CITY1
COUNTRY,REGION,TAXJURCODE,HERST,TYPBZ, on the equipment.) I Tried to use the below code and it does not wrk. I haven't used this fm before and can someone please let me know how to make it wrk.
FORM update_additional_fields  USING    p_zinput_zserial
                                        p_zinput_matnr
                                        p_lt_gr_item LIKE lt_gr_item[].
  DATA: wa_gr_item TYPE bapi2017_gm_item_create.
  DATA: l_bednr TYPE ekpo-bednr.
  data: l_adrnr TYPE lfa1-adrnr.
  data: l_afnam TYPE ekpo-afnam.
  data: l_equip type BAPI_ITOB_PARMS-EQUIPMENT.
  data: ls_data_general type BAPI_ITOB.
  data: ls_data_general_x type BAPI_ITOBX.
  data: ls_DATA_SPECIFIC type BAPI_ITOB_EQ_ONLY.
  data: ls_data_specific_x type BAPI_ITOB_EQ_ONLYX.
  data: ls_data_general_exp type BAPI_ITOB.
  data: it_Return_c type  BAPIRET2.
  LOOP AT p_lt_gr_item INTO wa_gr_item.
    select single equnr from equi into l_equip
                                      where sernr = p_zinput_zserial
                                          and matnr = p_zinput_matnr.
    if sy-subrc = 0.
    SELECT SINGLE  bednr                                    " SIR 93298
                   adrnr
                   afnam                                    " SIR 93298
                   FROM ekpo
                    INTO (l_bednr, l_adrnr, l_afnam)
                    WHERE ebeln EQ wa_gr_item-po_number
                   AND   ebelp EQ wa_gr_item-po_item.
    IF sy-subrc EQ 0 AND l_adrnr IS NOT INITIAL.
     wa_objrecip-adrnr = l_adrnr.
       ls_data_General-READ_ADRNR = l_adrnr.
       ls_data_general_x-read_adrnr = 'X'.
       ls_data_specific-SERIALNO    = p_zinput_zserial.
       ls_data_specific_x-SERIALNO  = 'X'.
       ls_data_specific-MATERIAL    = p_zinput_matnr.
       ls_data_specific_x-MATERIAL = 'X'.
    ELSE.
     SELECT SINGLE adrnr INTO l_adrnr
                   FROM t001w
                   WHERE werks EQ wa_gr_item-werks.
     IF sy-subrc EQ 0.
       wa_objrecip-adrnr = l_adrnr.
     ENDIF.
    ENDIF.
CALL FUNCTION 'BAPI_EQUI_CHANGE'
  EXPORTING
    equipment               =  l_equip
    data_general            =  ls_data_general
    data_generalx           =  ls_data_general_x
    data_specific           =  ls_data_specific
    data_specificx          =  ls_data_specific_x
  DATA_FLEET              =
  DATA_FLEETX             =
  VALID_DATE              = SY-DATUM
  VALID_TIME              = SY-UZEIT
IMPORTING
   DATA_GENERAL_EXP        =  ls_data_general_exp
  DATA_SPECIFIC_EXP       =
  DATA_FLEET_EXP          =
   RETURN                  = it_return_c
commit work.
endif.
endloop.
ENDFORM.                    " update_additional_fields

Answer 1

Thank you ... I looked into the program RMEQUI65.. but the  structures for BAPI_EQUI_CHANGE are populated using the following statements that I cannot understand
SWC_GET_ELEMENT CONTAINER 'DataGeneral' DATAGENERAL.
SWC_GET_ELEMENT CONTAINER 'DataGeneralx' DATAGENERALX.
SWC_GET_ELEMENT CONTAINER 'DataSpecific' DATASPECIFIC.
SWC_GET_ELEMENT CONTAINER 'DataSpecificx' DATASPECIFICX.
SWC_GET_ELEMENT CONTAINER 'ValidDate' VALIDDATE.
I need to update Address info.. am I in the right path ? I'm trying to populate READ_ADDNR (Address number) which I'm hoping will take care of updating the address info. Can someone pelase share their code with BAPI_EQUI_Change that will successfully update equipment info.
Thank you