Unable to incorporate multiple data in BDC * URGENT*

Question

Hi EveryOne  .
  See the code. This code can do BDC for a single value of store and bonus buy no., in transaction  WPMA
The current requirement is for a given store all bonus buy values should get populated and then executed each time store wise.
Eg
    Store                            bonus buy values
    1001                               1
    1001                               2
     1001                              4
     1002                              A
     1002                             L
     1003                             6
     1003                             7
     1003                             H.
See the code below, and tell me the necessary changes required!!
report zwpma1
       no standard page heading line-size 255.
type-pools slis.
data: wt_fcat type slis_fieldcat_alv.
data: it_fcat type slis_t_fieldcat_alv.
data: cnt type sy-tabix.
*include bdcrecx1.
types: begin of ty_final,
       store(10) type c,
       docnum type docnum,
       bbynr type bbynr,
       end of ty_final.
types: begin of ty_final1,
       store(10),
       bbynr type bbynr,
       end of ty_final1.
data: wa_bonusbuy type zbonusbuy,
      it_bonusbuy type  standard table of zbonusbuy  with header line,
      it_bonusbuy1 type  standard table of ty_final1  with header line,
      it_t001w type  standard table of t001w  with header line,
      it_edidc type  standard table of edidc  with header line,
      it_edid4 type  standard table of edid4  with header line,
      it_final type  standard table of ty_final  with header line,
*Work areas:
        wa_edidc type edidc,
        wa_edid4 type edid4,
        wa_final type ty_final.
data :   it_bdcmsgcoll like bdcmsgcoll occurs 0 with header line.
data: bdcdata like table of bdcdata with header line.
data: lv_mode(1) value 'N'.
data : mtext(100) type c,
       mvar1      like balm-msgv1,
       w_msg(200) type c.
data : l_startt type sy-uzeit,   " Time before Recording
       l_endt type sy-uzeit,     " time after recording
       l_cdate type sy-datum.    " Current date
start-of-selection.
  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = 100
      text       = 'Extracting Data.......  '.
  select werks  from t001w  into corresponding fields of table  it_t001w.
  delete adjacent duplicates from it_t001w  comparing werks.
  if not it_t001w[] is initial.
    select store bbynr mmid from  zbonusbuy  into corresponding fields of table it_bonusbuy for all
    entries in it_t001w where store = it_t001w-werks.
    if sy-subrc = 0.
      sort it_bonusbuy by store.
    endif.
  endif.
  refresh it_t001w.
  loop at it_bonusbuy.
    move-corresponding it_bonusbuy to it_bonusbuy1.
    append it_bonusbuy1.
    clear: it_bonusbuy, it_bonusbuy1.
  endloop.
  l_cdate = sy-datum.
  clear l_startt .
  l_startt = sy-uzeit.
  loop at it_bonusbuy.
*break retaildev.
*perform open_group.
    perform bdc_dynpro      using 'RWDPOSAN' '1000'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'SO_BBUY-LOW'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ONLI'.
    perform bdc_field       using 'PA_VKORG'
                                  'HB00'.
    perform bdc_field       using 'PA_VTWEG'
                                  'H2'.
    perform bdc_field       using 'SO_FISEL-LOW'
                             '1001'.
                            it_bonusbuy-store.
   LOOP AT   it_bonusbuy1 WHERE store = it_bonusbuy-store.
      if sy-subrc = 0.
        perform bdc_field       using 'PA_BBUY'
                                      'X'.
        perform bdc_field       using 'SO_BBUY-LOW'
                             'TEST_00035'.
                                     it_bonusbuy1-bbynr.
                                      it_bonusbuy-bbynr.
      endif.
      clear it_bonusbuy1.
   ENDLOOP.
*Refresh: it_bonusbuy1.
    clear bdcdata.
    call transaction 'WPMA' using bdcdata
         mode lv_mode
      UPDATE 'S'
         messages into  it_bdcmsgcoll.
    refresh bdcdata.
    clear it_bonusbuy.
  endloop.
  l_endt = sy-uzeit.
  break retaildev.
  select docnum
         direct
         credat
         cretim
         mestyp
         idoctp
         from edidc into corresponding fields of table it_edidc
         where
         credat = l_cdate and
         ( cretim  ge l_startt and cretim le l_endt )  and
         mestyp = 'WPDBBY'  and
         idoctp = 'WPDBBY01'.  "  "    l_startt and l_endt  and
  break retaildev.
  if sy-subrc = 0.
    select docnum
           counter
           segnum
           segnam
           sdata
           from edid4 into corresponding fields of table it_edid4 for all entries in it_edidc
           where
           docnum = it_edidc-docnum.
  endif.
*Loop at it_final into wa_final.
  loop at it_edid4 into wa_edid4 where segnam = 'E1WPBB01'.
    wa_final-store = wa_edid4-sdata(10).
    wa_final-docnum = wa_edid4-docnum.
    wa_final-bbynr = wa_edid4-sdata+10(12).
    append wa_final to it_final.
  endloop.
  delete adjacent duplicates from it_final comparing docnum store bbynr.
  sort it_final by store.
  clear: wa_final,wa_edidc, wa_edid4.
  refresh : it_edid4, it_edidc.
*ALV OutPut
  write :'Following are the Idocs posted successfully Storewise' .
  loop at it_final.
    write :  it_final-store , it_final-docnum , it_final-bbynr   .
  endloop.
*Break retaildev.
  perform top_of_page.
  perform alv_layout-settings.
  perform zalv_fieldcatpopn using it_fcat.
  perform z_reuse_alv_grid_display.

Answer 1

Have you tried serialization and sendingas an object using something like Zend AMF?
Please mark this question as answered if this works for you.
-Mr.12