COBOL - DATA DIVISION - Sharing data by using the EXTERNAL clause



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - DATA DIVISION - Sharing data by using the EXTERNAL clause
Enterprise COBOL for z/OS, V4.2, Language Reference

Use a cláusula EXTERNA para permitir que programas e métodos compilados separadamente (incluindo programas em uma sequência em lote) compartilhem itens de dados.
Código EXTERNAL na descrição dos dados do nível 01 na WORKING-STORAGE SECTION (SEÇÃO TRABALHO-ARMAZENAMENTO).

As seguintes regras se aplicam:

  • Os itens subordinados a um item de grupo EXTERNAL são eles mesmos EXTERNAL.
  • Você não pode usar o nome de um item de dados EXTERNAL como o nome de outro item EXTERNAL no mesmo programa.
  • Você não pode codificar a cláusula VALUE para qualquer item de grupo ou item subordinado que seja EXTERNAL.

Na unidade de execução, qualquer programa ou método COBOL que tenha a mesma descrição de dados para o item que o programa que contém o item pode acessar e processar esse item.
Por exemplo, suponha que o programa A tenha a seguinte descrição de dados:

       01  EXT-ITEM1     EXTERNAL     PIC 99.

O programa B pode acessar esse item de dados se ele tiver a descrição de dados idêntica em sua WORKING-STORAGE SECTION.

Qualquer programa que tenha acesso a um item de dados EXTERNO pode alterar o valor desse item.
Portanto, não use esta cláusula para itens de dados que você precisa proteger.



© Copyright IBM Corp.