/* Formatted on 2008/04/08 16:27 (Formatter Plus v4.8.0) */
DECLARE
   rg_name    VARCHAR2 (20) := 'My_Group';
   rg_col1    VARCHAR2 (20) := rg_name || '.NumCol';
   rg_id      recordgroup;
   gc_id      groupcolumn;
   row_cnt    NUMBER;
   val        NUMBER;
   a          NUMBER;
   alert_id   alert         := FIND_ALERT ('ALERT1');
BEGIN
   rg_id := FIND_GROUP (rg_name);
   gc_id := FIND_COLUMN (rg_col1);

   IF ID_NULL (rg_id)
   THEN
      rg_id := CREATE_GROUP (rg_name);
      gc_id := ADD_GROUP_COLUMN (rg_id, rg_col1, number_column);
   END IF;

   FOR i IN 1 .. 2
   LOOP
      ADD_GROUP_ROW (rg_id, end_of_group);
      SET_GROUP_NUMBER_CELL (rg_col1, end_of_group, i);
      SET_ALERT_PROPERTY (alert_id, alert_message_text, i);
      a := SHOW_ALERT (alert_id);
   END LOOP;

   row_cnt := GET_GROUP_ROW_COUNT (rg_id);

   FOR j IN 1 .. row_cnt
   LOOP
      val := GET_GROUP_NUMBER_CELL (rg_col1, j);
      SET_ALERT_PROPERTY (alert_id, alert_message_text, val);
      a := SHOW_ALERT (alert_id);
   END LOOP;
END;