Performance issue with the code

Question

hi,
i have below code.for printing it is taking enough time..
which way i can improve the performance of below piece of code and what changes i will do for improving performance??
kindly help me..
form get_komgd.
  tables: kotd994.                     "kondd
  data : tfill_auswahl type i.
  data: begin of auswahl occurs 10,
           kappl like kotd994-kappl ,
           kschl like kotd994-kschl ,
           vkorg like kotd994-vkorg ,
           vtweg like kotd994-vtweg ,
           spart like kotd994-spart ,
           kvgr1 like kotd994-kvgr1 ,
           matwa like kotd994-matwa ,
           datbi like kotd994-datbi ,
           datab like kotd994-datab ,
           knumh like kotd994-knumh ,
           smatn like kondd-smatn,
           meins like kondd-meins,
             sugrd like kondd-sugrd,
     end of auswahl.
  tables: kondd.
  select * from  kondd
         where  smatn       = ltap-matnr.
    select * from  kotd994
           where  kappl       = 'V'
         and    kschl       = vbak-kschl
           and    vkorg       = vbak-vkorg
           and    vtweg       = vbak-vtweg
     and    spart       = vbak-spart
           and    kvgr1       = vbak-kvgr1
     and    matwa       = vbak-matwa
           and    datbi       >= sy-datum
           and    datab       <= sy-datum
           and    knumh       = kondd-knumh    .
    endselect.
    if sy-subrc = 0.
   and kotd994-kvgr1(1) = 'Z'.
      move-corresponding kotd994 to auswahl.
      move-corresponding kondd to auswahl.
      append auswahl   .
    endif.                             " sy-subrc = 0.
write: / auswahl.
  endselect.
  describe table auswahl lines tfill_auswahl.
  if tfill_auswahl = 1.
    komgd-matwa = auswahl-matwa.
  else.
    clear komgd-matwa.
  endif.                               " tfill_auswahl = 1.
endform.                               " ZHX_GET_COSTUMER_NR

Answer 1

Hi,
Using two select statements will take more time.
Rather use this sample code:
select *    from kondd in to corresponding fields of table auswahl
        where smatn = ltap-matnr.
    select *      from kotd994 into corresponding fields of auswahl
             for all entries of auswahl
              where kappl = 'V'
              and vkorg = vbak-vkorg
              and vtweg = vbak-vtweg
              and kvgr1 = vbak-kvgr1
              and datbi >= sy-datum
              and datab <= sy-datum
              and knumh = auswahl-knumh .
however, in the structure of auswahl maintain the field of knumh as well, so that we can pass the values in the second select directly.
This will improve the performance very well.
if possible, try and use the primary key combinations in the where clause while extracting the data.