insert into TBD_EQUIPMENT_CLASS (ID, PARENT_ID, DESCRIPTION) values (?, ?, ?) returning ID

tpb: array[0..3] of Byte = (isc_tpb_version3, isc_tpb_read, isc_tpb_nowait, isc_tpb_read_committed);
tpb_upd: array[0..3] of Byte = (isc_tpb_version3, isc_tpb_write, isc_tpb_wait, isc_tpb_read_committed);

transaction := attachment.startTransaction(status, 4, @tpb);
statement := attachment.prepare(status, transaction, 0, INSERT_TEXT, 3, IStatement.PREPARE_PREFETCH_METADATA)
updTransaction := attachment.startTransaction(status, 4, @tpb_upd);
resultset := statement.openCursor(status, transaction, metadata, messageBuffer, nil, 0);
updTransaction.commit(status);
updTransaction.release;

select next value for GEN_EQUIPMENT_CLASS_ID from RDB$DATABASE