use "id2012_vs.dta" ,clear /*For illustrative purposes, drop everything else so then it doesn't take too long to run*/ keep caseid vcal_1 browse vcal_1 di length(vcal_1) *length is 65 chars, so reduce to 65 chars format %65s vcal_1 gen e1 = substr(vcal_1,1,1) gen e2 = substr(vcal_1,2,1) gen e3 = substr(vcal_1,3,1) gen e4 = substr(vcal_1,4,1) gen e5 = substr(vcal_1,5,1) gen e6 = substr(vcal_1,6,1) gen e7 = substr(vcal_1,7,1) gen e8 = substr(vcal_1,8,1) gen e9 = substr(vcal_1,9,1) gen e10 = substr(vcal_1,10,1) gen e11 = substr(vcal_1,11,1) gen e12 = substr(vcal_1,12,1) gen e13 = substr(vcal_1,13,1) gen e14 = substr(vcal_1,14,1) gen e15 = substr(vcal_1,15,1) gen e16 = substr(vcal_1,16,1) gen e17 = substr(vcal_1,17,1) gen e18 = substr(vcal_1,18,1) gen e19 = substr(vcal_1,19,1) gen e20 = substr(vcal_1,20,1) gen e21 = substr(vcal_1,21,1) gen e22 = substr(vcal_1,22,1) gen e23 = substr(vcal_1,23,1) gen e24 = substr(vcal_1,24,1) gen e25 = substr(vcal_1,25,1) gen e26 = substr(vcal_1,26,1) gen e27 = substr(vcal_1,27,1) gen e28 = substr(vcal_1,28,1) gen e29 = substr(vcal_1,29,1) gen e30 = substr(vcal_1,30,1) gen e31 = substr(vcal_1,31,1) gen e32 = substr(vcal_1,32,1) gen e33 = substr(vcal_1,33,1) gen e34 = substr(vcal_1,34,1) gen e35 = substr(vcal_1,35,1) gen e36 = substr(vcal_1,36,1) gen e37 = substr(vcal_1,37,1) gen e38 = substr(vcal_1,38,1) gen e39 = substr(vcal_1,39,1) gen e40 = substr(vcal_1,40,1) gen e41 = substr(vcal_1,41,1) gen e42 = substr(vcal_1,42,1) gen e43 = substr(vcal_1,43,1) gen e44 = substr(vcal_1,44,1) gen e45 = substr(vcal_1,45,1) gen e46 = substr(vcal_1,46,1) gen e47 = substr(vcal_1,47,1) gen e48 = substr(vcal_1,48,1) gen e49 = substr(vcal_1,49,1) gen e50 = substr(vcal_1,50,1) gen e51 = substr(vcal_1,51,1) gen e52 = substr(vcal_1,52,1) gen e53 = substr(vcal_1,53,1) gen e54 = substr(vcal_1,54,1) gen e55 = substr(vcal_1,55,1) gen e56 = substr(vcal_1,56,1) gen e57 = substr(vcal_1,57,1) gen e58 = substr(vcal_1,58,1) gen e59 = substr(vcal_1,59,1) gen e60 = substr(vcal_1,60,1) gen e61 = substr(vcal_1,61,1) gen e62 = substr(vcal_1,62,1) gen e63 = substr(vcal_1,63,1) gen e64 = substr(vcal_1,64,1) gen e65 = substr(vcal_1,65,1) *reshape from WIDE to LONG reshape long e,i(caseid) j(event_time)