Il cursore è un indicatore di posizione sullo schermo del terminale di / OS mainframe sistema operativo del computer az. Esso consente agli utenti di navigare risultato di una query che può contenere più righe di dati o per effettuare tutte le righe rilevanti visibile. L'utente può indicare una riga in un risultato di query che è associato con un comando SELECT. Questo è un collegamento di comando con un cursore ed esegue il comando OPEN CURSOR. È possibile aggiornare un cursore in un'istruzione SQL utilizzando l'aggiornamento della clausola nel programma COBOL.

istruzione

1 Tipo "Modifica" al prompt ">" z / OS di gestione del sistema della console e premere il tasto "Enter" per modificare il vostro programma COBOL.

2 Aggiungere il seguente codice dopo la sezione "EXEC SQL" del programma:

EXEC SQL DECLARE CURSOR2

cursore FOR

SELEZIONE nomeparte, Prezzo di vendita

DA PURCHDB.PARTS

DOVE PARTNUMBER TRA: valore limitato E: HIGHVALUE

PER AGGIORNAMENTO DI Prezzo di vendita

END-EXEC.

EXEC SQL APERTO CURSOR2 END-EXEC.

EXEC SQL FETCH CURSOR2

IN: nomeparte: PARTNAMEIND,

: Prezzo di vendita: SALESPRICEIND

END-EXEC.

PURCHDB.PARTS UPDATE EXEC SQL

Prezzo di vendita SET =: NEWSALESPRICE

WHERE CURRENT OF CURSOR2

END-EXEC.

Il "nomeparte" e "Prezzo di vendita" sono le colonne della tabella del database delle parti inventario "PURCHDB" e possono essere sostituiti con un altro database e set di colonne.

3 Tipo "Salva" sulla console e premere il tasto "Enter" per aggiornare l'operatore CURSOR per la colonna "Prezzo di vendita" nel programma COBOL.