COBOL - Comando WRITE - www.cadcobol.com.br
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.