COBOL - Comando WRITE - www.cadcobol.com.br


Volta a página anterior

Volta ao Menu Principal


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

WRITE - Formato 1

  • QSAM ou SAM Arquivos sequenciais

QSAM or SAM são arquivos de SAM organizados sequencialmente. As frases ADVANCING e END-OF-PAGE controlam o posicionamento vertical de cada linha a ser impressa.

record-name
      deve ser definido na FD da Data Division. Record-name deve ser qualificado. não pode ser associado com um arquico SORT ou MERGE.

FROM
      O resultado da execução do comando WRITE com FROM e o identifier-1 equivale a seguinte execução:

      MOVE identifier-1 TO record-name.
      WRITE record-name.

      A declaração MOVE é executada de acordo com as suas regras sem a cláusula CORRESPONDING.

identifier-1
   Deve ser da seguinte maneira:
      o nome de uma entrada da Working-Storage Section ou Linkage Section
      o nome de um registro descrito previamente em outro arquivo aberto
      Identifier-1 and record-name não podem ser referenciados na mesma area
      Identifier-1 pode ser um floating-point ou um item de dados DBCS.

identifier-2
      Deve ser um item de dados inteiro.

O tamanho máximo do registro é estabelecido na ocasião da criação do arquivo e não pode ser mudado subseqüentemente.

Depois que a declaração WRITE é executada, o registro lógico não está mais disponível em record-name, a menos que:
      O arquivo associado consta da cláusula SAME RECORD AREA (neste caso, o registro também está disponível como um registro dos outros arquivos       constantes da mesma cláusula), ou
      O comando WRITE foi mal sucedido por causa de uma violação de limite.

Em qualquer um destes dois casos, o registro lógico está ainda disponível dentro do record-name.

O indicador da posição do arquivo não é afetado através da execução do comando WRITE.

O número de posições exigidas para armazenar o registro em um arquivo pode ou não ser igual ao número de caráteres definido na descrição lógica do mesmo dentro do programa COBOL.

Se a cláusula FILE STATUS for especificada no File-Control, o status da mesma é modificada quando da execução do comando WRITE para verificar se o mesmo obteve sucesso ou não na execução.

O comando WRITE somente poderá ser executado para arquivos QSAM abertos sequencialmente como OUTPUT ou EXTEND e para arquivos SAM abertos como OUTPUT.


Sintaxe.