Cómo actualizar un cursor utilizando COBOL

El cursor es un indicador de posición en la pantalla del terminal de sistema operativo de mainframe z /OS . Permite a los usuarios navegar por un resultado de la consulta , que puede contener varias filas de datos o para hacer todas las filas pertinentes visible. El usuario puede apuntar a una fila en un resultado de consulta que está asociado con un comando SELECT . Este comando vínculos con un cursor y ejecuta el comando OPEN CURSOR . Puede actualizar un cursor en una instrucción SQL mediante la actualización cláusula en su programa COBOL. Instrucciones
1

Type " Editar " en el " > " z /OS consola de administración del sistema del sistema y presione la tecla "Enter" para editar su programa COBOL.
2

Agregue el código siguiente después de la sección "EXEC SQL " de su programa :

EXEC SQL DECLARE cursor2

CURSOR PARA

SELECT PartName , SALESPRICE

DE PURCHDB.PARTS

DONDE PARTNUMBER ENTRE : escasa cuantía AND: . highvalue

PARA ACTUALIZACIÓN DE SALESPRICE

END -EXEC

EXEC SQL OPEN cursor2 FIN - . EXEC

EXEC SQL FETCH cursor2

INTO: PartName : PARTNAMEIND ,

: SALESPRICE : . SALESPRICEIND

END -EXEC

EXEC SQL ACTUALIZACIÓN PURCHDB.PARTS

SET SALESPRICE = : . NEWSALESPRICE

WHERE CURRENT OF cursor2

END -EXEC

" PartName " y " SALESPRICE "son las columnas de las tablas de la " PURCHDB " base de datos de inventario de piezas y puede ser reemplazado con otra base de datos y un conjunto de columnas .
3

Type" Guardar " en la consola y pulse la tecla" Enter "para actualizar el operador CURSOR para la" columna SALESPRICE " en su programa COBOL.