⨳ encoding data points for use with google charts api calls ⨳

data encSimple encEnhanced;
    s='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-.';
    format raw 8. enc $8.;
    raw=.;
    enc='_'; output encSimple;
    enc='__'; output encEnhanced;
    do i=0 to 63;
        raw=i;
        enc=substr(s, i+1, 1);
        output encSimple;
        do j = 0 to 63;
            raw=i*(64**1)+j;
            enc=cats(substr(s, i+1, 1), substr(s, j+1, 1));
            output encEnhanced;
        end;
    end;
    drop i j s;
run;

proc summary data=sashelp.air nway;
    class date;
    format date yyq8.;
    var air;
    output out=air sum=;
run;
data test2;
    set air;
    enc=' ';
    if _n_=1 then do;
        declare hash s(dataset:'encenhanced');
        s.defineKey('raw');
        s.defineData('enc');
        s.defineDone();
    end;
    xEnc=enc;
    raw=air;
    rc=s.find();
    if rc then enc='_';
    yEnc=enc;
    drop enc raw rc;
run;
proc sql noprint;
    select xEnc, yEnc
    into :x separated by '', :y separated by ''
    from test2;
quit;
filename clip clipbrd;
data _null_;
    file clip;
    format url $1000.;
    url=catx('&'
    ,"cht=lc"
    ,"chs=250x100"
    ,"chd=s:&Y."
    ,"chco=FF000099,0000FF66"
    );
    url=catx('?', "http://chart.apis.google.com/chart", url);
    put url;
run;