// Breaking up long labels
sysuse auto, clear
#delimit
label define origin 0 `"group0 group0 group0 group0 group0
group0 group0 group0 group0 group0"', modify;
label define origin 1 "group1 group1 group1 group1 group1
group1 group1 group1 group1 group1 ", modify;
#delimit cr
local relabels
local relabels1
levelsof for, local(groups)
local s_len=20 //Change to required length
foreach g of local groups {
local label : label origin `g'
local len : length local label
if `len'>`s_len' {
forvalues i=1/ `=`len'/`s_len'+1' {
local p1 : piece `i' `s_len' of `"`label'"', nobreak
local relabels `"`relabels' `=char(34)+ &#