А можно как-то проверить открыт ли объявленный курсор?
z/OS, DB2 UDB for V8, CICS TS 3.2, Enterprise COBOL 3.4, статический SQL.

Спасибо.

При этом изменится позиция курсора.
Не подходит. :(

Мне это нужно для такого конкретного случая: если возникает ошибка при работе с курсором, я хочу в обработчике ошибок попытаться курсор закрыть. При этом может случиться, что курсор не окрыт (например, он вообще не открылся), тогда я получаю ошибку в обработчике ошибок, что может вести к зацикливанию.
Понятно, что при закрытии курсора может произойти и какая-то другая ошибка. В этом случае я делаю ABEND и пусть CICS сам разбирается с этим курсором.
Но ситуацию с попыткой закрытия не открытого курсора хотелось бы отлавливать явно.

P.S. В Коболе ситуация с exception'ами довольно напряжённая: нету там их.

C/EXEC SQL WHENEVER SQLERROR GOTO LERR
C/END-EXEC
C/EXEC SQL WHENEVER NOT FOUND GOTO LEOF
C/END-EXEC

Путём хитрых манипуляций я, конечно, могу "даже если курсор не один, конкретное место в программе можно идентифицировать по переменной".
Но вернуться к тому месту в программе, где возникла ошибка, уже не смогу.
А это не соответствует нашей "генеральной линии".

Сейчас у меня это дело реализовано так: у меня есть две секции: close и tryClose.
Первая закрывает курсор и при ошибке вызывает обработчик SQL-ошибок.
Вторая закрывает курсор и игнорирует все ошибки.
В обработчике SQL-ошибок вызывается tryClose.

Но очень хотелось бы уметь отлавливать попытки закрыть неоткрытый курсор без вызова обработчика ошибок.

Ну и глобально:
Я знаю как можо реализовать мои задачи без проверки открыт ли курсор.
Но по ряду не мной наложенных "краевых условий" эти задачи можно решить гораздо более проще, умея проверять открыт ли курсор.
Поэтому мой вопрос сформулирован так: "А можно как-то проверить открыт ли объявленный курсор?",
а не так "Как можно решить мои задачи без проверки открыт ли объявленный курсор?"

Всем спасибо.