x cd /wwwhome/uic/uicapps; %let pgm=xtabs3;  filename pgm "&pgm..sas";
*----This is /wwwhome/uic/uicapps/xtabs3.sas -----;
 *---Use the xtabs3t.sas module for testing purposes-------------------*;
%let date = 12/04/99;    *<-- date last revised;
%let tester=kumar;  *--normally use value of john --;
 /* Maintenance history:
    7-2x-97: Initial coding.
    8-05-97: Add plain text option (fo=text).
    8-07-97: Add noborder option as part of format parm.
    8-11-97: lowcase value of st parm.
   12-04-97: Added code to process mcd/cousub geocodes.
             Added library libname stmt.
   11-05-98: Minor cosmetic chages. bgcolor of table set to white.  Spaces
             added after "XP1." etc in headers.
   03-03-99: Add ability to process telex geography. Need state and telex
             parms.  Also changing footer to ref oseda and mscdc.

 */
*---This www-accessible routine will write a Basic Tables profile based on
    1990 stf3 data directly to stdout, i.e. back to the client browser--;
%let version=1.2;
%let topdir=/wwwhome/uic/uicapps;
%let tmp=&topdir/tmp;

 *libname library '/mscdc/ciesin/mable/mable.sdl' access=readonly;
 libname library '/mscdc/sasctlgs7' access=readonly;
  options  nonumber nodate nocenter;
 options skip=0;
filename tstdin   '/wwwhome/uic/uicapps/tstdin';
filename tstdout  '/wwwhome/uic/uicapps/tstdout.html';
 /*  This is the old "manual" way to figure out where input/output came
      from/went to .....  now we use a sysget function to let program
      figure it out for itself ... 
      */
%let parmsin=tstdin; *<---parsprms module references this file;
*let parmsin=stdin; *<---for running from html--;

%let fileout=tstdout;
*let fileout=stdout;
 
*--assign parmsin and fileout based on unix en var user--;
  data _null_;
   *--when this is run from http the unix env var $USER is not defined. But
      it still works, since undefined is still not 'john' (now the value of parm, &tester)--;
   user=sysget('USER'); put user=;
   if user="&tester" then call symput('parmsin','tstdin');
    else call symput('parmsin','stdin');
   if user="&tester" then call symput('fileout','tstdout');
    else call symput('fileout','stdout');
   run;
  %put &parmsin;

options mprint;

 options linesize=120 pagesize=120 nocenter nodate;

 *--these are parms for state county zip tract blkgrp pmsa msacmsa place mcd;
 %global st co zi tr bg ms pm pl mc te;
 %global stfips;
 %global fo;  *--format of output: htlm or text-;
 %global noborder;

 %let parmnaml=2;  *--parsprms routine checks this global parm and limits
       length of parsed parmnames to this length.  So user can specify
       "zi" or "zip" or "zipcode" and they all come out just "zi".--;

 %include '/wwwhome/uic/uicapps/parsprms.sas';
 %put _global_;  *<---displays the parms after parsing step--;

*--Following code adapted from sascode(xtmostat)--;
 %put ***** xtabs3 in uicapps, Revised 12-4-97 (C) -- loaded for work ****;
*-----------------------****************-----------------;
%let title1 =Urban Information Center, U. of Missouri St. Louis;
%let title2 =1990 STF 3 Standard Extract Report - Basic Tables;

