Enterprise COBOL for z/OS, V4.2, Language Reference

Em português: em inglês

Um item de dados definido com a frase INDEX é um item de dados de índice.

Um item de dados de índice é um item elementar de 4 bytes que pode ser usado para salvar valores de nome de índice para referência futura.
Um item de dados de índice não está necessariamente conectado a nenhuma tabela específica.
Através de uma instrução SET, um item de dados de índice pode ser atribuído a um valor de nome de índice.
Esse valor corresponde ao número da ocorrência em uma tabela.

As referências diretas a um item de dados de índice podem ser feitas apenas em uma instrução SEARCH, uma instrução SET, uma condição de relação, a frase USING do cabeçalho da divisão de procedimento ou a frase USING da instrução CALL ou ENTRY.

Um item de dados de índice pode fazer parte de um item de grupo alfanumérico referenciado em uma instrução MOVE ou em uma instrução de entrada / saída.

Um item de dados de índice salva valores que representam ocorrências da tabela, mas não é necessariamente definido como parte de qualquer tabela.
Não há conversão de valores quando um item de dados de índice é referenciado nas seguintes circunstâncias:

• diretamente em uma instrução SEARCH ou SET
• indiretamente em uma declaração MOVE
• indiretamente em uma instrução de entrada ou saída

Um item de dados de índice não pode ser uma variável condicional.

As cláusulas DATA FORMAT, JUSTIFIED, PICTURE, BLANK WHEN ZERO ou VALUE não podem ser usadas para descrever um item de grupo ou itens elementares descritos na cláusula USAGE IS INDEX.

SINCRONIZADO pode ser usado com USAGE IS INDEX para obter um uso eficiente do item de dados do índice.

Em inglês:

A data item defined with the INDEX phrase is an index data item.

An index data item is a 4-byte elementary item that can be used to save index-name values for future reference.
An index data item is not necessarily connected with any specific table.
Through a SET statement, an index data item can be assigned an index-name value. Such a value corresponds to the occurrence number in a table.

Direct references to an index data item can be made only in a SEARCH statement, a SET statement, a relation condition, the USING phrase of the procedure division header, or the USING phrase of the CALL or ENTRY statement.

An index data item can be part of an alphanumeric group item that is referenced in a MOVE statement or an input/output statement.

An index data item saves values that represent table occurrences, yet is not necessarily defined as part of any table.
There is no conversion of values when an index data item is referenced in the following circumstances:

• directly in a SEARCH or SET statement
• indirectly in a MOVE statement
• indirectly in an input or output statement

An index data item cannot be a conditional variable.

The DATE FORMAT, JUSTIFIED, PICTURE, BLANK WHEN ZERO, or VALUE clauses cannot be used to describe a group item or elementary items described with the USAGE IS INDEX clause.

SYNCHRONIZED can be used with USAGE IS INDEX to obtain efficient use of the index data item.