O cursor é um indicador de posição na tela do terminal do z /OS de mainframe sistema operacional do computador . Ele permite aos usuários navegar em um resultado de consulta que pode conter várias linhas de dados ou para fazer todas as linhas relevantes visível. O utilizador pode apontar para uma linha em resultado da consulta que está associado com um comando SELECT . Este comando ligações com um cursor e executa o comando OPEN cursor. Você pode atualizar um cursor em uma instrução SQL usando o UPDATE DE cláusula em seu programa COBOL. Instruções
1 Tipo

" Editar" no ">" prompt do console de gerenciamento do sistema z /OS e pressione a tecla "Enter" para editar o seu programa COBOL.
2

Adicione o seguinte código após a seção "SQL EXEC " do seu programa :

EXEC SQL DECLARE CURSOR Cursor2

para meu

Selecione NOMEPEÇA , SALESPRICE

DE PURCHDB.PARTS

ONDE PARTNUMBER ENTRE: LOWVALUE E : . alto valor

FOR UPDATE OF SALESPRICE

END -EXEC

EXEC SQL ABERTO Cursor2 FINAL . EXEC

EXEC SQL FETCH Cursor2

INTO : NOMEPEÇA : PARTNAMEIND ,

: SALESPRICE : . SALESPRICEIND

END -EXEC

PURCHDB.PARTS ATUALIZAÇÃO EXEC SQL

SET SALESPRICE = : . NEWSALESPRICE

WHERE CURRENT OF Cursor2

END -EXEC

O " NOMEPEÇA " e " SALESPRICE " são as colunas da tabela do " PURCHDB "banco de dados de peças de estoque e pode ser substituído por um banco de dados diferente e um conjunto de colunas.
3

Digite em" Salvar " no console e pressione o botão" Enter " para atualizar o operador CURSOR para a" coluna SALESPRICE " em seu programa COBOL.