='10'*f=5.1)
/rts=&rts. &indent;
* RTS and INDENT vary based on the type of output desired. *;
footnote1
"________________________________________________________ &blanks ";
footnote2
"University of Chatham Planning/Persist.GR001/&SYSDATE &blanks ";
run;
%mend;
run;
******************************************************************************
****************************************************************************;
* Section 5. PRT1 produces hardcopy output. *;
****************************************************************************;
%macro prt1;
* Default macro values for PROC TABULATE in "%listing" *;
%let sepvar=noseps;
%let rts=20;
%let indent=indent=3;
run;
%listing; * Produce the actual PROC TABULATE output. *;
run;
%mend;
run;
******************************************************************************
**************************************************************************;
* Section 6. WEB1 uses PROC PRINTTO and PUT to redirect hardcopy as *;
* preformatted text. *;
**************************************************************************;
%macro web1;
* Identify where the Web page will be written. *;
filename prt ftp "gw1&i.&j.&k..html" cd="public_html/air/campus/"
host="www.uchatham.edu" user="air98" pass="air98";run;data _null_;
file prt; * Write HTML tags at the beginning of the file. *;
put @1 ""/ @1 "" /
@1 " UChatham Persistence Report, &yr1 " / @1 "" /
@1 '' / @1 "";
* All subsequent text will be preformatted. *;run;
* Set values for TABULATE output. *;%let sepvar=noseps;
%let rts=20;%let indent=indent=3;run;
proc printto file=prt; * Route procedure output to Web page. *;run;
%listing; * Produce the actual PROC TABULATE output. *;run;
proc printto print=print; * Route procedure output back to default. *;run;%mend;
run;
******************************************************************************
****************************************************************************;
* Section 7. WEB2 uses SAS Web tools to build more extensive HTML code *;
* than WEB1. *;
****************************************************************************;
%macro web2;
* Identify where the Web page will be written. *;
filename prt ftp "gw1&i.&j.&k..html"
cd="public_html/air/campus"
host="www.uchatham.edu" user="air98" pass="air98";
run;
options nocenter ls=195 ps=85 formchar='82838485868788898a8b8c'x;
* Special FORMCHAR strings are required with TAB2HTM. *;
* See TAB2HTM documentation for operating system details. *;
* Set parameters for PROC TABULATE output. *;
%let sepvar=;
%let rts=40;
%let indent=;
run;
%tab2htm(capture=on,runmode=b); * Start capturing PROC TABULATE output. *;
run;
%listing; * Produces the actual PROC TABULATE output. *;
run;
%tab2htm(capture=off,
runmode=b,
rlcolor=blue,
clcolor=blue,
bgtype=image,
bg=../../marble1.jpg,
encode=N,
openmode=replace,
htmlfref=prt,
center=Y);
run;
* Turns off the output capture and passes parameters for *;
* TAB2HTM processing. See TAB2HTM documentation for details. *;
%mend;
run;
******************************************************************************
***********************************************;
* Section 8. LOOP1 runs all the other macros. *;
***********************************************;
%macro loop1;
* Build index Web page when appropriate. *;
%if "&type"="WEB1" %then %indxpage;
%if "&type"="WEB2" %then %indxpage;
%do i=1 %to 7; * Six campuses and UChatham total *;
data _null_;
set counter(where=(instno=&i));
call symput("maxschl",compress(schlno));
run;
%do j=1 %to &maxschl; * Number of divisions at given institution *;
data _null_;
set counter(where=(instno=&i and schlno=&j));
call symput("maxmaj",compress(deptno));
run;
%do k1=1 %to &maxmaj; * Number of departments within a division *;
data _null_;
call symput("k",compress(put(&k1,z2.)));
run;
* Macro variables for dept level Tabulate in "%listing" *;
%let where=instno=&i and schlno=&j and deptno=&k;
%let var1=(major1='Original Major: '),;
%let var2=dpt;
%let fmt=type2c.;
run;
%if "&type"="WEB1" %then %web1;
%else %if "&type"="WEB2" %then %web2;
%else %prt1;
* If the "%else" is removed, "%prt1" executes as well as the specified *;
* Web building macro. *;
%end; * End departmental listings ("k loop") *;
run;
* Macro variables for division level Tabulate in "%listing" *;
%let k=00;
%let where=instno=&i and schlno=&j;
%let var1=(school='Original Division: '),;
%let var2=sch;
%let fmt=type2b.;
run;
%if "&type"="WEB1" %then %web1;
%else %if "&type"="WEB2" %then %web2;
%else %prt1;
* If the "%else" is removed, "%prt1" executes as well as the specified *;
* Web building macro. *;
%end; * End divisional listings ("j loop") *;
run;
* Macro variables for campus level Tabulate in "%listing" *;
%let j=0;
%let where=instno=&i;
%let var1=;
%let var2=sem;
%let fmt=type2a.;
run;
%if "&type"="WEB1" %then %web1;
%else %if "&type"="WEB2" %then %web2;
%else %prt1;
* If the "%else" is removed, "%prt1" executes as well as the specified *;
* Web building macro. *;
%end; * End institutional listings ("i loop") *;
run;
%mend;
run;
%loop1; * Kick it off. *;
run;