De cursor is een positie-indicator op de terminal scherm van z /OS mainframe computer besturingssysteem. Het stelt gebruikers in staat om een query resultaat dat meerdere rijen gegevens bevatten of alle relevante rijen zichtbaar te maken navigeren . De gebruiker kan wijzen op een rij in een query resultaat dat is gekoppeld aan een SELECT commando . Dit commando banden met een cursor en voert de OPEN CURSOR commando . U kunt een cursor in een SQL statement bijwerken met behulp van de UPDATE VAN clausule in uw COBOL programma. Instructies
Type " Edit" op de " > " z /OS-systeem management console 1 prompt en druk op de " Enter" -toets om uw COBOL programma te bewerken . Kopen van 2 Voeg de volgende code na de " EXEC SQL " sectie van uw programma : EXEC SQL
DECLARE CURSOR2 CURSOR
voor SELECT PartName , Verkoopadviesprijs
VANAF PURCHDB.PARTS
WAAR PARTNUMBER TUSSEN : lowvalue EN : . HIGHVALUE
VOOR UPDATE VAN Verkoopadviesprijs
END - EXEC
EXEC SQL OPEN CURSOR2 END - . EXEC EXEC SQL
FETCH CURSOR2
INTO : PartName : PARTNAMEIND ,
: Verkoopprijs : . SALESPRICEIND
END - EXEC
EXEC SQL UPDATE PURCHDB.PARTS SET
Verkoopadviesprijs = :
De " PartName " en " Verkoopadviesprijs NEWSALESPRICE
WHERE CURRENT OF CURSOR2 END - EXEC
. " zijn de kolommen van de tabel van de " PURCHDB "inventaris onderdelen -database en kan worden vervangen door een andere database en set kolommen .
Type 3 " Opslaan " op de console en druk op de " Enter ' toets om de cursor exploitant voor het actualiseren " verkoopprijs " kolom in het COBOL -programma .
|
