COBOL - Estrutura do Programa

---

Um programa em COBOL estrutura consiste de divisões como mostrado na imagem a seguir:

Uma breve introdução destas divisões é dado abaixo:

• As seções são a subdivisão da lógica lógica do programa. Uma seção é uma coleção de números.

• Os pontos são a subdivisão de uma seção ou divisão. Ele é definido pelo utilizador ou um nome predefinido seguido por um período, e consiste de zero ou mais frases/entradas.

• As sentenças são a combinação de um ou mais comandos. Frases aparecem apenas no processo divisão. A frase deve terminar com um ponto final.

• As declarações são significativos em COBOL declaração de que faz parte do processamento.

• Personagens são os mais baixos da hierarquia e não pode ser divisível.

Você pode co-relacionar os termos acima referidos com o programa em COBOL no exemplo a seguir:

PROCEDURE DIVISION.
A0000-FIRST-PARA SECTION.
FIRST-PARAGRAPH.
ACCEPT WS-ID            - Statement-1  -----|
MOVE '10' TO WS-ID      - Statement-2       |-- Sentence - 1
DISPLAY WS-ID           - Statement-3  -----|
.

As divisões

Programa em COBOL é composto por quatro divisões.

Divisão Identificação

É o primeiro e único obrigatório divisão de cada programa em COBOL. O programador e o compilador usar esta divisão para identificar o programa. Nesta divisão, PROGRAMA-ID é o único obrigatório. PROGRAMA-ID especifica o nome do programa que pode ser composto por 1 a 30 caracteres.

Tente o seguinte exemplo usando a tentar a opção on-line.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to Tutorialspoint'.
STOP RUN.

Abaixo está o JCL para executar o programa em COBOL.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:

Welcome to Tutorialspoint

Meio Ambiente Divisão

Meio Ambiente divisão é utilizada para especificar arquivos de entrada e saída para o programa. É composto de duas seções:

• Seção de configuração fornece informações sobre o sistema no qual o programa está escrito e executado. Ela consiste de dois pontos:

  Computador de origem : Sistema utilizado para compilar o programa.

  Objeto computador : Sistema utilizado para executar o programa.

• Insumo seção fornece informações sobre os arquivos que serão usados no programa. Ela consiste de dois pontos:

  Controle de arquivo : fornece informações sobre conjuntos de dados externos utilizados no programa.

  I-O control : fornece informações de arquivos utilizados no programa.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
   SOURCE-COMPUTER. XXX-ZOS.
   OBJECT-COMPUTER. XXX-ZOS.

INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO DDNAME
   ORGANIZATION IS SEQUENTIAL.

Divisão Dados

Os dados divisão é utilizada para definir as variáveis usadas no programa. É composto de quatro seções:

• Seção de arquivo é usado para definir a estrutura do registro do arquivo.

• Seção Working-Storage é usado para declarar variáveis temporárias e estruturas de arquivos que são usados no programa.

• Seção Local-Storage Working-Storage é semelhante à secção. A única diferença é a de que as variáveis serão atribuídos e inicializado cada vez início programa de execução.

• Capítulo articulação é usada para descrever os dados nomes que são recebidas de um programa externo.

Programa em COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.

   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO INPUT.
          ORGANIZATION IS SEQUENTIAL.
          ACCESS IS SEQUENTIAL.
          
DATA DIVISION.
   FILE SECTION.
   FD FILEN
   01 NAME PIC A(25).
   
   WORKING-STORAGE SECTION.
   01 WS-STUDENT PIC A(30).
   01 WS-ID PIC 9(5).

   LOCAL-STORAGE SECTION.
   01 LS-CLASS PIC 9(3).
   
   LINKAGE SECTION.
   01 LS-ID PIC 9(5).
   
PROCEDURE DIVISION.
   DISPLAY 'Executing COBOL program using JCL'.
STOP RUN.

O JCL para executar o programa em COBOL é a seguinte:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//INPUT DD DSN=ABC.EFG.XYZ,DISP=SHR

Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:

Executing COBOL program using JCL

Divisão Processo

Procedimento divisão é utilizada para incluir a lógica do programa. Ela consiste de instruções executáveis utilizando variáveis definidas nos dados divisão. Nesta divisão, número e nomes de seção são definidos pelo usuário.

Deve haver pelo menos uma declaração no processo divisão. A última declaração, ao final da execução, esta divisão é parar o que é usado no chamando programas ou SAIR DO PROGRAMA que é utilizado no chamado programas.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NAME PIC A(30).
   01 WS-ID PIC 9(5) VALUE '12345'.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   DISPLAY 'Hello World'.
   MOVE 'TutorialsPoint' TO WS-NAME.
   DISPLAY "My name is : "WS-NAME.
   DISPLAY "My ID is : "WS-ID.
STOP RUN.

JCL para executar o programa em COBOL:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:

Hello World
My name is : TutorialsPoint
My ID is : 12345