BEGIN
PROMPT Create CONSTRAINT EXAMPLE_PK
DECLARE
   columns_ Database_SYS.ColumnTabType;
   table_name_ VARCHAR2(30) := 'EXAMPLE_TAB';
   index_name_ VARCHAR2(30) := 'EXAMPLE_PK';
   rkidx_name_ VARCHAR2(30) := 'EXAMPLE_RK';
BEGIN
   Database_SYS.Reset_Column_Table(columns_);
   Database_SYS.Set_Table_Column(columns_, 'COL_S1');
   Database_SYS.Set_Table_Column(columns_, 'COL_S2');
   Database_SYS.Create_Constraint(table_name_, index_name_, columns_, 'P', '&IFSAPP_INDEX', NULL, TRUE, TRUE);
   Database_SYS.Reset_Column_Table(columns_);
   Database_SYS.Set_Table_Column(columns_, 'ROWKEY');
   Database_SYS.Create_Constraint(table_name_, rkidx_name_, columns_, 'U', '&IFSAPP_INDEX', NULL, TRUE, TRUE);
END;