Pro*C 中嵌入pl/sql块

/* 包含C头文件 */
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
/* 包含SQLCA头文件 */
EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE sqlda;
int main()
{
    EXEC SQL BEGIN DECLARE SECTION;
    int  money;
    char answerbuff[200];
    int flag;
    EXEC SQL END DECLARE SECTION;
    /*
     * 定义输入宿主变量:接收用户名、口令和网络服务名
     *
     */
    char username[10],password[10],server[10];
    strcpy(username,"data_center");
    strcpy(password,"data_center");
    strcpy(server,"oradf1"); /*这里填写的是数据库的SID*/
    /* 连接到数据库 */
    EXEC SQL CONNECT :username IDENTIFIED BY :password USING :server;
    if (sqlca.sqlcode==0)
        printf("连接成功!\n");
    else
        /* 显示连接错误消息 */
        printf("%.*s\n", sqlca.sqlerrm.sqlerrml,
                sqlca.sqlerrm.sqlerrmc);
    /*初始化*/
    money=0;
    flag=0; /*用天判断是否找到数据*/
    /*执行plsql块*/
    EXEC SQL EXECUTE
        BEGIN
        SELECT salary INTO :money from plsqltest WHERE name='ht';
        :flag:=1;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
        :answerbuff:='数据没有找到';
    END;
    END-EXEC;
    /*输出结果*/