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;