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