program def dummies *! NJC 1.1.1 20 Oct 1998 version 5.0 local varlist "min(1)" local if "opt" local in "opt" local options "Missing" parse "`*'" parse "`varlist'", parse(" ") while "`1'" != "" { if length("`1'") == 8 { local stub = substr("`1'",1,7) } else local stub "`1'" qui tab `1' `if' `in', gen(`stub') `missing' mac shift } end