Routing_set_name,Alloy,Planner_code,Group_name,Percent,Routing_item. 
RS1                    A1      P1          G1         100 RI1 

  DECLARE
  l_percent 	NUMBER :=0 ;
    	BEGIN

		first_record;
		LOOP

			IF (:system.Last_record = 'TRUE') THEN
				EXIT;
			ELSE 
			message(:SMCBOM_ROUTING_MODELS.ROUTING_SET_NAME);
				BEGIN
					select nvl(SUM(percent),0)
					into   l_percent
					from   apps.smcbom_routing_models 
					where  routing_set_name = :SMCBOM_ROUTING_MODELS.ROUTING_SET_NAME;
	
					IF l_percent >= 100 THEN
						message('Percent...'||'-'||to_char(l_percent));
					ELSE
						message('Percent...'||'-'||to_char(l_percent));
					END IF;	
				EXCEPTION
				WHEN NO_DATA_FOUND THEN
				l_percent := 0;
				WHEN OTHERS THEN
				l_percent := 0;
				END;
			next_record;
			END IF;
		END LOOP;
	EXCEPTION
	WHEN OTHERS THEN
	l_percent := 0;
	END;
	END IF;

begin
   select sum (percent)
     into :ctrl.percent_sum
     from smcbom_routing_models
    where routing_set_name = :smcbom_routing_models.routing_set_name;

   if :ctrl.percent_sum + :smcbom_routing_models.percent > 100 then
      message ('Percent too big.  Max. percent left is '
               || to_char (100 - :ctrl.percent_sum, '990.99') );
      bell;
      raise form_trigger_failure;
   end if;
end;