CLEAR DIMENSION site_security[4,2] site_security[1,1]='SiteA' site_security[1,2]='3' site_security[2,1]='SiteZ' site_security[2,2]='2' site_security[3,1]='SiteT' site_security[3,2]='2' site_security[4,1]='SiteW' site_security[4,2]='1' =ASORT(site_security,2,-1,0) * FIND FIRST ROW r1=ASCAN(site_security,'2',-1,-1,2,8) IF EMPTY(m.r1) RETURN 0 ENDIF * FIND NEXT GROUP ROW FOR R2=m.r1+1 TO ALEN(site_security,1) IF NOT site_security(m.R2,2)=='2' EXIT ENDIF NEXT * build result space DIMENSION aResult(m.r2-m.r1,ALEN(site_security,2)) * fill result space =ACOPY(site_security,aResult,AELEMENT(site_security,m.r1,1)) DISPLAY MEMORY LIKE aResult RETURN ALEN(aResult,1)