long globalID_1;
short globalID_2;

{ setGlobalID(aGlobalIDObj()); }

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

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

GlobalID globalID() {
  ret globalIDFromParts(globalID_1, globalID_2);
}