Получение кода класса по коду инструмента

Как получить код класса, зная код бумаги?

' Получение CLASSCODE бумаги по её SECCODE из ТТП. Возвращается первое подходящее значение
FUNC Get_ClassCode_By_Seccode(result)
 result = get_value(get_security_info("",result),"CLASS_CODE")
END FUNC

Вариант для макропроцессора макропроцессора M4:

define(`Get_ClassCode_By_Seccode',ifelse($1,,`err'print(Error __file__ line __line__: Missing argument)
,get_value(get_security_info("",$1),"CLASS_CODE")))

Во втором случае препроцессор заодно проверит правильность передачи параметров на этапе компиляции, а не исполнения.

Определить однозначно код класса не всегда возможно, см. Почему необязателен параметр ClassCode?