options nocenter nodate formchar="|----|+|---+=|-/\<>" nolabel;

data momsag;
set "a:\momsag";
run;

data hospsamp;
set "a:\hospsamp";
run;

data tab9_1c;
set "a:\tab9_1c";
run;

* simple random sampling;

proc descript data = momsag filetype = sas design = wor total ;
  weight weight1;
  nest _one_;
  totcnt birth;
  var momsag;
run;

* stratified simple random sampling;

proc descript data = hospsamp filetype = sas design = wor totals;
  nest oblevel;
  weight weighta;
  totcnt tothosp;
  var births;
  subgroup oblevel;
  levels 3;
  setenv decwidth = 3;
run;

* one-stage cluster sampling;

proc descript data = tab9_1c filetype =sas design = wor means totals;
  nest _one_  devlpmnt;
  totcnt m _zero_;
  weight wt1;
  var nge65 nvstnrs hhneedvn;
run;