[Salvador-pm] Erro ODBC DB2 Perl

[breno]

Ixe... temos que descobrir que mensagem está escondida aí. Já leu o help da
IBM? http://www-01.ibm.com/support/docview.wss?rs=71&uid=swg21297335

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 (
http://www-01.ibm.com/support/knowledgecenter/SSEPGG_9.5.0/com.ibm.db2.luw.apdv.perl.doc/doc/c0006696.html)
é bem parecido com o seu.

Desculpe, fora isso não sei muito o que fazer pra te ajudar :(
Se tiver alguma pista, avise!

On Fri, Aug 21, 2015 at 7:08 PM Allisson Andrade Lima <
allissonlima1 em gmail.com> wrote:

> Independente do encoding do terminal... eu teste com utf8 e latin1,
> entretanto quando coloco no Perl "use utf8" ele retorna o seguinte:
>
> [image: Imagem inline 1]
>
> Em 21 de agosto de 2015 19:03, breno <breno em rio.pm.org> escreveu:
>
>> Qual o encoding do seu terminal? Aparece assim em utf-8? E em latin1?
>>
>> On Fri, Aug 21, 2015 at 7:01 PM Allisson Andrade Lima <
>> allissonlima1 em gmail.com> wrote:
>>
>>> Ele aparece exatamente assim.
>>>
>>> Em 21 de agosto de 2015 18:57, breno <breno em rio.pm.org> escreveu:
>>>
>>>> Esse "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" é legível pra vc de alguma forma?
>>>>
>>>> On Fri, Aug 21, 2015 at 12:18 AM Allisson Andrade Lima <
>>>> allissonlima1 em gmail.com> wrote:
>>>>
>>>>> Breno, Boa Noite!
>>>>>
>>>>> Segue código abaixo:
>>>>>
>>>>> --------8<--------
>>>>>
>>>>> #!/usr/bin/perl
>>>>> use strict;
>>>>> use warnings;
>>>>> use 5.010;
>>>>> use DBI;
>>>>> use DBD::ODBC;
>>>>>
>>>>> my $databaseTcf = 'Coop_tcf';
>>>>> my $usr = 'usr111';
>>>>> my $pwd = '123';
>>>>>
>>>>> my $dbi = "dbi:ODBC:DSN=$databaseTcf";
>>>>>
>>>>> my $sqlTcf = "call COOPCONS.SPU_CLI_TIPOEMPRESA";
>>>>>
>>>>> my $dbConDb2 = DBI->connect("$dbi","$usr","$pwd") or die "Erro na
>>>>> Conexao:" . $DBI::errstr . "\n";
>>>>>
>>>>> my $dbResultDb2 = $dbConDb2->prepare($sqlTcf) or warn "Erro Prepare:
>>>>> $DBI::errstr\n";
>>>>> $dbResultDb2->execute;
>>>>> my $tCampos = $dbResultDb2->{NUM_OF_FIELDS};
>>>>>
>>>>> print $tCampos;
>>>>>
>>>>> --------->8-------------
>>>>>
>>>>> O erro apresentado é exatamente o que segue:
>>>>>
>>>>> DBI connect('DSN=Coop_tcf','usr111',...) failed: ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
>>>>> (SQL-) at ./teste2.pl line 16.
>>>>> Erro na Conexao:▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-)
>>>>>
>>>>> Em 20 de agosto de 2015 19:52, breno <breno em rio.pm.org> escreveu:
>>>>>
>>>>>> Oi Allisson,
>>>>>>
>>>>>> pode compartilhar o código que está usando para testar? Imagino que
>>>>>> seja algo como:
>>>>>>
>>>>>> --------8<--------
>>>>>> use strict;
>>>>>> use warnings;
>>>>>> use DBI;
>>>>>> use DBD::DB2::Constants;
>>>>>> use DBD::DB2;
>>>>>>
>>>>>> $dbh = DBI->connect("dbi:DB2:db_name", $username, $password)
>>>>>>     or die $DBI::errstr;
>>>>>>
>>>>>> if ($dbh->{Active}) {
>>>>>>     print "conectado!\n";
>>>>>> } else {
>>>>>>     print "desconectado\n";
>>>>>> }
>>>>>> --------->8-------------
>>>>>>
>>>>>> Qual a mensagem de erro?
>>>>>>
>>>>>> []s
>>>>>>
>>>>>> -b
>>>>>>
>>>>>> On Thu, Aug 20, 2015 at 5:07 PM Allisson Andrade Lima <
>>>>>> allissonlima1 em gmail.com> wrote:
>>>>>>
>>>>>>> Caros Colegas,
>>>>>>>
>>>>>>> Estou enfrentando um problema ao conectar a um banco DB2 via ODBC,
>>>>>>> onde me retorna o erro abaixo:
>>>>>>>
>>>>>>> [image: image.png]
>>>>>>>
>>>>>>> Já tentei diversas coisas como codificação, módulos do Perl,
>>>>>>> versão... Pelo comando isql funciona normalmente.
>>>>>>>
>>>>>>> Peço  a ajuda de vocês neste caso.
>>>>>>>
>>>>>>> Atenciosamente,
>>>>>>>
>>>>>>> Allisson Lima
>>>>>>> _______________________________________________
>>>>>>> Salvador-pm mailing list
>>>>>>> Salvador-pm em pm.org
>>>>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>>>>
>>>>>>
>>>>>> _______________________________________________
>>>>>> Salvador-pm mailing list
>>>>>> Salvador-pm em pm.org
>>>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>>>
>>>>>>
>>>>> _______________________________________________
>>>>> Salvador-pm mailing list
>>>>> Salvador-pm em pm.org
>>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>>
>>>>
>>>> _______________________________________________
>>>> Salvador-pm mailing list
>>>> Salvador-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>
>>>>
>>> _______________________________________________
>>> Salvador-pm mailing list
>>> Salvador-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>
>>
>> _______________________________________________
>> Salvador-pm mailing list
>> Salvador-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>
>>
> _______________________________________________
> Salvador-pm mailing list
> Salvador-pm em pm.org
> http://mail.pm.org/mailman/listinfo/salvador-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/8f1aa7db/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 2732 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/8f1aa7db/attachment.png>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 3274 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/8f1aa7db/attachment-0001.png>