ABAP program error for user EXIT

Question

Hi, I wrote code in  EXIT_SAPLRSAP_001
When check and active it there were no syntax errors but when go rsa3 and check it gives an error at the follwing line
  it_mcekpo[] = c_t_data[].
Runtime error: The internal talbles are neither compitable nor convertable.
I have defined it_mcekpo as below:
DATA  BEGIN OF IT_MCEKPO OCCURS 1.
        include structure mcekpo.
DATA  END   OF IT_MCEKPO.
But when I double click on 'c_t_data[]' , I get a message "object not defined, do you want do define".
Can some one tell me how should I define this, what aption I should choose and what is the strcture.
I am trying to add afnam, banfn and bednr from ekpo table to MC02M_0ITM (2LIS_02_ITM).
And is there any naming convention for 'it_mcekpo' and 'c_t_data'?
Any help is appreciated.
(This is my first userexit)
data: begin of it_ekpo occurs 0,
      ebeln like ekpo-ebeln,
      ebelp like ekpo-ebelp,
      afnam like ekpo-afnam,
      banfn like ekpo-banfn,
      bednr like ekpo-bednr,
     bukrs like ekpo-bukrs,
  end of it_ekpo.
when '2LIS_02_ITM'.
  it_mcekpo[] = c_t_data[].
  select ebeln ebelp afnam banfn bednr bukrs
  from ekpo  into table it_ekpo
    for all entries in it_mcekpo
    where ebeln = it_mcekpo-ebeln and
          ebelp = it_mcekpo-ebelp.
performance imprv.
  if not it_ekpo is initial.
     sort it_ekpo by ebeln ebelp.
  endif.
  loop at it_mcekpo.
    read table it_ekpo with key ebeln = it_mcekpo-ebeln
                                ebelp = it_mcekpo-ebelp
                                binary search.
    if sy-subrc = 0.
      it_mcekpo-zzafnam = it_ekpo-afnam.
      it_mcekpo-zzbanfn = it_ekpo-banfn.
      it_mcekpo-zzbednr = it_ekpo-bednr.
     it_mcekpo-zzabukrs = it_ekpo-bukrs.
   endif.
   modify it_mcekpo.
endloop.

Answer 1

Hi,
TRY the below code :
TYPES BEGIN OF TYPE_02ITM.
     INCLUDE STRUCTURE MC02M_0ITM.
TYPES END OF TYPE_02ITM.
TYPES:  BEGIN OF TYPE__ekpo,
ebeln like ekpo-ebeln,
ebelp like ekpo-ebelp,
afnam like ekpo-afnam,
banfn like ekpo-banfn,
bednr like ekpo-bednr,
bukrs like ekpo-bukrs,
end of type_ekpo.
CASE I_DATASOURCE.
when '2LIS_02_ITM'.
WHEN '2LIS_02_ITM'.
DATA:
  ITAB_EKPO TYPE STANDARD TABLE OF TYPE_EKPO
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
DATA:
  ITAB_02ITM TYPE STANDARD TABLE OF TYPE_02ITM
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
ITAB_02ITM[] = C_T_DATA[] .
select ebeln ebelp afnam banfn bednr bukrs
from ekpo into table itab_ekpo
for all entries in ITAB_02ITM
where ebeln = ITAB_02ITM-ebeln and
ebelp = ITAB_02ITM-ebelp.
performance imprv.
if not itab_ekpo is initial.
sort itab_ekpo by ebeln ebelp.
endif.
loop at ITAB_02ITM.
read table itab_ekpo with key ebeln = ITAB_02ITM-ebeln
ebelp = ITAB_02ITM-ebelp
binary search.
if sy-subrc = 0.
ITAB_02ITM-zzafnam = itab_ekpo-afnam.
ITAB_02ITM-zzbanfn = itab_ekpo-banfn.
ITAB_02ITM-zzbednr = itab_ekpo-bednr.
ITAB_02ITM-zzabukrs = itab_ekpo-bukrs.
endif.
modify ITAB_02ITM.
endloop.
c_t_data[] = ITAB_02ITM[].
With rgds,
Anil Kumar Sharma .P