CICS - READNEXT / READPREV

Quando emitimos um comando STARTBR, ele não disponibiliza os registros. Apenas informa por onde começar a ler o arquivo. Para obter o primeiro registro e a sequência depois disso, precisamos usar o comando READNEXT.

• Os parâmetros FILE, INTO e LENGTH são definidos da mesma forma que no comando READ. Precisamos apenas do parâmetro FILE porque o CICS nos permite navegar em vários arquivos de uma vez e isso indica qual deles queremos ler em seguida.

• RIDFLD aponta para uma área de dados na qual o CICS "realimentará" a chave do registro que acabou de ler.

• O comando READPREV é quase como READNEXT, exceto que nos permite retroceder por meio de um conjunto de dados em vez de avançar.

Sintaxe

A seguir está a sintaxe do comando READNEXT / READPREV -

EXEC CICS READNEXT/READPREV
   FILE ('name')
   INTO (data-value)
   LENGTH (data-value)
   RIDFLD (data-value)
END-EXEC