Acessar Database via:
Comandos nativos Cobol. Comandos SQL.
Links
Microfocus Cobol. Fujitsu Cobol MariaDB Oracle Mysql.
Serviços
Franco Stringari Pudler Serviços de consultoria, e desenvolvimento de software. Conversão e modernização de sistemas, migração para banco de dados.
Aplicativos
IMEDIATA Inform.Empres.Ltda E.R.P., NFe, NF3e. Folha de pagamento. Sped, Ecf, Ecd, eSocial. Ativo imobilizado. Cooperativas, distribuiçõo energia. Aneel Resolução Normativa 815. Georeferenciamento redes elétricas.

Cobol & Mysql - Arquivos cobol migrando para Sql.

Rotina EXTMYSQL

EXTMYSQL

O EXTMYSQL é um programa que ira substituir "EXTFH" ou o "FHREDIR" da mesma forma com que é feito para tratamento para arquivos acessados via "FILESHARE ".

Um aplicativo usando o EXTMYSQL pode acessar simultaneamente arquivos MF, arquivos MF via fileshare, e ainda arquivos MYSQL, adotando a mesmas e syntax para todos.

Da mesma forma que é feito no fileshare, onde é informado "$$servidor" para que o FHREDIR busque este arquivo no servidor do FILESHARE, o EXTMYSQL identifica atravéz do parametro informado no label "@IP@PORTA@USER@PASW@DB@TABEL" que se trata de um arquivo que devera ser acessado via MySql, quanto aos demais arquivos, simplesmente devolve o controle para o FHREDIR que por sua vez, se encarrega de fazer o acesso normalmente como sempre foi feito.

Em sendo assim, basta informar o label do arquivo, atendendo esta regra, para que todos recursos e beneficios descritos anterirmente, passem a estar disponíveis.

File Status.

Para manter a compatibilidade, os códigos de status, continuam os mesmos, apenas foram adicionados novos códigos para tratamento de casos específicos conforme abaixo:

Status	Descrição	Solução
9 e 48	Heap access failure - out of buffers	Erro no tratamento de arquivo virtual para gerenciamento interno.
9 e 49	Heap deallocated while program inactive
9 e 50	Backing-file failure: too many files
9 e 51	Backing-file failure: file access denied
9 e 52	Backing-file failure: I/O failure
51	Erro na conexão com o banco de dados atravéz da LIBMYSQL.DLL	Certifique-se de ter a LIBMYSQL.DLL disponível
53	Não foi possível interpretar campos definidos na tabela e montar correspondência na FD.	Certifique-se de que todos campos usados na tabela estão corretamente definidos, e que os mesmos possuem correspondência, de acordo com tabela fornecida anteriormente.
91	Erro na montagem da estrutura da FD, falha montando campos.	Idem 53.
200	Erro com a execução de comando da LIBMYSQL confira Logimed.log
201	Conexão com servidor perdida.	Verifique condições da rede e disponibilidade de INTERNET, cado esteja operando via WEB.
9 e 4	Não encontrou no DB tabela procurada "Illegal file name."

Espelhamento via Log de comandos:

Adicionando "&" ao final do label do arquivo, antes de ser aberto, faz com que todos comandos de I-O sejam registrados no log "imelog". Arquivos abertos com esta configuração terão seus comandos de INSERT, DELETE e UPDATE registrados sequencialmente de forma cronológica na tabela IMELOG.
A partir deste log será possível reconstruir a tabela reexecutando os comandos préviamente salvos.
Ex.:
Arquivo aberto normalmente com o LABEL = "@127.0.0.1@3306@root@@test@cadcep", se for usado "@127.0.0.1@3306@root@@test@cadcep&", ativara a rotina de LOG deste arquivo.

Recursos adicionais:

Comando	Descrição
MontaWhere	Passa ao Servidor Mysql comandos adicionais que serão usados no próximo START.
MontaOrder	Passa ao Servidor Mysql parametros adicionais afetando a classificação do resultado gerado pelo comando START.
RetornaCmd	Retorna numa variável a STRING do comando enviado ao servidor MySql.
SalvaCmd	Força a geração de um registro no LOGIMED.LOG contendo o comando enviado ao servidorMysql.
MysqlQuery	Envia ao servidor Mysql uma string contendo comandos e parametros a serem executados.
IgualaCmp	Altera configuração do comando START a ser passado para o Mysql, de modo a definir qual campo numa chave composta deve ser tratado como guia, evitando a geração de uma pesquisa extremamente longa.
GetThread	Retorna a thread da conexão onde foi executado o ultimo comando.
LimpaString	Executa o comando Mysql mysql_real_escape_string.
LockTime	Redefine o tempo de bloqueio do registro em segundos.
GetLstMsgErr	Retorna mensagem de erro.
ListTableOpen	Gera em LOGIMED.LOG a relação de todas as tabelas(arquivos) em aberto.
NumArquivos	Retorna numero de arquivos Mysql e MF abertos.
MysqlConecta	Estabelece uma conexão independente com o Mysql
MysqlComando	Envia ao Mysql, STRING contendo comando e parametros a serem executados na conexão extabelecida pelo comando MysqlConecta.
MysqlRetorna	Envia ao Mysql, STRING contendo comando e parametros a serem executados na conexão extabelecida pelo comando MysqlConecta.
MysqlLiberaCursor	Libera o cursor criado pelo MysqlComando, liberando recursos alocados, e principalmente libera memória.
MysqlDesConecta	Libera a conexão estabelecida pelo MysqlConecta, liberando recursos alocados, e principalmente libera memória.
MysqlQueryFCD	Executa um comando SQL vinculado ao FCD de um determinado arquivo.
MudaPaginacao	Possibilita configurar dinamicamente o tamanho em numero de registros da página usada em comandos de leitura.

