int i = 1
declare cur_tab cursor for
select "man"."kh"
from "man";
open cur_tab;
fetch cur_tab into :s_kh;
do while sqlca.sqlcode = 0
if i >= 30 then exit
i=upperbound(zfms)+1;//%%%%%%%%%%%%%%%%%%%%
zfms[i] = s_kh
fetch cur_tab into :s_kh;
loop
close cur_tab;
int i = 1
declare cur_tab cursor for
select "man"."kh"
from "man";
open cur_tab;
fetch cur_tab into :s_kh;
do while sqlca.sqlcode = 0
if i >= 30 then exit
zfms[i] = s_kh
i++
fetch cur_tab into :s_kh;
loop
close cur_tab;