Anonymous

  while (%i <= $hget(series).size) {
    while (%j <= $hget(series_old).size) {
      if (%new == 0) {
        if ($gettok($hget(series,%i),1,9) == $gettok($hget(series_old,%j),1,9)) {
          if ($gettok($hget(series,%i),2,9) == $gettok($hget(series_old,%j),2,9)) {
            %new = $hget(series,%i)
            %newid = %i
          }
        }
      }

      inc %j
    }

    inc %i
  }