Programação Cobol

O COBOL teve como meta servir como uma linguagem de programação para negócios. Os programas para negócios não precisam de cálculos tão precisos como os encontrados em engenharia, assim o COBOL foi concebido basicamente com as características:

Acesso rápido a arquivos e bases de dados

Atualização rápida de arquivos e bases de dados

Geração de uma grande quantidade de informações

Saída com um formato compreensível ao usuário

O COBOL é geralmente a linguagem escolhida em cálculos financeiros por suportar aritmética inteira aplicada a números muito grandes (milhões, bilhões etc) ao mesmo tempo que é capaz de lidar com números muito pequenos como frações de centavos. Outra característica é a formatação, classificação e geração de relatórios.

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO-WORLD.

PROCEDURE DIVISION.

DISPLAY 'Ola, mundo'.

STOP RUN.

//COBUCLG JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)

//HELOWRLD EXEC COBUCLG,PARM.COB='MAP,LIST,LET'

//COB.SYSIN DD *

001 IDENTIFICATION DIVISION.

002 PROGRAM-ID. 'HELLO'.

003 ENVIRONMENT DIVISION.

004 CONFIGURATION SECTION.

005 SOURCE-COMPUTER. IBM-360.

006 OBJECT-COMPUTER. IBM-360.

0065 SPECIAL-NAMES.

0066 CONSOLE IS CNSL.

007 DATA DIVISION.

008 WORKING-STORAGE SECTION.

009 77 HELLO-CONST PIC X(12) VALUE 'HELLO, WORLD'.

075 PROCEDURE DIVISION.

090 000-DISPLAY.

100 DISPLAY HELLO-CONST UPON CNSL.

110 STOP RUN.

//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR

// DD DSNAME=SYS1.LINKLIB,DISP=SHR

//GO.SYSPRINT DD SYSOUT=A

//

No COBOL há três tipos básicos de dados usados nas instruções:11

Numérico (sinalizado ou não, com decimal ou inteiros)

Alfanumérico

Constantes figurativas

O COBOL consiste basicamente em quatro divisões separadas:12

IDENTIFICATION DIVISION

A IDENTIFICATION DIVISION possui informações documentais, como nome do programa, quem o codificou e quando essa codificação