Name                                                  Null?    Type
----------------------------------------------------- -------- ----------------
CARDNO                                                         NUMBER(5)
PREFERENCES                                                    NUMBER(1)
FACULTY                                                        CHAR(4)

a number(1):=a;

:form_name;

declare 
  a number(1):=a;
  f_name varchar2(35);
begin 
  f_name:=:asset_master_new.arn_no;
  while :asset_master_new.arn_no is not null loop
    if f_name=:asset_master_new.arn_no then 
       a:=a+1;
       next_record;     
  end loop;             --> END LOOP without END IF
  previous_record;
  if a=2 then 
     message('already exist');
     message('already exist');
  else 
     next_record;
  end if;
end if;                 --> where does this END IF belong to?
end;

declare 
a number(1);
f_name varchar2(35);
begin 

f_name:=:agdtet03facprf.preferences;

while :agdtet03facprf.preferences is not null 
	loop
		if f_name=:agdtet03facprf.preferences then 
			a:=a+1;
			next_record;
		end if;
	end loop;
			previous_record;
				if a=2 then 
					message('already exist');
					message('already exist');
				else 
					next_record;
				end if;
end;

declare
  a       number (1)    := 0;
  v_prf   varchar2 (35);
  i       number;
begin
  if :agdtet03facprf.preferences between 0 and 6 then   
----- if preference is between 0 and 6 then do following  (1)
----go to first record
    v_prf  := :agdtet03facprf.preferences;
    first_record;
------------check for duplicate preference
    while :agdtet03facprf.preferences is not null
    loop
      ------------dont check for duplicate of 0
      if v_prf = :agdtet03facprf.preferences then
        if v_prf = 0 then
          a  := 0;
        else
          a  := a + 1;
        end if;
      end if;
      next_record;
    end loop;
------message('out of loop. v_prf '||v_prf||'a '||a);
    previous_record;
    if a = 2 then
      message ('Already Exists');
      message ('Already Exists');
      raise form_trigger_failure;   ----------new line
    else
      if :system.last_record != 'TRUE' then
        next_record;
      else
        go_item ('bsd.testcentre');
        raise form_trigger_failure;
      end if;
    end if;
  else   ----- if preference is NOT between 0 and 6 then do following
    message ('Invalid Preference');
    message ('Invalid Preference');
    raise form_trigger_failure;
  end if;   -- end (if)
end;

IF :system.last_record = 'FALSE' THEN
   NEXT_ITEM;
ELSE
   NEXT_BLOCK;
END IF;

IF :system.last_record = 'FALSE' THEN
   NEXT_RECORD;
ELSE
   NEXT_BLOCK;
END IF;

	[QUOTE]while :agdtet03facprf.preferences is not null 		loop[/QUOTE]