- 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.