*! version 1.0.0  19feb2001
*  produced for Stata Corp


program define erep
        version 6

        gettoken type 0 : 0, parse(" =(")
        gettoken name 0 : 0, parse(" =(")

        if `"`name'"'=="=" {
                local name `"`type'"'
                local type : set type
        }
        else {
                gettoken eqsign 0 : 0, parse(" =(")
                if `"`eqsign'"' != "=" {
                        error 198
                }
        }

        gettoken fcn 0 : 0, parse(" =(")

        tempvar dummy
        _g`fcn' `type' `dummy' = `0'
        quietly count if missing(`dummy')
        if r(N) {
                local s = cond(r(N)>1,"s","")
                di in bl "(" r(N) " missing value`s' generated)"
        }
        quietly replace `name' = `dummy'
end
exit