正在看的ORACLE教程是:Oracle如何直接运行OS命令(下)。　　EXEC SQL WHENEVER SQLERROR CONTINUE； 　　sqlglm（msg_buffer， &buffer_size， &msg_length）； 　　printf（"Daemon error while connecting:\n"）； 　　printf（"%.*s\n"， msg_length， msg_buffer）； 　　printf（"Daemon quitting.\n"）； 　　exit（1）； 　　}  　　void  　　sql_error（）  　　{  　　char msg_buffer[512]； 　　int msg_length； 　　int buffer_size = 512； 　　EXEC SQL WHENEVER SQLERROR CONTINUE； 　　sqlglm（msg_buffer， &buffer_size， &msg_length）； 　　printf（"Daemon error while executing:\n"）； 　　printf（"%.*s\n"， msg_length， msg_buffer）； 　　printf（"Daemon continuing.\n"）； 　　}  　　main（）  　　{  　　EXEC SQL WHENEVER SQLERROR DO connect_error（）； 　　EXEC SQL CONNECT :uid； 　　printf（"Daemon connected.\n"）； 　　EXEC SQL WHENEVER SQLERROR DO sql_error（）； 　　printf（"Daemon waiting...\n"）； 　　while （1） {  　　EXEC SQL EXECUTE  　　BEGIN  　　/*接收deamon发来的字符*/  　　:status := DBMS_PIPE.RECEIVE_MESSAGE（'daemon'）； 　　IF :status = 0 THEN  　　/*取出字符*/  　　DBMS_PIPE.UNPACK_MESSAGE（:command）； 　　END IF； 　　END； 　　END-EXEC； 　　IF （status == 0）  　　{  　　command.arr[command.len] = '\0'； 　　/*如果是stop，该进程就退出*/  　　IF （!strcmp（（char *） command.arr， "STOP"））  　　{  　　printf（"Daemon exiting.\n"）； 　　break； 　　}  　　ELSE IF （!strcmp（（char *） command.arr， "SYSTEM"））  　　{  　　EXEC SQL EXECUTE  　　BEGIN  　　DBMS_PIPE.UNPACK_MESSAGE（:return_name）； 　　DBMS_PIPE.UNPACK_MESSAGE（:value）； 　　END； 　　END-EXEC； 　　value.arr[value.len] = '\0'； 　　printf（"Will execute system command '%s'\n"， value.arr）； 　　/*运行os命令*/  　　status = system（value.arr）； 　　EXEC SQL EXECUTE  　　BEGIN  　　DBMS_PIPE.PACK_MESSAGE（'done'）； 　　DBMS_PIPE.PACK_MESSAGE（:status）； 　　:status := DBMS_PIPE.SEND_MESSAGE（:return_name）； 　　END； 　　END-EXEC；