PROC sort data=mi9;
by STUDYID usubjid domain miseq;
run;

PROC TRANSPOSE data=mi9 out=suppmi(RENAME =(_NAME_ = QNAM  _LABEL_ =LABEL));
var ISDID PAFI;
by  STUDYID usubjid domain miseq;
run;
data suppmi1; 
set SDTMempt.empty_supp suppmi(where =(not missing(COL1)));
_STUDYID = STUDYID;
_USUBJID = USUBJID;
_RDOMAIN = DOMAIN;
_IDVAR = "MISEQ";
_IDVARVAL=cats(miseq);
_QNAM = QNAM;
_QLABEL = LABEL;
_QVAL = COL1;
_QORIG = "CRF";
run;