As some of you may know, I have a large collection of (legacy) sas macros (http://www.datavis.ca/sasmac/ Some of these need to create a temporary file and I've used the utility macros below in a quite a few top-level macros.  Under Windows, there has always been the problem that it tries to use `drive:\temp` as the directory, and this fails if that directory doesn't exist.    I suppose I could just use `.` (the current directory), but perhaps someone has a better way?   /* --------------------------------------------------------------- TITLE: Handle temporary files in a system- and version-independent way. --------------------------------------------------------------- */ %macro tempfile(fileref,ls,options); %global tempfn; %if %length(&ls)=0 %then %let ls=80; %if %sysevalf(&sysver > 6.10) %then %do; filename &fileref temp &options %if %length(&ls)>0 %then lrecl=&ls; ; %end; %else %do; %if &sysscp = CMS %then %let tempfn=&fileref output a; %else %if &sysscp = WIN %then %let tempfn=&fileref..tmp; %else /* assume unix */ %let tempfn=/tmp/&fileref..tmp; filename &fileref "&tempfn" lrecl=&ls &options; %end; %mend; %macro tempdel(fileref); %global tempfn; %if length(&tempfn)=0 %then %goto done; *-- Avoid annoying flash with X commands; %if %sysevalf(&sysver > 6.10) %then %do; %let rc=%sysfunc(fdelete(&fileref)); %let rc=%sysfunc(filename(&fileref,'')); %end; %else %do; %if &sysscp = CMS %then cms erase &tempfn; %else %if &sysscp = WIN %then %do; options noxsync noxwait; run; %sysexec(erase &tempfn); run; options xsync xwait; run; %end; %else /* assume flavor of UNIX */ %sysexec(rm -f &tempfn); %end; filename &fileref clear; %let tempfn=; %done: %mend;   ... View more

In the test below, wherever I have a reference field that looks like a URL, I want to change it into an HTML link to that reference.  But there's something I'm missing between perl regexps and the translation into a call to prxchange() data refs;     input obs lname $ reference $160;     datalines;   2    Halley         http://www-groups.dcs.st-and.ac.uk/history/Biographies/Halley.html   4    Graunt         Graunt:1662, http://www.encyclopedia.com/topic/John_Graunt.aspx   6    Galton         Stigler:1986, p.281 17    Halley         http://www-history.mcs.st-and.ac.uk/Biographies/Halley.html 19    Serjev         Wainer-Harik:2013 20    Ortelius       http://en.wikipedia.org/wiki/Theatrum_Orbis_Terrarum 21    Playfair       Tufte:1983 28    Hollerith      Wikipedia 29    Lippershey     http://en.wikipedia.org/wiki/History_of_the_telescope#The_first_known_telescopes 33    Pascal         Ball:1908 37    de Colmar      http://en.wikipedia.org/wiki/Arithmometer 38    Minard         Tufte:1983, Minard:1869a 44    Galton         Stigler:1986,p297 46    Halley         http://www-groups.dcs.st-and.ac.uk/history/Biographies/Halley.html ; data refs;     set refs;         *-- Turn URLs into links-- why doesnt this work??             reference = prxchange('s|(https?://.*)[\s\b;]?|<a href="$1">$1</a>|i', -1, reference); run; proc print data=refs; run; I get a syntax error: 19   data refs; 20       set refs; 21           *-- Turn URLs into links-- why doesnt this work?? 22               reference = prxchange('s|(https?://.*)[\s\b;]?|<a                                                              -                                                              180 22 ! href="$1">$1</a>|i', -1, reference); ERROR 180-322: Statement is not valid or it is used out of proper order. ... View more

[Env:  SAS 9.3, Win Xp] For a web application, I want to generate an HTML file containing a series of <table>s, one for each month of the year, where I produce the HTML file entirely in a DATA _NULL_ step, and don't want SAS to add any additional markup (largely because it is easier for me this way, than to figure out all the details of ODS markup). As well, I'm combining information from two different sources, so have to use a DATA _NULL_ approach for custom output, and have also encountered problems due to character encoding issues (HTML entities vs. latin1). In the hope that someone can help, I'm attaching several files: - aevents.sas: Generate the output calendar.html - calendar.html:  Current output - author-aevents.csv (input file, HTML encoded) - events.csv (input file, latin1 encoded) In the attached SAS file, I've gotten my best results so far using the ODS CHTML destination, starting with ods chtml body="c:\documents\milestone\databases\calendar.html"               (no_top_matter no_bottom_matter                title='Milestones Calendar Events')               options(pagebreak='no')               ; but the results are still far from desired, because SAS still inserts extraneous material before my code results, and inserts <pre> ... </pre> tags around various sections of my output. <a name="IDX"><h1>Milestones Calendar Events</h1> <p> <table columns="1" cellpadding="2" border="1"> <tr><td> <pre><html>  In addition, one of my data sources have accented characters encoded in HTML entities, e.g., &eacute;  while the other has them encoded in latin1, e.g., é.  In the output HTML file, with HTML entities, I get entries like this: <tr>                                                                                                                 <td class="day">10 </td>                                                                                           <td><img src='tombstone.png' width=24> </td>                                                                       <td>died: &Eacute;mile Cheysson 1910 (Leysin, Switzerland) </td>                                                 </tr>                                                                                                              However, with latin1 characters, I get entries where all HTML characters are escaped, so the <tr> ... </tr> doesn't appear as a table row.  I don't know how to convert latin1 character to HTML entities, either in the PROC IMPORT step or afterwards to avoid this.  I'm even willing to pre-process the events.csv file if necessary. <tr>                                                                                                                 <td class="day">14 </td>                                                                                           <td><img src='calendar.png' width=24> </td>                                                                        &lt;td&gt;event: Pierre Simon Laplace 1814                                                                             Laplace presents Essai philosophique sur les probabilités to the Académie des Sciences &lt;/td&gt;                       </tr>                                                                                                              Thanks in advance for any help with this, -Michael a ... View more

I have a legacy web application run by my sascgi script, sascgi The application, Word List Generator, runs a SAS program, taking input from variables placed in the environment, and writing results back to the browser via STDOUT. I recently tried to update this to also write a .csv file to the /www/tmp directory using PROC EXPORT. However, SAS seems to hang at the point that PROC EXPORT is invoked in my program. That is, when I run the script in debug mode, I can see output up to the point where PROC EXPORT is called, but then nothing --- and no errors in the SAS .log file. As a work-around, I can get what I want using an old %sas2csv macro, but I'm curious why PROC EXPORT fails here. FWIW, below is the SAS program, getlist1.sas which is run under control of sascgi. The PROC EXPORT step is now commented out at the end. title 'getlist.sas'; /* This program gets HTML form input passed via the environment from sascgi.   It selects random word list(s) as specified by these parameters,   and formats it (via the htmltab macro), printing results to STDOUT.   This is intended as a demonstration of the sascgi protocol, but may   be useful in its own right. */ %global nobs; %include '/home/friendly/sasuser/pools/select.sas'; %let tmp=/tmp; *--relative to server root; %let sasfilename = %sysget(SASFILENAME); %let items = %sysget(ITEMS); %let lists = %sysget(LISTS); %put SASFILENAME: &sasfilename; %put ITEMS: &items; %put LISTS: &lists; %select(     out=sample,     outstat=stats,     items=&items,     lists=&lists,     let_min=%sysget(LET_MIN),    let_max=%sysget(LET_MAX),     syl_min=%sysget(SYL_MIN),    syl_max=%sysget(SYL_MAX),     freq_min=%sysget(FREQ_MIN),    freq_max=%sysget(FREQ_MAX),     imag_min=%sysget(IMAG_MIN),    imag_max=%sysget(IMAG_MAX),     conc_min=%sysget(CONC_MIN),    conc_max=%sysget(CONC_MAX),     mean_min=%sysget(MEAN_MIN),    mean_max=%sysget(MEAN_MAX),     print=NO     );     %put NOBS = &nobs were selected in %sysget(LISTS) lists; %macro var;     put "  <tr>";     put "    <th>Variable</th>";     put "    <th>K-F Word frequency</th>";     put "    <th>Imagery</th>";     put "    <th>Concreteness</th>";     put "    <th>Meaningfulness</th>";     put "    <th># Syllables</th>";     put "    <th># Letters</th>";     put "  </tr>"; %mend; %macro min;     put "  <tr>";     put "    <th>Minimum</th>";     put "    <td>%sysget(FREQ_MIN)</td>";     put "    <td>%sysget(IMAG_MIN)</td>";     put "    <td>%sysget(CONC_MIN)</td>";     put "    <td>%sysget(MEAN_MIN)</td>";     put "    <td>%sysget(SYL_MIN)</td>";     put "    <td>%sysget(LET_MIN)</td>";     put "  </tr>"; %mend; %macro max;     put "  <tr>";     put "    <th>Maximum</th>";     put "    <td>%sysget(FREQ_MAX)</td>";     put "    <td>%sysget(IMAG_MAX)</td>";     put "    <td>%sysget(CONC_MAX)</td>";     put "    <td>%sysget(MEAN_MAX)</td>";     put "    <td>%sysget(LET_MAX)</td>";     put "    <td>%sysget(SYL_MAX)</td>";     put "  </tr>"; %mend; data _null_;     file STDOUT;     put "<h2>Selection parameters:</h2>";     put "<table>";     %var;     %min;     %max;     put "</table>";     run;     %sas2csv(data=sample, out=&sasfilename..csv, quote=CHAR,     keep=list word freq imag conc meaning syl let); data _null_;     file STDOUT;     put "<h3>Download CSV file</h3>";     put "<a href='&tmp/&sasfilename..csv'>Download CSV file containing your word lists</a>";     run;     *ods listing close; ods html body=stdout (no_bottom_matter no_top_matter) style=styles.default; *ods html body='getlist1.html' style=styles.minimal; proc print data=sample label;    id list Word;    by list;    var freq imag conc meaning syl let;    label word='Word' list='List';    title "<h3>&lists lists of &items items selected from Paivio Word Pool</h3>";    run; proc print data=stats label;     id _label_;     var mean std min max;    title "<h3>Summary statistics for all &lists list(s)</h3>";     run; ods html close; /* *-- Also produce a .csv file, but proc export doesnt run under sascgi; proc export data=sample     outfile="&sasfilename..csv"     dbms=csv;     run; */ ... View more

I am attempting to update my halfnorm macro for V9+, current version at Visualizing Categorical Data: halfnorm - Half normal plot for generalized linear models I'm having trouble with a section of the macro designed to run proc genmod repeatedly to get a simulated envelope based on randomly generated values from a given distribution.  I would prefer to have no printed output generated, but commented out the ODS LISTING statements for now. The essence is the following loop: %put HALFNORM: Generating &nres simulated residual sets...; %if %sysevalf(&sysver  >= 7) %then %do; *    ods listing exclude all;     %end; %do i=1 %to &nres; options nonotes; %*put Generating residual set &i;     ods output ObStats=work._hres&i(keep=&res rename=(&res=res&i)); proc genmod data=_obstat_;    %if %length(&class)>0 %then %do; class &class; %end;    %if %length(&freq)>0 %then %do;  freq &freq;   %end;     %if %length(&trials)=0 %then %do;        model _y&i         = &model /         %end;     %else %do;        model _y&i/&trials = &model /         %end;     %if %length(&dist)>0 %then %do;  dist=&dist %end;     %if %length(&link)>0 %then %do;  link=&link %end;     %if %length(&offset)>0 %then %do; offset=&offset  %end;     %if %length(&mopt)>0 %then %do;  %str(&mopt) %end;         obstats residuals; *  make 'obstats'  out=_hres&i(keep=&res rename=(&res=res&i));   run; %end;  /* End %do i */ I'm getting warnings, then errors regarding the ObStats datasets when I try to use them HALFNORM: Generating 19 simulated residual sets... MPRINT(HALFNORM):   * ods listing exclude all; MPRINT(HALFNORM):   options nonotes; MPRINT(HALFNORM):   ods output ObStats=work._hres1(keep=stresdev rename=(stresdev=res1)); MPRINT(HALFNORM):   proc genmod data=_obstat_; MPRINT(HALFNORM):   class dept gender admit; MPRINT(HALFNORM):   model _y1 = dept|gender|admit@2 / dist=POISSON obstats residuals; MPRINT(HALFNORM):   * make 'obstats' out=_hres&i(keep=&res rename=(&res=res&i)); MPRINT(HALFNORM):   run; WARNING: Output 'ObStats' was not created.  Make sure that the output object          name, label, or path is spelled correctly.  Also, verify that the          appropriate procedure options are used to produce the requested output          object.  For example, verify that the NOPRINT option is not used. ... I attach the current version I'm testing, together with a log file from a test run.  Can anyone see what is wrong and how to correct it? Test code: title 'Berkeley Admissions data'; %include catdata(berkeley); data berkeley;     set berkeley;    cell = trim(put(dept,dept.)) ||           gender ||           trim(put(admit,yn.));     %include macros(halfnorm12); options mprint; %halfnorm(data=berkeley, class="dept" gender admit,     resp=freq, model=dept|gender|admit@2, dist=poisson, id=cell); ... View more

This is a somewhat complex question, and I hope someone in this forum can help me resolve it without filing a query to support@sas.com. For my book, Visualzing Categorical Data, I wrote a macro, table, to handle common requirements to collapse a frequency table over some factor(s) and/or to apply sas formats to numeric variables so that they could be labeled appropriately in plots. This was needed particularly in plots produced using SAS/IML which reads variables as either numeric or character and cannot apply formats to numeric variables as in SAS procedures. The macro can be found at doc: http://www.datavis.ca/sasmac/table.html source: http://www.datavis.ca/sas/vcd/macros/table.sas I've recently been informed by a user of my book that the macro fails to work when the char=Y option is specified under SAS 9.3, whereas it did work under SAS 9.2.  The code I used in the macro to convert numeric variables to character relies on using PROC PRINTTO to write the formatted data to a temporary file and then read it back in in a separate data step.  Something changed between SAS 9.2 and SAS 9.3 regarding PROC PRINTTO, but I haven't been able to figure out what.   But, perhaps there is another way to accomplish what I want-- to convert numeric variables to formatted character variables in another dataset with the same variable names.  When I wrote this macro, the only way to do this I knew of was to use PROC PRINTTO, but I always thought this was a kludge because you could not change a variable from numeric to character in a data step. Demonstration code (using attached data file, berkeley.sas) *include catdata(berkeley); %include 'path/to/berkeley.sas'; *include macros(table); %include 'path/to/table.sas' *-- Collapse over dept; %table(data=berkeley, out=berk2, var=Admit Gender, weight=freq,     char=Y, format=admit admit. gender $sex.,     order=data); Log file from SAS 9.2, where it works: 24   *-- Collapse over dept; 25   %table(data=berkeley, out=berk2, var=Admit Gender, weight=freq, 26       char=Y, format=admit admit. gender $sex., 27       order=data); NOTE: There were 24 observations read from the data set WORK.BERKELEY. NOTE: The data set WORK.BERK2 has 4 observations and 3 variables. NOTE: There were 4 observations read from the data set WORK.BERK2. NOTE: The infile TABLE is:       Filename=c:\temp\table.out,       RECFM=V,LRECL=120,File Size (bytes)=175,       Last Modified=17Feb2012:11:23:59,       Create Time=17Feb2012:11:10:11 NOTE: 8 records were read from the infile TABLE.       The minimum record length was 0.       The maximum record length was 27. NOTE: The data set WORK.BERK2 has 4 observations and 3 variables. Log file from SAS 9.3, where it fails: 80    *-- Collapse over dept; 81    %table(data=berkeley, out=berk2, var=Admit Gender, weight=freq, 82        char=Y, format=admit admit. gender $sex., 83        order=data); NOTE: There were 24 observations read from the data set WORK.BERKELEY. NOTE: The data set WORK.BERK2 has 4 observations and 3 variables. NOTE: There were 4 observations read from the data set WORK.BERK2. NOTE: The infile TABLE is:       Filename=c:\temp\table.out,       RECFM=V,LRECL=120,File Size (bytes)=0,       Last Modified=17Feb2012:11:20:21,       Create Time=17Feb2012:11:10:11 NOTE: 0 records were read from the infile TABLE. NOTE: The data set WORK.BERK2 has 0 observations and 3 variables. ... View more