Fala Pessoal,<\/p>\n
Na empresa que trabalho possuo um ambiente SQL Server e um ambiente com um Mainframe AS\/400 da IBM com o SGBD DB2 instalado. Com isso, constantemente precisamos acessar os dados do servidor AS\/400 de dentro do SQL Server e fazemos isso via Linked Server.<\/p>\n
Para utilizarmos um provider OLE DB no nosso linked server, deve ser instalado o IBM Client Acess no servidor. Ap\u00f3s essa instala\u00e7\u00e3o \u00e9 disponibilizado o provider “IBM DB2 UDB for iSeries IBMDA400 OLE DB Provider”.<\/p>\n
Segue abaixo o script de cria\u00e7\u00e3o do LS:<\/p>\n
exec sp_addlinkedserver @server=N’NOME_LINKED_SERVER’,
\n@srvproduct=N’IBM DB2 UDB for iSeries IBMDA400 OLE DB Provider’,
\n@provider=N’IBMDA400′,
\n@datasrc=N’X.X.X.X’, — IP do servidor
\n@catalog=’CATALOG_SERVIDOR’,
\n@provstr=’Default Collection=NOME_LIBRARY’<\/p>\n
exec\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 sp_addlinkedsrvlogin @rmtsrvname=N’NOME_LINKED_SERVER’,
\n@useself=’false’,
\n@rmtuser=N’USER’,
\n@rmtpassword=’SENHA’<\/p>\n
Em seguida devem ser habilitadas algumas op\u00e7\u00f5es do PROVIDER e do Linked Server para permitir a execu\u00e7\u00e3o de Updates, querys com like dentre outros opera\u00e7\u00f5es.<\/p>\n
USE [master]\nGO
\nEXEC master.dbo.sp_MSset_oledb_prop N’IBMDA400′, N’AllowInProcess’, 1
\nGO
\nEXEC master.dbo.sp_MSset_oledb_prop N’IBMDA400′, N’NonTransactedUpdates’, 1
\nGO
\nEXEC master.dbo.sp_MSset_oledb_prop N’IBMDA400′, N’SqlServerLIKE’, 1
\nGO
\nEXEC master.dbo.sp_serveroption @server=N’NOME_LINKED_SERVER’, @optname=N’collation compatible’, @optvalue=N’true’
\nGO
\nEXEC master.dbo.sp_serveroption @server=N’NOME_LINKED_SERVER’, @optname=N’rpc’, @optvalue=N’true’
\nGO
\nEXEC master.dbo.sp_serveroption @server=N’NOME_LINKED_SERVER’, @optname=N’rpc out’, @optvalue=N’true’
\nGO<\/p>\n
Com o linked server criado, as seguintes opera\u00e7\u00f5es podem ser realizadas do SQL Server:<\/p>\n
Select * From OpenQuery(NOME_LINKED_SERVER,’Select* FROM LIBRARY.TABLE
\nFETCH FIRST 1 ROWS ONLY
\nFOR READ ONLY ‘ ) As Remote<\/p>\n
exec (‘Select * FROM LIBRARY.TABLE
\nFETCH FIRST 1 ROWS ONLY
\nFOR READ ONLY ‘) AT NOME_LINKED_SERVER<\/p>\n
SELECT * FROM NOME_LINKED_SERVER.CATALOG.LIBRARY.TABLE<\/p>\n
Para chamar uma procedure do DB2 , deve ser utilizado a seguinte sintaxe:
\nexec (‘call LIBRARY.NOME_PROCEDURE(?,?)’,1,’Fabricio Lima’) AT NOME_LINKED_SERVER<\/p>\n
Essa procedure recebe 1 parametro do tipo INT e um par\u00e2metro VARCHAR.<\/p>\n
Podemos tamb\u00e9m inserir e alterar valores via linked server.
\nINSERT INTO NOME_LINKED_SERVER.CATALOG.LIBRARY.TABLE(Column)
\nSELECT VALUE<\/p>\n
UPDATE NOME_LINKED_SERVER.CATALOG.LIBRARY.TABLE
\nSET Column = ‘TESTE’
\nWHERE Column <> ‘TESTE<\/p>\n
Infelizmente, no DB2 para o AS\/400 n\u00e3o \u00e9 poss\u00edvel realizar um simples UPDATE com JOIN como o que temos abaixo, deve ser utilizado EXISTS para isso.<\/p>\n
UPDATE A
\nSET A.Column = B.Column
\nFROM TABLE A
\nJOIN TABLE B ON A.Cod = B.Cod<\/p>\n
Entretanto, via Linked Server do SQL Server esse update funciona perfeitamente.<\/p>\n
UPDATE A
\nSET A.Column = B.Column
\nFROM NOME_LINKED_SERVER.CATALOG.LIBRARY.TABLE A
\nJOIN NOME_LINKED_SERVER.CATALOG.LIBRARY.TABLE B ON A.Cod = B.Cod<\/p>\n
Encontrar esse tipo de material \u00e9 bem dif\u00edcil, se eu encontrasse um post como esse quando comecei a trabalhar com o AS\/400 atrav\u00e9s do SQL Server eu teria adiantado bastante meu trabalho. Ent\u00e3o, espero que agora outras pessoas possam encontrar esse post mais facilmente.<\/p>\n
Gostou desse Post?<\/b><\/p>\n