*--use macro to check type of st parm (alpha or numeric). convert alpha to
   numeric (postal abbrev to fips) if necessary.--;
 %macro ckit;
   %if %qupcase(&st)=%quote(OR) %then %let st=41; %*--avoid problem with or for oregon-;
   %let st=%lowcase(&st);
   %if ak le &st and &st le wy %then %let stfips=%stcnvt(&st);
    %else %do;
      %let stfips=&st;  %let st=%stcnvt(&stfips);
      %end;
   %mend ckit;
  %ckit


 %put stfips=&stfips  st=&st;


 *--data step to analyze the parms and point to the correct observation on the
    correct sas data set--;
  data dum(keep=state);
    length state stab $2;
    length fo $5 format $4;  retain fo "&fo ";
    length _errmsg $120  where where2 $64;
    retain state "&stfips" stab "&st";
    if verify(state,'0123456789') then do;
       *--user specified a fips code instead of a postal abbrev. switch them-;
       _save=state;  state=stab;  stab=_save;
       end;
    stab=lowcase(stab);
    if fo="html2" then call symput('noborder','no');  *<--html2 is html table
              but without borders--;
    if fo =" " or upcase(fo)=:'H' then format='html'; else format='text';
    if length("&pl ") eq 5 then do;
      length _arg7 $7 _cenplac $4;  _arg7=state||"&pl";
      _cenplac=put(_arg7,$fplccnv.);
      if _cenplac=' ' then
       _errmsg='FIPS place code not found in convert table';
      place=_cenplac;
      end;
   *--new code for mcd processing, 12.97--;
    if length("&mc") eq 5 then do;
      length _mcdarg $10 _cenmcd $3;  _mcdarg=state||"&co&mc";
      _cenmcd =put(_mcdarg,$fmcdcnv.);
      put _cenmcd=;
      if _cenmcd =' ' then do;
       _errmsg='FIPS MCD code not found in convert table. ';
          end;
      mcd=_cenmcd;
      end;
    *--set flags based on which parms were specified--;
    st="&st " ne " ";
    co="&co " ne " ";
    zi="&zi " ne " ";
    tr="&tr " ne " ";
    bg="&bg " ne " ";
    ms="&ms " ne " "; *--msa/cmsa--;
    pm="&pm " ne " "; *--pmsa--;
    pl="&pl " ne " ";
    mc="&mc " ne " ";
    te="&te " ne " ";
    length state $2 cnty $3 county $5 tract $7 zip $5 place $4 metro $4 blkgrp $1;
    retain county cnty "&co" tract "&tr" zip "&zi" place "&pl" metro "&ms" blkgrp "&bg";
    retain mcd "&mc";
    length telex $7; retain telex "&te";
    if 0 <length(tract) <7 then do;
       if length(tract)=6 and index(tract,'.')=0 then
         tract=substr(tract,1,4)||'.'||substr(tract,5,2);
       else do;
         length ntract 8;  ntract=tract;  tract=put(ntract,z7.2);
         end;
       end;
    if length(county)=3 then county=state||"&co";
       else if length(county)=5 then cnty=substr(county,3,3);
    length dir $40 sasdset $8;
    dir='/mscdc/data/stf903x/';
    length subdir $20;
  if bg then subdir="slvl150.bystate";
   else if tr then subdir="slvl140.bystate";
     else if pl then subdir="slvl160.bystate";
      else subdir=" ";
  if subdir ne " " then dir=trim(dir)||subdir;
  if bg then do;
    if co + tr ne 2 then _errmsg='BG specified but not county and tract';
    sasdset=stab||'bgs';    statset='stats150';  
    where="county='"||county||"' and tract='"||tract||"' and bg='"
            ||blkgrp||"'";
    end;
  else if tr then do;
    if co ne 1 then _errmsg='BG specified but not county and tract';
    sasdset=stab||'tracts';  statset='stats140';
    where="county='"||county||"' and tract='"||tract||"'";
    end;
  else if pl then do;
    sasdset=stab||'places';  statset='stats160'; 
    where="place='"||place||"'";
    end;
  else if mc then do;
    if not co then _errmsg='MCD specified but not county';
    if stab not in ('ar','ia','il','in','ks','mo','ne','ny','pa','tn','tx')
      then _errmsg='Sorry - we do not have MCD data for this state.';
    sasdset=stab||'i';
    where="county='"||county||"' and cousubce='"||mcd||"'";
    end;
  else if te then do;
    if length(telex)=6 then telex=substr(telex,1,3)||':'||substr(telex,4,3);
    if length(telex) ne 7 or verify(telex,':0123456789') then _errmsg=
      'Invalid tel exchange code. Must be area code and 3-digit dialing pfx';
    where="telex='"||telex||"'";
    sasdset=stab||"telex";
    if not st then _errmsg='Tel exchange specified but not state';
    end;

  else if zi then do;
    if length(zip) ne 5 or verify(zip,'0123456789')
      then _errmsg='Value of zi(pcode) parm invalid: must be 5 digits';
    if not st then do;  *--determine the state code--;
      stab=lowcase(put(zip,$zipstab.));
      if stab=' ' then _errmsg='Cannot assign ZIP code to a state';
      end;
    ustab=upcase(stab);
    if state ne ' ' then where="state='"||state||"'";
     else if stab ne ' ' then where="stab='"||ustab||"'";
    where=trim(where)||" and zip='"||zip||"'";
    sasdset='uszips';  statset='stats800';
    end;
  else if ms then do;
    sasdset="us";
    if st then  where="state='"||state||"' and slvl='310' & ";
     else where= "slvl='300' & ";
    if length(metro)=4 and verify(metro,'0123456789')=0 then where2=
     "msacmsa='"||metro||"'";
     else _errmsg="Value of ms(a) parm (&ms) is not 4 numeric digits";
    where=trim(where)||' '||where2;
    end;
  else if pm then do;
    sasdset="us";
    metro="&pm";
    if st then  where="state='"||state||"' and slvl='311' & ";
     else where= "slvl='301' & ";
    if length(metro)=4 and verify(metro,'0123456789')=0 then where2=
     "pmsa='"||metro||"'";
     else _errmsg="Value of pm(sa) parm (&pm) is not 4 numeric digits";
    where=trim(where)||' '||where2;
    end;
  else if co then do;
    sasdset="us";   statset='stats050';
    if st then where="slvl='050' and state='"||state||"'";
       else where="slvl='050'";
    where=trim(where)||" and county='"||county||"'";
    end;
  else if st then do;
    state=lowcase(state);
    sasdset="us";  
    if state="us" or state="00" then where="slvl='010'";
     else if ('r1' <= state <= 'r4') then where="slvl='020' and geocode='"||
         substr(state,2,1)||"'";
     else if ('d1' <= state <= 'd9') then where="slvl='030' and geocode='"||
         substr(state,2,1)||"'";
     else do; 
       where="slvl='040' and state='"||state||"'";
       statset='stats040'; 
       end;
    end;
  else _errmsg='No supported geographic units requested';

      call symput('errmsg',_errmsg);
      call symput('where',trim(where));
      call symput('dir',trim(dir));
      call symput('sasdset',trim(sasdset)); 
      call symput('statset',trim(statset)); 
      call symput('format',format);  *--html or text--;
    output; stop;
    run;
  options no$syntaxcheck;
 %put **Global parms after data step editing:;
 %put _global_;

 %macro ckforerr;
  %global errmsg;
  %if %quote(&errmsg) ne %str() %then %do;
  data _null_;
    file &fileout;  **stdout;
    put 'Content-type:  text/html'///;
    put '<head><title>xtabs3 error message</title></head>';
    put '<h2>Invalid parms passed to xtabs3 Application</h2>';
  put 'Sorry, we are unable to process your request for a Basic Tables report';
  put "<br><b> &errmsg <b> ";

  put '<p>Please check your parameter specifications and try again.';
  put '</body>';
    run;
    options no$syntaxcheck;
  data _null_;  abort;  run;  *--stop the whole thing--;
  %end;
 %mend ckforerr;
 %ckforerr

 options nomprint nosymbolgen;


 libname stf903x "&dir" access=readonly;
*-------------------generate the report------------------------------*;
 data dum;
  file &fileout;  **stdout;
  retain format "&format";
  if format='html' then do;
    put 'Content-type:  text/html'///;
    put '<head><title>Basic Tables report from Missouri State Census Data
