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

LOOP AT gi_bsis_fre.
     READ TABLE gi_bkpf_fre WITH KEY bukrs = gi_bsis_fre-bukrs
                                    belnr = gi_bsis_fre-belnr
                                    gjahr = gi_bsis_fre-gjahr.
     IF sy-subrc = 0.
       READ TABLE gi_mseg_fre WITH KEY mblnr = gi_bkpf_fre-awkey
                                      mjahr = gi_bkpf_fre-gjahr.
         IF sy-subrc = 0.
           IF gi_mseg_fre-lgort NE 'RE00'.
             gi_tamp_fre-bukrs = gi_bsis_fre-bukrs.
             gi_tamp_fre-dmbtr = gi_bsis_fre-dmbtr.
             gi_tamp_fre-belnr = gi_bsis_fre-belnr.
             gi_tamp_fre-gjahr = gi_bsis_fre-gjahr.
             gi_tamp_fre-shkzg = gi_bsis_fre-shkzg.
             APPEND gi_tamp_fre.
             CLEAR gi_tamp_fre.
           ELSE.
             gi_tamp_fre2-bukrs = gi_bsis_fre-bukrs.
             gi_tamp_fre2-dmbtr = gi_bsis_fre-dmbtr.
             gi_tamp_fre2-belnr = gi_bsis_fre-belnr.
             gi_tamp_fre2-gjahr = gi_bsis_fre-gjahr.
             gi_tamp_fre2-shkzg = gi_bsis_fre-shkzg.
             APPEND gi_tamp_fre2.
             CLEAR gi_tamp_fre2.
           ENDIF.
         ELSE.
           gi_tamp_fre-bukrs = gi_bsis_fre-bukrs.
           gi_tamp_fre-dmbtr = gi_bsis_fre-dmbtr.
           gi_tamp_fre-belnr = gi_bsis_fre-belnr.
           gi_tamp_fre-gjahr = gi_bsis_fre-gjahr.
           gi_tamp_fre-shkzg = gi_bsis_fre-shkzg.
           APPEND gi_tamp_fre.
           CLEAR gi_tamp_fre.
         ENDIF.
       ENDIF.
   ENDLOOP.