COBOL

Histórico
• Em 1959, o Pentágono americano exigiu dos vários fornecedores de computadores (IBM, BURROUGHS, RCA, UNIVAC, GE) que, para que eles pudessem continuar participando de licitações, uma linguagem de programação comum, voltada ao comércio, deveria ser definida, e sua sintaxe teria que ser bastante próxima ao inglês
• William Selden e Gertrude Tierney (IBM), Howard
Bromberg e Howard Discount (RCA), e Vernon Reeves e Jean E.
Sammet (Sylvania Electric Products) formaram o comitê do
Pentágono responsável pelo desenvolvimento das especificações dessa nova linguagem.

Histórico
• 6 meses depois, já em 1960, a primeira versão da COmmon
Business Oriented Language foi lançada (COBOL 60), baseada em FLOW-MATIC - inventada por Grace Hopper, e pela linguagem COMTRAN (IBM) - inventada por Bob
Bemer.
• A versão COBOL 60 não durou muito tempo devido a inúmeros bugs que foram rapidamente corrigidos na versão seguinte • A Versão COBOL 61 foi base para os primeiros compiladores de COBOL, e também para sua próxima versão, lançada em 1962, nomeada de COBOL-61 - Versão
Estendida

Fatos Randômicos
• Muito utilizado em computadores de grande porte
(Mainframes)
• Mesmo tendo 53 anos, o COBOL ainda é responsável por aproximadamente 80% das linhas de código no mercado atual, em seu segmento.
• Sua última versão foi lançada no ano de 2002
(COBOL2002)
• Influenciou fortemente as linguagens PL/I,
CobolScript e ABAP.

COBOL vs. C++
COBOL

C

DISPLAY “Texto” AT 1902

PRINTF(“Texto”);

ACCEPT var AT 1902

SCANF(“%d”,var);

77 a PIC 9(003) VALUE ZEROS.

INT a = 0;

01 a PIC A(030) VALUE SPACES.

CHAR a[30];

IF A EQUALS B
DISPLAY “IGUAIS” AT 1902
ELSE
DISPLAY “DIFERENTES” AT 1902

IF(a = b)
PRINTF(“iguais”);
ELSE
PRINTF(“diferentes”);

PERFORM VARYING i FROM 1 BY 1 UNTIL i > 10
END PERFORM

FOR(i=0;i<10;i++){
}

COMPUTE a = b + c OU
ADD b TO c GIVING a

a=b+c

EVALUATE op
WHEN 1
END-EVALUATE

SWITCH(op) {
CASE 1:
BREAK;
}

*

//comentario OU /*comentario */

DISPLAY ERASE

clrscr();