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.