{ 
　　sqlglm（msg_buffer， &buffer_size， &msg_length）；
　　END-EXEC；
　　/*如果是stop，该进程就退出*/ 
　　printf（"Daemon quitting.\n"）；
　　BEGIN 
　　printf（"Will execute system command '%s'\n"， value.arr）；
　　:status := DBMS_PIPE.SEND_MESSAGE（:return_name）；
　　END-EXEC；

　　ELSE IF （!strcmp（（char *） command.arr， "SYSTEM"）） 
　　{ 
　　EXEC SQL EXECUTE 
　　IF （status == 0） 
　　EXEC SQL EXECUTE 
　　printf（"Daemon error while connecting:\n"）；

　　EXEC SQL WHENEVER SQLERROR CONTINUE；
　　END；
　　} 
　　DBMS_PIPE.PACK_MESSAGE（:status）；
　　DBMS_PIPE.PACK_MESSAGE（'done'）；
　　main（） 
　　printf（"Daemon waiting...\n"）；
　　END；
　　{ 
　　break；
　　IF :status = 0 THEN 
　　char msg_buffer[512]；
　　/*取出字符*/ 

当前1/2页 

　　EXEC SQL WHENEVER SQLERROR DO sql_error（）；
　　END；
　　printf（"%.*s\n"， msg_length， msg_buffer）；
　　} 

　　void 
　　DBMS_PIPE.UNPACK_MESSAGE（:value）；
　　EXEC SQL EXECUTE 
　　/*接收deamon发来的字符*/ 
　　command.arr[command.len] = '\0'；
　　sqlglm（msg_buffer， &buffer_size， &msg_length）；
　　while （1） { 
　　printf（"Daemon connected.\n"）；