Cómo actualizar un cursor utilizando COBOL

El cursor es un indicador de posición en la pantalla del terminal del sistema operativo del ordenador / sistema operativo de mainframe z. Permite a los usuarios navegar por un resultado de consulta que puede contener varias filas de datos o para hacer todas las filas correspondientes 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. Se puede actualizar un cursor en una instrucción SQL mediante la actualización del cláusula en su programa COBOL.

Instrucciones

1 Tipo "Editar" en el símbolo ">" z / OS gestión del sistema de la consola y pulse 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 FOR

PartName SELECT, SALESPRICE

DE PURCHDB.PARTS

DONDE PARTNUMBER ENTRE: Y de escasa cuantía: HIGHVALUE

DE ACTUALIZACIÓN DE SALESPRICE

END-EXEC.

EXEC SQL OPEN cursor2 END-EXEC.

EXEC SQL FETCH cursor2

EN: partName: PARTNAMEIND,

: SALESPRICE: SALESPRICEIND

END-EXEC.

PURCHDB.PARTS ACTUALIZACIÓN EXEC SQL

SALESPRICE SET =: NEWSALESPRICE

WHERE CURRENT OF cursor2

END-EXEC.

El "partName" y "SALESPRICE" son las columnas de la tabla del "PURCHDB" base de datos de inventario de piezas y pueden ser reemplazados con una base de datos diferente y un conjunto de columnas.

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