READ TABLE (novo)

*****   Validação
     LOOP AT ... INTO WA.

        TRY.
          data(ls_ztbsd0027) = gt_ztbsd0027[ kostl = wa-kostl
                                             perio = wa-perio
                                             gjahr = wa-gjahr
                               ] .

        CATCH cx_sy_itab_line_not_found .
          gv_erro = abap_true.
          message s000(zlg) with 'Não existe valores para serem rateados'
                                 'rateados neste Centro de Custo' wa-kostl.
          return.

        ENDTRY.
      ENDLOOP.