Code: Select all
wfcreate u 4
genr x = 1
genr y = @obsid
genr z = x+2*y+nrnd
group gz x y
equation eq.ls z gz
equation eqb
call gSub(z,gz,eqb)
subroutine local gSub(series y, group gp, equation eqb)
c(11) = @sum(y)
genr yg = gp(2)
c(12) = @sum(yg)
eqb.ls y gp
endsub
- gp(2) works fine, equals the global series y. By C(12) = 10
- gp(2) in "eqb.ls y gp", short circuit to local series y
