proc format;
   value qfmt 1='$qa'
              2='$qb'
	      3='$qc';
   invalue $qa 'positive'='agree'
    	       'negative'='disagree'
               'neutral' ='not sure';
   invalue $qb 'positive'='accept'
	       'negative'='reject'
               'neutral' ='possible';
   invalue $qc 'positive'='pass'
	       'negative'='fail'
	       'neutral' ='retest';
run;

data answers;
   input Question Response $;
     RspInfmt = put(Question, qfmt.);
	 Word = inputc(Response, RspInfmt);
datalines;
1 positive
1 negative
1 neutral
2 positive
2 negative
2 neutral
3 positive
3 negative
3 neutral
run;

proc print data=answers noobs;
run;