drop function af4test/euro_francs;
drop function af4test/franc_euros;
drop function af4test/dec_euro_francs;
drop function af4test/dec_franc_euros;
 
 create function af4test/dec_franc_euros (VALEUR decimal(9, 2))
                 returns decimal(9, 2)
 LANGUAGE SQL RETURNS NULL ON NULL INPUT
 
 BEGIN
 DECLARE VALEUROS DECIMAL ( 9 , 2 ) ;
  SET VALEUROS = VALEUR / 6.55957;
  RETURN VALEUROS ;
 END;
 
 
 create function af4test/dec_euro_francs (VALEUR decimal(9, 2))
                 returns decimal(9, 2)
 LANGUAGE SQL RETURNS NULL ON NULL INPUT
 
 BEGIN
 DECLARE VALFRANCS DECIMAL ( 9 , 2 ) ;
  SET VALFRANCS= VALEUR * 6.55957;
  RETURN VALFRANCS ;
 END;
 
 
 create function af4test/franc_euros (VALEUR FRANCS)
                 returns EUROS
 LANGUAGE SQL RETURNS NULL ON NULL INPUT   STATIC DISPATCH
 
 BEGIN
 DECLARE VALEUROS DECIMAL ( 9 , 2 ) ;
  SET VALEUROS = CAST(VALEUR as decimal(9,2) ) / 6.55957;
  RETURN CAST(VALEUROS as euros);
 END;
 
 
 create function af4test/euro_francs (VALEUR EUROS)
                 returns FRANCS
 LANGUAGE SQL RETURNS NULL ON NULL INPUT   STATIC DISPATCH
 
 BEGIN
 DECLARE VALFRANCS DECIMAL ( 9 , 2 ) ;

  SET VALFRANCS= cast(VALEUR as decimal(9,2) ) * 6.55957;
  RETURN cast(VALFRANCS as FRANCS);
 END;