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?