SELECT nvl(MAX(substr(codigo,6)),-1) + 1 INTO codig
  FROM agt_toponimos
  WHERE codigo LIKE cod0 escape '\' AND id_lookup_estado=1;