Group Sum
Posted: Thu Aug 27, 2009 12:15 pm
I'm trying to write a subroutine to compute the sum of the series contained in a group.
subroutine grp_sum( series grpsum, group grp )
smpl @all
grpsum = 0
for !grcount = 1 to grp.@count
grpsum = grpsum + grp(!grcount)
show grpsum
next !grcount
endsub
This subroutine produces an output series equal to zero! The show grpsum statement seems to indicate that the subroutine is doing what I want up until the very end when the series name input into the subroutine call is set to zero! Why is this happeneing?
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(47)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(48)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(49)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(50)
Modified:1995Q12015Q4//grpsum=grpsum+grp(51)
Modified: 1995Q1 2015Q4 // pms_lv_us2_s_m1s3 = 0
subroutine grp_sum( series grpsum, group grp )
smpl @all
grpsum = 0
for !grcount = 1 to grp.@count
grpsum = grpsum + grp(!grcount)
show grpsum
next !grcount
endsub
This subroutine produces an output series equal to zero! The show grpsum statement seems to indicate that the subroutine is doing what I want up until the very end when the series name input into the subroutine call is set to zero! Why is this happeneing?
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(47)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(48)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(49)
Modified: 1995Q1 2015Q4 // grpsum = grpsum + grp(50)
Modified:1995Q12015Q4//grpsum=grpsum+grp(51)
Modified: 1995Q1 2015Q4 // pms_lv_us2_s_m1s3 = 0