Der Cursor ist eine Position, Anzeige auf dem Terminal-Bildschirm von z /OS- Mainframe- Computer-Betriebssystem . Es ermöglicht Benutzern, eine Abfrage-Ergebnis , die mehrere Reihen von Daten enthalten kann, oder , um alle relevanten Zeilen sichtbar zu navigieren. Der Benutzer kann eine Zeile in einer Ergebnismenge , die mit einem SELECT-Befehl zugeordnet ist, zu zeigen. Dieser Befehl Links mit einem Cursor und führt den Befehl OPEN CURSOR . Sie können einen Cursor in einer SQL-Anweisung mithilfe der UPDATE OF-Klausel in Ihrem COBOL-Programm zu aktualisieren. Anleitung
1
Typ "Bearbeiten" in der " > " z /OS-System -Management- Konsole sehen und drücken Sie die " Enter"-Taste , um Ihre COBOL-Programm bearbeiten.
2
Fügen Sie den folgenden Code nach dem "EXEC SQL " in Ihrem Programm :
EXEC SQL DECLARE CURSOR 2
CURSOR FOR SELECT
TEILENAME , Verkaufspreis
VON PURCHDB.PARTS
WHERE PARTNUMBER ZWISCHEN : Geringwertige UND : . HIGHVALUE
FOR UPDATE OF Verkaufspreis
END - EXEC
EXEC SQL OPEN CURSOR 2 END - . EXEC
EXEC SQL FETCH INTO CURSOR 2
: TEILENAME : PARTNAMEIND ,
: Verkaufspreis : . SALESPRICEIND
END - EXEC
EXEC SQL UPDATE PURCHDB.PARTS
SET = Verkaufspreis : . NEWSALESPRICE
WHERE CURRENT OF CURSOR 2
END - EXEC
" TEILENAME " und " Verkaufspreis " sind die Spalten der Tabelle der " PURCHDB " Inventar Teile Datenbank und kann mit einer anderen Datenbank und eine Reihe von Säulen ersetzt werden.
3
Typ " Speichern " auf der Konsole und drücken Sie die " Enter "-Taste , um den Cursor Betreiber für das Update " Verkaufspreis " Spalte in der COBOL-Programm .
