stores_demo -  functions -  ifx_replace_module;2

Description

none

Function properties

name	value
name	ifx_replace_module;2
created
type	SQL scalar function

Parameters

none

Usage

set @myvar = ifx_replace_module;2

Code

create dba procedure informix.ifx_replace_module (oldmodulename varchar(255),
        newmodulename varchar(255),
        languagename varchar(255), module_ownername varchar(32)) returns int

     define retvalue int;
     let retvalue = ifx_invalid_module(oldmodulename,
                          languagename);

     if retvalue = 0 then 
         let retvalue = ifx_update_extern( oldmodulename, newmodulename, languagename);
         update informix.sysprocedures
         set externalname = ifx_new_external(newmodulename, externalname,
                              languagename)
         where owner = module_ownername 
             and ifx_match_external(oldmodulename, externalname) = 1;
         let retvalue = ifx_load_internal(newmodulename, languagename);
     end if;

     if retvalue = 0 then
         return 0;
     else 
         raise exception -9720;
     end if;

end procedure;