Get lgort (storage location) from mseg with relation bsis-bkpf

Dear Gurus,

I have created abap like this,

  SELECT *
     FROM BSIS
     INTO CORRESPONDING FIELDS OF TABLE gi_bsis_fre
     WHERE bukrs = 'ANZA'
     AND hkont IN ('0012128600')
     AND bldat <= sy-datum.

   SORT gi_bsis_fre BY bukrs belnr gjahr buzei.

   IF gi_bsis_fre[] IS NOT INITIAL.
     SELECT *
       INTO CORRESPONDING FIELDS OF TABLE gi_bkpf_fre
       FROM bkpf
       FOR ALL ENTRIES IN gi_bsis_fre
       WHERE bukrs = gi_bsis_fre-bukrs
       AND belnr = gi_bsis_fre-belnr
       AND gjahr = gi_bsis_fre-gjahr.

       SORT gi_bkpf_fre BY bukrs belnr gjahr.
       IF gi_bkpf_fre[] IS NOT INITIAL.
         SELECT mblnr mjahr lgort
           INTO CORRESPONDING FIELDS OF TABLE gi_mseg_fre
           FROM mseg
           FOR ALL ENTRIES IN gi_bkpf_fre
           WHERE mblnr = gi_bkpf_fre-awkey
           AND mjahr = gi_bkpf_fre-gjahr.
          SORT gi_mseg_fre BY mblnr mjahr lgort.
       ENDIF.
   ENDIF.

The problem isthe execution ofthe program is verylong,

Is there afunctionto getlgort(mseg)directlyor otherwise ??

Please advice,

Regards,

Ridwanzah