在Oracle运行操作系统命令

　　2、创建在OS上运行的守护进程,监听由上面的daemon程序包发来的要求执行os命令的语句.以下Pro*C的代码,必须由pro*c先进行预编译.

    #include
    #include

    EXEC SQL INCLUDE SQLCA;

    EXEC SQL BEGIN DECLARE SECTION;
    char *uid = "scott/tiger";/*在这个地方改为你自己访问的用户,密码,服务名*/
    int status;
    VARCHAR command[20];
    VARCHAR value[2000];
    VARCHAR return_name[30];
    EXEC SQL END DECLARE SECTION;

    void
    connect_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 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 
  　　　　  /*取出字符*/ 

文章来源于领测软件测试网 https://www.ltesting.net/