COBOL - DATA DIVISION - DDE - USAGE clause - POINTER



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

COBOL - DATA DIVISION - DDE - USAGE clause - POINTER
Enterprise COBOL for z/OS, V4.2, Language Reference

Um item de dados definido com USAGE IS POINTER é um item de dados do ponteiro.
Um item de dados do ponteiro é um item elementar de 4 bytes.

Você pode usar itens de dados do ponteiro para realizar o endereçamento base limitado.
Os itens de dados do ponteiro podem ser comparados quanto à igualdade ou movidos para outros itens do ponteiro.

Um item de dados do ponteiro pode ser usado apenas:

  • Em uma instrução SET (apenas no formato 5)
  • Em uma condição de relação
  • Na frase USING de uma instrução CALL, uma instrução ENTRY ou o procedure division header

Os itens de dados do ponteiro podem fazer parte de um grupo alfanumérico referido em uma instrução MOVE ou em uma instrução de entrada/saída.
No entanto, se um item de dados do ponteiro fizer parte de um grupo, não haverá conversão de valores quando a instrução for executada.

Um item de dados do ponteiro pode ser o assunto ou objeto de uma cláusula REDEFINES.

SYNCHRONIZED pode ser usado com USAGE IS POINTER para obter um uso eficiente do item de dados do ponteiro.

Uma cláusula VALUE para um item de dados do ponteiro pode conter apenas NULL ou NULLS.

Um item de dados do ponteiro não pode ser uma variável condicional.

Um item de dados do ponteiro não pertence a nenhuma classe ou categoria.

As cláusulas DATA FORMAT, JUSTIFIED, PICTURE e BLANK WHEN ZERO não podem ser usadas para descrever itens de grupo ou elementares definidos com a cláusula USAGE IS POINTER.

Os itens de dados do ponteiro são ignorados no processamento de uma frase CORRESPONDING.

Um item de dados do ponteiro pode ser gravado em um conjunto de dados, mas, após a leitura subsequente do registro que contém o ponteiro, o endereço contido pode não representar mais um ponteiro válido.

USAGE IS POINTER está implicitamente especificado para o registro especial ADDRESS OF. Para obter mais informações, consulte Using tables (arrays) and pointers.



© Copyright IBM Corp.