BEGIN
PROMPT Create INDEX EXAMPLE_IX1
DECLARE   
   columns_ Database_SYS.ColumnTabType;
BEGIN   
   Database_SYS.Set_Table_Column(columns_, 'COLS1');   
   Database_SYS.Set_Table_Column(columns_, 'COLS2');   
   Database_SYS.Set_Table_Column(columns_, 'COLN1');
   Database_SYS.Create_Index('EXAMPLE_TAB',
                             'EXAMPLE_IX1',
                             columns_, 
                             'N',
                             '&IFSAPP_INDEX',
                             NULL, 
                             TRUE,
                             TRUE);
END;