Queria saber mais informações sobre esse free format que surgiu em 2002 que tenho alguns anos mexendo com cobol e nao vi nenhum compilador aceitar a nenhuma estrurura fora de suas áreas?
Queria saber mais informações sobre esse free format que surgiu em 2002 que tenho alguns anos mexendo com cobol e nao vi nenhum compilador aceitar a nenhuma estrurura fora de suas áreas?
Ola estudante.
Segue algumas informações que possam lhe ajudar.
O formato livre do COBOL, introduzido oficialmente no padrão COBOL 2002, trouxe uma mudança significativa em relação à forma tradicional de escrever programas COBOL.
Até o COBOL 85, o código precisava obedecer a uma estrutura rígida de colunas, herdada da época dos cartões perfurados.
As instruções deviam ser escritas em áreas específicas: a Área A (colunas 8 a 11) era usada para nomes de divisões, seções e parágrafos; a Área B (colunas 12 a 72) para o código executável; e as colunas 73 a 80 podiam conter números de sequência.
Esse formato fixo é o que a maioria dos programadores COBOL mais antigos conhece e utiliza até hoje.
Exemplo de código no formato fixo tradicional:
IDENTIFICATION DIVISION.
PROGRAM-ID. EXEMPLO.
PROCEDURE DIVISION.
DISPLAY "Ola, COBOL antigo!".
STOP RUN.
Com o COBOL 2002 surgiu o formato livre (free source format).
Nesse novo padrão, as colunas deixaram de ter significado e o código pode começar em qualquer posição, permitindo o uso de indentação e espaçamento mais parecidos com linguagens modernas.
Além disso, os comentários passaram a ser indicados com *> em vez de * na coluna 7.
Exemplo de código no formato livre:
>>SOURCE FORMAT FREE
identification division.
program-id. ExemploLivre.
procedure division.
display "Olá, COBOL moderno!".
stop run.
end program ExemploLivre.
Um detalhe importante é que o formato livre exige a diretiva do compilador >>SOURCE FORMAT FREE no início do código.
Sem ela, o compilador continuará interpretando o código como formato fixo.
Nem todos os compiladores oferecem suporte ao formato livre.
Compiladores mais antigos, como RM/COBOL ou versões antigas do Micro Focus, não o reconhecem.
Já compiladores modernos, como GnuCOBOL, IBM Enterprise COBOL (a partir da versão 5) e Micro Focus Visual COBOL, oferecem suporte total ao novo formato.
Em resumo, o formato livre foi criado para tornar o COBOL mais acessível e moderno, removendo as limitações herdadas do formato de cartões perfurados e facilitando o uso em ambientes de desenvolvimento contemporâneos. Contudo, o uso desse formato depende de um compilador compatível e da configuração adequada da diretiva de fonte livre.
Qualquer duvida comente ai.
Bons estudos.
Boa noite!
Ronaldo, muito boa sua resposta.
Desde quando comecei a programar em cobol, nunca tinha visto falar sobre esse free format, mas acredito que nunca vi e nem sei de alguém que tenha implementado. Mas é sempre bom adquirir novos conhecimentos.
Obrigado.
Obrigado por seu feedback.
Qualquer duvida pergunte ai.
Ou se quiser pode fechar este tópico.
Obrigado.