Center</title></head>';
    end;

  length areaname $64;  *<--allow for longer enhanced versions--;
  %macro genset;
    %if &sasdset=&st.telex %then %do;
     libname stf93xwc '/mscdc/data/stf903x/wcs.bystate' access=readonly;
     *--we need both these data libraries to resolve the view--;
     libname stf903wc '/mscdc/data/stf903/wcs.bystate' access=readonly;
     set stf93xwc.&sasdset (
     %end;
  %else %do;
    set stf903x.&sasdset (
    %end;
    %mend genset;
  %genset

  where=( &where )) dum(in=dummy);
  if _n_=1 and dummy and format='html' then do;
    put '<h2>Sorry!<h2>';
    put 'Unable to find the geographic code(s) specified.  Please review '
        'your parameter specifications and try again. ';
    goto genfoot;
    end;
    
 *--Read the rankings data used to read the univariate-ranking stats set, used to 
    determine values in extreme ranges and color-code them--*;
       

 *-----some last minute edits of the areaname field-------;
 if 0 then msacmsa='    ';  *--establish length to avoid syntax error-;
 if 0 then county='     ';
 if slvl='800' or slvl='050' then areaname=trim(areaname)||','||stab;
 else if slvl='310' then areaname=trim(put(msacmsa,$metro.))||' ('||stab||
    ' pt.)';
 else if slvl='311' then do;
   length _arg $5;  _arg=pmsa||'P';
   areaname=trim(put(_arg,$metro.))||' ('||stab||
    ' pt.)';
   end;
 else if slvl in ('140','150') then areaname=trim(put(county,$county.))||
' County, '||areaname;

  %if &statset ne " "  %then  %do; 
    libname stats v8 "/mscdc/data7/stf903x"; 
    set stats.&statset  
     %if &statset ne stats040 and &statset ne stats050 %then %do;  
      (where=(state="&st"));
       %end;
     %end;

 *--define cum pcts for age table--*;
 pct0_9=pct0_4+pct5_9;
 pct0_13=pct0_9+pct10_13;
 pct0_17=pct0_13+pct14_17;
 pct0_24=pct0_17+pct18_24;
 pct0_34=pct0_24+pct25_34;
 pct0_44=pct0_34+pct35_44;
 pct0_54=pct0_44+pct45_54;
 pct0_59=pct0_54+pct55_59;
 pct0_64=pct0_59+pct60_64;
 pct0_74=pct0_64+pct65_74;
 pct0_84=pct0_74+pct75_84;

 asstbach=college2+college3;  pctasstb=pctcoll2+pctcoll3;
 
 %macro td(v,f,pct=0);
    %*--generate code to be included in PUT stmt to generate one <td> spec for variable v, using format f, and appending
      '%' iff pct=1); 
     td='<td align=right ';
     bgc='        ';  bold='   ';
     if &v lt p5_&v then do; 
       bgc='dark low';  bold='<b>'; 
       end;
     else if &v le p25_&v then bgc='light low';    
       else if &v gt p75_&v then bgc='light high'; 
         else if &v gt p95_&v then do;  
           bgc='dark high';  bold='<b>; 
           end;
    if bgc ne ' ' then bgc=' bgcolor='||bgc;       
    td=trim(td)||bgc||'> ' ||bold||" &v &f"; 
    if pct then td=trim(td)||'%';  
    td=trim(td)||' </td>';
    put td; 
    %mend td;         
      
 %macro dorept;
   *--unable to have a data step do 1 or the other - have to use macro--;
  %if &format=html %then %do;

PUT  '<!--This document produced from SAS program in '
      '/wwwhome/uic/uicapps/xtabs3.sas -->'  ;
PUT  '<!--John Blodgett, john@oseda.missouri.edu -->';
PUT    '<body bgcolor=whitesmoke>';
PUT   '<font face="times roman,courier,arial">';
**PUT    "<H2 ALIGN=CENTER> <font color=#ff0000> &title1 </font> </H2>" ;
put      "<H3 ALIGN=CENTER> <font color=brick> &title2 </font> </H3>" ;
put /  '<H4 ALIGN=CENTER>Geocode:&nbsp;'  GEOCODE '&#160;&#160;Areaname:&nbsp;' areaname  ', Tract 12</H4>' ;
PUT    '<CENTER>';
 options nosource; *<================================================;
put "<basefont size=1>" 
put "<TABLE BORDER COLS=1 bgcolor=white cellspacing=0 cellpadding=2 width=65% ><font face=times roman>"
    /    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP1">'
    /'         XP1.</A> GENERAL POPULATION </B></TD>'
    / '</TR>';
PUT    '<TR >'
    /'     <TD>TOTAL PERSONS/PERCENT SAMPLED </TD>'
    /'     <TD ALIGN=RIGHT>' TOTPOP   COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTSMPLD 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>      &nbsp;               </TD>' / '</TR>';
; if slvl ne '800' then
PUT    '<TR>'
    /'     <TD>PER SQUARE MILE / LAND AREA </TD>'
    /'     <TD ALIGN=RIGHT>' POPPSQMI 10.2     '</TD>'
    /'     <TD ALIGN=RIGHT>' LANDSQMI 10.2     '</TD>'
    /'     <TD ALIGN=RIGHT>   &nbsp;               </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>FEMALES </TD>'
    /'     <TD ALIGN=RIGHT>' FEMALE COMMA10.   '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTFEMAL 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>    &nbsp;                </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>LIVING IN RURAL AREAS/ON FARMS</TD>'
    /'     <TD ALIGN=RIGHT>' RURAL  COMMA10.   '</TD>'
    /'     <TD ALIGN=RIGHT>' ONFARMS COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>      &nbsp;               </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>LIVING N FAMILIES/ALONE       </TD>'
    /'     <TD ALIGN=RIGHT>' INFAMILY COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' ALONE   COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>      &nbsp;               </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>LIVING IN GROUP QUARTERS      </TD>'
    /'     <TD ALIGN=RIGHT>' GROUPQTR COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTGQ 9.1 '%'     '</TD>'
    /'     <TD ALIGN=RIGHT>       &nbsp;              </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP2">'
    /'         XP2.</A> PERSONS BY RACE/HISPANIC </B></TD>'
    /  '</TR>';
PUT    '<TR>'
    /'     <TD>WHITE         </TD>'
    /'     <TD ALIGN=RIGHT>' WHITE    COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTWHITE 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>BLACK         </TD>'
    /'     <TD ALIGN=RIGHT>' BLACK    COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTBLACK 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>ASIAN & PACIFIC ISLANDER </TD>'
    /'     <TD ALIGN=RIGHT>' ASIANPI  COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTASIAN 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>AMERICAN INDIAN, ESK., ALEUT </TD>'
    /'     <TD ALIGN=RIGHT>' AMINDIAN COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTAMIND 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>HISPANIC (ANY RACE) </TD>'
    /'     <TD ALIGN=RIGHT>' HISPANIC COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTHISP  9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>' / '     <TD COLSPAN=4>&nbsp; </TD>' / '</TR>' ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP3">'
    /'         XP3.</A> PERSONS BY AGE  </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>0-4 / PCT / CUM PCT </TD>'
    /'     <TD ALIGN=RIGHT>' AGE0_4   COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_4   5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_4   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>5-9   </TD>'
    /'     <TD ALIGN=RIGHT>' AGE5_9   COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT5_9   5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_9   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>10-13 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE10_13  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT10_13  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_13   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>14-17 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE14_17  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT14_17  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_17   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>18-24 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE18_24  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT18_24  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_24   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>25-34 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE25_34  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT25_34  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_34   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>35-44 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE35_44  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT35_44  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_44   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>45-54 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE45_54  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT45_54  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_54   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>55-59 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE55_59  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT55_59  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_59   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>60-64 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE60_64  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT60_64  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_64   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>65-74 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE65_74  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT65_74  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_74   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>75-84 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE75_84  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT75_84  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_84   6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>85 AND OVER </TD>'
    /'     <TD ALIGN=RIGHT>' AGE85_UP  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT85_UP  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>  100.0              </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>UNDER 20 </TD>'
    /'     <TD ALIGN=RIGHT>' AGE0_19   COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT0_19   5.1      '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>20-39    </TD>'
    /'     <TD ALIGN=RIGHT>' AGE20_39  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT20_39  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>40-64    </TD>'
    /'     <TD ALIGN=RIGHT>' AGE40_64  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT40_64  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>65 AND OVER </TD>'
    /'     <TD ALIGN=RIGHT>' AGE65_UP  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCT65_UP  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>MEDIAN AGE  </TD>'
    /'     <TD ALIGN=RIGHT>' MEDAGE 9.1         '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD COLSPAN=4>&nbsp;</TD>  ' / '</TR>' ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP4">'
    /'         XP4.</A> HOUSEHOLDS BY SIZE </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>TOTAL HOUSEHOLDS/AVERAGE SIZE </TD>'
    /'     <TD ALIGN=RIGHT>' TOTHHS   COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGHHSZ  10.2     '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>1 PERSON/1 PERSON OVER 65    </TD>'
    /'     <TD ALIGN=RIGHT>' HHS1     COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' HHS1OV65 COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>PCTHHS: 2 PERSONS / 3-4 / 5+ </TD>'
    /'     <TD ALIGN=RIGHT>' PCTHHS2  5.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTHHS3_ 6.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTHHS5_ 6.1 '%'  '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD COLSPAN=4>&nbsp; </TD>' / '</TR>' ;
