Source position: jwabthdef.pas line 457
procedure SET_COD_MAJOR(
var _cod: BTH_COD;
_major: BTH_COD
);