一个关于游标的问题

wangxing8818

$include sqlca;
$include cost_dbbuf.h;
$include decimal;
main()
{
        $char JfdtKhh[6];
        $double JfdtScjf;
        $double JfdtJf;
        $double JfmxJfz;
        $double SumJf;
       
        $database cost;
        printf("Please give a khh:\n");
        gets(JfdtKhh);

        $declare JfdtPtr scroll cursor for select jfdt.jf,jfdt.scjf,jfmx.jfz from jfdt,jfmx where jfdt.khh=$JfdtKhh and jfmx.khh=$JfdtKhh;
        $open JfdtPtr;
        $fetch current JfdtPtr into $cost_jfdt.jf,$cost_jfdt.scjf,$cost_jfmx.jfz;
       
        dectodbl(&cost_jfdt.jf,&JfdtJf);
        dectodbl(&cost_jfdt.scjf,&JfdtScjf);
        dectodbl(&cost_jfmx.jfz,&JfmxJfz);
       
        SumJf = JfdtScjf + JfmxJfz;
        if(SumJf==JfdtJf)
                printf("The sum of jf is right.\n");
        else
                printf("Error!!!!");
       
        $close JfdtPtr;
        exit(0);
}




这段程序在$fetch current JfdtPtr into $cost_jfdt.jf,$cost_jfdt.scjf,$cost_jfmx.jfz;这里出错了    不知道为什么错    请大大们帮忙看一下     谢谢了