PUT    '<TR BGCOLOR="#85ADC6">'
    / '     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP5">'
    /'           XP5.</A>  HOUSEHOLDS BY TYPE </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>FAMILIES/PCT OF ALL HOUSEHOLDS </TD>'
    /'     <TD ALIGN=RIGHT>' FAMILIES COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTFAMHH 7.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>MARRIED COUPLES/PCT OF FAMILIES</TD>'
    /'     <TD ALIGN=RIGHT>' MCFAMS   COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTMCFAM 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>WITH OWN CHILDREN              </TD>'
    /'     <TD ALIGN=RIGHT>' MCWCHILD COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTMCWCH 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>FEMALE HOUSEHOLDER (NO HUSB)   </TD>'
    /'     <TD ALIGN=RIGHT>' FEMHEAD  COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTFEMHE 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>WITH OWN CHILDREN              </TD>'
    /'     <TD ALIGN=RIGHT>' FEMHEADC COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTFEMHC 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>NON-FAMILY HOUSEHOLDS          </TD>'
    /'     <TD ALIGN=RIGHT>' NONFHHS  COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTNFHHS 9.1 '%'  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR> '
    /'     <TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6"> '
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP6">'
    /'         XP6.</A>HOUSEHOLD INCOME 1989</B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>LESS THAN $10,000/PCT/CUM PCT  </TD>'
    /'     <TD ALIGN=RIGHT>' HHI0_10   COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_10  5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_10  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$10,000 - $14,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI10_15  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI10_15 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_15  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$15,000 - $24,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI15_25  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI15_25 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_25  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$25,000 - $34,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI25_35  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI25_35 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_35  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$35,000 - $49,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI35_50  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI35_50 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_50  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$50,000 - $74,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI50_75  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI50_75 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_75  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$75,000 - $99,999              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI75_99  COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI75_99 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI0_99  6.1      '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>$100,000 AND OVER              </TD>'
    /'     <TD ALIGN=RIGHT>' HHI100UP COMMA9.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PHI100UP 5.1      '</TD>'
    /'     <TD ALIGN=RIGHT>  100.0              </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>MEDIAN/AVERAGE                 </TD>'
    /'     <TD ALIGN=RIGHT>' MEDHHINC DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGHHINC DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'/'     <TD COLSPAN=4>&nbsp;</TD>' / '</TR>'   ;
PUT    '<TR BGCOLOR="#85ADC6"> '
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP7">'
    /'         XP7.</A>FAMILIES BY # WORKERS </B></TD>'
    / '</TR>';
PUT   '<TR>'
    /'     <TD COLSPAN=4>COUNT/ AVG FAMILY INCOME 1989 </TD>'
    /  '</TR>';
PUT    '<TR>'
    /'     <TD>0 WORKERS                      </TD>'
    /'     <TD ALIGN=RIGHT>' FAMWORK0 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGFAMI0 DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>1 WORKER                       </TD>'
    /'     <TD ALIGN=RIGHT>' FAMWORK1 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGFAMI1 DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>2 WORKERS                      </TD>'
    /'     <TD ALIGN=RIGHT>' FAMWORK2 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGFAMI2 DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>3+ WORKERS                     </TD>'
    /'     <TD ALIGN=RIGHT>' FAMWORK3 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGFAMI3 DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'   ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP8">'
    /'         XP8.</A>OTHER INCOME MEASURES</B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>MEDIAN/AVG FAMILY INCOME       </TD>'
    /'     <TD ALIGN=RIGHT>' MEDFAMIN DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGFAMIN DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>PER CAPITA INCOME/NON-GRP QTRS </TD>'
    /'     <TD ALIGN=RIGHT>' PCI      DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCIHHS   DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>PERSONS BELOW POVERTY LEVEL    </TD>'
    /'     <TD ALIGN=RIGHT>' POOR     COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTPOOR  9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>PERSONS BELOW 50% OF POVERTY   </TD>'
    /'     <TD ALIGN=RIGHT>' VERYPOOR COMMA10. '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTVERYP 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP9">'
    /'          XP9.</A>LEVEL OF EDUCATION   </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>TOTAL PERSONS AGE 25+          </TD>'
    /'     <TD ALIGN=RIGHT>' AGE25_UP COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' '100.0%'             '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>LESS THAN 9TH GRADE            </TD>'
    /'     <TD ALIGN=RIGHT>' ELEMEDUC COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTELEM  9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>9TH TO 12TH GRADE, NO DIPLOMA </TD>'
    /'     <TD ALIGN=RIGHT>' HIGHSCH1 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTHSCH1 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>HIGH SCHOOL GRAD. (OR EQUIV)  </TD>'
    /'     <TD ALIGN=RIGHT>' HIGHSCH2 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTHSCH2 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';

PUT    '<TR>'
    /'     <TD>SOME COLLEGE, NO DEGREE       </TD>'
    /'     <TD ALIGN=RIGHT>' COLLEGE1 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTCOLL1 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
 *--combine items for associates and bachelors degrees--;
