lnpos = ASCAN(my_array, 3) lldone = (ASUBSCRIPT(my_array, lnpos, 2) = 1) DO WHILE NOT lldone AND lnpos # 0 lnpos = ASCAN(my_array, 3, lnpos + 1) lldone = (ASUBSCRIPT(my_array, lnpos, 2) = 1) ENDDO IF lldone lnrow = ASUBSCRIPT(my_array, lnpos, 1) ENDIFhth,