{ ************************************************************************* }
{                                                                           }
{  Licensed Materials - Property of IBM and/or HCL                                     }
{                                                                           }
{  IBM Informix Dynamic Server                                              }
{  Copyright IBM Corporation 2011                                           }
{  (c) Copyright HCL Technologies Ltd. 2017.  All Rights Reserved.                                          }
{                                                                           }
{   Title:      boot1170XC3.sql                                             }
{                                                                           }
{   Description:                                                            }
{       Bootstrapping script for a 11.70.XC3 database                       }
{                                                                           }
{ ************************************************************************* }
{                                                                           }
{  ** IMPORTANT - PLEASE READ                                               }
{                                                                           }
{     All types and routines referenced in this file must be prefixed       }
{     with the user name "informix". E.g., use "informix.boolean"           }
{     and not "boolean"                                                     }
{                                                                           }
{     Also, please follow the formatting conventions!!!                     }
{                                                                           }
{     Please ensure that the identifiers that you choose are <= 18          }
{     characters in length. Otherwise the changes would affect database     }
{     reversion.                                                            }
{                                                                           }
{ ************************************************************************* }
create dba function informix.indexkeyarray_out(informix.indexkeyarray, integer)
returning informix.lvarchar
external name '(indexkeyarraywithlen_out)' language C
not variant;

grant execute on function informix.indexkeyarray_out(informix.indexkeyarray, integer) to public as informix ;

create dba function informix.indexkeyarray_send(informix.indexkeyarray, integer)
returning informix.sendrecv
external name '(indexkeyarraywithlen_send)' language C
not variant;

grant execute on function informix.indexkeyarray_send(informix.indexkeyarray, integer) to public as informix ;

create procedure SYSIBM.SQLPseudoColumns(
        CatalogName     varchar(128),
        SchemaName      varchar(128),
        TableName       varchar(128),
        ColumnName      varchar(128),
        Options         char(4000))
with (HANDLESNULLS)
external name '(SQLPseudoColumns)'
LANGUAGE C
END PROCEDURE;

grant execute on procedure SYSIBM.SQLPseudoColumns( varchar(128), varchar(128),varchar (128), varchar(128), char(4000)) to public as SYSIBM  ;