Make list of all string variables in a data set

ds, has(type string)
di `r(varlist)'

Make list of variable labels of all variables in data set

sysuse auto, clear

qui ds

local x = "`r(varlist)'"

foreach var of local x {
 di `"`: variable label `var''"'
}