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);
}