ÈÑÏÎËÜÇÎÂÀÍÈÅ SQLCODE ÄËß ÓÏÐÀÂËÅÍÈß ÖÈÊËÀÌÈ
Òåïåðü ìû ìîæåì óñîâåðøåíñòâîâàòü íàø ïðåäûäóùèé ïðèìåð äëÿ âûõîäà èç öèêëà àâòîìàòè÷åñêè, ïðè óñëîâèè ÷òî êóðñîð ïóñò, âñå ñòðîêè âûáðàíû èëè ïðîèçîøëà îøèáêà:
Look_at_more: = lhe; EXEC SQL OPEN CURSOR Londonsales; while Look_at_more and SQLCODE = O do begin EXEC SQL FETCH London$ales INTO :id_num, :Salesperson, :loc, :comm; writeln (id_num, Salesperson, loc, comm); writeln ('Do you want to see more data? (Y/N)'); readln (response); If response = 'N' then Look_at_more: = Fabe; end; EXEC SQL CLOSE CURSOR Londonsales;
