clear
set mem 50m

insheet using C:\ar_sponsorship.txt, names clear
save c:\ar_sponsorship.dta
drop if pstatus=="P"
drop if pyear<1993
egen pnameyr=concat(pname pyear pstatus)
sort pnameyr
* this must occasionally be changed
reshape long g, i(pnameyr) j(pbillnum)
drop pbillnum
rename g bill
drop if bill==.
tempfile billsp
save billsp, replace

egen totcount=sum(bill>0), by(pnameyr)
collapse totcount pyear , by(pnameyr)
tempfile pfile
save pfile, replace

list pname totcount