Solucionado (ver solução)
Solucionado
(ver solução)
3
respostas

[Dúvida]

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?

Matricule-se agora e aproveite até 50% OFF

O maior desconto do ano para você evoluir com a maior escola de tecnologia

QUERO APROVEITAR
3 respostas

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.

solução!

Obrigado por seu feedback.
Qualquer duvida pergunte ai.
Ou se quiser pode fechar este tópico.
Obrigado.