tipo " Modifica" in " > " console di gestione del sistema z /OS prompt e premere il tasto "Enter" per modificare il programma COBOL .
2
Aggiungere il seguente codice dopo la sezione " EXEC SQL " del vostro programma :
EXEC SQL DECLARE Cursor2
CURSOR FOR
SELEZIONA NOMEPARTE , SALESPRICE
DA PURCHDB.PARTS
DOVE PARTNUMBER TRA : valore limitato E : . HIGHVALUE
FOR UPDATE OF SALESPRICE
END - EXEC
EXEC SQL APERTO Cursor2 END - . EXEC
EXEC SQL FETCH Cursor2
INTO : NOMEPARTE : PARTNAMEIND , Stati
: Prezzo di vendita : . SALESPRICEIND
END - EXEC
EXEC SQL UPDATE PURCHDB.PARTS
SET SALESPRICE = : . NEWSALESPRICE
WHERE CURRENT OF Cursor2
END - EXEC
" NOMEPARTE " e " SALESPRICE "sono le colonne della tabella del" PURCHDB " database di inventario delle parti e può essere sostituito con un altro database e set di colonne .
3
tipo " Salva " sulla console e premere il tasto" Invio " per aggiornare l'operatore cursore per il " colonna SALESPRICE " nel programma COBOL .
Programmazione © www.354353.com