SQL insert cursors / Examples |
MAIN DEFINE name CHAR(30) DATABASE stock DECLARE ic CURSOR WITH HOLD FOR INSERT INTO item VALUES (1,name) OPEN ic LET name = "Item 1" PUT ic BEGIN WORK UPDATE refs SET name="xyz" WHERE key=123 COMMIT WORK PUT ic PUT ic FLUSH ic CLOSE ic FREE ic END MAIN