webuse choice

asclogit choice dealer, case(id) alternatives(car) casevars(sex income)

postfile ame str15(alternative casevar) dp lcl ucl using "ascmargins.dta", replace
local alteqs = e(alteqs)
local casevars = e(casevars)

 forvalues i=1/2 {
	estat mfx, varlist(sex income) at(sex=`i' dealer=1)
	foreach alt of local alteqs {
		local row = 0
		foreach cv of local casevars {
			local row = `row' + 1
			matrix A = r(`alt')
			scalar dp = el(A, `row', 1)
			scalar lcl = el(A, `row', 5)
			scalar ucl = el(A, `row', 6)
			post ame ("`alt'") ("`cv'") (dp) (lcl) (ucl)
			}
		}

	}
	
postclose ame

use ascmargins.dta, clear