PUT    '<TR>'
    /     "<TD>ASSOCIATE/BACHELOR'S DEGREE   </TD>"
    /'     <TD ALIGN=RIGHT>' ASSTBACH COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTASSTB 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>GRADUATE OR PROFESSIONAL DEGREE </TD>'
    /'     <TD ALIGN=RIGHT>' COLLEGE4 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTCOLL4 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP10">'
    /'         XP10.</A>UNEMPLOYMENT: CIV LAB FORCE   </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>TOTAL CLF: UNEMPLOYED/RATE     </TD>'
    /'     <TD ALIGN=RIGHT>' UNEMPLYD COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTUNEMP 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>FEMALE: UNEMPLOYED/RATE     </TD>'
    /'     <TD ALIGN=RIGHT>' UNEMPFEM COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTUNEMF 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'    ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XP11">'
    /'         XP11.</A>OCCUPATION </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>TOTAL EMPLOYED PERSONS AGE 16+ </TD>'
    /'     <TD ALIGN=RIGHT>' EMPOVR16 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' '100.0%'             '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>MANAGER. & PROF. SPECIALTY OCCS </TD>'
    /'     <TD ALIGN=RIGHT>' MGRPROF  COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTMGPR  9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>TECH, SALES, ADMIN. SUPPORT     </TD>'
    /'     <TD ALIGN=RIGHT>' TECHSADM COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTTECHS 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>SERVICE OCCUPATIONS             </TD>'
    /'     <TD ALIGN=RIGHT>' SERVOCCS COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTSERV  9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>FARM, FORESTRY, FISHING         </TD>'
    /'     <TD ALIGN=RIGHT>' FARMETC  COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTFARME 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>ALL OTHERS                      </TD>'
    /'     <TD ALIGN=RIGHT>' OTHEROCC COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTOTHOC 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>' ;
PUT    '<TR BGCOLOR="#85ADC6"> '
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XH1">'
          'XH1.</A>  GENERAL HOUSING UNITS  </B></TD>'
    /'</TR>';
PUT    '<TR>'
    /'     <TD>TOTAL UNITS/ OCCUPIED UNITS    </TD>'
    /'     <TD ALIGN=RIGHT>' TOTUNITS COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' OCCUNITS COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>% UNITS: OWNER OCC/RENTED/VACANT </TD>'
    /'     <TD ALIGN=RIGHT>' PCTOWNER 5.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTRENTR 6.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTVACNT 6.1 '%'   '</TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>SINGLE-FAMILY UNITS              </TD>'
    /'     <TD ALIGN=RIGHT>' UNITS1   COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTUNIT1 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>IN BUIDINGS WITH 5+ UNITS        </TD>'
    /'     <TD ALIGN=RIGHT>' UNITS5UP COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTUNIT5 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>CONDOMINIUMS/MOBILE HOMES        </TD>'
    /'     <TD ALIGN=RIGHT>' CONDOS   COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' MOBILHMS COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XH2">'
          'XH2.</A> YEAR STRUCTURE BUILT  </B></TD>'
    /'</TR>';
PUT    '<TR>'
    /'     <TD>MEDIAN YR BUILT/DECADE MOST BUILT</TD>'
    /'     <TD ALIGN=RIGHT>' MEDYRBLT 8.        '</TD>'
    /'     <TD ALIGN=RIGHT>' BUILDDEC $9.       '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>BUILT IN BUSIEST DECADE</TD>'
    /'     <TD ALIGN=RIGHT>' NBUILTMD COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTBLTMD 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>BUILT 1985-MARCH 1990  </TD>'
    /'     <TD ALIGN=RIGHT>' BUILTA85 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTBLT85 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>BUILT 1939 OR EARLIER  </TD>'
    /'     <TD ALIGN=RIGHT>' BUILTP40 COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' PCTBLT40 9.1 '%'   '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>' / '<TD COLSPAN=4>&nbsp;</TD>' / '</TR>'  ;
PUT    '<TR BGCOLOR="#85ADC6">'
    /'     <TD COLSPAN=4><B><A HREF="http://oseda.missouri.edu/MOSTATS/xtabs3.notes.html#XH3">'
    /'         XH3.</A>HOUSING VALUES AND RENTS      </B></TD>'
    / '</TR>';
PUT    '<TR>'
    /'     <TD>SPEC. OWNER-OCC UNITS/AVG VALUE</TD>'
    /'     <TD ALIGN=RIGHT>' SPOWNUNT COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGHVAL  COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>UNITS PAYING CASH RENT/AVG RENT</TD>'
    /'     <TD ALIGN=RIGHT>' UNTSCRNT COMMA10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' AVGRENT  DOLLAR10. '</TD>'
    /'     <TD ALIGN=RIGHT>  &nbsp;                  </TD>' / '</TR>';
PUT    '<TR>'
    /'     <TD>MEDIAN HOME VALUE/MEDIAN RENT  </TD>'
    /'     <TD ALIGN=RIGHT>' MEDHVAL DOLLAR10.  '</TD>'
    /'     <TD ALIGN=RIGHT>' MEDRENT DOLLAR10.  '</TD>'
    /'     <TD ALIGN=RIGHT> &nbsp;                   </TD>' / '</TR>';
PUT '</TABLE>';
genfoot:
PUT '<HR> <TABLE WIDTH="100%"> <TR><TD>'
 /  '<P> <CENTER>'
 /  ' <small>'
 /'     Report by the <A HREF="http://oseda.missouri.edu">  '
 /'      Office of Social and Economic Data Analysis</A>, <small>U. of Missouri Outreach &amp; Extension <BR>'
  /
 '<big>Under a contract with the <A HREF="http://oseda.missouri.edu/mscdc">Missouri Census Data Center</A> <BR>';
PUT 'SOURCE:  U.S. Bureau of the Census - 1990 Summary Tape File 3 ' / '</font> </P>';

PUT '<P>';
PUT '</B><BR>' / '</TD></TR> ' /'</TABLE>';

PUT '</CENTER>' / '</BODY>' / '</HTML>';
  stop; *************************ONLY ONE!!!!!!!!!!!!!!!!!***********;
   %end;





%else %do;
  *--alternate routine to display a text format report--;
