Saltar navegação

S02 - SET

Conceitos

O índice especial definido pela cláusula INDEXED BY nas tabelas indexadas não é uma variável padrão do Cobol.

Neste caso não de pode usar as instruções MOVE, ADD, SUBTRACT para alterar seu valor.

Utiliza-se a instrução SET com os seguintes formatos:


Formato 1 - mover um valor para o índice:

SET nome-do-índice TO nome-da-variável ou literal


Formato 2 - copiar o valor do índice para uma variável:

SET nome-da-variável TO nome-do-índice


Formato 3 - somar um valor ao índice:

SET nome-do-índice UP BY nome-da-variável ou literal


Formato 4 - subtrair um valor do índice:

SET nome-do-índice DOWN BY nome-da-variável ou literal


Considerações

O conteúdo da variável ou o literal utilizados deverão ser ou conter números inteiros.

Licença: licença proprietária