MontaWhere
Rotina que pode ser usada para passar ao LIBMYSQL comandos específicos que serão adicionados na estrutura do SELECT.

Esta rotina tem fundamental importância, tendo em vista a filosofia adotada pelo banco de dados ser totalmente diferente da adotada pelos arquivos MF, onde no MF a filtragem é feita após a leitura de cada registro, e no banco de dados esta filtragem é feita pelo servidor, o que em uma base de dados com muitos registros, implica numa significativa demora, até concluir a montagem de todos registros selecionados.
A vantagem da forma adotada pelo banco de dados, esta no fato de reduzir drasticamente o volume de trafego na rede, onde só serão lidos os registros válidos, por outro lago o servidor precisa montar toda a pesquisa antes de liberar o primeiro registro.

Outra grande vantagem é o fato de se poder usar qualquer campo da tabela nesta filtragem.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.
Possibilita com que o servidor faça a filtragem, antes de iniciar a retornar os registros, o que será feito nos comandos "READ"subsequentes.
Neste caso o "START" manda o comando "SELECT" para o servidor MYSQL, para depois os comandos "READ" executarem o comando "FETCH", dando acesso aos registros préviamente selecionados.
Informe na STRING W-WHERE apenas os parametros de filtragem, tendo o cuidado de manter entre "`" os nomes dos campos, e "'" os valores que serão usados como referencia para filtragem.

Syntax

CALL "MontaWhere" USING W-WHERE.
Onde W-WHERE PIC X(2048).

Ex.:
No exemplo ao lado, após o START sertão lidos apenas os registros cujos campos MY-DTA seja = 20120202 e MY-HST tenham a string PAGO, respeitando a classificação determinada pela chave usada no comando START.
```
       WORKING-STORAGE SECTION.

       77  W-WHERE            PIC X(2048).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           MOVE Z"`MY-DTA` = '20120202' AND `MY-HST`

      -         " LIKE 'PAGO%'" TO W-WHERE

           CALL "MontaWhere" USING W-WHERE

           START ARQMYS KEY IS NOT LES MY-LAN

           PERFORM UNTIL STATUS-ERRO

              READ ARQMYS NEXT RECORD NOT AT END

                 .

                 .

                 .

   
```

MontaOrder
Rotina que pode ser usada para passar ao LIBMYSQL comandos específicos que serão adicionados na estrutura do SELECT.

Esta rotina possibilita afetar a forma com que os registros serão classificados após o START. Caso não seja usada, os registros retornarão na ordem definida pela chave selecionada no START. Caso a classificação dos mesmos não seja necessária, basta chamar a rotina passando LOW-VALUES, que não será feita nenhuma classificação, compensando em ganho de velocidade na montagem inicial, este ganho só será perceptível após um determinado volume de registros.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MontaOrder" USING W-ORDER.
Onde W-ORDER PIC X(1024).
Ex.:
No exemplo, após o START sertão lidos todos os registros, mas apesar de o comando START ter definido a chave MY-DTA como chave para acessar o cadastro, os registros serão lidos na rodem definida na string W-ORDER. O acesso pelo servidor será pela chave definida pelo START, mas após selecionar os registros válidos o MYSQL classificarta os mesmos para aliberá-los na sequencia definda no W-ORDER.
```
       WORKING-STORAGE SECTION.

       77  W-ORDER            PIC X(1024).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           MOVE Z"`MY-HST` ASC, `MY-DTA` DESC" TO W-ORDER

           CALL "MontaOrder" USING W-ORDER

           START ARQMYS KEY IS NOT LES MY-LAN

           PERFORM UNTIL STATUS-ERRO

              READ ARQMYS NEXT RECORD NOT AT END

                 .

                 .

                 .

    
```
A importância desta rotina esta na facilidade de já se acessar o cadastro na ordem desejada, podendo ser usado qualquer campo da tabela, ou até mesmo combinação de campos.

RetornaCmd
Rotina que pode ser usada para retornar o comando passado ao MYSQL. Serve basicamente para debugar programas.

Esta rotina retornará toda string enviada ao servidor, pode ser usada debugando um programa, ou armazenando seu conteúdo como quiser.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "RetornaCmd" USING W-CMD.
Onde W-CMD PIC X(64000).
Ex.:
No exemplo, após o START o comando carrega em W-CMD a string passada para o MYSQL para executar o START.
```
       WORKING-STORAGE SECTION.

       77  W-CMD            PIC X(64000).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           START ARQMYS KEY IS NOT LES MY-LAN

           CALL "RetornaCmd" USING W-CMD

           PERFORM UNTIL STATUS-ERRO

              READ ARQMYS NEXT RECORD NOT AT END

                 .

                 .

                 .

    
```
A importância desta rotina esta na facilidade em debugar determinados comando, ou aperfeiçoa-los de forma a obter melhores resultados inclusive em termos de desempenho.

