OO Cobol 2002

[Eslopes]

O único compilador disponível no mercado que implementa o padrão Cobol 2002 é o Hitachi OO Cobol, mas poucas informações estão disponíveis sobre o mesmo. O GNU Cobol implementa algumas coisas do novo padrão, mas é difícil dizer se o pouco que ele oferece é o suficiente para dizer que se trata de um sub-set.

O Visual Cobol da Micro Focus afastou-se completamente do Cobol 2002 até onde eu sei, copiando muito do seu comportamento do C#. Não considero algo negativo, mas não creio que este Cobol seja compatível com o 2002.

Emerson

[Kuk]

eslopes, que yo sepa, Fujitsu también permite OO COBOL. Lo sé poqrque tengo un manual por ahi.

[Eslopes]

Olá,

quase todas as versões atuais de Cobol (Micro Focus, Fujitsu, Raincode, Open Cobol, IBM Enterprise Cobol, Elastic Cobol, Veryant isCobol etc) suportam OO, mas boa parte implementa o DRAFT do Cobol 97.

O padrão final, 2002, não foi suportado por praticamente nenhum fornecedor Cobol, exceto Hitachi (http://www.hitachi.com/products/it/software/documents/cobol.pdf).

Umas das coisas interessantes do Cobol 2002 é o suporte a funções definidas pelo usuário, então é possível criar uma função como em outras linguagens:


function-id. mydouble.
environment division.
data division.
linkage section.
01 a-number pic 9(2).
procedure division using a-number returning a-number.
compute a-number = a-number * 2 end-compute
exit function

Utilizando a UDF (User Defined Function) acima.

identification division.
program-id. myfunctiontest.
environment division.
configuration section.
repository. function mydouble .
data division.
working-storage section.
01 num-1 pic 9(2).
01 num-2 pic 9(2).

procedure division.
move 5 to num-1
compute num-2 = mydouble(num-1) end-compute
display num-2
exit program.

Mais informações sobre Hitachi OO Cobol 2002
http://www.hitachi.com/products/it/software/documents/cobol.pdf

Saludos, Emerson

[Kuk]

Eslopes, acabo de confirmar que Visual COBOL de MF lo permite también. Échale un vistazo: User defined functions - Visual COBOL - Forum - Visual COBOL - Micro Focus Community
(http://community.microfocus.com/microfocus/cobol/visual_cobol/f/18/t/9988.aspx)