Next

Sequencias

Sintaxe

Next VALUE valor
SEQUENCE
nome-da-sequencia
[ INCREMENT incremento ]
[ GET | SET | DROP ]
[ STATUS ]

Argumentos

valor

Novo valor obtido da sequencia com a opção GET ou valor a inicializar a sequencia com a função SET .

nome-da-sequencia

Identificação da sequencia de até 30 caracteres

incremento

Valor definido na sequencia a ser somado ao valor corrente para obter o próximo valor.

GET

Obtêm o próximo valor da sequencia. Caso a sequencia não exista, será criada uma nova contagem de 1 em 1 automaticamente ou incrementada com o valor especificado em incremento. Se a sequencia já existir será usado o incremento definido no momento de sua criação independentemente de ter sido ou não especificado nesse comando.

SET

Criar ou reiniciar sequencia. O valor inicial padrão é 0 e o incremento 1.

DROP

Remove sequencia.

STATUS

Retorna o status da operação, se bem sucedida retornará zero. Caso ocorra alguma falha no processo, retornará o file status da operação de I/O.

Exemplo

Codificação COBOL

EXEC COBOLware Next
           VALUE
CODIGO-PEDIDO
           SEQUENCEPEDIDOS"
 END-EXEC