Performance for table BKFP

Question

Hi,
I would like to enquire is there anyway that i can improve the performance for table BKPF from the ABAP code point of view.
Because we have customise one program to generate report for the asset master listing.
one of the select statement are show as below:
      SELECT SINGLE * FROM BKPF WHERE BUKRS = ANEP-BUKRS
                                  AND GJAHR = ANEP-GJAHR
                                  AND AWKEY = AWKEYUS.
I would like to know how it different from the select statemene below:
SELECT SINGLE * FROM BKPF INTO CORRESPONDING FIELDS OF T_BKPF
      WHERE
      BUKRS = ANEP-BUKRS
  AND GJAHR = ANEP-GJAHR
  AND AWKEY = AWKEY.
Which of the select statements above can enhance report,because currently we have face quite bad issue on this report.
Can i post the ABAP code on this forum.
Hope someone can help me on this. thank you.

Answer 1

Hi,
As much as possible use the primary keys of BKPF which is BUKRS, BELNR and GJAHR. Also, select only the records which are needed so to increase performance. Please look at the code below:
DATA: lv_age_of_rec TYPE p.
  FIELD-SYMBOLS: <fs_final> LIKE LINE OF it_final.
  LOOP AT it_final ASSIGNING <fs_final>.
  get records from BKPF
    SELECT SINGLE bukrs belnr gjahr budat bldat xblnr bktxt FROM bkpf
    INTO (bkpf-bukrs, bkpf-belnr, bkpf-gjahr, <fs_final>-budat,
          <fs_final>-bldat, <fs_final>-xblnr, <fs_final>-bktxt)
    WHERE bukrs = <fs_final>-bukrs
      AND belnr = <fs_final>-belnr
      AND gjahr = <fs_final>-gjahr.
  if <fs_final>-shkzg = 'H', multiply dmbtr(amount in local currency)
  by negative 1
    IF <fs_final>-shkzg = 'H'.
      <fs_final>-dmbtr = <fs_final>-dmbtr * -1.
    ENDIF.
  combine company code(bukrs), accounting document number(belnr),
  fiscal year(gjahr) and line item(buzei) to get long text.
    CONCATENATE: <fs_final>-bukrs <fs_final>-belnr
                 <fs_final>-gjahr <fs_final>-buzei
                 INTO it_thead-tdname.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        client                        = sy-mandt
        id                            = '0001'
        language                      = sy-langu
        name                          = it_thead-tdname
        object                        = 'DOC_ITEM'
      ARCHIVE_HANDLE                = 0
      LOCAL_CAT                     = ' '
    IMPORTING
      HEADER                        =
      TABLES
        lines                         = it_lines
     EXCEPTIONS
       id                            = 1
       language                      = 2
       name                          = 3
       not_found                     = 4
       object                        = 5
       reference_check               = 6
       wrong_access_to_archive       = 7
       OTHERS                        = 8.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
  if successful, split long text into start and end date
    IF sy-subrc = 0.
      READ TABLE it_lines TRANSPORTING tdline.
      IF sy-subrc = 0.
        SPLIT it_lines-tdline AT '-' INTO
              <fs_final>-s_dat <fs_final>-e_dat.
      ENDIF.
    ENDIF.
  get vendor name from LFA1
    SELECT SINGLE name1 FROM lfa1
    INTO <fs_final>-name1
    WHERE lifnr = <fs_final>-lifnr.
    lv_age_of_rec = p_budat - <fs_final>-budat.
  condition for age of deposits
    IF lv_age_of_rec <= 30.
      <fs_final>-amount1 = <fs_final>-dmbtr.
    ELSEIF lv_age_of_rec > 30 AND lv_age_of_rec <= 60.
      <fs_final>-amount2 = <fs_final>-dmbtr.
    ELSEIF lv_age_of_rec > 60 AND lv_age_of_rec <= 90.
      <fs_final>-amount3 = <fs_final>-dmbtr.
    ELSEIF lv_age_of_rec > 90 AND lv_age_of_rec <= 120.
      <fs_final>-amount4 = <fs_final>-dmbtr.
    ELSEIF lv_age_of_rec > 120 AND lv_age_of_rec <= 180.
      <fs_final>-amount5 = <fs_final>-dmbtr.
    ELSEIF lv_age_of_rec > 180.
      <fs_final>-amount6 = <fs_final>-dmbtr.
    ENDIF.
    CLEAR: bkpf, it_lines-tdline, lv_age_of_rec.
  ENDLOOP.
Hope this helps...
P.S. Please award points for useful answers.