DECLAREcursor-name CURSOR FORFOR READ ONLY DECLARE query cursor-name CURSOR FORFOR UPDATE query
| cursor-name | カーソルの名前。識別子 です。 |
| query | カーソルの結果セットを定義する標準 SELECT 文 |
| FOR READ ONLY | |
| FOR UPDATE |
DECLARE empcursor CURSOR FOR SELECT id,forename,surname
INTO :id,:fname,:sname FROM person
OPEN empcursor
FETCH empcursor
CLOSE empcursor
NEW EmpLast,EmpFirst,EmpZipCode &sql(DECLARE EmpCursor CURSOR FOR SELECT LastName,FirstName INTO :EmpLast,:EmpFirst FROM EmpTable where ZipCode = :EmpZipCode) SET EmpZipCode="02142" &sql(OPEN EmpCursor) IF (SQLCODE) { WRITE SQLCODE,! QUIT } SET SQLCODE = 0 WHILE (SQLCODE = 0) { &sql(FETCH EmpCursor) WRITE !,EmpLast," ",EmpFirst } &sql(CLOSE EmpCursor) QUIT
| Copyright © 1997-2010, InterSystems Corp. |
|
Last updated: 2004-01-28 11:18:56 | Source: RSQL_declare.xml |