SalvaCmd
Rotina que pode ser usada para retornar o comando passado ao MYSQL, e forçar a garvação do comando passado no log de erros da rotina Logimed.log.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "SalvaCmd" USING W-CMD.
Onde W-CMD PIC X(64000).
Ex.:
No exemplo, após o START o comando carrega em W-CMD a string passada para o MYSQL para executar o START, salva seu conteúdo no Log.
```
       WORKING-STORAGE SECTION.

       77  W-CMD            PIC X(64000).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           START ARQMYS KEY IS NOT LES MY-LAN

           CALL "SalvaCmd" USING W-CMD

           PERFORM UNTIL STATUS-ERRO

              READ ARQMYS NEXT RECORD NOT AT END

                 .

                 .

                 .

    
```
A importância desta rotina esta na facilidade em debugar determinados comando, ou aperfeiçoa-los de forma a obter melhores resultados inclusive em termos de desempenho.

MysqlQuery
Envia ao servidor Mysql a stringa contendo comandos e parametros a serem executados.

Compatibilidade. Só usar caso tenha pelo menos um arquivo aberto.

Syntax
CALL "MysqlQuery" USING W-CMD W-HANDLE.
Onde W-CMD PIC X(64000).
e W-HANDLE POINTER.
Ex.:

Tendo acesso a esta rotina é possível executar qualquer comando do MYSQL independente dos executados via comando tradicionais, tipo READ, START ETC...

Ao lado segue um exemplo de programa que retorna o numero de registros numa determinada tabela.

