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 - Accessing Sql tables.

    Download.






    EXTMYSQL. Rotina gerada para COBOL 32 Micro Focus.
    Conteúdo:
    • MYSQLDEM.EXE - Programa demo acessando tanto arquivos MF como Mysql.
    • COBOL.DIR - Parametros, diretivas de compilação.
    • EXTASC.EXE - Rotina que registra release em uso. (Uso facultativo)
    • EXTMYSQL.DLL - Rotina que substitui EXTFH do cobol gerenciando acessos a arquivos.
    • LIBMYSQL.DLL - Conector MYSQL para programas "C/C++".
    • MFRTS32.DLL - Runtime COBOL Micro Focus 32.
    • MFSCREEN.DLL - Runtime COBOL Micro Focus 32.
    • MYSQLDEM.CBL - Programa fonte do demo para estudo e evolução
    • TSMYSQL1.CBL - Programa fonte demo.
    • TSMYSQL4.CBL - Programa fonte demo.
    • TSMYSQL9.CBL - Programa fonte demo.
    • TSMYSQLk.CBL - Programa fonte demo.
    Para executar:
    • Descompacte o arquivo CobolMysql.rar que voce baixou, em uma pasta de seu computador.
    • Instale servidor MYSQL. Certifique-se de que esta configurado corretamente, para isso voce pode usar o HeidiSQL.
    • O programa MYSQLDEM.EXE esta configurado para acessar um servidor instalado na maquina local IP 127.0.0.1, porta 3306, usuario "root" sem pasword. A tabela deve estar instalada no DB "imediata", com o nome "arqtst".
      @127.0.0.1@3306@root@@imediata@arqtst
      Veja em A DLL como definir o label de um arquivo numa tabela MYSQL.
      Ex.: "@IP@PORTA@USER@PASW@DB@TABEL"
    • Na pasta local ira criar o arquivo "arqtst" e "arqtst.idx" quando for acessado o arquivo MF ISAM.
    • Use o script SQL que voce vai encontrar dentro do fonte MYSQLDEM.CBL, para criar a tabela usada pelo programa, correspondendo a FD do mesmo.
    • Execute MYSQLDEM.EXE, siga o que for solicitado e acompanhe no banco de dados o que esta sendo feito pelo programa.
    Execute mysqldem.exe
    EXTMYSQL. Para NetExpress. Arquivos necessários para gerar o EXTMYSQL no NetExpress.
    Conteúdo:
    • EXTMYSQL.BAT - Rotina para gerar o EXTMYSQL.DLL e EXTASC.EXE.
    • EXTMYSQL.OBJ - OBJ do programa EXTMYSQL.
    • DIFTMP.OBJ - OBJ complemento EXTMYSQL.
    • GERALOG.OBJ - OBJ complemento EXTMYSQL.
    • EXTVAL.OBJ - OBJ complemento EXTMYSQL.
    • EXTASC.OBJ - OBJ para gerar o EXTASC.EXE.
    Gerar EXTMYSQL.DLL e EXTASC.EXE para NetExpress.
    • Descompacte NetExtMysql.rar numa pasta de seu computador.
    • Abra uma janela "DOS" do NetExpress, de forma que vc consiga compilar seus programas via comando tipo "COBOL SEUPROG;".
    • Execute "EXTMYSQL.BAT"
    • Ou crie um projeto, de forma a gerar EXTMYSQL.DLL e EXTASC.EXE conforme descrito no EXTMYSQL.BAT.
    Leitura de um registro com bloqueio.


    TSMYSQL1.CBL




    TSMYSQL.CBL


    Demonstra relacão entre campos da FD e do Mysql.



    TSMYSQL9.CBL


    Demonstra acesso ao Mysql via comando SQL.



    BIB2SQL.CBL


    Cria script definição tabela.

    • Programa inacabado, que a partir de uma Bib informada contendo a FD de um arquivo COBOL, cria script de uma tabela Mysql compatível a FD informada.



    TSMYSQLB.CBL


    Demo usando MONTAORDER.

    • Programa demo para uso do recurso MontaOrder.

    CADCEP.RAR.

    Demo com programas para uso dos recursos basicos do EXTMYSQL.

    Instale o MYSQL.


    Voce vai encontrar tanto os programas para baixar como as instruções no site Mysql Download.
    Fabricante Cobol, Micro Focus :Micro Focus Cobol.

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