-------------------------------
code|description|value1|value2 
-------------------------------
1   | A         | 10   | 100
2   | B         | 20   | 200
3   | C         | 30   | 300
4   | D         | 40   | 400
5   | E         | 50   | 500
------------------------------------

DECLARE	
BEGIN
	IF :BLOCK_TOOL.SEARCH_GRADE_CODE IS NULL THEN
		 ERR_MESSAGE('Please enter Grade Code / Grade Description...');
	ELSE
	   GO_BLOCK('TRANSACTIONS_MST');
	   FIRST_RECORD;
	   LOOP
	   	  IF :TRANSACTIONS_MST.GRADE_CODE = :BLOCK_TOOL.SEARCH_GRADE_CODE THEN
	   	     SYSTEM.CURSOR_RECORD;
	      ELSE
	   	     NEXT_RECORD;
	      END IF;
	      EXIT WHEN :TRANSACTIONS_MST.GRADE_CODE = :BLOCK_TOOL.SEARCH_GRADE_CODE OR SYSTEM.LAST_RECORD = TRUE;
	END IF;
END;

DECLARE	
BEGIN
	IF :BLOCK_TOOL.S_GRADE_CD IS NULL AND :BLOCK_TOOL.S_GRADE_DESC IS NULL THEN
		 ERR_MESSAGE('Please enter Grade Code OR Grade Description...');
		 GO_ITEM('BLOCK_TOOL.S_GRADE_CD');
	ELSE
	   BEGIN
		     GO_BLOCK('TRANSACTIONS_MST');
		     FIRST_RECORD;
		     LOOP
		     	 IF :TRANSACTIONS_MST.GRADE_CD = :BLOCK_TOOL.S_GRADE_CD OR :TRANSACTIONS_MST.GRADE_DESC = :BLOCK_TOOL.S_GRADE_DESC THEN
	   	        GO_ITEM(:SYSTEM.CURSOR_RECORD);
	         ELSE
	   	        NEXT_RECORD;
	         END IF;
	       EXIT WHEN :TRANSACTIONS_MST.GRADE_CD = :BLOCK_TOOL.S_GRADE_CD OR :TRANSACTIONS_MST.GRADE_DESC = :BLOCK_TOOL.S_GRADE_DESC OR :SYSTEM.LAST_RECORD='TRUE'; 
		     END LOOP;
		 EXCEPTION
		     WHEN NO_DATA_FOUND THEN
		     	ERR_MESSAGE('No Data found for above Grade Code OR Grade Description...!');
		 END;		     	
  END IF;
END;