sub nextrec {
    local *_ = $_[0];                      
    $_{rec} = <$_{_fh}>;                   
    return( (\%_)->errmsg($!) ) if $!;     
    @_{@fields} = unpack $layout, $_{rec}; 
    "FTRL" eq $_{_id} ? 0 : $_{rec};       
  }