Procedure School (test1 in varchar2:= 'none'
                   test1 in varchar2:= 'all',
                   auto in varchar2:= 'n');
 

if auto="n" then
    if (test1 is null or test1='none') and 
       (test2 is null or test 2 ='all') then 
       score :=A;
       dbms_output.put_line('open book1');
       open book1;
elsif (test1 is not null and test1 =! 'none) then
       score:=B;
       this_test1 := test1 || %;
       dbms_output.put_line('open book2');
       open book2;
elsif (test2 is not null and test2 != all) then
       score:=C;
       this_test2 := test2 || %;
       dbms_output.put_line('open book3');
       open book3;
  endif;
else
          // I think the last 2 are repeating or can be combined
    [b]if score = A then
         dbms_output.put_line(open book1);
         open book1;
    elsif score = B then
         this_test1 := test1 || %;
         dbms_output.put_lineoutput(open book2) 
         open book2;
   elsif score = c then
        dbms_output.put_line(Open book3)
        open book3;
 endif;
endif;
                              
      Loop
         Begin            
            Error := 'false'
            Cmd := 'fetch book'
            Step := '001'
            Id_count  : = 0;
            Tsn         := ' ';
            Last_ids     :='  ' ;  
   
  if score = A then
     fetch book 1 into ssn,year,name
         if book1%notfound then 
  exit;
endif;
   elsif score = B  then
       fetch book 2 into ssn, year,name
           if book2%not found then
exit;
endif;
   elsif core =c then
        fetch book3 into ssn,year,name;
            if book3%not found then
exit;
endif;[/b]