$declare jzzfsqrb1_cur cursor for
select nr[2,17],min(rowid) into $nr2,$rowid from jzzfsh
where t_name=$t_name and nr[1,1]='1'
group by nr[2,17]
order by nr[2,17] desc;
SQLERR("declare jzzfsqrb1_cur err!!!");
$open jzzfsqrb1_cur;
SQLERR("open jzzfsqrb1_cur err!!!");
for(no=0,j=1;;no++)
{
$char bwbz[2],bwbsh[17],sxbz[2],ybwbsh[17],jsrq[9],ywnd[5],pzlx1[2],pzbh[33],
zjxz[2],fkmc[63],fkzh[31],fkhh[13],fkym[43],fkhm[63],skmc[63],
skzh[31],skhm[63],je[17],tzlx[43],tzmc[63],bzw[11],yt[201],bz[201];
$double dje=0.00;
$int ijsrq=0;
memset(bwbz,0, 2);
memset(bwbsh,0,17); memset(sxbz,0,2);
memset(ybwbsh,0,17); memset(jsrq,0,9);
memset(ywnd,0,5); memset(pzlx1,0,2);
memset(pzbh,0,33); memset(zjxz,0,2);
memset(fkmc,0,63); memset(fkzh,0,31);
memset(fkhh,0,13); memset(fkym,0,43);
memset(fkhm,0,63); memset(skmc,0,63);
memset(skzh,0,31); memset(skhm,0,63);
memset(je,0,17); memset(tzlx,0,43);
memset(tzmc,0,63); memset(bzw,0,11);
memset(yt,0,201); memset(bz,0,201);
rowid=0;
memset(nr0,0,1024);
$fetch jzzfsqrb1_cur;
if(sqlca.sqlcode==100)
break;
if(sqlca.sqlcode)
{
mesg_show("fetch jzzfsqrb1 err!!!",sqlca.sqlcode);
$close jzzfsqrb1_cur;
return 1;
}
$select nr into $nr0 from jzzfsh
where t_name=$t_name and rowid=$rowid;
if(sqlca.sqlcode)
{
mesg_show("select nr1 from jzzfsh err!!!",sqlca.sqlcode);
$close jzzfsqrb1_cur;
return 1;
}
sscanf(nr0+1,"%16c%1c%16c%8c%4c%1c%32c%1c%62c%30c%12c%42c%62c%62c%30c%62c%16c%42c%60c%10c%200c%150c",bwbsh,sxbz,ybwbsh,jsrq,ywnd,pzlx1,pzbh,zjxz,fkmc,fkzh,fkhh,fkym,fkhm,skmc,skzh,skhm,je,tzlx,tzmc,bzw,yt,bz);
dje=atof(je)/100.00;
ijsrq=atoi(jsrq);
$insert into jzzfsqrb1 values($bwbsh,$sxbz,$ybwbsh,$ijsrq,$ywnd,$pzlx1,$pzbh,$zjxz,$fkmc,$fkzh,$fkhh,$fkym,$fkhm,$skmc,$skzh,$skhm,$dje,$tzlx,$tzmc,$bzw,$yt,$bz,$t_name);
if(sqlca.sqlcode)
{
mesg_show("insert into jzzfsqrb1 err!!!",sqlca.sqlcode);
$close jzzfsqrb1_cur;
$close jzzfsqrb1_cur;
return 1;
}
//子报文
$declare jzzfsqrb2_cur cursor for
select nr into $nr0 from jzzfsh
where t_name=$t_name and nr[1,1]='2' and nr[2,17]=$bwbsh;
if(sqlca.sqlcode)
{
mesg_show("declare jzzfsqrb2_cur select from jzzfsh(no=2) err!!!",sqlca.sqlcode);
$close jzzfsqrb2_cur;
return 1;
}
$open jzzfsqrb2_cur;
if(sqlca.sqlcode)
{
mesg_show("open jzzfsqrb2_cur err!!!",sqlca.sqlcode);
$close jzzfsqrb2_cur;
return 1;
}
for(no1=0;;no1++)
{
$char mxbwbsh[17],mxbm[21],qshh[13],qszh[31],qshm[63],qszhmc[63],yskm[9],
yskmmc[63],zcjm[43],zcjmmc[63],jsfs[2],zjxzbm[43],zjxzmc[63],yslx[43],
yslxmc[63],xzmxbm[43],xzmxmc[63],gkcs[11],ysdwbm[16],ysdwmc[63],
mxje[17],mxbzw[11],hkrq[9],tkrq[9],hkpzbh[19],tkpzbh[19],rbbh[20],
rblx[2],mxzjxz[2];
$double dmxje=0.00;
memset(mxbwbsh,0,17); memset(mxbm,0,21);
memset(qshh,0,13); memset(qszh,0,31);
memset(qshm,0,63); memset(qszhmc,0,63);
memset(yskm,0,9); memset(yskmmc,0,63);
memset(zcjm,0,43); memset(zcjmmc,0,63);
memset(jsfs,0,2); memset(zjxzbm,0,43);
memset(zjxzmc,0,63); memset(yslxmc,0,63);
memset(xzmxbm,0,43); memset(xzmxmc,0,63);
memset(gkcs,0,11); memset(ysdwbm,0,16);
memset(ysdwmc,0,63); memset(mxje,0,17);
memset(mxbzw,0,11); memset(hkrq,0, 9);
memset(tkrq, 0, 9); memset(hkpzbh,0,19);
memset(tkpzbh,0,9); memset(rbbh, 0, 20);
memset(rblx, 0,2); memset(mxzjxz, 0, 2);
memset(yslx,0,43); memset(nr0,0,1024);
$fetch jzzfsqrb2_cur;
if(sqlca.sqlcode==100)
break;
if(sqlca.sqlcode)
{
mesg_show("fetch jzzfsqrb2_cur err!!!",sqlca.sqlcode);
$close jzzfsqrb1_cur;
$close jzzfsqrb2_cur;
return 1;
}
sscanf(nr0+1,"%16c%20c%12c%30c%62c%62c%8c%62c%42c%62c%1c%42c%62c%42c%62c%42c%62c%10c%15c%62c%16c%10c%8c%8c%18c%18c%19c%1c%1c",mxbwbsh,mxbm,qshh,qszh,qshm,qszhmc,yskm,yskmmc,zcjm,zcjmmc,jsfs,zjxzbm,zjxzmc,yslx,yslxmc,xzmxbm,xzmxmc,gkcs,ysdwbm,ysdwmc,mxje,mxbzw,hkrq,tkrq,hkpzbh,tkpzbh,rbbh,rblx,mxzjxz);
dmxje=atof(mxje)/100.00;
$insert into jzzfsqrb2 values($mxbwbsh,$mxbm,$qshh,$qszh,$qshm,$qszhmc,$yskm,$yskmmc,$zcjm,$zcjmmc,$jsfs,$zjxzbm,$zjxzmc,$yslx,$yslxmc,$xzmxbm,$xzmxmc,$gkcs,$ysdwbm,$ysdwmc,$dmxje,$mxbzw,$hkrq,$tkrq,$hkpzbh,$tkpzbh,$rbbh,$rblx,$mxzjxz,$t_name);
if(sqlca.sqlcode)
{
mesg_show("insert into jzzfsqrb2 出错!!!",sqlca.sqlcode);
$close jzzfpzqd_cur;
$close jzzfpzqd1_cur;
return 1;
}
}
$close jzzfpzqd2_cur;
}
$close jzzfsqrb1_cur; |