go_block('ADDSUBJECT3RD');
  first_record;
        GO_BLOCK('CHOSENSUBJECTS');
  first_record;

  LOOP

IF :ADDSUBJECT3RD.SELECTED3RD = 'Y' THEN
  
    :CHOSENSUBJECTS.Subj := :ADDSUBJECT3RD.subj_code3rd;
    :CHOSENSUBJECTS.STIME := :ADDSUBJECT3rd.stime;
    :CHOSENSUBJECTS.ETIME := :ADDSUBJECT3RD.ETIME;
    :CHOSENSUBJECTS.DAY := :ADDSUBJECT3RD.DAY3RD;
    :CHOSENSUBJECTS.SECTION := :ADDSUBJECT3RD.SECTION3RD;

END IF;  


    go_block('ADDSUBJECT3RD');
    IF :system.last_record != 'TRUE' THEN
      --More records to go so move to the next record in both blocks.
      next_record;
      go_block('CHOSENSUBJECTS');
      next_record;
    ELSE
      --Done all records, exit loop
      EXIT;
      
    END IF;
    
    END LOOP;
    
    
      GO_BLOCK('CHOSENSUBJECTS');
 first_record;
END;

GO_BLOCK('B');
           clear_block(no_commit);
     declare 
     	  cursor c1 is
     	          select * from a WHERE NO=:A.NO ;
                a_record c1%rowtype;
     begin
           open c1;
     loop
           
           fetch c1 into a_record;
                 exit when c1%notfound;
   IF :A.CHK='Y' THEN 
               :b.no:=a_record.no;
               :b.name:=a_record.name;
     next_record;
     ELSE -----its upto---You
   -----what ever u wanna do-----------------
   
      	MESSAGE('YOUR CHECK BOX IS UN-CHECKED');
       	MESSAGE('YOUR CHECK BOX IS UN-CHECKED');
   GO_BLOCK('A');
     
    END IF;
    
        end loop;
            close c1;
        
    end;
         first_Record;

create table a(no number(6));

insert into a values(1001);

create table b(no number(6),name varchar2(25));

insert into b values(1001,'baliberde');