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;
|