DIMENSION laList[2] >>laList[1]=10 >>laList[2]=20 >>lnMin=laList[1] >>lnPointer=1 >>FOR X=2 TO ALEN(laList,1) >> if laList[m.x] < lnMin >> lnMin = laList[m.x] >> lnPointer = m.x >> endif >>ENDFOR >> >>?"the row with the minimum value is ",m.lnPointer>>
calculate mix(field) to m.lnMin >>locate for field=m.lnMin >>lnPointer=recno()