Performance 'killer' - what to do ?

Question

hi,
i have the following code below. The problem is: table bkpf has about 10 millionen rows,
table zoa06 about 5 million rows. so the above coding takes about 23 hours
the first select of bkpf selects about 85.000 rows.
how can i optimize this code ?
best regards, Martin
SELECT * FROM bkpf INTO TABLE gt_bkpf1 WHERE blart = 'EI'.       "06a Beginn
  LOOP AT gt_bkpf1.
    CONCATENATE gt_bkpf1-bukrs gt_bkpf1-belnr
                gt_bkpf1-gjahr INTO gf_objid1.
    SELECT SINGLE * FROM zoa06 WHERE object_id = gf_objid1.
    IF sy-subrc <> 0.
      SELECT SINGLE * FROM bkpf WHERE xblnr = gt_bkpf1-xblnr AND
                                      bldat = gt_bkpf1-bldat AND
                                      blart <> 'EI'.
      IF sy-subrc = 0.
        CONCATENATE bkpf-bukrs bkpf-belnr
                    bkpf-gjahr INTO gf_objid.
        SELECT * FROM zoa06 WHERE object_id = gf_objid.
          gf_doc_type = zoa06-reserve.
          CALL FUNCTION 'ARCHIV_CONNECTION_INSERT'
            EXPORTING
              archiv_id             = zoa06-archiv_id
              arc_doc_id            = zoa06-arc_doc_id
              ar_date               = sy-datum
              ar_object             = zoa06-ar_object
              mandant               = sy-mandt
              object_id             = gf_objid1
              sap_object            = zoa06-sap_object
              doc_type              = gf_doc_type
            EXCEPTIONS
              error_connectiontable = 1
              OTHERS                = 2.
          IF sy-subrc <> 0.
            MESSAGE a999 WITH 'Fehler ARCHIV_CONNECTION_INSERT'.
          ENDIF.
        ENDSELECT.
      ENDIF.
    ENDIF.

Answer 1

thank you all for your help. no i have optimized the select single statements. i do a select outside the loop into sorted tables, and then i do a READ TABLE..........and this is much much faster then the single select statement (haven't known
that before )
so the job was finished in 10 minutes(!!) instead of 23 hours !
best regards, Martin
SELECT * FROM bkpf INTO TABLE gt_bkpf1 WHERE blart = 'EI'. "06a Beginn
  SELECT * FROM bkpf INTO TABLE gt_bkpf2 WHERE blart = 'RT' OR blart = 'GT'.
  SELECT * FROM zoa06 INTO TABLE gt_zoa06 WHERE ar_object = 'ZOCPDWDA18' OR
                                                ar_object = 'ZOCPDWDA26' OR
                                                ar_object = 'ZOCPDWDA28'.
  SORT gt_zoa06 BY object_id.
  LOOP AT gt_bkpf1.
    CONCATENATE gt_bkpf1-bukrs gt_bkpf1-belnr
                gt_bkpf1-gjahr INTO gf_objid1.
    READ TABLE gt_zoa06 WITH KEY object_id = gf_objid1 BINARY SEARCH.
    IF sy-subrc <> 0.
      READ TABLE gt_bkpf2 WITH KEY xblnr = gt_bkpf1-xblnr BINARY SEARCH.
      IF sy-subrc = 0.
        CONCATENATE gt_bkpf2-bukrs gt_bkpf2-belnr
                    gt_bkpf2-gjahr INTO gf_objid.
        SELECT * FROM zoa06 WHERE object_id = gf_objid.
          gf_doc_type = zoa06-reserve.
          CALL FUNCTION 'ARCHIV_CONNECTION_INSERT'
            EXPORTING
              archiv_id             = zoa06-archiv_id
              arc_doc_id            = zoa06-arc_doc_id
              ar_date               = sy-datum
              ar_object             = zoa06-ar_object
              mandant               = sy-mandt
              object_id             = gf_objid1
              sap_object            = zoa06-sap_object
              doc_type              = gf_doc_type
            EXCEPTIONS
              error_connectiontable = 1
              OTHERS                = 2.
          IF sy-subrc <> 0.
            MESSAGE a999 WITH 'Fehler ARCHIV_CONNECTION_INSERT'.
          ENDIF.
        ENDSELECT.
      ENDIF.
    ENDIF.
  ENDLOOP.                                                  "06a Ende