CREATEORREPLACEPROCEDURE pro_gen_md5 IS update_sql_str VARCHAR2(1000); temp_info_str VARCHAR2(2000); md5_str VARCHAR2(1000); id_str NUMBER; BEGIN update_sql_str :='UPDATE ower_temp SET md5_code=:1 WHERE id=:2'; FOR r IN(SELECT*FROM ower_temp WHERE md5_code ISNULL) LOOP temp_info_str := nvl(r.VEHICLE_CODE,''); IF length(temp_info_str)>0THEN md5_str := utl_raw.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => temp_info_str)); id_str := r.id; EXECUTE IMMEDIATE update_sql_str USING md5_str,id_str; COMMIT; ENDIF; END LOOP; END;