====================== Pgm1 =============================

/* assuming formats.sas7bcat and rndhrs_i are in Sas8 */
Libname library " c:\RandHRS\Sas";

/* N's by wave */
proc freq data=library.rndhrs_i;
  table inw1-inw8 r6iwstat r7iwstat r8iwstat
     /missprint;

===================== Wkshop =============================

/* assuming formats.sas7bcat and rndhrs_i are in Sas8 */
Libname library "c:\RandHRS\Sas";
Libname mylib "c:\MyPaper\Sas";  /* where you keep files you create */

data mylib.wkshop;
   set library.rndhrs_i
              (keep=hhidpn rahhidpn inw1-inw8 hacohort ragender raracem
                    r6iwstat r7iwstat r8iwstat
                    r6higov  r7higov  r8higov
                    r6doctor r7doctor r8doctor
                    r6agey_e r7agey_e r8agey_e
                    s6higov  s7higov  s8higov
                    s6doctor s7doctor s8doctor);
   if inw6=1 or inw7=1 or inw8=1;
run;
proc contents data=mylib.wkshop;
run;
 

======================= tab1 ===============================

/* assuming formats.sas7bcat and rndhrs_i are in Sas8 */
Libname library "c:\RandHRS\Sas";
Libname mylib "c:\MyPaper\Sas";  /* where you keep files you create */

proc means data=mylib.wkshop;
   var r6higov r7higov r8higov;
run;
proc freq data=mylib.wkshop;
  /* by cohort */
   table r8higov*hacohort
         /missprint;
   table r7higov*s7higov r7higov*r8higov /misprint;
   table r7higov*r7doctor r8higov*r8doctor
         ragender*(r8higov r8doctor)
         ragender*r8higov*r8doctor
         /missprint;
run;     

======================= mrgtab ===============================

/* assuming formats.sas7bcat and rndhrs_i are in Sas8 */
Libname library "c:\RandHRS\Sas";
Libname mylib "c:\MyPaper\Sas";  /* where you keep files you create */

data mylib.wkplus;
   merge mylib.wkshop (in=inrnd)
        library.h04f1a (in=i04 keep=hhidpn rahhidpn hhid pn
                                jn152)
        library.h06f2a (in=i06 keep=hhidpn rahhidpn hhid pn
                                kn152);
  by rahhidpn;
  in04=i04;
  in06=i06;
  if inw7=1 and inw8=1;
run;
proc freq data=mylib.wkplus;
   table in04*inw7 in06*inw8 /missing list;
   table jn152 kn152 /misprint;
   table r7higov*r8higov r7doctor*r8doctor /missprint;
   table r7doctor*jn152 r8doctor*kn152
       /missprint;
run;