1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
<span class="hljs-comment">/**********************************************************************
* Program: example.sas
* Purpose: SAS Example for HighlightJS Plug-in
**********************************************************************/</span>
<span class="hljs-built_in">%put</span> Started at <span class="hljs-built_in">%sysfunc</span><span class="hljs-meta">(putn(</span><span class="hljs-built_in">%sysfunc</span><span class="hljs-meta">(datetime(</span>)), datetime.));
<span class="hljs-meta">options</span>
errors = 20 <span class="hljs-comment">/* Maximum number of prints of repeat errors */</span>
fullstimer <span class="hljs-comment">/* Detailed timer after each step execution */</span>
;
<span class="hljs-built_in">%let</span> maindir = /path/to/maindir;
<span class="hljs-built_in">%let</span> outdir = <span class="hljs-variable">&maindir</span>/<span class="hljs-meta">out</span>.;
<span class="hljs-meta">systask</span> command <span class="hljs-string">"mkdir -p &outdir."</span> wait;
<span class="hljs-meta">libname</span> main <span class="hljs-string">"&maindir"</span> access = readonly;
<span class="hljs-keyword">
data </span>testing;
<span class="hljs-meta">input</span> name $ number <span class="hljs-meta">delimiter</span> = <span class="hljs-string">","</span>;
<span class="hljs-emphasis"> datalines;
John,1
Mary,2
Jane,3
;</span>
<span class="hljs-meta">if</span> number > 1 <span class="hljs-meta">then</span> final = 0;
<span class="hljs-meta">else</span> <span class="hljs-meta">do</span>;
final = 1;
<span class="hljs-meta">end</span>;
<span class="hljs-keyword">run;</span>
<span class="hljs-built_in">%macro</span> testMacro(positional, named = value);
<span class="hljs-built_in">%put</span> positional = <span class="hljs-variable">&positional.</span>;
<span class="hljs-built_in">%put</span> named = <span class="hljs-variable">&named.</span>;
<span class="hljs-built_in">%mend</span> testMacro;
<span class="hljs-name">%testMacro</span>(positional, named = value);
<span class="hljs-meta">dm</span> <span class="hljs-string">'clear log output odsresults'</span>;
<span class="hljs-keyword">
proc datasets </span>lib = work kill noprint; quit;
<span class="hljs-meta">libname</span> <span class="hljs-literal">_all_</span> clear;
<span class="hljs-keyword">
data </span><span class="hljs-literal">_null_</span>;
<span class="hljs-meta">set</span> sashelp.macro(
<span class="hljs-meta">keep</span> = name
<span class="hljs-meta">where</span> = (scope = <span class="hljs-string">"global"</span>);
);
<span class="hljs-meta">call</span> symdel(name);
<span class="hljs-keyword">run;</span>
|