煤场存煤计算(powerbuilder+oracle)代码

 //public subroutine uf_caculator (date startday, date endday);

string dt_s,dt_e,dt_cur ,dt_cm,dt_pm ,ls_month
//盘煤
Decimal l_pnum1,l_pnum2,l_pnum3,l_pnum4,l_pnum5,l_pnum6,l_pnum7
Decimal l_pnum8,l_pnum9,l_pnum0,l_pnum11,l_pnum12,l_pnum13,l_pnum14,l_psum
//来煤合计值
Decimal l_num1,l_num2,l_num3,l_num4,l_num5,l_num6,l_num7
Decimal l_num8,l_num9,l_num0,l_num11,l_num12,l_num13,l_num14,l_sum
//入炉合计值
Decimal l_rnum1,l_rnum2,l_rnum3,l_rnum4,l_rnum5,l_rnum6,l_rnum7
Decimal l_rnum8,l_rnum9,l_rnum0,l_rnum11,l_rnum12,l_rnum13,l_rnum14,l_rsum
long row
string ls_s ,ls_e
dw_2.reset( )
if isnull(startday)  then
 startday =  relativedate(date(f_sysdate()),-60) 
end if
if isnull(endday)  then
 endday =  date(f_sysdate())
end if
ls_s = string(startday,'yyyy-mm-dd')
ls_e = string(endday,'yyyy-mm-dd')
declare  cur_m cursor for
sel