{ ************************************************************************* }
{                                                                           }
{  Licensed Materials - Property of IBM and/or HCL                                     }
{                                                                           }
{  IBM Informix Dynamic Server                                              }
{  (c) Copyright IBM Corporation 1996, 2004 All rights reserved.            }
{  (c) Copyright HCL Technologies Ltd. 2017.  All Rights Reserved.             }
{                                                                           }
{ ************************************************************************* }
{                                                                           }
{   Title:      boot920a.sql                                                }
{                                                                           }
{   Description:                                                            }
{       Bootstrapping script for a 9.20 post STAR release 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.get_cursor_table(lvarchar)
    returns lvarchar
    external name '(mi_get_cursor_table)'
    language C;

grant execute on function informix.get_cursor_table(lvarchar) 
	to public as informix;

create dba function informix.mi_cast_datum(informix.sendrecv, 
	  int, int, int, int)
	returns informix.sendrecv
	external name '(mife_cast_datum)'
	language C;

create dba function informix.mi_cast_datum(informix.sendrecv, 
	  informix.lvarchar, informix.lvarchar)
	returns informix.sendrecv
	external name '(mife_cast_datum_by_name)'
	language C;

grant execute on function informix.mi_cast_datum(informix.sendrecv,
	  int, int, int, int)
	to public as informix;

grant execute on function informix.mi_cast_datum(informix.sendrecv,
      informix.lvarchar, informix.lvarchar)
	to public as informix;


create dba procedure sqlj.install_jar(varchar(255), varchar(255), int)
external name 'informix.jvp.dbapplet.impl.JarHandler.installJar(java.lang.String, java.lang.String, int)' language java end procedure;

grant execute on procedure sqlj.install_jar(varchar(255), varchar(255), int)
	to public as sqlj;

create dba procedure sqlj.remove_jar(varchar(255), int)
external name 'informix.jvp.dbapplet.impl.JarHandler.removeJar(java.lang.String, int) ' language java end procedure;

grant execute on procedure sqlj.remove_jar(varchar(255), int)
	to public as sqlj;

create dba function informix.jvpcontrol(informix.lvarchar) 
    returns informix.lvarchar with (iterator)
    external name 
    'informix.jvp.dbapplet.impl.JVPControl.JVPControlUDR(java.lang.String)' 
    language java end function;
	
grant execute on function informix.jvpcontrol(informix.lvarchar)
        to public as informix;