%let dir=C:\b\SAS-X405.5 ;  * root directory ;

*-------------------------------------------------------;

%let prg=&dir\prg ;         * program subdirectory ;
%let sub=&dir\sub;          * subdir containing autoloaded macros ;
%let dat=&dir\data ;        * data subdirectory ;
%let rpt=&dir\rpt ;         * reports and outputs subdirectory ;

*-------------------------------------------------------;
%let outfile="&rpt\BP-corr-wndos.txt" ;   * output file for corr triangle ;

%let odsgpath="&rpt";                     * ods graphics output dir ;
%let odspath="&rpt";                      * ods html output dir ;
%let odsbody="BP-corr-wndos.html";        * ods html output;

%let inset=bpset1 ;         * input data set;
%let inset=bpsetdtkg;

libname corral "&dat" ;
%let iset=corral.&inset ;

proc printto ; run ;
options missing=. ;

title Blood Pressure Correlations YOO;

proc sort data=&iset out=t1;
  by Sd;
run;

data t1 ;
  set t1 ;
  retain slug 1;
  if (mod(_N_,50) = 0) then slug=slug+1;
run;

proc corr noprint data=t1 out=outset;
  by slug;
run;

/*
ods html
  path=&odspath
  gpath=&odsgpath
  body=&odsbody
  ;
goptions device=gif;

ods graphics on;
proc corr data=corral.&inset plots=scatter;
  *plots=matrix ;
  *plots=scatter;
run;
ods graphics off;
ods html close;

*/

data outset2 (drop=_TYPE_ );
  set outset (firstobs=4);
  format _numeric_ 5.2 ;
run;


title2 "proc print data=outset2 noobs";
proc print data=outset2 noobs;
run;

title2 "proc print data=t1 ; run;" ;
proc print data=t1 ; run;


proc printto; run;