Open-cobol é um compilador open source da linguagem Cobol. Cobol é uma linguagem desenvolvida para negócios (COmmon Business Oriented Language). Inicialmente está linguagem foi desenvolvida, em uma reunião do pentágono, para resolver problemas do governo e das forças armadas americanas, porém atualmente esta linguagem está presente na grande maioria das instituições financeiras do mundo. O Cobol também foi o responsável pela “correria” que aconteceu por volta do fim do século passado que ficou caracterizado como o “bug do milênio”.
O compilador Open-cobol traduz o código cobol em C e depois o compila com o GCC. O Debian já tem o pacote compilado para a instalação em : http://packages.debian.org/unstable/devel/open-cobol, no entanto você pode baixar os fontes para instalação aqui: http://www.opencobol.org/modules/mydownloads/.
Para realizar a instalação via aptitute, no meu caso eu tive que mudar no source.list de etch, para unstable:
deb http://ftp.br.debian.org/debian/ unstable main
Feito isso, atualize o sistema é instale o compilador:
aptitude install open-cobol
Com o compilador instalado , podemos fazer um teste:
* Simples Olá Mundo em Cobol
* André O Moura 03/2007
IDENTIFICATION DIVISION.
PROGRAM-ID. ola.
PROCEDURE DIVISION.
DISPLAY “Olá Mundo!”.
STOP RUN.
compilar:
cobc ola.cob
E executar:
./ola
Observe que no cobol o espaçamento é válido, ou seja, ele controla onde o código deve estar escrito. Isso se dá pelo fato de sua origem, o cobol foi escrito para formulários de códificação perfurados, cartões perfurados. Nestes formulários as primeiras 6 posições são reservadas para números de sequência. A sétima posição é destinado a continuação ou para inserção de comentários, sendo que todo comentário no cobol começa com *, o programa mesmo só vem a aparecer na coluna 8.
Ainda volto a falar sobre isso!