COBOL - Include Statement

A instrução INCLUDE insere o código do aplicativo, incluindo declarações e instruções, em um programa de origem.

Regras:

1. INCLUIR deve ser especificado em DIVISÃO DE DADOS e DIVISÃO DE PROCEDIMENTO.
   
   
2. INCLUDE deve conter instruções do idioma de origem ou quaisquer instruções SQL.
   
   
3. Identifica um membro a ser incluído apenas na biblioteca de inclusão configurada.

Syntax:

INCLUDE [SQLCA / SQLDA / member-name]

Exempl: Incluir uma área de comunicação SQL

EXEC SQL
  INCLUDE SQLCA
END-EXEC; 

Durante o processo de pré-compilação, a instrução INCLUDE é substituída pelas instruções em member.

Veremos outro uso de include.

A instrução ++INCLUDE é usada para incluir todos os registros de dados de um arquivo de origem em outro arquivo de origem no momento da compilação.

Syntax:

++INCLUDE member-name

Regras:

• ++INCLUDE deve começar na coluna 8, deve estar em caixa alta e deve ser seguido de um ou mais espaços.
  
  
• Text-name define um nome de arquivo externo exclusivo que está em conformidade com as regras para palavras definidas pelo usuário.
  
  
• Essa instrução especial não faz parte da linguagem COBOL. Deve, em sua totalidade, estar contido em uma única linha e deve estar em caixa alta.
  
  
• member-name determina o arquivo de origem COBOL a ser incluído neste local no código-fonte.
  
  
• Qualquer outro texto que apareça na linha é tratado como um comentário.

Exemplo:

O exemplo abaixo explicará como a inclusão do código cobol funcionará.

INCLCODE.INCLUDE será incluído no programa principal durante o processo de pré-compilação. Então o programa será compilado como um único pedaço de código

O exemplo abaixo explicará como a inclusão do código cobol funcionará.

MOVE SPACES TO NAME.
ACCEPT NAME.

COBOL Main Program:

IDENTIFICATION DIVISION.
PROGRAM-ID. COBINCLD.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAME PIC X(10) VALUE SPACES.

PROCEDURE DIVISION.

++INCLUDE INCLCODE 

    DISPLAY 'ENTERED NAME : ' NAME.
    STOP RUN.

Este é um programa COBOL simples. você pode adicionar qualquer número de linha em incluir membro da biblioteca.