foreach cs_cod_var for
		select cod_var
		into lv_cod_var
		from pr_rel_text
		where mill_cd = av_mill_cd
		and cod_rel = av_cod_rel


		let lv_parameters, lv_procname = (select parameters, procname from get_proc
							where mill_cd = av_mill_cd
							and cod_rel = av_cod_rel
							and cod_var = lv_cod_var);

		let lv_str = 'execute procedure '||trim(lv_procname)||'(';
							
		if (lv_parameters is not null or lv_procname is not null) then

			let lv_count = length(lv_parameters) - length(replace(lv_parameters,'|',''))+ 1;

			FOR lv_index_var = 1 TO lv_count
				if (lv_index_var != lv_count) then
					let lv_str = trim(lv_str)||trim(gps_getkeyvalues_sp(lv_parameters,"|",lv_index_var)) ||',';
				else
					let lv_str = trim(lv_str)||trim(gps_getkeyvalues_sp(lv_parameters,"|",lv_index_var))||')';
				end if;
			END FOR
						
			execute IMMEDIATE trim(lv_str);
		end if;

		let lv_str = '';
		
	end foreach; -- cs_cod_var