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