$set callfh"extmysql" *********************************************************** * IMEDIATA INFORMATICA EMPRESARIAL LTDA * * PROGRAMA - * *********************************************************** IDENTIFICATION DIVISION. PROGRAM-ID. TSMYSQL. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. call-convention 66 is WINAPI. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CLIENTES ASSIGN TO W-ARQUIVOS ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY IS COD-CLI ALTERNATE RECORD KEY IS NOM-CLI WITH DUPLICATES FILE STATUS IS ESTADO. DATA DIVISION. FILE SECTION. FD CLIENTES. 01 REG-CLI. 05 COD-CLI PIC 9(008) COMP-3. 05 NOM-CLI PIC X(040). WORKING-STORAGE SECTION. 77 W-CT1 PIC 9(07) COMP-5. 77 W-CT2 PIC 9(07) COMP-5. 77 W-CT3 PIC 9(07) COMP-5. 77 W-CMD PIC X(64000). 77 W-LNG pic 9(9) comp-5. 77 W-ARQUIVOS PIC X(128) VALUE *> "@186.215.182.172@3306@root@k15720@ERP@clientes". Z"@10.0.0.8@3306@IMEDIATA@1234@paulo@clientes". *> "e:\menu\clientes". 77 ESTADO PIC X(02). 01 W-RESULT POINTER. 01 W-ENDER POINTER. LINKAGE SECTION. 01 LK-NUM PIC 9(9) COMP-5. 01 LK-POI1 POINTER. 01 LK-BUF PIC X(1024). PROCEDURE DIVISION. PRINCIPAL. DISPLAY ERASE. DISPLAY "Vou abrir arquivos". OPEN INPUT CLIENTES. MOVE Z"SELECT COUNT(*) FROM `clientes` WHERE `tipopessoa_cli - "` = 'F'" TO W-CMD. *> Monta string do comando a ser passado *> para o SQL CALL "MysqlQuery" USING W-CMD W-RESULT. *> Executa o comando desejado IF W-RESULT NOT = NULL *> Testa se query foi bem sucedida CALL WINAPI "mysql_fetch_row" USING BY VALUE W-RESULT *> Busca no buffer transitorio endereço do RETURNING W-ENDER *> primeiro resultado *> Retorna endereço onde armazenou resultado *> Dependendo do comando executado retorna *> endereço de um conjunto de campos. *> Vide Mysql.CPY onde estão definidos os *> possiveis campos de retorno SET ADDRESS OF LK-POI1 TO W-ENDER *> Como o resultado retornado é apenas um *> ponteiroseta o endereço dest ponteiro SET ADDRESS OF LK-BUF TO LK-POI1 *> Usa um buffer para receber o resultado *> Após este ponto tenha cuidado de não *> mover nada para esta variavel, podera *> destruirr informações importantes. INSPECT LK-BUF TALLYING W-CT1 FOR CHARACTERS *> Calculaa o tamanho do resultado, que é BEFORE X"00" *> delimitedo por x"00" MOVE FUNCTION NUMVAL (LK-BUF (1:W-CT1)) TO W-CT2 *> Apenas por capricho, garante que *> resultado será numerico EXHIBIT W-CT2. CLOSE CLIENTES. STOP RUN.
A importância desta rotina esta na facilidade em acessar qualquer outro comando do MYSQL.

Para executar esta rotina, é necessário ja haver um arquivo aberto (estabelece uma conexão), e o comando será executado vinculado a conexão do ultimo acesso feito via READ, START, OPEN etc...

IgualaCmp

Rotina altera os parametros do comando SELECT para executar o START, possibilitando sinalizar um ou mais campos de uma chave composta para que sejam tratados pela igualdade ao valor informado na FD.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax
CALL "IgualaCmp" USING W-IGLKEY.
Onde W-IGLKEY PIC X(1) COMP-X.

Valores:

Valor	Função
1	Força com que o primeiro campo da chave seja igual.
2	Força com que o segundo campo da chave seja igual.
4	Força com que o terceiro campo da chave seja igual.
8	Força com que o quarto campo da chave seja igual.
16	Força com que o quinto campo da chave seja igual.
32	Força com que o sexto campo da chave seja igual.
64	Força com que o setimo campo da chave seja igual.
128	Força com que o oitavo campo da chave seja igual.

Ex.

Chave


SELECT CADASTRO ASSIGN TO DYNAMIC W-LABEL

       ORGANIZATION IS INDEXED

        ACCESS MODE IS DYNAMIC

        FILE STATUS IS ESTADO

        LOCK MODE   IS MANUAL

        RECORD KEY  IS CD-CHA = CD-COD CD-FIL CD-SET

        ALTERNATE RECORD KEY IS CD-DSC = CD-DES CD-FIL CD-GRU

                  WITH DUPLICATES

        ALTERNATE RECORD KEY IS CD-KAR = CD-COD CD-FIL CD-TAM

                                         CD-COR CD-MAT

                  WITH DUPLICATES.

Situação

Ex.:

Quero ler a partir do registro CD-COD=1, CD-FIL=3, CD-SET=2 da chave principal:

Sendo que me interessam apenas os registros onde CD-FIL = 3, neste caso:


MOVE  1 TO CD-COD

MOVE  3 TO CD-FIL

MOVE  2 TO CD-SET

MOVE  2 TO W-IGLKEY

CALL "IgualaCmp" USING W-IGLKEY

START CADASTRO KEY IS NOT LESS THAN CD-CHA

PERFORM UNTIL STATUS-ERRO

   READ CADASTRO NEXT RECORD NOT AT END

    .

    .

equivale a


START CADASTRO KEY IS NOT LESS THAN CD-CHA

PERFORM UNTIL STATUS-ERRO

   READ CADASTRO NEXT RECORD NOT AT END

      IF CD-FIL NOT = 3

         MOVE  "10" TO ESTADO

      ELSE

         .

         .

Também é possível a combinação de mais de um campo sendo usado para tratar a igualdade.

Ex.:


MOVE  1         TO W-IGLKEY

ADD   2         TO W-IGLKEY

ADD   8         TO W-IGLKEY

Faz com que o primeiro, segundo e quarto campo da chave composta sejam tratados pela igualdade aos valores informados na FD quando for executado o START.

O principal motivo para criaação desta rotina é reduzir o impacto da diferença da forma com que o acesso é tratado no banco de dados com relação aos arquivos MF.

No MF, logo após o START, imediatamente é executado o comando READ, enquanto que num banco de dados, a primeira leitura só ira ocorrer após o servidor ter montado toda a pesquisa, e de acordo com a filtragem pré informada.

Desta forma é possível, com um pequeno impacto no fonte, solucionar algumas situações que por ventura venham a surgir, onde em função de um grande numero de registros, o comando READ demore mais tempo do que o tolerável para ser executado.

Esta rotina possibilita que se reduza significativamente o universo de registros que serão acessados pelo servidor, até que conclua a montagem da consulta solicitada.

É óbvio que o uso destas rotinas apesar de vantajosas, afetam a compatibilidade com o projeto original, uma vez que estes recursos não estão disponíveis nos acessos via arquivos MF, apesar de o EXTMYSQL ignorá-los, no caso de o arquivo não ser MYSQL.

Uma vez aberto pelo menos um arquivo no MYSQL, estara disponível ao usuario uma conexão com o banco de dados.

GetThread

Retorna a thread em que o aplicativo esta conectado ao Mysql na conexão do ultimo comando executado.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "GetThread" USING W-THREAD.
Onde W-THREAD PIC 9(09) COMP-5.
Ex.:


       WORKING-STORAGE SECTION.

       77  W-THREAD            PIC 9(09) COMP-5.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           CALL "GetThread" USING W-THREAD

                 .

                 .

                 .

LimpaString

Rotina que tira de uma string informada os caracteres não tratados pelo comando Mysql.
Executa o comando Mysql mysql_real_escape_string.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "LimpaString" USING W-BUFFER W-TMN.
Onde W-TUFFER PIC X(XX).
W-TMN PIC 9(09) COMP-5.
Ex.:


       WORKING-STORAGE SECTION.

       77  W-TMN            PIC 9(09) COMP-5.

       77  W-BUFFER         PIC X(1024).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           MOVE  LENGTH OF W-BUFFER TO W-TMN.

           CALL "LimpaString" USING W-BUFFER W-TMN.

                 .

                 .

                 .

LockTime

Redefine o tempo de bloqueio do registro em acessos multi usuario.
Informe o tempo em segundos, 1800 = 30 minutos.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "LockTime" USING W-TMP.
Onde W-TMP PIC 9(09) COMP-5.
Ex.:


       WORKING-STORAGE SECTION.

       77  W-TMP            PIC 9(09) COMP-5.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           MOVE  1800 TO W-TMP.

           CALL "LockTime" USING W-TMP.

                 .

                 .

                 .

GetLstMsgErr

Retorna a ultima mensagem de erro por parte da rotina EXTMYSQL.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "GetLstMsgErr" USING W-ERRO.
Onde W-ERRO PIC X(1024).
Ex.:


       WORKING-STORAGE SECTION.

       77  W-ERRO            PIC X(1024).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           CALL "GetLstMsgErr" USING W-ERRO.

                 .

                 .

                 .

ListTableOpen
Esta rotina gera em LOGIMED.LOG a relação de todas as tabelas(arquivos) em aberto.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "ListTableOpen".
Onde W-THREAD PIC 9(09) COMP-5.
Ex.:
```
       WORKING-STORAGE SECTION.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           CALL "ListTableOpen".

                 .

                 .

                 .

    
