Quarta, Dezembro 13, 2017

Uma instrução CLOSE pode ser executada somente para um arquivo em um modo aberto. Após a execução bem-sucedida de uma instrução CLOSE sem a frase REEL ou UNIT:

  • A área de registro associada ao nome do arquivo-1 não está mais disponível. A execução sem êxito de uma instrução CLOSE deixa a disponibilidade dos dados de registro indefinidos.
  • Uma instrução OPEN para o arquivo deve ser executada antes de qualquer outra instrução de entrada / saída.

As seguintes considerações se aplicam ao uso da instrução CLOSE:

  • Se o arquivo estiver em um status aberto e a execução de um CLOSE Declaração não é bem-sucedida, o EXCEPTION / ERROR procedimento (se especificado) para este arquivo é executado.
  • Se uma instrução CLOSE sem uma frase REEL ou UNIT não tiver sido processada antes de ser atingido o fim da unidade de execução, ou antes do programa ser cancelado, o arquivo será fechado implicitamente.
  • Se a cláusula SELECT OPTIONAL for especificada na entrada de controle de arquivo para esse arquivo e o arquivo não estiver presente no tempo de execução, o processamento padrão de fim de arquivo não será executado.
  • Se a cláusula FILE STATUS for especificada na entrada FILE-CONTROL, a chave de status associada será atualizada quando a instrução CLOSE for executada. Para mais informações sobre a chave de estado, consulte Instalações de Processamento comuns .
  • Para arquivos relativos Somente: Para estender um limite de arquivo relativo para além do número atual de registros e no tamanho do arquivo, use o comando INZPFM para adicionar registros excluídos antes de processar o arquivo. Você precisará fazer isso quando mais registros precisam ser adicionados ao arquivo e o status do arquivo 0Q foi recebido. Qualquer tentativa de estender um arquivo relativo além de seu tamanho atual resulta em uma violação de limite.

 

WITH LOCK

COBOL garante que este ficheiro não pode ser reaberto por este programa COBOL durante este processamento do programa. Arquivos externos fechados com LOCK não podem ser abertos novamente dentro da unidade de execução. Isso inclui outros programas que definiram o arquivo externo.

A Historia do cobol

A Historia do cobol

COBOL significa Common Business Oriented Language, isto é, Linguagem Comum Orientada para o Comércio. O Cobol é um subconjunto de palavras da língua inglesa, ou seja, um número limitado de palavras inglesas sujeita a uma sintaxe própria. É uma linguagem que lida com problemas comerciais, envolvendo arquivos de dados de apreciáveis proporções (Seqüências/Vsam/Banco de dados DB2).   História: Criado por um comitê de investigadores de várias instituições civis e governamentais durante o segundo semestre de 1959. As especificações eram em grande parte inspiradas na linguagem de programação FLOW-MATIC inventada pela Grace Hopper - referida como "a mãe da língua COBOL." Em 8 de abril de...

Vagas

Em breve estaremos divulgando vagas de COBOL/CICS/DB2

Camisetas

IDENTIFICATION DIVISION

IDENTIFICATION DIVISION: Possui informações documentais, como nome do programa, quem o codificou e quando essa codificação foi realizada.    PROGRAM-ID nome do programa. (Obrigatório) AUTHOR nome do desenvolvedor. (Obrigatório) INSTALLATION nome da empresa ou local de geração do...

ENVIRONMENT DIVISION

ENVIRONMENT DIVISION: é a segunda divisão de um programa COBOL. Descreve o computador e os periféricos que serão utilizados pelo programa, fazendo ligação com o ambiente operacional onde o programa...

DATA DIVISION

DATA DIVISION: É a terceira divisão de um programa COBOL, descreve os arquivos de entrada e saída que serão usadas pelo programa. Também define as áreas de trabalho e constantes...

PROCEDURE DIVISION

PROCEDURE DIVISION: Contém o código que irá manipular os dados descritos na DATA DIVISION. É nesta divisão que o desenvolvedor descreverá a lógica do programa. Consiste em instruções executáveis ​​usando...

Comandos