Cobol Foro - [Noticia] OO Cobol 2002

Cobol Foro (https://www.cobolforo.es/index.php)

- Object-Oriented COBOL (https://www.cobolforo.es/forumdisplay.php?f=37)

- - [Noticia] OO Cobol 2002 (https://www.cobolforo.es/showthread.php?t=214)

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

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

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/s...ents/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:

Código COBOL:

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.

Código COBOL:

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/s...ents/cobol.pdf

Saludos, Emerson

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