libname cert '/home/uu49144956/Cert'; data cert.majorboth; input major $1-30; cards; communication and statistics statistics and economics mathematics and statistics physics and computer ; run; proc print data = cert.majorboth; run; data work.majorboth1; set cert.majorboth; majornew = tranwrd(strip(major)),"and", ","); run; data work.majorslip; set work.majorboth1; length major1 $15; length major2 $15; major1 = scan(majornew, 1, ","); major2 = scan(majornew, 2, ","); run; proc freq data = work.majorslip; table major1; run