Apresentação Cobol

  • View
    113

  • Download
    4

Embed Size (px)

Transcript

COBOLCOmmon Business Oriented Language

Hierarquia de um programa COBOL:1. PROGRAMA COBOL 1.1 DIVISION 1.1.1 SECTION 1.1.1.1 PARGRAPH 1.1.1.1.1 SENTENCE 1.1.1.1.1.1 STATEMENT

A escrita do COBOL deve obedecer algumas regras de posicionamento:

....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80 ....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80

O que permitido em cada coluna:

Colunas de 1 a 6: Coluna 7: Colunas de 8 a 11:

Colunas de 12 a 72:

rea de numerao seqencial rea de indicao * - comentrio - - continuao de linha rea A divises, sees, pargrafos e declarao de variveis rea B comandos

O COBOL possui 4 divises: Identification Division Environment Division Data Division Procedure Division

||

....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80IDENTIFICATION DIVISION.PROGRAM-ID. AUTHOR. nome-programa. autor.

|

....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80ENVIRONMENT DIVISION.CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL POINT IS COMMA. INPUT-OUTPUT SECTION. FILE-CONTROL.

|

....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80DATA DIVISION.FILE SECTION. WORKING-STORAGE SECTION.

|

....|....1....|....2....|....3....|....4....|....5....|....6....|....7....|....80PROCEDURE DIVISION.100-PARGRAFO-A. comando comando comando. 200-PARAGRAFO-E. comandos. 300-PARAGRAFO-I. comandos comandos. 400-PARGRAFO-O. comando comando comando. comandos comandos.

Formao das palavras na linguagem COBOL1. 2. 3. 4. 5. 6. No pode ser uma das palavras reservadas; Dever ter no mximo 30 caracteres; Dever ter no mnimo um caracter alfabtico; Dever iniciar com um caracter alfabtico. No poder conter outros caracteres especiais. No pode comear ou terminar com um hfen ou nmero.

Operadores Aritmticos e lgicos no COBOL

1. 2. 3. 4.

ADD +; SUBTRACT - ; MULTIPLY * ; DIVIDE / ;

5. GREATER THAN GT >; 6. LESS THAN =; 10. NOT GREATER THAN 1000 PERFORM ROTINA UNTIL FIM = 1

PROCEDURE DIVISION STOPSTOP Run.