Is There any way to improve the performance on this code

Question

Hi all can any one tell me how to improve the performance of this below code.
Actually i need to calculate opening balance of gl account so instead of using bseg am using bsis
So is there any way to improve this code performance.
Any help would be appreciated.
REPORT  ZTEMP5 NO STANDARD PAGE HEADING LINE-SIZE 190.
data: begin of collect occurs 0,
       MONAT TYPE MONAT,
       HKONT TYPE HKONT,
       BELNR TYPE BELNR_D,
       BUDAT TYPE BUDAT,
       WRBTR TYPE WRBTR,
       SHKZG TYPE SHKZG,
       SGTXT TYPE SGTXT,
       AUFNR TYPE AUFNR_NEU,
       TOT   LIKE BSIS-WRBTR,
end of collect.
TYPES: BEGIN OF TY_BSIS,
       MONAT TYPE MONAT,
       HKONT TYPE HKONT,
       BELNR TYPE BELNR_D,
       BUDAT TYPE BUDAT,
       WRBTR TYPE WRBTR,
       SHKZG TYPE SHKZG,
       SGTXT TYPE SGTXT,
       AUFNR TYPE AUFNR_NEU,
END OF TY_BSIS.
DATA: IT_BSIS TYPE TABLE OF TY_BSIS,
      WA_BSIS TYPE TY_BSIS.
DATA: TOT TYPE WRBTR,
      SUMA TYPE WRBTR,
      VALUE TYPE WRBTR,
      VALUE1 TYPE WRBTR.
SELECTION-SCREEN: BEGIN OF BLOCK B1.
PARAMETERS:  S_HKONT LIKE WA_BSIS-HKONT DEFAULT '0001460002' .
SELECT-OPTIONS: S_BUDAT FOR WA_BSIS-BUDAT,
                S_AUFNR FOR WA_BSIS-AUFNR DEFAULT '200020',
                S_BELNR FOR WA_BSIS-BELNR.
SELECTION-SCREEN: END OF BLOCK B1.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-NAME = 'S_HKONT'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
START-OF-SELECTION.
  SELECT MONAT
         HKONT
         BELNR
         BUDAT
         WRBTR
         SHKZG
         SGTXT
         AUFNR
         FROM BSIS
         INTO TABLE IT_BSIS
         WHERE HKONT EQ S_HKONT
         AND   BELNR IN S_BELNR
         AND   BUDAT IN S_BUDAT
         AND   AUFNR IN S_AUFNR.
*  if sy-subrc <> 0.
*    message 'No Data' type 'I'.
*  endif.
  SELECT SUM( WRBTR )
         FROM BSIS
         INTO COLLECT-TOT
         WHERE HKONT EQ S_HKONT
         AND BUDAT < S_BUDAT-LOW
         AND AUFNR IN S_AUFNR.
END-OF-SELECTION.
  CLEAR: S_BUDAT, S_AUFNR, S_BELNR, S_HKONT.
  LOOP AT IT_BSIS INTO WA_BSIS.
IF wa_bsis-SHKZG = 'H'.
   wa_bsis-WRBTR = 0 - wa_bsis-WRBTR.
ENDIF.
    collect-MONAT  = wa_bsis-monat.
    collect-HKONT  = wa_bsis-hkont.
    collect-BELNR  = wa_bsis-belnr.
    collect-BUDAT  = wa_bsis-budat.
    collect-WRBTR  = wa_bsis-wrbtr.
    collect-SHKZG  = wa_bsis-shkzg.
    collect-SGTXT  = wa_bsis-sgtxt.
    collect-AUFNR  = wa_bsis-aufnr.
    collect collect into  collect.
    CLEAR: COLLECT, WA_BSIS.
  ENDLOOP.
  LOOP AT COLLECT.
    AT end of HKONT.
      WRITE:/65 'OpeningBalance',
             85  collect-tot.
      skip 1.
    ENDAT.
    WRITE:/06 COLLECT-BELNR,
           22 COLLECT-BUDAT,
           32 COLLECT-WRBTR,
           54 COLLECT-SGTXT.
    AT end of MONAT.
      SUM.
      WRITE:/ COLLECT-MONAT COLOR 1.
      WRITE:32 COLLECT-WRBTR COLOR 1.
      VALUE = COLLECT-WRBTR.
      SKIP 1.
    ENDAT.
    VALUE1 = COLLECT-TOT +  VALUE.
    AT end of MONAT.
      WRITE:85 VALUE1.
    ENDAT.
  endloop.
  CLEAR: COLLECT, SUMA, VALUE, VALUE1.
TOP-OF-PAGE.
  WRITE:/06 'Doc No',
         22 'Post Date',
         39 'Amount',
         54 'Text'.
Moderator message : See the Sticky threads (related for performance tuning) in this forum. Thread locked.
Edited by: Vinod Kumar on Oct 13, 2011 11:12 AM

Answer 1

Hi Ben,
both BSIS selects would become faster if you can add Company Code BUKRS as 1st field of WHERE clause, because it's the 1st field of primary key and HKONT is the 2nd field of primary key.
If you have no table index with HKONT as 1st field it's a full database access.
If possible, try to add BUKRS as 1st field of WHERE clause, otherwise ask for an additional BSIS index at your basis team.
Regards,
Klaus