-- Listing 3: This stored procedure allow spawning the buc_server.ss script
-- on the remote server.
CREATE PROCEDURE sp_spawn_rem(x_command char(80), rem_key char(20))
RETURNING SMALLINT;
DEFINE valid_command SMALLINT;
 
   LET valid_command = 0;   
   IF x_command = "/home/eds/buc/buc_server.ss"          
   THEN
      LET valid_command = 1;
   END IF
 
   IF (valid_command = 1)   
   THEN
      SYSTEM x_command || " " || rem_key;
      RETURN 1;
   END IF
   RETURN 0;
END PROCEDURE;
