/*
** Built-in: DUPLICATE_RECORD;
** Example: Make a copy of the current record and increment
** the "line_sequence" item by one.
*/

DECLARE
   n   NUMBER;
BEGIN
/*
** Remember the value of the 'line_sequence' from the
** current record
*/
   n                        := :my_block.line_sequence;
/*
** Create a new record, and copy all the values from the
** previous record into it.
*/
   Create_Record;
   Duplicate_Record;
/*
** Set the new record's 'line_sequence' to one more than
** the last record's.
*/
   :my_block.line_sequence  := n + 1;
END;

/*
** Built-in: DUPLICATE_RECORD;
** Example: Make a copy of the current record and increment
** the "line_sequence" item by one.
*/

DECLARE
   n   NUMBER;
BEGIN
/*
** Remember the value of the 'line_sequence' from the
** current record
*/
   n                        := :my_block.line_sequence;

/*
** Create a new detail records using new primary key.
*/
   insert into detail_table
      select n + 1 field1,
             field2,
             field3
        from detail_table
       where field1 = mstr.field1;

/*
** Create a new record, and copy all the values from the
** previous record into it.
*/
   Create_Record;
   Duplicate_Record;
/*
** Set the new record's 'line_sequence' to one more than
** the last record's.
*/
   :my_block.line_sequence  := n + 1;
/*
** Now show the detail records.
*/
   go_block ('dtl');
   go_block ('mstr');
END;