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.