Menu

COBOL - Divisão de Ambiente

A divisão de identificação dá uma introdução sobre o programa. Agora precisamos definir os detalhes dependentes da máquina para nosso programa. Esses detalhes são fornecidos na ENVIRONMENT DIVISION. É uma divisão opcional.

A ENVIRONMENT DIVISION deve seguir a IDENTIFICATION DIVISION no programa COBOL. Entre todas as divisões, esta é a divisão mais dependente da máquina. O computador e todos os dispositivos periféricos requeridos pelo programa são descritos nesta divisão.

A ENVIRONMENT DIVISION em 2 seções:
  1. Configuration SECTION
  2. INPUT-OUTPUT SECTION
Dado abaixo é o exemplo para a seção de configuração:

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-I.
OBJECT-COMPUTER. IBM-I.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.

Os parágrafos na Seção de Configuração são fornecidos nas linhas seguintes:
  • SOURCE-COMPUTER Parágrafo:
    • O computador no qual o programa fonte deve ser compilado.
    • O nome do computador em um nome de sistema na forma de IBM-3090

  • OBJECT-COMPUTER Parágrafo:
    • Identifica o computador no qual o programa objeto deve ser executado.
    • A cláusula PROGRAM COLLATING SEQUENCE especifica que a seqüência de intercalação usada no programa é a seqüência de intercalação associada ao nome do alfabeto especificado, que deve ser definido no parágrafo SPECIAL-NAMES.
    • A sequência de agrupamento do programa é usada para determinar o valor de verdade das seguintes comparações não numéricas:
      • Aqueles explicitamente especificados nas condições de relação.
      • Aqueles explicitamente especificados em condições de nome de condição.


  • O parágrafo SPECIAL-NAMES: Pode ter entradas, que são dependentes do implementador. Assim como a MOEDA pode ser alterada ou o PONTO DECIMAL pode ser VÍRGULA.
INPUT-OUTPUT SECTION:
Esta seção é usada principalmente para codificar o parágrafo FILE-CONTROL.

FILE-CONTROL: Este parágrafo é utilizado para associar os arquivos a serem utilizados no programa com dispositivos de E/S específicos.

Por exemplo:

INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT INPUT-FILE ASSIGN TO INPUT-FL
  FILE-STATUS IS FS-STATUS.

No exemplo, INPUT-FILE é o nome do arquivo a ser usado em todo o programa. INPUT-FL é um nome de sistema, que será usado para vincular o arquivo a algo no sistema operacional, e deverá ser apontado com um DDNAME no JCL que irá executar o programa.
FILE-STATUS indica a variável que irá receber os códigos de retorno no manuseio do arquivo.