krvsaНачнем с того, что просто так выходить при объявленом курсоре не стоит...Можно и так и эдак : стиль написания цикла каждый выбирает под свои нужды.

krvsaЯ не про "стиль написания цикла" а про выход без закрытия курсора...Посмотрите внимательнее код (предпоследняя строчка)

krvsaЕсли ты про код ТСа - так там выход есть ранее закрытия курсора ...Выход из бесконечного цикла, но не из программы. Пример ТС один в один взят из документации.

drakut ,

Host Variables and Procedure Blocks (в документации 5.0.21 поищите Caché SQL Reference -> Host variable)
Соответственно пример кода test.mac для версии 5.0.21:  new id,name,SQLCODE,%ROWCOUNT,%ROWID
  &sql(declare c1 cursor for select %ID, Name from Sample.Person where %ID in (1,2,3))
  &sql(open c1)
  for  {
    &sql(fetch c1 into :id,:name)
    quit:SQLCODE
    write id," ",name,!
  }
  &sql(close c1)

test2() [id, name, SQLCODE] public {
  new id,name,SQLCODE,%ROWCOUNT,%ROWID
  &sql(declare c2 cursor for select %ID, Name from Sample.Person where %ID in (1,2,3))
  &sql(open c2)
  for  {
    &sql(fetch c2 into :id,:name)
    quit:SQLCODE
    write id," ",name,!
  }
  &sql(close c2)
}

test3() [SQLCODE,extinfo,sc] public {
  new SQLCODE,extinfo,sc,%ROWCOUNT,%ROWID
  set rs=##class(%ResultSet).%New("%DynamicQuery:SQL")
  do rs.Prepare("select %ID, Name from Sample.Person where %ID in (1,2,3)")
  do rs.Execute()
  while rs.Next() {
    write rs.Get("ID")," ",rs.Get("Name"),!  
  }
  do rs.Close()
}Все три варианта


выдают одинаковый результат.

После каждого вызова можно проверить все ли мы защищаем за собой переменные, вызвав write без аргументов: если что-то будет - повод задуматься.