"""" out of memory

"""" TSV_TNEW_BLOCKS_NO_ROLL_MEMORY"

Hatası için çözüm...

*&---------------------------------------------------------------------*

*& Report ZPS_TEST_002

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT ZPS_TEST_002.

"""" out of memory

"""" TSV_TNEW_BLOCKS_NO_ROLL_MEMORY" 

*vbak

*Number of entries that meet

*the selection criteria:

*11.526.722

* vbap

* Number of entries that meet

* the selection criteria:

* 23.594.285

perform get_data.

form get_data.

  data: lt_vbak_entries type standard table of vbak.

  data: lt_vbak type standard table of vbak.

  data: lt_vbap type standard table of vbap.

  data: ls_vbap type  vbap.

  data: ls_vbak type  vbak.

  data: lv_package_size type int4 value 1000. "Package Size

  data: lv_total_row type int4 .

  data: lv_sub_total type int4 .

  data: lv_xndx type int4.

  select * into table lt_vbak from vbak

                    where auart = `ZMRB`

                      and erdat > `20160101`

                      and erdat < `20161231`."308`325 rows

  describe table lt_vbak lines lv_total_row.

  loop at lt_vbak into ls_vbak .

      lv_xndx = sy-tabix.

      insert  ls_vbak into table lt_vbak_entries.

      describe table lt_vbak_entries lines lv_sub_total .

      if lv_sub_total = lv_package_size or lv_xndx = lv_total_row.

        if lt_vbak_entries[] is not initial.

          select *  appending table lt_vbap

                    from vbap

                    for all entries in   lt_vbak_entries

                    where   vbeln = lt_vbak_entries-vbeln.

        endif.

      lv_sub_total = 0.

      refresh lt_vbak_entries.

      endif.

   endloop.

* lt_vbap 616`650 rows

endform.