Declare
   v_n_rowno NUMBER;
Begin
   v_n_rowno := TO_NUMBER(Get_Block_Property('MY_BLOCK', CURRENT_RECORD)); 	 
   Set_Item_Instance_Property( 'MY_BLOCK.MY_ITEM', v_n_rowno, BORDER_BEVEL, LOWERED);
End;

FRM-41384 : Invalid parameter used for Set_Item_Instance_Property

BEGIN
  EXIT_FORM(NO_VALIDATE);
END;

PACKAGE EMP_QUERY IS
  TYPE t_r_emp IS RECORD ( ename VARCHAR2(30), sal NUMBER);
  TYPE t_t_emp IS TABLE OF t_r_emp INDEX BY BINARY_INTEGER;
  v_t_emp    t_t_emp;
  v_n_rownum PLS_INTEGER;
END;

Begin
	GO_BLOCK('EMP');
	EXECUTE_QUERY;
End;

Begin
	NULL;
End;

Begin
	NULL;
End;

Begin
	IF emp_query.v_n_rownum < emp_query.v_t_emp.COUNT
	THEN
	  emp_query.v_n_rownum := emp_query.v_n_rownum + 1;
	  Create_Queried_Record;
	  :EMP.ename := emp_query.v_t_emp(emp_query.v_n_rownum).ename;
	  :EMP.sal   := emp_query.v_t_emp(emp_query.v_n_rownum).sal;
	END IF;
End;

Begin
	FOR rec in ( SELECT ename, sal FROM emp )
	LOOP
		emp_query.v_n_rownum := 0;
		emp_query.v_t_emp(emp_query.v_t_emp.count+1).ename := rec.ename;
		emp_query.v_t_emp(emp_query.v_t_emp.count).sal := rec.sal;
	END LOOP;
End;

Declare
	v_n_current PLS_INTEGER;
Begin
	v_n_current := TO_NUMBER(Get_Block_Property('EMP', CURRENT_RECORD));
	IF MOD(emp_query.v_n_rownum, 2 ) = 0 THEN
		Set_Item_Instance_Property('EMP.ENAME', v_n_current, BORDER_BEVEL, LOWERED);
	END IF;
End;