DECLARE cur_jbzd CURSOR FOR SELECT jbbh,zdlb FROM ys_mz_jbzd Where jzxh = :LL_JZXH and zxlb =:li_zxlb USING sqlhis; OPEN cur_jbzd; FETCH cur_jbzd INTO :ll_jbbh,:li_zdlb; DO WHILE sqlhis.SQLCode = 0 ls_temp = '' IF i > 3 THEN EXIT if ll_cflx =3 then SELECT jbmc INTO:ls_jbmc1 FROM emr_zyjb Where jbbs = :ll_jbbh USING sqlhis ; else SELECT jbmc INTO:ls_jbmc1 FROM gy_jbbm Where jbxh = :ll_jbbh USING sqlhis ; end if SELECT GY_DMZD.DMMC INTO:ls_temp FROM GY_DMZD WHERE GY_DMZD.DMLB = 22 AND GY_DMZD.DMSB = :li_zdlb USING sqlhis ; IF IsNull(ls_temp) THEN ls_temp = '' ls_jbmc1 = ls_jbmc1