程序代码：

CREATE CURSOR tb1 (bz c(8),rs c(8),ycbt c(8))
INSERT INTO tb1 VALUES ("f50","10","633600")
INSERT INTO tb1 VALUES ("f55","5","1244800")
INSERT INTO tb1 VALUES ("m60","35","11209600")
COPY TO ARRAY aa fields rs, ycbt
LOCAL bb[ALEN(aa, 2), ALEN(aa, 1) + 1]
bb[1, 1] = "rs"
bb[2, 1] = "ycbt"
FOR lnj = 1 TO ALEN(aa)
    la1 = asubscript(aa, lnj, 1)
    la2 = asubscript(aa, lnj, 2)
    bb[la2, la1 + 1] = aa[lnj]
ENDFOR
CREATE CURSOR tb2 (bz c(10), f50 c(10), f55 c(10), m60 c(10))
INSERT INTO tb2 FROM ARRAY bb
BROWSE