*=== TEXT Version of Table -- code adapted from sascode(xtmostat);
 %let ls=99;  %let lmar=15;  %let lmar2=25;
 file &fileout header=hdr n=ps column=cpt ps=124 ls=&ls noprint ;

  LENGTH DEFAULT=4;
  RETAIN _LP1-_LP11 _LH1-_LH3;
  RETAIN C_ -1;  IF C_=-1 THEN C_=&LMAR + 33;
  LENGTH _DLMLINE $82;   RETAIN _DLMLINE ' ';
  IF _DLMLINE=' ' THEN _DLMLINE=REPEAT(" ",80);

  *** WRITE THE GEOGRAPHICAL IDENTIFIERS ***********;
  CP1=C_;  *--MOVING CP1 AND CP2 1 POS TO RIGHT 6-1-92-;
  CP2=C_+28;
  CP3=C_-4;
  LENGTH _T1 - _T3 $30;
  LENGTH _TEMPC $30;
  *deftempc   *<==jgb mod, 1-97--;
  if county ne ' ' and slvl gt '050' then _tempc=put(county,$county.); else _tempc=' ';

  _L=LENGTH(_TEMPC);  IF _L GE 30 THEN _L=30;
  _I=(30-_L)/2;  IF _I LT 1 THEN _I=1;
  SUBSTR(_T1,_I)=_TEMPC;  *--CENTERING VALUE OF &COUNTY--;
  GEOCODE=LEFT(GEOCODE);
  _L=LENGTH(GEOCODE);  IF _L GE 30 THEN _L=30;
  _I=(30-_L)/2;  IF _I=0 THEN _I=1;
  SUBSTR(_T2,_I)=GEOCODE;  *--CENTERING VALUE OF &GEOCODE-;
  AREANAME=LEFT(AREANAME);
  _L=LENGTH(AREANAME);  IF _L GE 30 THEN _L=30;
  _I=(30-_L)/2;  IF _I LT 1 THEN _I=1;
  SUBSTR(_T3,_I)=AREANAME; *--CENTERING AREANAME;
  put #4 @17 "&title2";
***replace old format with simpler linear header line--;
*  PUT #4   @CP3 '--------------------------------+'
        /  @CP1 _T1 $CHAR30. @CP2 '|'
        /  @CP1 _T2 $CHAR30. @CP2 '|'
        /  @CP1 _T3 $CHAR30. @CP2 '|'
        /  @CP3 '--------------------------------+'
           ;

  PUT #6 @12 'Summary level: ' slvl $slvl. /
         @12 'Geocode: ' geocode +4 'Area Summarized: ' areaname;

  ************ TABLE XP1 *************************;
  ***PCTFEMAL=100*FEMALE/TOTPOP;
  PUT # _LP1/ @C_ TOTPOP   COMMA10.   PCTSMPLD 9.1 '%'
            / @C_ POPPSQMI 10.2       LANDSQMI 10.2
            / @C_ FEMALE   COMMA10.   PCTFEMAL 9.1 '%'
            / @C_ RURAL    COMMA10.   ONFARMS  COMMA10.
            / @C_ INFAMILY COMMA10.   ALONE    COMMA10.
            / @C_ GROUPQTR COMMA10.   PCTGQ    9.1 '%'
            ;

  ************ TABLE XP2  ************************;
  PUT # _LP2/ @C_ WHITE    COMMA10.   PCTWHITE 9.1 '%'
            / @C_ BLACK    COMMA10.   PCTBLACK 9.1 '%'
            / @C_ ASIANPI  COMMA10.   PCTASIAN 9.1 '%'
            / @C_ AMINDIAN COMMA10.   PCTAMIND 9.1 '%'
            / @C_ HISPANIC COMMA10.   PCTHISP  9.1 '%'
            ;
  ************ TABLE XP3  ************************;
  PUT # _LP3/ @C_ AGE0_4   COMMA9.  PCT0_4   5.1 PCT0_4  6.1
            / @C_ AGE5_9   COMMA9.  PCT5_9   5.1 PCT0_9  6.1
            / @C_ AGE10_13 COMMA9.  PCT10_13 5.1 PCT0_13 6.1
            / @C_ AGE14_17 COMMA9.  PCT14_17 5.1 PCT0_17 6.1
            / @C_ AGE18_24 COMMA9.  PCT18_24 5.1 PCT0_24 6.1
            / @C_ AGE25_34 COMMA9.  PCT25_34 5.1 PCT0_34 6.1
            / @C_ AGE35_44 COMMA9.  PCT35_44 5.1 PCT0_44 6.1
            / @C_ AGE45_54 COMMA9.  PCT45_54 5.1 PCT0_54 6.1
            / @C_ AGE55_59 COMMA9.  PCT55_59 5.1 PCT0_59 6.1
            / @C_ AGE60_64 COMMA9.  PCT60_64 5.1 PCT0_64 6.1
            / @C_ AGE65_74 COMMA9.  PCT65_74 5.1 PCT0_74 6.1
            / @C_ AGE75_84 COMMA9.  PCT75_84 5.1 PCT0_84 6.1
            / @C_ AGE85_UP COMMA9.  PCT85_UP 5.1 +1 '100.0'
            / @C_ AGE0_19  COMMA9.  PCT0_19  5.1
            / @C_ AGE20_39 COMMA9.  PCT20_39 5.1
            / @C_ AGE40_64 COMMA9.  PCT40_64 5.1
            / @C_ AGE65_UP COMMA9.  PCT65_UP 5.1
            / @C_ MEDAGE   9.1
            ;
  ************ TABLE XP4  ************************;
  PUT # _LP4/ @C_ TOTHHS   COMMA10.   AVGHHSZ  10.2
            / @C_ HHS1     COMMA10.   HHS1OV65 COMMA10.
            / @C_ PCTHHS2 5.1 '%'  PCTHHS3_ 6.1 '%'  PCTHHS5_ 6.1 '%'
            ;

  ************ TABLE XP5  ************************;
  PUT # _LP5/ @C_ FAMILIES COMMA10.   PCTFAMHH 7.1 '%'
            / @C_ MCFAMS   COMMA10.   PCTMCFAM 9.1 '%'
            / @C_ MCWCHILD COMMA10.   PCTMCWCH 9.1 '%'
            / @C_ FEMHEAD  COMMA10.   PCTFEMHE 9.1 '%'
            / @C_ FEMHEADC COMMA10.   PCTFEMHC 9.1 '%'
            / @C_ NONFHHS  COMMA10.   PCTNFHHS 7.1 '%'
            ;

  ************ TABLE XP6  ************************;
  PUT # _LP6/ @C_ HHI0_10  COMMA9. PHI0_10  5.1 PHI0_10 6.1
            / @C_ HHI10_15 COMMA9. PHI10_15 5.1 PHI0_15 6.1
            / @C_ HHI15_25 COMMA9. PHI15_25 5.1 PHI0_25 6.1
            / @C_ HHI25_35 COMMA9. PHI25_35 5.1 PHI0_35 6.1
            / @C_ HHI35_50 COMMA9. PHI35_50 5.1 PHI0_50 6.1
            / @C_ HHI50_75 COMMA9. PHI50_75 5.1 PHI0_75 6.1
            / @C_ HHI75_99 COMMA9. PHI75_99 5.1 PHI0_99 6.1
            / @C_ HHI100UP COMMA9. PHI100UP 5.1
            / @C_ MEDHHINC DOLLAR10. AVGHHINC DOLLAR10.
            ;

  ************ TABLE XP7  ************************;
  PUT # _LP7// @C_ FAMWORK0 COMMA10. AVGFAMI0 DOLLAR10.
            /  @C_ FAMWORK1 COMMA10. AVGFAMI1 DOLLAR10.
            /  @C_ FAMWORK2 COMMA10. AVGFAMI2 DOLLAR10.
            /  @C_ FAMWORK3 COMMA10. AVGFAMI3 DOLLAR10.
            ;

  ************ TABLE XP8  ************************;
  PUT #_LP8/ @C_ MEDFAMIN DOLLAR10. AVGFAMIN DOLLAR10.
           / @C_ PCI      DOLLAR10. PCIHHS   DOLLAR10.
           / @C_ POOR     COMMA10.  PCTPOOR  9.1 '%'
           / @C_ VERYPOOR COMMA10.  PCTVERYP 9.1 '%'
           ;

  ************ TABLE XP9  ************************;
  ASSTBACH = COLLEGE2+COLLEGE3;
  PCTASSTB = PCTCOLL2+PCTCOLL3;
  PUT #_LP9/ @C_ AGE25_UP COMMA10. +6 '100%'
           / @C_ ELEMEDUC COMMA10.   PCTELEM  9.1 '%'
           / @C_ HIGHSCH1 COMMA10.   PCTHSCH1 9.1 '%'
           / @C_ HIGHSCH2 COMMA10.   PCTHSCH2 9.1 '%'
           / @C_ COLLEGE1 COMMA10.   PCTCOLL1 9.1 '%'
           / @C_ ASSTBACH COMMA10.   PCTASSTB 9.1 '%'
           / @C_ COLLEGE4 COMMA10.   PCTCOLL4 9.1 '%'
           ;
  ************ TABLE XP10 ************************;
  PUT #_LP10/ @C_ UNEMPLYD COMMA10.    PCTUNEMP 9.1 '%'
            / @C_ UNEMPFEM COMMA10.    PCTUNEMF 9.1 '%'
            ;
  ************ TABLE XP11 ************************;
  PUT #_LP11/ @C_ EMPOVR16 COMMA10. +6 '100%'
            / @C_ MGRPROF  COMMA10.   PCTMGPR  9.1 '%'
            / @C_ TECHSADM COMMA10.   PCTTECHS 9.1 '%'
            / @C_ SERVOCCS COMMA10.   PCTSERV  9.1 '%'
            / @C_ FARMETC  COMMA10.   PCTFARME 9.1 '%'
            / @C_ OTHEROCC COMMA10.   PCTOTHOC 9.1 '%'
            ;
  ************ TABLE XH1  ************************;
  PUT #_LH1/ @C_ TOTUNITS COMMA10. OCCUNITS COMMA10.
            / @C_ PCTOWNER 5.1 '%' PCTRENTR 6.1 '%' PCTVACNT 6.1 '%'
            / @C_ UNITS1   COMMA10. PCTUNIT1  9.1 '%'
            / @C_ UNITS5UP COMMA10. PCTUNIT5  9.1 '%'
            / @C_ CONDOS   COMMA10. MOBILHMS COMMA10.
            ;
  ************ TABLE XH2  ************************;
  PUT #_LH2/ @C_ MEDYRBLT 8. +3     BUILDDEC $9.
           / @C_ NBUILTMD  COMMA10. PCTBLTMD 9.1 '%'
           / @C_ BUILTA85  COMMA10. PCTBLT85 9.1 '%'
           / @C_ BUILTP40  COMMA10. PCTBLT40 9.1 '%'
           ;
  ************ TABLE XH3  ************************;
  PUT #_LH3/ @C_ SPOWNUNT COMMA10. AVGHVAL    COMMA10.
            / @C_ UNTSCRNT COMMA10. AVGRENT  DOLLAR10.
            / @C_ MEDHVAL  DOLLAR10. MEDRENT  DOLLAR10.
            ;

  stop;

 HDR:
  ***** DESCRIPTIVE (CONSTANT) TEXT: COLS 1-32 *****;
 * PUT #4   @ &LMAR '+-------------------------------+'
        /  @ &LMAR '|' +1 "&COUNTY" @ &LMAR2 '--------------------> |'
        /  @ &LMAR '| GEOCODE --------------------> |'
        /  @ &LMAR '| AREANAME--------------------> |'
        /  @ &LMAR '+-------------------------------+'
        ;
  if _n_=1 and dummy  then do;
    put 'Sorry!'//;
    put 'Unable to find the geographic code(s) specified.  Please review '
        'your parameter specifications and try again. ';
    stop;
    end;
