PROCEDURE dup_record
     (blk_name  VARCHAR2,
      col1      VARCHAR2,
      col2      VARCHAR2 DEFAULT NULL,
      col3      VARCHAR2 DEFAULT NULL,
      col4      VARCHAR2 DEFAULT NULL,
      col5      VARCHAR2 DEFAULT NULL,
      lbl_text  VARCHAR2 DEFAULT NULL)
IS
  rg_id        recordgroup;
  rg_name      VARCHAR2(20) := 'Dupval';
  rg_col       groupcolumn;
  error        NUMBER;
  reco_offset  NUMBER;
  col_val1     VARCHAR2(200);
  col_val2     VARCHAR2(200);
  colval       VARCHAR2(1000);
  len          NUMBER;
BEGIN
  rg_id := Find_group(rg_name);
  
  IF  NOT Id_null(rg_id) THEN
    Delete_group(rg_id);
  END IF;
  
  rg_id := Create_group(rg_name);
  
  rg_col := Add_group_column(rg_id,
                             'Columnchar',
                             char_column,
                             200); --if :system.form_status ='CHANGED' THEN
  
  Go_block(blk_name);
  
  IF form_success THEN
    last_record;
    
    reco_offset := :system.cursor_record;
    
    first_record;
    
    FOR i IN 1.. reco_offset LOOP
      Go_record(i);
      
      Add_group_row(rg_id,
                    end_of_group);
      
      colval := '';
      
      IF (col1 IS NOT NULL ) THEN
        colval := colval || Name_in(blk_name || '.' || col1);
      END IF;
      
      IF (col2 IS NOT NULL ) THEN
        colval := colval || Name_in(blk_name || '.' || col2);
      END IF;
      
      IF (col3 IS NOT NULL ) THEN
        colval := colval || Name_in(blk_name || '.' || col3);
      END IF;
      
      IF (col4 IS NOT NULL ) THEN
        colval := colval || Name_in(blk_name || '.' || col4);
      END IF;
      
      IF (col5 IS NOT NULL ) THEN
        colval := colval || Name_in(blk_name || '.' || col5);
      END IF;
      
      Set_group_char_cell(rg_col,
                          i,
                          colval);
    END LOOP;
    
    len := Get_group_row_count(rg_id);
    
    FOR i IN 1.. len LOOP
      col_val1 := Get_group_char_cell(rg_col,
                                      i);
      
      FOR j IN (i + 1).. len LOOP
        col_val2 := Get_group_char_cell(rg_col,
                                        j);
        
        IF col_val1 = col_val2 THEN
          IF (lbl_text IS NULL ) THEN
            error := Happ_msgs('E061',
                               'MREC',
                               blk_name);
          ELSE
            error := Happ_msgs('E061',
                               'MREC',
                               lbl_text);
          END IF;
          
          Go_record(j);
          --GO_RECORD(RECO_OFFSET);
          
          fail;
        END IF;
      END LOOP;
    END LOOP;
    
    Go_record(reco_offset);
  END IF;
END;

declare
    a number;
    s varchar2(20);
    c varchar2(20);
begin
     a := get_block_property('blkname',current_record);
     if a=1 then
      go_item('blkname.t2');
     else
       s := :system.current_value;
       go_block('blkname');
       first_record;
       for i in 1..a-1 loop
        if s = :blkname.t1 then
         message('Duplicate');
         c := get_message;
        end if;
        next_record;
       end loop;
       last_record;
       go_item('blkname.t2');
     end if;
     if c = 'Duplicate' then
       go_item('blkname.t1');
     end if;
end;