DECLARE
l_record varchar2(3);
BEGIN

if :subjects.subj_code = 'Y' then
l_record := :system.cursor_record;
first_record;
loop
if :system.cursor_record <> l_record then
:subjects.subj_code := 'N';
end if;

if :system.last_record = 'TRUE' then
exit;
end if;
next_record;
end loop;

go_record(:system.cursor_record);
end if;

END;

DECLARE
	
	cur_itm VARCHAR2(80); 
	cur_block VARCHAR2(80) := :System.Cursor_Block; 

BEGIN
Go_Block('SubjectS');
Execute_Query;

	cur_itm := Get_Block_Property( cur_block, FIRST_ITEM ); 
	IF :studinfo.yearstatus = '2nd Year' THEN
	
	WHILE ( cur_itm IS NOT NULL ) 
	LOOP 
		cur_itm := cur_block||'.'||cur_itm; 
		Set_Item_Instance_Property( cur_itm, CURRENT_RECORD, VISUAL_ATTRIBUTE,'VA_SELECTED_RECORD'); 
		cur_itm := Get_Item_Property( cur_itm, NEXTITEM ); 
	END LOOP; 

	END IF;
	
END;

WHILE ( cur_itm IS NOT NULL ) 
	LOOP 

END LOOP;