Source position: lincd.pp line 705
procedure set_error_code(
var a: Trequest_sense;
__error_code: TU8
);