SELECT + LOOP: Geschwindigkeit?

Code: Alles auswählen.

REPORT.

PARAMETERS p_count TYPE i DEFAULT 10000.

TYPES: BEGIN OF ts_sales_data,
         "key
         vbeln  TYPE vbeln,
         posnr  TYPE posnr,
         "header
         vbtyp  TYPE vbtyp,
         auart  TYPE auart,
         erdat  TYPE sydatum,
         ernam  TYPE syuname,
         "item
         matnr  TYPE matnr,
         arktx  TYPE arktx,
         kwmeng TYPE kwmeng,
         meins  TYPE meins,
         "partner
         ag     TYPE kunnr,
         we     TYPE kunnr,
         rg     TYPE kunnr,
         re     TYPE kunnr,
       END OF ts_sales_data,
       tt_sales_data TYPE SORTED TABLE OF ts_sales_data WITH UNIQUE KEY vbeln posnr.

TYPES: BEGIN OF my_vbak,
         vbeln TYPE vbeln,
         vbtyp TYPE vbtyp,
         auart TYPE auart,
         ernam TYPE syuname,
         erdat TYPE sydatum,
       END OF my_vbak,

       BEGIN OF my_vbap,
         vbeln  TYPE vbeln,
         posnr  TYPE posnr,
         vbtyp  TYPE vbtyp,
         matnr  TYPE matnr,
         arktx  TYPE arktx,
         kwmeng TYPE kwmeng,
         meins  TYPE meins,
       END OF my_vbap,

       BEGIN OF my_vbpa,
         vbeln TYPE vbeln,
         posnr TYPE posnr,
         parvw TYPE parvw,
         kunnr TYPE kunnr,
         lifnr TYPE lifnr,
         adrnr TYPE ad_addrnum,
       END OF my_vbpa,
       my_vbpa_t TYPE SORTED TABLE OF my_vbpa WITH UNIQUE KEY vbeln posnr parvw.

DATA sales_items  TYPE SORTED TABLE OF my_vbap WITH UNIQUE KEY vbeln posnr.
DATA sales_orders TYPE SORTED TABLE OF my_vbak WITH UNIQUE KEY primary_key COMPONENTS vbeln.
DATA sales_partners TYPE SORTED TABLE OF my_vbpa WITH UNIQUE KEY vbeln posnr parvw.


*DATA sales_items  TYPE SORTED TABLE OF vbap WITH UNIQUE KEY vbeln posnr.
*DATA sales_orders TYPE SORTED TABLE OF vbak WITH UNIQUE KEY primary_key COMPONENTS vbeln.
*DATA sales_partners TYPE SORTED TABLE OF vbpa WITH UNIQUE KEY vbeln posnr parvw.
DATA sales_data TYPE tt_sales_data.

START-OF-SELECTION.

  PERFORM init.

  GET RUN TIME FIELD DATA(start).
  PERFORM loop.
  GET RUN TIME FIELD DATA(stopp).

  DATA(diff) = ( stopp - start ) / 1000.

  WRITE: / 'Sales orders:   ', lines( sales_orders ).
  WRITE: / 'Sales items:    ', lines( sales_items ).
  WRITE: / 'Sales partners: ', lines( sales_partners ).
  WRITE: / 'run time:       ', diff, 'millisec'.

FORM loop.

  DATA date TYPE ts_sales_data.
  DATA data TYPE tt_sales_data.

  LOOP AT sales_orders INTO DATA(order).
    LOOP AT sales_items INTO DATA(item)
    WHERE vbeln = order-vbeln.
      date-vbeln = order-vbeln.
      date-vbtyp = order-vbtyp.
      date-auart = order-auart.
      date-ernam = order-ernam.
      date-erdat = order-erdat.

      date-posnr = item-posnr.
      date-matnr = item-matnr.
      date-arktx = item-arktx.
      date-kwmeng = item-kwmeng.
      date-meins = item-meins.

      LOOP AT sales_partners INTO DATA(partner_pos)
      WHERE vbeln = item-vbeln
        AND posnr = item-posnr.
        date-ag = partner_pos-kunnr.
        date-we = partner_pos-kunnr.
        date-re = partner_pos-kunnr.
        date-rg = partner_pos-kunnr.
      ENDLOOP.
      IF sy-subrc > 0.
        LOOP AT sales_partners INTO DATA(partner_head)
        WHERE vbeln = item-vbeln
          AND posnr = '000000'.
          date-ag = partner_head-kunnr.
          date-we = partner_head-kunnr.
          date-re = partner_head-kunnr.
          date-rg = partner_head-kunnr.
        ENDLOOP.
      ENDIF.
      INSERT date INTO TABLE data.
    ENDLOOP.
  ENDLOOP.

ENDFORM.

FORM init.

  DATA sales_order_template TYPE my_vbak.
  DATA sales_item_template TYPE my_vbap.

  DATA(rnd) = cl_abap_random_int=>create(
                seed = 18
                min  = 1
                max  = 50 ).

  DATA(rnd_partner) = cl_abap_random_int=>create(
                seed = 18
                min  = 1
                max  = 3 ).

  SELECT * FROM vbak INTO CORRESPONDING FIELDS OF @sales_order_template UP TO 1 ROWS.
  ENDSELECT.

  SELECT * FROM vbap INTO CORRESPONDING FIELDS OF @sales_item_template UP TO 1 ROWS.
  ENDSELECT.

  DATA count_items TYPE i.

  DO p_count TIMES.
    sales_order_template-vbeln = |{ sy-index ALIGN = RIGHT WIDTH = 10 PAD = '0' }|.
    INSERT sales_order_template INTO TABLE sales_orders.

    INSERT LINES OF VALUE my_vbpa_t(
       vbeln = sales_order_template-vbeln
         ( parvw = 'AG' kunnr = 'AGDUMMY' )
         ( parvw = 'WE' kunnr = 'WEDUMMY' )
         ( parvw = 'RE' kunnr = 'REDUMMY' )
         ( parvw = 'RG' kunnr = 'RGDUMMY' ) ) INTO TABLE sales_partners.

    count_items = rnd->get_next( ).

    DO count_items TIMES.
      sales_item_template-vbeln = sales_order_template-vbeln.
      sales_item_template-posnr = |{ sy-index * 10 ALIGN = RIGHT WIDTH = 6 PAD = '0' }|.
      INSERT sales_item_template INTO TABLE sales_items.


      IF rnd_partner->get_next( ) = 1.
        INSERT LINES OF VALUE my_vbpa_t(
           vbeln = sales_item_template-vbeln
           posnr = sales_item_template-posnr
             ( parvw = 'AG' kunnr = 'AGDUMMYPOS' )
             ( parvw = 'WE' kunnr = 'WEDUMMYPOS' )
             ( parvw = 'RE' kunnr = 'REDUMMYPOS' )
             ( parvw = 'RG' kunnr = 'RGDUMMYPOS' ) ) INTO TABLE sales_partners.

      ENDIF.
    ENDDO.
  ENDDO.

ENDFORM.