I have been working on a brush for Alex Gorbatchev’s Syntax Highlighter Javascript plugin. I am close to a viable release for it. It will be available for download from my Google Code project page later this week. At present, I have it successfully highlighting;

• Comments (except the sas specifc *; lexicon)
• Data Step and methods
• All Base / Access / Graph procs
• Macros (sas supplied and syntax highlighting within custom macros!!!)
• libnames
• ods
• strings
• formats/informats
• variable declarations

A screenshot is below showing the highlighting.

Consider the following;

You are using a SAS Stored Process to return some kind of data as a web page (ods or data _null_ writing to _webout).

You can use jquery’s  Ajax functions ($.get,$.post $.ajax) to call your SAS stored process and return the response to a portion of your web page or use the returning data and manipulate it how you see fit.

(Forgive my Java script any js boffins out there….I’m a SAS programmer. :p)

Jquery Load

$(document).ready.function(){
   $('#htmlElementId').click(function(){
      var var1 = $('#anotherHtmlElementId').val(); //Load content of a HTML Element into a variable
      $('#htmlElementToLoadContentTo').empty();
      $('#htmlElementToLoadContentTo').load('your stored process server address:8080/do',{
            _program:'SAS PROGRAM NAME GOES HERE',
            macroVariable1:'your value',
            macroVariable2:'your value',
            macroVariable3:var1 //This is the value of variable 1
      });
      return false;
   });
});

When the HTML element with the ID of  ’htmlElementId’ is clicked (it can be any kind of element) do the following;

• Empties the contents of the HTML element with the ID of  ’htmlElementToLoadContentTo’
• Post a request to the SAS stored process server passing with it a querystring composed of the json data after the SAS stored process server address.
• Return the results to the page and load the content into the HTML element with the ID of ‘htmlElementToLoadContentTo’.

Some examples of where this is useful for SAS programmers;

• Using SAS Stored Processes or SAS Inrnet to push data to and from SAS into a browser.
• Building in browser Dashboards (I hate proc gpanel and using htmlpanel tagsets) and letting only portions of the page refresh. (this could be combined with javascript’s onTimer event for example).
• Dishing up multiple ods pages in a format outside of SAS’s archaic Frames mechanism.
• Following good architectural principles by separating ui, business logic and data correctly.

Check out the jquery library soon.  I will be posting more examples over coming weeks as I’m having heaps of fun getting the two to work together.

Data dim_date (drop=i);
    format  date_pk ddmmyy10.
            day_name downame.
            month_name monname.
            date_long weekdate25.
            weekend_indicator $5.;

    i=0;
    do until (i=51135);
        date_pk=i;

        *Calendar Year Stuff;
        calendar_yr = year(i);
        ms_date_serial=i+21916;
        unix_date_serial=i+21916;
        if month(i)<=6 then calendar_biannual=1; else calendar_biannual=2;
        calendar_qtr = qtr(i);
        calendar_month=month(i);
        calendar_week=intck(’WEEK.1′,mdy(1,1,year(i)),i);
        calendar_day=weekDay(i);
        day_name=i;
        month_name=i;
        date_long=i;
        workplace_day=weekDay(i)-1;

        calendar_yr_qtr=compbl(left(calendar_yr||’, QTR ‘||calendar_qtr));
        if compbl(left(calendar_biannual))=1 then calendar_yr_half = 1||’st calendar half of ‘||compbl(left(calendar_yr)); else calendar_yr_half = 2||’nd calendar half of ‘||compbl(left(calendar_yr));
            calendar_yr_mth=compbl(left(calendar_yr||’, MTH ‘||calendar_month));

        calendar_yr_week=compbl(left(calendar_yr||’, WK ‘||calendar_week));
        calendar_mth_week=compbl(left(’MONTH ‘||calendar_month||’, WK’||calendar_week));

        Select (Month(i));
            When (1) season=’Summer’;
            When (2) season=’Summer’;
            When (3) season=’Autumn’;
            When (4) season=’Autumn’;
            When (5) season=’Autumn’;
            When (6) season=’Winter’;
            When (7) season=’Winter’;
            When (8) season=’Winter’;
            When (9) season=’Spring’;
            When (10)season=’Spring’;
            When (11)season=’Spring’;
            When (12)season=’Summer’;
            Otherwise;
        End;

        *Financial Year Dates;
        if month(i)=3 then financial_qtr=qtr(i)-2; else financial_qtr=qtr(i)+2;
        if month(i) >=7 then financial_month=month(i)-6;else financial_month=month(i)+6;
        if month(i) >=7 then fy_year_halfyr = 1||’st Half of ‘||financial_year; else fy_year_halfyr = 2||’nd Half of ‘||financial_year;
        fy_year_qtr=compbl(left(financial_year||’, QTR ‘||financial_qtr));
        fy_year_month=compbl(left(financial_year||’, MONTH ‘||financial_month));

        *indicators/misc;
        If weekday(i) in (1,7) then weekend_indicator=’TRUE’; else weekend_indicator=’FALSE’;

        *Date Flags Forcing this dimension to refresh daily;
        if year(i) eq year(Today()) then calendar_ytd_flag=1; else calendar_ytd_flag=0;
        if year(i) eq year(Today()) and month(i) le 6 then fy_ytd_flag=1;
            else if year(i) eq year(Today())-1 and month(i) ge 7 then fy_ytd_flag=1;
            else fy_ytd_flag=0;

        /*filters:  Used for Creating Auto Date Filters for Cubes.  Requires Daily Refresh*/
        if i=today()-1 then prev_day_flag=1; else prev_day_flag=0;
        if i>today()-7 and i today()-183 then last_six_mth_flag=1; else last_six_mth_flag=0;
        if i>today()-366 then last_12_mth_flag=1; else last_12_mth_flag=0;
        output;
        i=i+1;
   end;
