Source position: jwabthdef.pas line 456
procedure SET_COD_MINOR(
var _cod: BTH_COD;
_minor: BTH_COD
);