Cover V12, I08
aug2003.tar

Listing 3 This stored procedure allows 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;