/*
** Built-in: SET_ITEM_INSTANCE_PROPERTY
** Example: Change the visual attribute of each item instance in the
** current record
*/

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,
                                  VISUAL_ATTRIBUTE,
                                  'My_Favorite_Named_Attribute');
      cur_itm := Get_Item_Property (cur_itm, NEXTITEM);
   END LOOP;
END;