supp transpose for adam

proc transpose data=sdtm.suppeg out= check1;
    by usubjid idvarval;
  var qval;
  id qnam ;
run;