home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Komercni / software602 / cnv_ifp.exe / CONV_TR0.PSM < prev    next >
Encoding:
Text File  |  2001-02-12  |  379 b   |  17 lines
  1. {$$3249892617 .                              }FUNCTION `CONV_TRANSFER_101TO102`( { <parameters> } ) RETURNS BOOLEAN;
  2. BEGIN
  3.   DECLARE EXIT HANDLER FOR SQLEXCEPTION,SQLWARNING
  4.   BEGIN
  5.     RETURN FALSE;
  6.   END;
  7.  
  8.   CALL Set_sql_option(64,0);
  9.   DELETE FROM _102Ti_04;
  10.   CALL Set_sql_option(64,64);
  11.  
  12.   INSERT INTO _102Ti_04 SELECT * FROM _101Ti_04;
  13.  
  14.   RETURN TRUE;
  15. END
  16.  
  17.