```

NumArquivos

Retorna numero de arquivos Mysql e MF abertos.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "NumArquivos" USING W-NUMF W-NUMY.
Onde W-NUMF PIC X(04) COMP-5.
W-NUMY PIC X(04) COMP-5.
Ex.:


       WORKING-STORAGE SECTION.

       77  W-NUMF            PIC X(04) COMP-5.

       77  W-NUMY            PIC X(04) COMP-5.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           CALL "NumArquivos" USING W-NUMF W-NUMY.

                 .

                 .

                 .

LogArquivos
Controal a geração de logo dos comandos de I-O.
1 - Força geração de log dos comandos.
0 - Desabilita Log dos comandos de I-0.

Sempre que o EXTMYSQL é usado para acessar uma base de dados no Mysql é criado a tabela IMELOG, que serve para armazenar o log de cada comando executado, com todos seus parametros, possibilitando a reconstrução de uma base a partir destes comandos.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "LogArquivos" USING W-TLOG.
Onde W-TLOG PIC 9(01).
W-NUMY PIC X(04) COMP-5.
Ex.:
```
       WORKING-STORAGE SECTION.

       77  W-TLOG            PIC 9(01).

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           CALL "LogArquivos" USING W-TLOG.

                 .

                 .

                 .

    
```

MysqlConecta

Estabelece uma conexão com o Mysql, independente da necessidade de se abrir um arquivo via comando tradicional OPEN.

Ao estabelecer uma conexão com o servidor Mysl, retorna o handle da conexão estabelecida, que deverá ser usado nos comandos a serem executados nesta conexão.
Retorna da mesma forma o STATUS da operação, sendo "00" caso bem sucedida.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlConecta" USING W-ARQUIVOS W-CONEXAO W-STATUS.

Ex.: Vide programa demo


       WORKING-STORAGE SECTION.

       77  W-ARQUIVOS            PIC X(128).

       77  W-STATUS              PIC X(02).



       01  W-CONEXAO USAGE POINTER.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           MOVE  "@127.0.0.1@3306@root@@test@cadtst"

                              TO W-ARQUIVOS.



           CALL "MysqlConecta" USING W-ARQUIVOS  *> Variavel com os parametros para estabelecer a conexão

                                     W-CONEXAO   *> Retorna handle para encontrar a FCD-AREA da conexão

                                     W-STATUS.   *> Status de retorno

                 .

                 .

                 .

MysqlComando

Envia ao Mysql, STRING contendo comando e parametros a serem executados na conexão extabelecida pelo comando MysqlConecta.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlComando" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-COMANDO *> Comando a ser executado W-CURSOR *> Handle do retorno do comando W-QRTM *> Tamanho do comando a ser executado W-STATUS. *> Status de retorno

Ex.: Vide programa demo


       WORKING-STORAGE SECTION.

       77  W-COMANDO             PIC X(64000).

       77  W-STATUS              PIC X(02).

       77  W-QRTM                PIC 9(09) COMP-5.



       01  W-CONEXAO USAGE POINTER.

       01  W-CURSOR  USAGE POINTER.

       .

       .

       .



       PROCEDURE DIVISION.

           .

           .

           .

           STRING "SELECT cadtst.tstlan, cadtst.tstvl1, cadtst.tstvl2, "

                  "cadtst.tstvl3, cadtst.tstvl4, cadtst.tstvl5, "

                  "cadtst.tstch1, cadtst.tstch2 FROM cadtst"

                     DELIMITED BY SIZE

                     INTO W-COMANDO WITH POINTER W-QRTM.



           CALL "MysqlComando" USING W-CONEXAO   *> Variavel com os parametros para estabelecer

                                                 *> a conexão. Retornado do comando MysqlConecta

                                     W-COMANDO   *> String contendo a instrução Mysql

                                     W-CURSOR    *> Retorna handle (cursor), resultado do comando executado.

                                     W-QRTM      *> Tamanho da instrução sendo enviada ao Mysql

                                     W-STATUS    *> Retorna Status de retorno (resultado) do comando

                 .

                 .

                 .

MysqlRetorna

Retorna em W-RESULT uma string colunada com o proximo resultado disponível.
As colunas obdecerão os tamanhos pré estabelecidos na definição de cada coluna envolvida no Mysql.

Retorna em W-STATUS o status do comando executado conforme tabela de FS do COBOL.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlRetorna" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-CURSOR *> Endereço estrutura do retorno (cursor) W-QRTM *> Tamanho do buffer sendo retornado W-STATUS *> Status de retorno W-RESULT. *> Buffer contendo o resultado sendo retornado. Ter cuidado no programa

Ex.: Vide programa demo


       WORKING-STORAGE SECTION.

       77  W-RESULT              PIC X(64000).

       77  W-STATUS              PIC X(02).

       77  W-QRTM                PIC 9(09) COMP-5.



       01  W-CONEXAO USAGE POINTER.

       01  W-CURSOR  USAGE POINTER.

       01  WS-REG.

           02 WS-LAN     PIC S9(10).

           02 WS-CL1     PIC S9(07).

           02 WS-CL2     PIC S9(06).

           02 WS-CL3     PIC S9(07)V99.

           02 WS-CL4     PIC S9(05).

           02 WS-CL5     PIC S9(05)V9999.

           02 WS-CH1     PIC X(10).

           02 WS-CH2     PIC X(50).

       .

       .

       .

       PROCEDURE DIVISION.

           .

           .

           .

           IF W-CURSOR NOT = NULL

              CALL "MysqlRetorna" USING W-CONEXAO   *> Handle para recuperar FCD-AREA

                                            W-CURSOR    *> Endereço estrutura do retorno (cursor)

                                            W-QRTM      *> Tamanho do buffer sendo retornado

                                            W-STATUS    *> Status de retorno

                                            W-RESULT.   *> Buffer contendo o resultado sendo retornado. Ter cuidado no programa

              MOVE  W-RESULT TO WS-REG              *> Move o resultado para uma estrututa

                 .

                 .

                 .

MysqlLiberaCursor

Libera o cursor criado pelo MysqlComando, liberando recursos alocados, e principalmente libera memória .

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlLiberaCursor" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-CURSOR. *> Endereço estrutura do retorno (cursor)

Ex.: Vide programa demo


       WORKING-STORAGE SECTION.

       01  W-CONEXAO USAGE POINTER.

       01  W-CURSOR  USAGE POINTER.

       .

       .

       .

       PROCEDURE DIVISION.

           .

           .

           .

           CALL "MysqlLiberaCursor" USING W-CONEXAO

                                          W-CURSOR. *> Handle para encontrar a FCD-AREA desta conexão

                 .

                 .

                 .

MysqlDesConecta

Libera a conexão estabelecida pelo MysqlConecta, liberando recursos alocados, e principalmente libera memória .

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlDesConecta" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-CURSOR *> Endereço estrutura do retorno (cursor) W-STATUS *> Status de retorno do comando

Ex.: Vide programa demo


       WORKING-STORAGE SECTION.

       01  W-CONEXAO USAGE POINTER.

       01  W-CURSOR  USAGE POINTER.

       01  W-STATUS  PIC X(02)

       .

       .

       .

       PROCEDURE DIVISION.

           .

           .

           .

           CALL "MysqlDesConecta" USING W-CONEXAO

                                          W-CURSOR  *> Handle para encontrar a FCD-AREA desta conexão

                                          W-STATUS.

                 .

                 .

                 .

MysqlQueryFCD

Executa um comando MYSQL usando a conexão e parametros de um determinado arquivo.
Neste caso é necessário tornar visivel ao programa a area de FCD do arquivo desejado, para tal inclua, "$set fcdreg" antes do SELECT:

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlQueryFCD" USING CADASTRO-FCD *> Passa area de parametros do arquivo "CADASTRO" W-COMANDO *> Comando SQL a ser executado W-HANDLE. *> Caso comando SQL retporne resultado, o endereço para

Ex.:




      $set fcdreg



           SELECT CADASTRO ASSIGN TO DYNAMIC W-LABEL

                   ORGANIZATION IS INDEXED

                   ACCESS MODE  IS DYNAMIC

                   FILE STATUS  IS ESTADO

                   RECORD KEY   IS CD-KEY.



.

.

.

       WORKING-STORAGE SECTION.

       77  W-LABEL   PIC X(128) VALUE

        Z"@127.0.0.1@3306@root@@imed@cadastro".

       77  W-COMANDO    PIC X(64000).

       77  W-QRTM       PIC 9(09) COMP-5.



.

.

.

       01  W-HANDLE           USAGE POINTER.

.

.

.

       LINKAGE SECTION.



       01  CADASTRO-FCD.



           COPY XFHFCD.CPY.    *> Estrutura usada pelo COBOL para fazer todos acessos a arquivos

.

.

.

.



           OPEN I-O CADASTRO.



      *> Ira recuperar a area de FCD do arquivo aberto logo acima.

      *> Posiciona a estrutura no endereço fornecido acima, com isso o programa passa a ter acesso a

      *> todas informaçõs necessários para o Cobol acessar o arquivo.



           SET   ADDRESS OF CADASTRO-FCD TO ADDRESS OF fh--fcd

                                            OF CADASTRO.



.

.

.



      *> Possibilita a leitura de registros gravados mas ainda não commitados.



           MOVE  1            TO W-QRTM.

           STRING "SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED"

               DELIMITED BY SIZE INTO W-COMANDO WITH POINTER W-QRTM.



           CALL "MysqlQueryFCD"                     *> Executa MysqlQuery na conexão e usando a estrutura

                                                    *> de um arquivo préviamente aberto

                                USING CADASTRO-FCD  *> Passa area de parametros do arquivo "CADASTRO"

                                      W-COMANDO     *> Comando SQL a ser executado

                                      W-HANDLE.     *> Caso comando SQL retporne resultado, o endereço para

.

.

.



           CLOSE CADASTRO.

No exemplo ascima, ao fechar o arquivo via "CLOSE", não há mais necessidade de encerrar conexão nem cursor, o que é feito pelo próprio comando CLOSE.

MysqlRetResult

Retorna o resultado de um comando MysqlComando.
São retornados os campos (colunas) resultantes do comando enviado ao Mysql, separados por um separador informado em tempo de execução.
Esta rotina tem a vantagem sobre a rotina RetResult uma vez que possibilita manipular diversas solicitações ao MysqlComando de forma independente, uma vez que é pssível se referenciar ao CURSOR de cada um, mantendo ativa cada pesquisa.
Pode ser informado um separador como "
", "" ou apenas "|", não esquecendo de que é terminado por x"00", incluir o digito terminador no tamanho informado.

Compatibilidade. Sem efeito quando acessando arquivo MF tradicional, simplesmente sera ignorado.

Syntax

CALL "MysqlRetResult" USING W-CONEXAO *> Pointer retornado pelo comando MysqlConecta W-CURSOR *> Endereço estrutura onde esta cursor retornado *> pelo comando MysqlComando W-QRTM *> Tamanho do buffer sendo retornado W-STR *> Divisor do campo, terminado em X"00" W-TAM *> Tamanho do divisor W-STA *> Status de retorno W-REG. *> Buffer contendo o resultado sendo retornado. Ter cuidado no programa *> chamador para reservar espaço suficiente, para caber o retornoUSING W-CONEXAO *> Handle para recuperar FCD-AREA

MudaPaginacao
Possibilita a manutenção de forma dinâmica do numero de registros usados para paginar acessos de leitura sequencial. Default é 1024 registros, o numero ideal é determinado pela capacidade tanto do servidor, conexão e terminal, o número minimo é de 50 registros.
Para processos de leitura envolvendo inclusão, atualização e exclusão, é recomendado não usar paginação, em função de a leitura se basear na posção relativa do registro em cada chamada ao SELECT, e excluindo ou incluindo registros pode alterar a posição relativa do registro a ser usado.
Ex.: Num acesso onde a página esta em 1024, e se deseja acessar mais de 1024 registros, ao se excluir um registro classificado entra a posição 1 e 1024, fara com que ao acessar a segunda página o registro 1025 não seja mais considerado, pois passara a ocupar a posição 1024, que foi montado na primeira página. Para evitar este tipo de problema use o seguinte comando:
77 W-QRTM PIC 9(09) COMP-5. . . . MOVE 99999 TO W-QRTM. CALL "MudaPaginacao" USING W-QRTM.
Fara com que a rotina não mais adote a paginação a partir dos prósimos START.

Programa demo acesso direto ao Mysql.
IDENTIFICATION DIVISION. PROGRAM-ID. TSMYSQL9. *-----------------------------------------------------------* * Objetivo: * *-----------------------------------------------------------* ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. call-convention 66 is WINAPI DECIMAL-POINT IS COMMA. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 W-ARQUIVOS PIC X(64) VALUE "@127.0.0.1@3306@root@@test@cadcep". 77 W-PRIM PIC 9(01) VALUE ZEROS. 77 W-NREG PIC 9(02) COMP-5 VALUE ZEROS. 77 W-QRTM PIC 9(09) COMP-5. 77 W-CMD PIC X(64000). 77 W-SINAL PIC S9(05)V99 VALUE -1234,33. 01 ESTADO PIC X(02). 88 STAT-ERRO VALUE X"3100" THRU X"3943" X"3945" THRU X"39EE". 88 DUPLICADO VALUE "22". 88 CRIAR-ARQUIVO VALUE X"3335" X"3913". 88 JA-ABERTO VALUE "41" X"398D". 88 REINDEXAR VALUE X"3929" X"3912". 88 ESTA-ABERTO VALUE "12". 88 FOI-CRIADO VALUE "05". 88 NAO-ENCONTRADO VALUE "23". 88 FINAL-ARQUIVO VALUE "10". 88 CHAVE-DUPLICADA VALUE "02". 01 RESTADO REDEFINES ESTADO. 02 ST-K01 PIC X(01). 02 ST-K02 PIC X(01). 02 RST-K02 REDEFINES ST-K02. 03 ST-ERR PIC 9(02) COMP-X. 01 W-CONEXAO USAGE POINTER. 01 W-CURSOR USAGE POINTER. 01 EXTMYSQL procedure-pointer. 01 WS-REG. 02 WS-LAN PIC S9(10). 02 WS-CL1 PIC S9(07). 02 WS-CL2 PIC S9(06). 02 WS-CL3 PIC S9(07)V99. 02 WS-CL4 PIC S9(05). 02 WS-CL5 PIC S9(05)V9999. 02 WS-CH1 PIC X(10). 02 WS-CH2 PIC X(50). PROCEDURE DIVISION. INICIO. SET EXTMYSQL TO ENTRY "EXTMYSQL". MOVE "@127.0.0.1@3306@root@@test@cadtst" TO W-ARQUIVOS. CALL "MysqlConecta" USING W-ARQUIVOS *> Variavel com os parametros para estabelecer a conexão W-CONEXAO *> Retorna handle para encontrar a FCD-AREA da conexão ESTADO. *> Status de retorno MOVE 1 TO W-QRTM. STRING "SELECT cadtst.tstlan, cadtst.tstvl1, cadtst.tstvl2, " "cadtst.tstvl3, cadtst.tstvl4, cadtst.tstvl5, " "cadtst.tstch1, cadtst.tstch2 FROM cadtst" DELIMITED BY SIZE INTO W-CMD WITH POINTER W-QRTM. CALL "MysqlComando" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-CMD *> Comando a ser executado W-CURSOR *> Handle do retorno do comando W-QRTM *> Tamanho do comando a ser executado ESTADO. *> Status de retorno IF W-CURSOR NOT = NULL PERFORM UNTIL STAT-ERRO MOVE ZEROS TO W-QRTM CALL "MysqlRetorna" USING W-CONEXAO *> Handle para recuperar FCD-AREA W-CURSOR *> Endereço estrutura do retorno (cursor) W-QRTM *> Tamanho do buffer sendo retornado ESTADO *> Status de retorno W-CMD *> Buffer contendo o resultado sendo retornado. Ter cuidado no programa MOVE W-CMD TO WS-REG END-PERFORM END-IF CALL "MysqlLiberaCursor" USING W-CONEXAO W-CURSOR. *> Handle para encontrar a FCD-AREA desta conexão CALL "MysqlDesConecta" USING W-CONEXAO *> Handle para encontrar a FCD-AREA desta conexão W-CURSOR *> Handle das definições para o cursor, pode não vir informado ESTADO. STOP RUN.

Dicas:

Abaixo vamos relacionar algumas dicas, de como se obter melhores resultados, mas que antes de serem adotadas recomendamos estudo mais aprofundado quanto as consequencias de suas implementações.

Procure não usar nome de campo muito extenso, o espaço ocupado pelos nomes é compartilhado na string enviada ao Mysql, que além de trafegar na rede, tem uma limitação de 64000 posições.

Tratamento de Erro:

Todo erro não tratado pela rotina gera um registro no log "LOGIMED.LOG", onde fica registrado o que se tentou fazer e o motivo informado pelo LIBMYSQL, na tentativa de facilitar a correção do mesmo.

Comandos úteis.

CHECK table nomedatabela; Verifica a integridade da tabela.
REPAIR table nomedatabela; Repara caso esteja danificada.

Desempenho.

Apesar da necessidade de que todas as chaves definidas no SELECT do COBOL estarem correspondentemente definidas na Tabela do MYSQL, o fato de termos mais chaves definidas nas tabelas do que no SELECT, não interfere na compatibilidade operacional do sistema. Neste caso, poderão ser definidas novas chaves sem que as mesmas estejam no SELECT do arquivo, desde que estejam depois da ultima chave definida no SELECT.

Dependendo da necessidade de acesso a uma tabela usando determinado campo (coluna), é recomendável inclui-lo como chave, tornando as pesquisas, onde houver filtragem por este campo, muito mais eficientes e rápidas.

A rotina "MontaOrder" tem se mostrado eficiente em pesquizas onde não ha necessidade de classificação do resultado, principalmente em rotinas que usam o SORT para classificar os registros lidos. Neste caso, antes de chamar a rotina, inicialize W-ORDER com Low-values.

Valem as mesmas regras para tratamento do desempenho das aplicadas no Mysql, mesmo que acessadas via comandos do COBOL, uma vez que internamente todo acesso é feito via banco de dados.

Funcionalidade.

As rotinas aqui apresentadas foram desenvolvidas de tal forma que obtenham o mesmo resultado, caso passando ao Servidor Mysql. Para debugar o que esta sendo enviado para o Servidor, use a rotina ";SalvaCmd", que tem como finalidade deixar registrado o comando passado ao Servidor Mysql no arquivo LogImd.log.

Observações.

Sempre que encontrar um erro, o mesmo será registrafo no arquivo LOGIMED.LOG, facilitando localizar a causa do erro.

A rotina EXTMYSQL faz validação dos campos não numéricos zerando sempre que encontrar valores fora do RANGE previamente estabelecido para o campo. Como em muitos caso de converção de dados do MF para o MYSQL, foram encontrados sugeuira, e o banco de dados não aceita tais situações, a rotina passou a tratar estes casos evitando desta forma interrupção sumária da execução

Limitações

Vale todas limitações do banco de dados, no caso o o Mysql.

Bloqueio de registro é feito por tempo determinado, como não encontramos uma técnica padrão fornecida pelo banco de dados, o bloqueio de registro é feito por uma rotina desenvolvida por nós, o que mais se aproximou da forma com que tradicionalmente é feita pelo COBOL.

Tamanho do nome do campo na tabela não pode ser maior que 64 posições, o mesmo ocorre com o nome da chave.

Tamanho máximo da string de comunicaçãoo com o Mysql é de 64000 posições, compartilhado com o comando, nome da variável, e conteúdo da variável.

Caracteres especiais ou sugeira nos Campos CHAR, VARCHAR e BLOB tratam caracteres especiais com tamanho multiplicado por 3. Ex. campo contendo X"01", trafegara ocupando 3 posições na STRING de comando.

READ NEXT, READ PREVIOUS em sequencia. Da forma com que o SQL trata leitura de registros, é desaconselhavel o uso de comando READ ARQ NEXT RECORS com READ ARQ PREVIOUS, ou contrário.

Ex. Um START NOT LESS, no Mysql o servidor vai ler todos registros com chave = ou maior, para depois liberar o primeiro READ, e se logo após vc der um READ PREVIOUS, tudo denovo ao inverso.

Por outro lado, voce pode se valer do recurso "LIKE %STRING%" que é muito eficiente.

Franco Stringari Pudler, email franco@imediata.com.br

Cobol & Mysql - Arquivos cobol migrando para Sql.

Rotina EXTMYSQL

EXTMYSQL

File Status.

Espelhamento via Log de comandos:

Recursos adicionais:

MontaWhere

Syntax

Ex.:

MontaOrder

Syntax

RetornaCmd

SalvaCmd

MysqlQuery

IgualaCmp

GetThread

Syntax

LimpaString

Syntax

LockTime

Syntax

GetLstMsgErr

Syntax

ListTableOpen

Syntax

NumArquivos

Syntax

LogArquivos

Syntax

MysqlConecta

Syntax

MysqlComando

Syntax

MysqlRetorna

Syntax

MysqlLiberaCursor

Syntax

MysqlDesConecta

Syntax

MysqlQueryFCD

Syntax

MysqlRetResult

Syntax

MudaPaginacao

Programa demo acesso direto ao Mysql.

Dicas:

Tratamento de Erro:

Comandos úteis.

Desempenho.

Funcionalidade.

Observações.

Limitações