Submitted by: Alex Bekhtin (afgm)

create procedure test(field_name type of column rdb$types.rdb$field_name) as
begin
end

select cast(p.rdb$procedure_blr as blob sub_type text) from rdb$procedures p where p.rdb$procedure_name='TEST'
--------
blr_version5,blr_begin, blr_message, 0, 2,0, blr_column_name, 0, 9, 'R','D','B','$','T','Y','P','E','S', blr_text, 82,68, *** blr operator 24895616 is undefined ***

Commits: 495cd83 FirebirdSQL/fbt-repository@41c7b27