FUNCTION e_ind016(z_ordem, z_csele)
PRIVATE  cPrivCsele
... code
Select('f0016')
SetIndex_('f0016', {'0016'}, 0)
DbTop_('f0016')
FErase(w_001603)

...
      //
      //      For avoinding runtime error "Undefined variable z_csele"
      //      This code works fine in Clipper with the uncommented line
   cPrivCsele := Lower(z_csele)
   if     z_ordem < 8
          index on    Eval(bIndexa_);
                tag   (MkTagName_(w_001603));
                to    (w_001603);
                eval  rola_() every lastrec() / 20;
                for   (valecc_(.f., f0016->cdcc)    .and.;
                       f0016->chvfun > 19           .and.;
;//                       igual_(f0016->cdcc, z_csele));
                       igual_(f0016->cdcc, cPrivCsele));
                while .not. escape_()