Re: Enhancing 2LIS_02_SCL extractor

Hi,

Tried my best to give you the Code,

  types: begin of ty_EKBN,

BANFN TYPE EKBN-BANFN,

BNFPO TYPE EKBN-BNFPO,

ZEBKN TYPE EKBN-ZEBKN,
  BADAT type EKBN- BADAT,
  LFDAT type EKBN-LFDAT,
  FRGDT type EKBN-FRGDT,
  end of ty_EKBN.

  data: lt_EKBN type standard table of ty_EKBN,
          ls_EKBN like line of lt_EKBN.

lt_data = c_t_data[].

case i_datasource.
WHEN '2LIS_02_SCL'.

select   BANFN,BNFPO,ZEBKN,  BADAT ,LFDAT,FRGDT ,
         from ekpo into table lt_ekpo for all entries in lt_data
         where BANFN = lt_data-BANFN
         and BNFPO = lt_data-BNFPO.

    loop at lt_data assigning <ls_data>.
          read table lt_EKBN into ls_ekbn with key BANFN = <ls_data>- BANFN BNFPO = <ls_data>-BNFPO.

     <ls_data>-zzBADAT= ls_EKBN-BADAT.
     <ls_data>-zzLFDAT = ls_EKBN-LFDAT.
     <ls_data>-zzFRGDT = ls_EKBN-FRGDT.

      clear: ls_EKBN.

      endloop.
      c_t_data = lt_data[].

ENDCASE.

Hope it helps

Rgds

SVU