declare my_getcolumns dynamic cursor for sqlsa;
li_num = 1
ls_sql = "select COLUMN_NAME from all_tab_columns where owner = vs_owner AND TABLE_NAME = vs_table; "
prepare sqlsa from :ls_sql;
open dynamic my_getcolumns;
if sqlca.sqlcode <> 0 then
messagebox('sdaf','err')
return
end if
fetch my_getcolumns into :ls_fields[li_num];
if sqlca.sqlcode <> 0 then
messagebox('asdf','err')
close my_getcolumns;
end if
do while sqlca.sqlcode <> 100 then
li_num += 1
fetch my_getcolumns into :ls_fields[li_num];
if sqlca.sqlcode = -1 then
messagebox('asdf','err')
close my_getcolumns;
end if
loop
close my_getcolumns;