/*------------------------------------------------------------*
* program:     cdisc15.sas                                    *
* Description: Verify SEQ values of case #13                  *
* By:          Sy Truong, 10/14/2009                          *
*-------------------------------------------------------------*/
 
libname templib '../data';
/*
data templib.cdisc15a;
   attrib USUBJID length=$8 label="Subjet ID";
   attrib AE length=$40 label="Adverse Event";
   attrib AESEQ length=8 label="Adverse Event Sequence";

   usubjid = '101';
   ae = "Happy";
   aeseq = 1;
   output;

   usubjid = '102';
   ae = "Happy";
   aeseq = 1;
   output;

   usubjid = '101';
   ae = "Happy";
   aeseq = 2;
   output;
run;

%cdisc(datlib=templib,datname=cdisc15a);
*/
data templib.cdisc15;
   attrib USUBJID length=$8 label="Subjet ID";
   attrib AE length=$40 label="Adverse Event";
   attrib AESEQ length=8 label="Adverse Event Sequence";

   usubjid = '101';
   ae = "Happy";
   aeseq = 1;
   output;

   usubjid = '101';
   ae = "Happy";
   aeseq = 1;
   output;

   usubjid = '101';
   ae = "Happy";
   aeseq = 2;
   output;
run;

%cdisc(datlib=templib,datname=cdisc15);
