<div dir="ltr">Boa Noite!<div><br></div><div>Consegui resolver o mistério! O problema era no módulo DBD::ODBC, que durante sua instalação necessita que o pacote unixODBC esteja instalado e configurado (incluindo algumas variáveis de ambiente). Instalei uma maquina virtual para fazer tudo do começo e dai achei o problema.</div><div><br></div><div>Agradeço mais uma vez a ajuda de vocês!!!</div><div><br></div><div>Allisson Lima</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 23 de agosto de 2015 14:49, Joenio Costa <span dir="ltr"><<a href="mailto:joenio@gmail.com" target="_blank">joenio@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Eu pergunto se via Perl mesmo, mas sem ODBC, você não consegue conectar?<div><br></div><div>Você não tem acesso ao banco diretamente? O único acesso é via ODBC?</div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-23 12:25 GMT-03:00 Allisson Andrade Lima <span dir="ltr"><<a href="mailto:allissonlima1@gmail.com" target="_blank">allissonlima1@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Joenio, Boa Tarde!<div><br></div><div>Fora do Perl ele funciona normalmente. Fiz o teste com o comando <b>isql </b>e consegui realizar a conexão e uma consulta.</div></div><div class="gmail_extra"><br><div class="gmail_quote"><span>Em 22 de agosto de 2015 15:02, Joenio Costa <span dir="ltr"><<a href="mailto:joenio@gmail.com" target="_blank">joenio@gmail.com</a>></span> escreveu:<br></span><div><div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Allisson,<div><br></div><div>Você consegue conectar sem ODBC?</div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-21 19:17 GMT-03:00 breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>Ixe... temos que descobrir que mensagem está escondida aí. Já leu o help da IBM? <a href="http://www-01.ibm.com/support/docview.wss?rs=71&uid=swg21297335" target="_blank">http://www-01.ibm.com/support/docview.wss?rs=71&uid=swg21297335</a><br><br></div>Eles falam sobre versões  9 fp2 ou superior do IBM DB2 client, e de DBI 1.53 ou superior. O sistema tem isso? Eles falam também sobre a variável de ambiente DB2LIB. O código de exemplo deles (<a href="http://www-01.ibm.com/support/knowledgecenter/SSEPGG_9.5.0/com.ibm.db2.luw.apdv.perl.doc/doc/c0006696.html" target="_blank">http://www-01.ibm.com/support/knowledgecenter/SSEPGG_9.5.0/com.ibm.db2.luw.apdv.perl.doc/doc/c0006696.html</a>) é bem parecido com o seu.<br><br></div>Desculpe, fora isso não sei muito o que fazer pra te ajudar :(<br>Se tiver alguma pista, avise!<br></div><div><div><br><div class="gmail_quote"><div dir="ltr">On Fri, Aug 21, 2015 at 7:08 PM Allisson Andrade Lima <<a href="mailto:allissonlima1@gmail.com" target="_blank">allissonlima1@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Independente do encoding do terminal... eu teste com utf8 e latin1, entretanto quando coloco no Perl "use utf8" ele retorna o seguinte: <div><br></div><div><img src="cid:ii_14f524e0341e4054" alt="Imagem inline 1" style="margin-right:0px"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 21 de agosto de 2015 19:03, breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Qual o encoding do seu terminal? Aparece assim em utf-8? E em latin1?<br></div><br><div class="gmail_quote"><div dir="ltr">On Fri, Aug 21, 2015 at 7:01 PM Allisson Andrade Lima <<a href="mailto:allissonlima1@gmail.com" target="_blank">allissonlima1@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Ele aparece exatamente assim.</div><div class="gmail_extra"><br><div class="gmail_quote">Em 21 de agosto de 2015 18:57, breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Esse "<span style="font-size:12.8000001907349px">▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" é legível pra vc de alguma forma?<br></span></div><br><div class="gmail_quote"><div dir="ltr">On Fri, Aug 21, 2015 at 12:18 AM Allisson Andrade Lima <<a href="mailto:allissonlima1@gmail.com" target="_blank">allissonlima1@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Breno, Boa Noite!<div><br></div><div>Segue código abaixo:</div><div><br></div><div><span style="font-size:12.8000001907349px">--------8<--------</span><br></div><div><span style="font-size:12.8000001907349px"><br></span></div><div><span style="font-size:12.8000001907349px">#!/usr/bin/perl</span><br></div><div><div>use strict;</div><div>use warnings;</div><div>use 5.010;</div><div>use DBI;</div><div>use DBD::ODBC;</div><div><br></div><div>my $databaseTcf = 'Coop_tcf';</div><div>my $usr = 'usr111';</div><div>my $pwd = '123';</div><div><br></div><div>my $dbi = "dbi:ODBC:DSN=$databaseTcf";</div><div><br></div><div>my $sqlTcf = "call COOPCONS.SPU_CLI_TIPOEMPRESA";</div><div><br></div><div>my $dbConDb2 = DBI->connect("$dbi","$usr","$pwd") or die "Erro na Conexao:" . $DBI::errstr . "\n";</div><div><br></div><div>my $dbResultDb2 = $dbConDb2->prepare($sqlTcf) or warn "Erro Prepare: $DBI::errstr\n";</div><div>$dbResultDb2->execute;</div><div>my $tCampos = $dbResultDb2->{NUM_OF_FIELDS};</div><div><br></div><div>print $tCampos;</div></div><div><br></div><div><span style="font-size:12.8000001907349px">--------->8-------------</span><br></div><div><span style="font-size:12.8000001907349px"><br></span></div><div><span style="font-size:12.8000001907349px">O erro apresentado é exatamente o que segue:</span></div><div><span style="font-size:12.8000001907349px"><br></span></div><div><span style="font-size:12.8000001907349px">DBI connect('DSN=Coop_tcf','usr111',...) failed: ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-) at ./<a href="http://teste2.pl" target="_blank">teste2.pl</a> line 16.</span><br></div><div><span style="font-size:12.8000001907349px">Erro na Conexao:▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-)</span><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 20 de agosto de 2015 19:52, breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div>Oi Allisson,<br><br></div>pode compartilhar o código que está usando para testar? Imagino que seja algo como:<br><br>--------8<--------<br>use strict;<br>use warnings;<br>use DBI;<br>use DBD::DB2::Constants;<br>use DBD::DB2;<br><br>$dbh = DBI->connect("dbi:DB2:db_name", $username, $password)<br></div><div>    or die $DBI::errstr;<br></div><div><br></div><div>if ($dbh->{Active}) {<br></div><div>    print "conectado!\n";<br></div><div>} else {<br></div><div>    print "desconectado\n";<br>}<br></div><div>--------->8-------------<br></div><div><br>Qual a mensagem de erro?<br></div><div><br>[]s<br><br></div><div>-b<br></div></div><div><div><div><div><br><div class="gmail_quote"><div dir="ltr">On Thu, Aug 20, 2015 at 5:07 PM Allisson Andrade Lima <<a href="mailto:allissonlima1@gmail.com" target="_blank">allissonlima1@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Caros Colegas,<div><br></div><div>Estou enfrentando um problema ao conectar a um banco DB2 via ODBC, onde me retorna o erro abaixo:<div><br></div><div><img src="cid:ii_14f4cb5aa82b8ac6" style="max-width:100%" alt="image.png"><br></div></div><div><br></div><div>Já tentei diversas coisas como codificação, módulos do Perl, versão... Pelo comando isql funciona normalmente.</div><div><br></div><div>Peço  a ajuda de vocês neste caso.</div><div><br></div><div>Atenciosamente,</div><div><br></div><div>Allisson Lima</div></div>
_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
</blockquote></div></div></div></div></div></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><br></div>
_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
</blockquote></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><br></div>
_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
</blockquote></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><br></div>
_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
</blockquote></div>
</div></div><br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><div dir="ltr"><div>Joenio Costa<br><a href="http://joenio.me" target="_blank">http://joenio.me</a><br></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org" target="_blank">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><div dir="ltr"><div>Joenio Costa<br><a href="http://joenio.me" target="_blank">http://joenio.me</a><br></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
Salvador-pm mailing list<br>
<a href="mailto:Salvador-pm@pm.org">Salvador-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/salvador-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/salvador-pm</a><br>
<br></blockquote></div><br></div>