create procedure CALIAS                                          
-------------------------------------------                      
-- This procedure will allow for dynamic --                      
-- creation of a generic alias           --                      
-------------------------------------------                      
(IN NME CHAR(10),                                                
 IN LIB CHAR(10),                                                
 IN FIL CHAR(10),                                                
 IN MBR CHAR(10))                                                
  language sql                                                   
begin                                                               
  declare stmt varchar (100);                                       
  declare c2 cursor for st;                                         
  set stmt = 'CREATE ALIAS '|| trim(LIB) ||'/'|| trim(NME) ||       
  ' FOR '|| trim(LIB) ||'/'|| trim(FIL) ||' ('|| trim(MBR) ||')';   
  prepare st from stmt;                                             
  execute st;                                                       
  commit;                                                           
end