long gID_1;
short gID_2;

{ setGlobalID(aGlobalIDObj()); }

void setGlobalID(GlobalID id) {
  if (id == null) ret with gID_1 = gID_2 = 0;
  gID_1 = globalIDPart1(id);
  gID_2 = globalIDPart2(id);
}

void setGlobalID(S id) {
  setGlobalID(toGlobalIDObj(id));
}

GlobalID globalID() {
  ret globalIDFromParts(gID_1, gID_2);
}