You need to loop over integers 1/12 and refer to the result of the recode.
Code:
quietly {
gen double indmun=.
gen double inddyn=.
* don't use -sum()- (undocumented since Stata 9)
bysort sic_d fyear : egen double indsales = total(sale)
by sic_d fyear : gen int indcount=_n
tempname indmean
forvalues i=1/12 {
forvalues curyear=1980/2010 {
summarize sale if sic_d==`i' & inrange(fyear, `curyear' - 4, `curyear'), meanonly
if r(N) > 1 {
scalar `indmean' = r(mean)
regress indsales fyear if sic_d==`i' & inrange(fyear, `curyear' - 4, `curyear') & indcount==1, vce(r)
replace indmun = _b[fyear] / `indmean' if sic_d==`i' & fyear==`curyear'
replace inddyn = _se[fyear] / `indmean' if sic_d==`i' & fyear==`curyear'
}
}
}
}
Code:

I adjusted the code accordingly:
Leave a comment: