declare select_con cursor for
select c_construction FROM t_phyhdr
WHERE c_check_no like 'P%';
open select_con;
fetch select_con into :ls_con;
do while sqlca.sqlcode = 0
ll_row ++
dw_1.setvalue("c_construction",ll_row,trim(ls_con))
fetch select_con into :ls_con;
loop
close select_con;