run

%let file0 = %nrquote(C:InetpubwwwrootSASproc0.csv);
%let file1 = %nrquote(C:InetpubwwwrootSASproc1.csv);
%let cmd0 = %nrquote(tasklist /v /fo csv >)&file0;
%let cmd1 = %nrquote(tasklist /svc /fo csv >)&file1;
%let batchFile = %nrquote(C:InetpubwwwrootSASproc.bat);

%let reportFileName0 = %nrquote(tasklists.html);
%let reportFileName1 = %nrquote(tasklistdetail.html);
%let reportFileName2 = %nrquote(tasklistdetailsas.html);
%let reportFile0 = %nrquote(C:InetpubwwwrootSAS)&reportFileName0;
%let reportFile1 = %nrquote(C:InetpubwwwrootSAS)&reportFileName1;
%let reportFile2 = %nrquote(C:InetpubwwwrootSAS)&reportFileName2;
%let odsStyle = Meadow;

%let server = yourservername;
options noxwait noxsync;

/*– Create a Batch File to Run tasklist –*/
data _null_;
file “&batchFile”;
put “&cmd1″;
put “&cmd0″;
run;

/*– Run the Batch File. Files go to TRANSIT –*/
systask cmd “&batchFile” wait;run;quit;

/*– Import the Data and Join It Together –*/
data tasklist0;
length server $11 run_dt 8 run_tm 8 run_dt_tm 8 image_name $50 pid 8 session_name $50 session_num 8 memory_kb 8 mem_usage $25 status $15
user_name $50 cpu $10 cpu_time 8 window_title $225;
infile “&file0″ dlm=’,’ dsd missover lrecl=32637 firstobs=2;
input image_name $ pid session_name $ session_num mem_usage $ status $
user_name $ cpu $ window_title $;

drop cpu mem_usage;
format run_dt yymmdd10. run_tm timeampm10. run_dt_tm datetime20. cpu_time time. memory_kb comma9.;
cpu_time = input(cpu,time.);
server=”&server”;
run_dt = date();
run_tm = time();
run_dt_tm = datetime();
memory_kb = input(scan(mem_usage,1,’ ‘),comma9.);

run;quit;

data tasklist1;
length image_name $50 pid 8 services $500;
infile “&file1″ dlm=’,’ dsd missover lrecl=32637 firstobs=2;
input image_name $ pid services $;
services = %nrquote(services);
run;quit;

proc sql noprint;
create table report0 as
select a.*,b.services,1 as n from tasklist0 a, tasklist1 b where a.pid=b.pid;
quit;

/*– Full List –*/
proc sort data=report0;
by user_name;
run;

/*– Summary –*/
proc sql noprint;
create table summary0 as
select
server,
user_name,
run_dt,
run_tm,
image_name,
sum(memory_kb) as total_memory_kb format=comma9.,
sum(memory_kb)/1024 as total_memory_mb format=comma9.,
sum(n) as total_processes format=comma9.
from
report0
group by
server,
user_name,
run_dt,
run_tm,
image_name
;
quit;

proc sql noprint;
create table summary1 as
select
server,user_name,run_dt, sum(total_memory_kb) as total_memory_kb format=comma9.,
sum(total_memory_mb) as total_memory_mb format=comma9.,sum(total_processes) as total_processes format=comma9.
from
summary0
group by
server,user_name,run_dt
;
quit;

proc sql noprint;
create table summary2 as
select
server,user_name,run_dt, sum(total_memory_kb) as total_memory_kb format=comma9.,
sum(total_memory_mb) as total_memory_mb format=comma9.,sum(total_processes) as total_processes format=comma9.
from
summary0
where
image_name = ‘sas.exe’
group by
server,user_name,run_dt
;
quit;
data summary1;
set summary1;
num = _n_-1;

drop num links;
user = ‘‘||user_name||’‘;
run;

data summary2;
set summary2;
num = _n_-1;
drop num;
user = ‘‘||user_name||’‘;
run;

/*– Reports ODS –*/
ods html file=”&reportFile0″ style=&odsStyle gpath=’C:Inetpubwwwrootsas’;

proc print data=summary1 noobs;
title1 ‘Currently Running Processes – Summary 1′;
sum total_memory_kb total_memory_mb total_processes;
run;

proc print data=summary2 noobs;
title1 ‘Currently Running SAS Processes – Summary 1′;
sum total_memory_kb total_memory_mb total_processes;
run;

proc print data=summary0 noobs;
title1 ‘Currently Running Processes – Summary 2′;
sum total_memory_kb total_memory_mb total_processes;
run;
ods html close;

ods html file=”&reportFile1″ style=&odsStyle;

proc print data=report0 noobs;
title1 ‘Running Processes by User.’;
by user_name;
sumby user_name;
sum memory_kb cpu_time n;
var server run_dt_tm image_name window_title pid session_name status services memory_kb cpu_time n;
run;

ods html close;

ods html file=”&reportFile2″ style=&odsStyle;

proc print data=report0(where=(image_name in(‘sas.exe’)))noobs;
title1 ‘Running Processes by User.’;
by user_name;
sumby user_name;
sum memory_kb cpu_time n;
var server run_dt_tm image_name window_title pid session_name status services memory_kb cpu_time n;
run;

ods html close;