Unfortunately, I can't replicate the error locally and the client gets a little miffy when you try to test things in production. i was hoping that someone would see something that has eluded me so far.


>Did you try to separate it, e.g.
>
>lnRecsFound = alen(aRecs,1)
>dimension aMinor[nMinor + lnRecsFound]
>
>?
>
>>Hello Happy Peoples
>>
>>We're getting an intermitant error "Invalid subscript reference" and it points to a line of code that really doesn't make a lot of sense to me:
>>
>>

>>(other stuff going on here)
>>
>>aRecs( 1)	= 0
>>select recno(), MasterId from Master ;
>>  where ScanCode = m.ScanCode .and. ;
>>  batch + sourcecode + status = cSeek .and. ;
>>  MasterId <> m.MasterId ;
>>into array aRecs
>>if aRecs( 1) > 0
>>  dimension aMinor( nMinor + alen( aRecs, 1))  <--------- error here
>>  for i=1 to alen( aRecs, 1)
>>    aMinor( nMinor + i)	= lstr( aRecs( i, 1))
>>    delete from MIndex where miSsn = aRecs( i, 2) .and. ;
>>      left( miData, 1) $ cMICodes
>>  next
>>  nMinor	= nMinor + alen( aRecs, 1)
>>endif
>>

>>Coming into this chunk o'code, nMinor = 0, but that shouldn't matter as long as aRecs has at least 1 member, should it?