DECLARE 
  cur_itm   VARCHAR2( 80 ); 
  cur_block VARCHAR2( 80 ) := :System.Cursor_Block; 
BEGIN 
  cur_itm   := Get_Block_Property( cur_block, FIRST_ITEM ); 
  WHILE ( cur_itm IS NOT NULL ) LOOP 
    cur_itm := cur_block||'.'||cur_itm; 
    Set_Item_Instance_Property( cur_itm, CURRENT_RECORD,UPDATE_ALLOWED,PROPERTY_TRUE); 
    cur_itm := Get_Item_Property( cur_itm, NEXTITEM ); 
  END LOOP; 
END;