程序代码：

create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)

程序代码：

create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)
blank fields max_2 all
scan
    scatter fields m1, m2, m3, m4, m5 to la
    asort[la]
    replace max_2 with la[alen(la, 1) - 1]
endscan
browse