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