Product_type
                 X
                 Y
Product    Excellent    Good    Poor  N/A
  X1           2          2       3     1
  X2           1          2       1     2
  Y1           3          1       2     0
  Y2           2          2       2     2

People_name                    Product_type
  Alex                           X
  John                           Y
  Tom
  Jay
      
Product       Rate
X1         .Excellent  .Good   .Poor  .N/A
X2         .Excellent  .Good   .Poor  .N/A
Y1         .Excellent  .Good   .Poor  .N/A
Y2         .Excellent  .Good   .Poor  .N/A

DECLARE
	EMP_ID NUMBER;
	BEGIN
set_block_property('cskills',default_where,'skill_type_id in (select skill_type_id from pskills where skill_type=:CONTROL.SPRIMARY)');

select count(emp_id) into :CSKILLS.EXCELLENT  from entries where rating_id=1 and 
 skill_id=(select skill_id from cskills where skill=:CSKILLS.SKILL);
   
 select count(emp_id) into :CSKILLS.GOOD from entries where rating_id=2 and 
 skill_id=(select skill_id from cskills where skill=:CSKILLS.SKILL);
  
 select count(emp_id) into :CSKILLS.POOR from entries where rating_id=3 and 
 skill_id=(select skill_id from cskills where skill=:CSKILLS.SKILL); 
END;

DECLARE
   EMP_ID   NUMBER;
BEGIN
   set_block_property
         ('cskills',
          default_where,
          'skill_type_id in (select skill_type_id from pskills where skill_type=:CONTROL.SPRIMARY)');

   select count (emp_id)
     into :CSKILLS.EXCELLENT
     from entries
    where rating_id = 1
      and skill_id = (select skill_id
                        from cskills
                       where skill = :CSKILLS.SKILL);

   select count (emp_id)
     into :CSKILLS.GOOD
     from entries
    where rating_id = 2
      and skill_id = (select skill_id
                        from cskills
                       where skill = :CSKILLS.SKILL);

   select count (emp_id)
     into :CSKILLS.POOR
     from entries
    where rating_id = 3
      and skill_id = (select skill_id
                        from cskills
                       where skill = :CSKILLS.SKILL);
END;

select skill_type_id
  from pskills
 where skill_type = nvl(:CONTROL.SPRIMARY,skill_type)

begin
   if not :control.sprimary = 'All' then
      set_block_property
         ('cskills',
          default_where,
          'skill_type_id in (select skill_type_id from pskills where skill_type=:CONTROL.SPRIMARY)');
   else
      set_block_property ('cskills', default_where, null);
   end if;
end;