Добавлю 2 коп. Немного перепутаны 2 вещи:
- отключение обработки ошибок внутри обработчика $zt, т.е. конструкция: обязательная к применению, т.к. иначе произойдет зацикливание при ошибке внутри обработчика
- восстановление обработчика $zt, действовавшего на предыдущем уровне стека, которое, действительно, происходит автоматически при выходе по Quit и не требует от программиста никаких усилий.
Однако конструкция
в общем случае не запрещена синтаксисом языка. Она попадает под запрет лишь в контексте процедурных блоков. Причина, видимо, кроется в том, что иначе компилятору не проверить на допустимость значение $zt. А проверить "хочется", т.к. в процедурах из трех вариантов:
Caché ObjectScript ReferenceSET $ZTRAP=“location”
SET $ZTRAP=“*location”
SET $ZTRAP=“^%ET” or “^%ETN”

где location = tag | ^routine | tag^routine
допустим только первый подвариант первого варианта (т.е. tag - локальная метка). В документации об этом четко не сказано, умоминается лишь, что запрещен второй вариант “*location”. Жаль, что формального определения COS не существует (по кр. мере, в общем доступе).