*----PRINT VARIABLE LABELS DOWN LEFT SIDE--;
  _LP1=9;
  PUT # _LP1 @ &LMAR 'XP1. GENERAL POPULATION '
           / @&LMAR ' TOTAL PERSONS/PERCENT SAMPLED..'
           / @&LMAR '  PER SQUARE MILE / LAND AREA...'
           / @&LMAR '  FEMALES.......................'
           / @&LMAR '  LIVING IN RURAL AREAS/ON FARMS'
           / @&LMAR '  LIVING IN FAMILIES/ALONE......'
           / @&LMAR '  LIVING IN GROUP QUARTERS......'
           / @1 _DLMLINE $CHAR&LS..
           ;
  _LP2=17;
  PUT # _LP2 @&LMAR 'XP2. PERSONS BY RACE/HISPANIC'
           / @&LMAR ' WHITE..........................'
           / @&LMAR ' BLACK..........................'
           / @&LMAR ' ASIAN & PACIFIC ISLANDER.......'
           / @&LMAR ' AMERICAN INDIAN, ESK., ALEUT...'
           / @&LMAR ' HISPANIC (ANY RACE)............'
           / @1 _DLMLINE $CHAR&LS..
           ;
  _LP3=24;
  PUT # _LP3 @&LMAR 'XP3. PERSONS BY AGE '
           / @&LMAR '   0-4 / PCT / CUM PCT..........'
           / @&LMAR '   5-9..........................'
           / @&LMAR '   10-13........................'
           / @&LMAR '   14-17........................'
           / @&LMAR '   18-24........................'
           / @&LMAR '   25-34........................'
           / @&LMAR '   35-44........................'
           / @&LMAR '   45-54........................'
           / @&LMAR '   55-59........................'
           / @&LMAR '   60-64........................'
           / @&LMAR '   65-74........................'
           / @&LMAR '   75-84........................'
           / @&LMAR '   85 AND OVER..................'
           / @&LMAR '   UNDER 20.....................'
           / @&LMAR '   20-39........................'
           / @&LMAR '   40-64........................'
           / @&LMAR '   65 AND OVER..................'
           / @&LMAR '   MEDIAN AGE...................'
           / @1 _DLMLINE $CHAR&LS..
           ;
  _LP4=44;
  PUT # _LP4 @&LMAR 'XP4. HOUSEHOLDS BY SIZE      '
           / @&LMAR ' TOTAL HOUSEHOLDS/AVERAGE SIZE..'
           / @&LMAR ' 1 PERSON/1 PERSON OVER 65......'
           / @&LMAR ' PCT HHS: 2 PERSONS / 3-4 / 5+..'
           / @1 _DLMLINE $CHAR&LS..
           ;
  _LP5=49;
  PUT # _LP5 @&LMAR 'XP5. HOUSEHOLDS BY TYPE '
           / @&LMAR ' FAMILIES/PCT OF ALL HOUSEHOLDS.'
           / @&LMAR '  MARRIED COUPLES/PCT OF FAMLIES'
       / @&LMAR '   WITH OWN CHILDREN < 18.......'
       / @&LMAR '  FEMALE HOUSEHOLDER (NO HUSB)..'
       / @&LMAR '   WITH OWN CHILDREN............'
       / @&LMAR ' NON-FAMILY HOUSEHOLDS..........'
       / @1 _DLMLINE $CHAR&LS..
           ;
  _LP6=57;
  PUT # _LP6 @&LMAR 'XP6. HOUSEHOLD INCOME 1989'
       / @&LMAR ' LESS THAN $10,000/PCT/CUM PCT..'
       / @&LMAR ' $10,000 - $14,999..............'
       / @&LMAR ' $15,000 - $24,999..............'
       / @&LMAR ' $25,000 - $34,999..............'
       / @&LMAR ' $35,000 - $49,999..............'
       / @&LMAR ' $50,000 - $74,999..............'
       / @&LMAR ' $75,000 - $99,999..............'
       / @&LMAR ' $100,000 AND OVER..............'
       / @&LMAR ' MEDIAN/AVERAGE.................'
       / @1 _DLMLINE $CHAR&LS..
           ;
  _LP7=68;
 PUT # _LP7 @&LMAR 'XP7. FAMILIES BY # WORKERS'
       / @&LMAR ' COUNT/ AVG FAMILY INCOME 1989  '
       / @&LMAR ' 0 WORKERS......................'
       / @&LMAR ' 1 WORKER.......................'
       / @&LMAR ' 2 WORKERS......................'
       / @&LMAR ' 3+ WORKERS.....................'
       / @1 _DLMLINE $CHAR&LS..
           ;
  _LP8=75;
 PUT # _LP8 @&LMAR 'XP8. OTHER INCOME MEASURES'
       / @&LMAR ' MEDIAN/AVG FAMILY INCOME.......'
       / @&LMAR ' PER CAPITA INCOME/NON-GRP QTRS.'
       / @&LMAR ' PERSONS BELOW POVERTY LEVEL....'
       / @&LMAR ' PERSONS BELOW 50% OF POVERTY...'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LP9=81;
 PUT # _LP9 @&LMAR 'XP9. LEVEL OF EDUCATION'
       / @&LMAR ' TOTAL PERSONS AGE 25+..........'
       / @&LMAR '  LESS THAN 9TH GRADE...........'
       / @&LMAR '  9TH TO 12TH GRADE, NO DIPLOMA.'
       / @&LMAR '  HIGH SCHOOL GRAD. (OR EQUIV)..'
       / @&LMAR '  SOME COLLEGE, NO DEGREE.......'
       / @&LMAR "  ASSOCIATE/BACHELOR'S DEGREE..."
       / @&LMAR '  GRADUATE OR PROFSSIONAL DEGREE'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LP10=90;
 PUT # _LP10 @&LMAR 'XP10. UNEMPLOYMNT: CIV LAB FORCE'
       / @&LMAR ' TOTAL CLF: UNEMPLOYED/RATE.....'
       / @&LMAR ' FEMALE: UNEMPLOYED/RATE........'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LP11=94;
 PUT # _LP11 @&LMAR 'XP11. OCCUPATION'
       / @&LMAR ' TOTAL EMPLOYED PERSONS AGE 16+.'
       / @&LMAR ' MANAGER. & PROF. SPECIALTY OCCS'
       / @&LMAR ' TECH, SALES, ADMIN. SUPPORT....'
       / @&LMAR ' SERVICE OCCUPATIONS............'
       / @&LMAR ' FARM, FORESTRY, FISHING........'
       / @&LMAR ' ALL OTHERS.....................'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LH1=102;
 PUT # _LH1 @&LMAR 'XH1. GENERAL HOUSING UNITS'
       / @&LMAR ' TOTAL UNITS / OCCUPIED UNITS...'
       / @&LMAR ' % UNITS:OWNER OCC/RENTED/VACANT'
       / @&LMAR ' SINGLE-FAMILY UNITS............'
       / @&LMAR ' IN BUILDINGS WITH 5+ UNITS.....'
       / @&LMAR ' CONDOMINIUMS/MOBILE HOMES......'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LH2=109;
 PUT # _LH2 @&LMAR 'XH2. YEAR STRUCTURE BUILT'
       / @&LMAR ' MEDIAN YR BUILT/DECADE MOST BLT'
       / @&LMAR ' BUILT IN BUSIEST DECADE........'
       / @&LMAR ' BUILT 1985-MARCH 1990..........'
       / @&LMAR ' BUILT 1939 OR EARLIER..........'
       / @1 _DLMLINE $CHAR&LS..
           ;
 _LH3=115;
 PUT # _LH3 @&LMAR 'XH3. HOUSING VALUES AND RENTS'
       / @&LMAR ' SPEC. OWNER-OCC UNITS/AVG VALUE'
       / @&LMAR ' UNITS PAYING CASH RENT/AVG RENT'
       / @&LMAR ' MEDIAN HOME VALUE/MEDIAN RENT..'
           ;
 put #121 @25 'Report Produced by the Urban Information Center'
        / @31 'University of Missouri St. Louis';
   PUT #1 ;
   C_=&LMAR + 37;
 genfoot:
PUT #123 @20 'SOURCE:  U.S. Bureau of the Census - 1990 Summary Tape File 3 ';
  return;
   %end;




 %mend dorept;
%dorept

  options source;
  run;

 %let pgm=xtabs3; options nosymbolgen;
 %include sascode(notify); ***************not for prod runs***;