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.

Tutorial

Sample programs.

Diversos programas escritos em COBOL, demonstrando técnicas diferentes como acessar API do Windows entre outros recursos.

Arquivo	Descrição	Autor
registro.rar	Cria, acessa informações no registro do Windows via API	Franco
datahora.rar	Acessa data e hora do sistema atravéz da API do Windows	Franco
getvolinfo.rar	Retorna o numero de série da unidade corrente.	Franco
getusrnam.rar	Retona o nome do usuario	Franco
execquery.cbl	Fonte executando comando QUERY após estar conectado via EXTMYSQL	Franco
tsmysqld.cbl	Acessando MysqlQueryFcd, executar comondo Mysql vinculado conexão arquivo préviamente aberto.	Franco
tsmysql6.cbl	Testa e demonstra uso de diversos tipos, tamanhos de campos numéricos e suas correspondências. No final do programa voce encontra comandos para criar tabela usada pelo programa.	Franco
tsmysql99.cbl	Demonstra como conectar e executar comandos Mysql usando conector "C", libmysql.dll, atravéz da rotina extmysql.dll. Programa retorna uma string num lay-out pré definido conforme demonstrado na working, os valores da pesquisa. No final do programa voce encontrara comandos para criar tabela usada pelo programa.	Franco
justifica.cbl	Forma diferente de justificar um campo.	Franco

Manipulando memoria de forma dinamica usando API Windows

Programa principal

*********************************************************** * MERCOSOFT * * PROGRAMA - Reservando dinamicamente memória em COBOL * * usando API do Windows * *********************************************************** IDENTIFICATION DIVISION. PROGRAM-ID. MEMAPI. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. call-convention 66 is WINAPI. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 MEM-ADDR POINTER. 01 MEM-SIZE PIC 9(9) COMP-5. 01 MEM-TYPE PIC 9(9) COMP-5. 01 MEM-PROT PIC 9(9) COMP-5. 01 MEM-RET POINTER. 01 UNI-FLAG PIC 9(9) COMP-5. 01 DLG-HAN POINTER. 01 DLG-PTF POINTER. 01 DLG-STP PIC 9(9) COMP-5. 78 GMEM-FIXED value h"0000". 78 GMEM-MOVEABLE value h"0002". 78 GMEM-NOCOMPACT value h"0010". 78 GMEM-NODISCARD value h"0020". 78 GMEM-ZEROINIT value h"0040". 78 GMEM-MODIFY value h"0080". 78 GMEM-DISCARDABLE value h"0100". 78 GMEM-NOT-BANKED value h"1000". 78 GMEM-SHARE value h"2000". 78 GMEM-DDESHARE value h"2000". 78 GMEM-NOTIFY value h"4000". 78 GMEM-LOWER value 4096. 78 GMEM-VALID-FLAGS value h"7f72". 78 GMEM-INVALID-HANDLE value h"8000". 78 GHND value 66. 78 GPTR value 64. 78 GMEM-DISCARDED value h"4000". 78 GMEM-LOCKCOUNT value h"00ff". 78 MEM-COMMIT value h"1000". 78 MEM-RESERVE value h"2000". 78 MEM-DECOMMIT value h"4000". 78 MEM-RELEASE value h"8000". 78 MEM-FREE value h"010000". 78 MEM-PRIVATE value h"020000". 78 MEM-MAPPED value h"040000". 78 MEM-RESET value h"080000". 78 MEM-TOP-DOWN value h"100000". 01 KERNEL32-POINTER PROCEDURE-POINTER. LINKAGE SECTION. 01 LK-MEMORY PIC X(01). PROCEDURE DIVISION. PRINCIPAL. DISPLAY ERASE. set KERNEL32-POINTER to entry "KERNEL32". MOVE 1024 TO MEM-SIZE. MOVE GMEM-FIXED TO UNI-FLAG. SET MEM-ADDR TO NULL. CALL WINAPI "GlobalAlloc" USING BY VALUE UNI-FLAG MEM-SIZE RETURNING MEM-RET. IF MEM-RET NOT = NULL SET ADDRESS OF LK-MEMORY TO MEM-RET CALL "TSMEM" USING MEM-SIZE LK-MEMORY MOVE MEM-DECOMMIT TO MEM-TYPE CALL WINAPI "GlobalFree" USING BY VALUE MEM-RET RETURNING MEM-RET. STOP RUN.

Programa chamado

*********************************************************** * IMEDIATA INFORMATICA EMPRESARIAL LTDA * * PROGRAMA - * *********************************************************** IDENTIFICATION DIVISION. PROGRAM-ID. TSMEM. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. LINKAGE SECTION. 01 LK-MEMORY PIC X(01). 01 LK-TAM PIC 9(09) COMP-5. PROCEDURE DIVISION USING LK-TAM LK-MEMORY. PRINCIPAL. MOVE "123456789012345678901234567890123456789012345678901234 - "12345678901234567890123456789012345678901234567890" TO LK-MEMORY (1:LK-TAM). EXIT PROGRAM.

Franco Stringari Pudler, email franco@imediata.com.br
Inclua subject "Cobol Mysql".
Consultoria, desenvolvimento software, modernização de sistemas, conversão arquivos MF cobol para banco de dados. Mysql, MariaDB e demais bancos sob consulta.