Le curseur est un indicateur de position sur l'écran du terminal de système d'exploitation informatique mainframe z /OS . Il permet aux utilisateurs de naviguer d'un résultat de requête qui peut contenir plusieurs lignes de données ou de prendre toutes les lignes pertinentes visible. L'utilisateur peut pointer sur une ligne dans un résultat de requête qui est associé à une commande SELECT . Cette commande liens avec un curseur et exécute la commande Ouvrir le curseur. Vous pouvez mettre à jour un curseur dans une instruction SQL en utilisant la mise à jour clause dans votre programme COBOL . Instructions
1

type " Modifier " dans le ">" console de gestion système z /OS invite et appuyez sur la touche "Entrée" pour modifier votre programme COBOL .
2 < p > Ajoutez le code suivant après la section "EXEC SQL" de votre programme :

EXEC SQL DECLARE CURSOR2

CURSOR pour ma

SELECT partName , le Prix

D' PURCHDB.PARTS

OÙ PARTNUMBER ENTRE: ET de faible valeur : . HIGHVALUE

FOR UPDATE OF Le Prix

END-EXEC

EXEC SQL OUVERT CURSOR2 FIN - . EXEC

EXEC SQL FETCH CURSOR2

EN : partName : PARTNAMEIND ,

Photos : Prix de vente : . SALESPRICEIND

END-EXEC

EXEC SQL UPDATE PURCHDB.PARTS

SET Prix de vente = : . NEWSALESPRICE

WHERE CURRENT OF CURSOR2

END-EXEC

" partName " et " Le Prix »sont les colonnes de la table de la " PURCHDB " base de données des pièces de l'inventaire et peut être remplacé par une base de données et un ensemble de colonnes différent .
3 type de

" Enregistrer " sur la console et appuyez sur la touche " Enter »pour mettre à jour l'opérateur CURSOR pour la colonne" le Prix " dans votre programme COBOL .