データステップ100万回　SAS新手一生: 2月 2025

テキストをモールス信号に変換する関数

やっぱりモールス信号って業務で良く使いますよね．
プログラマ派遣先にいったら，全ての通信機器を取り上げられ，鉄格子窓のある部屋に閉じ込められて，SASの入ったPCだけ与えられて労働させられたみたいなあるあるの状況の際に

電気の消灯点灯タイミングで外部に助けを求めることができるかどうかが大事です

いちいち調べるの面倒なので，変換関数作ってみました

proc fcmp outlib=work.functions.common;

function text2morse (text $) $ ;

length key1 $1 text _rvalue rvalue $2000 ;

_text=upcase(compress(text));

declare dictionary d1 ;

d1["A"] = "・－";

d1["B"] = "－・・・";

d1["C"] = "－・－・";

d1["D"] = "－・・";

d1["E"] = "・";

d1["F"] = "・・－・";

d1["G"] = "－－・";

d1["H"] = "・・・・";

d1["I"] = "・・";

d1["J"] = "・－－－";

d1["K"] = "－・－";

d1["L"] = "・－・・";

d1["M"] = "－－";

d1["N"] = "－・";

d1["O"] = "－－－";

d1["P"] = "・－－・";

d1["Q"] = "－－・－";

d1["R"] = "・－・";

d1["S"] = "・・・";

d1["T"] = "－";

d1["U"] = "・・－";

d1["V"] = "・・・－";

d1["W"] = "・－－";

d1["X"] = "－・・－";

d1["Y"] = "－・－－";

d1["Z"] = "－－・・";

do i = 1 to length(_text);

_key1=char(_text,i);

_rvalue= d1[_key1];

rvalue=catx(" ",rvalue,_rvalue);

end;

put _text= rvalue=;

return(rvalue);

endsub;

run;

で，使ってみます

options cmplib=work.functions ;

data test;

length x $200.;

x = "SOS";output;

x = "SAS";output;

x = "VVV";output;

run;

data a;

set test;

y = text2morse(x);

run;

proc print data=a noobs;

run;

こっちのけんとさんのおかげで誰でもわかるようになったSOSとかちゃんと変換できてますね
VVVはムスカ大佐が通信してたやつで，本日は晴天なり　みたいな試験信号です

数字や記号は今回無視しています

Excelのガントチャートでイベントの持続期間を可視化

👆
こういうのを簡単に作る方法．DDEとかは使わない．SASのRWI(Report Writing Interface)とODS EXCELでやります

テストデータとして，

data wk1;

SUBJID="AAA";AETERM="事象1"; AESTDY=1;AEENDY=5;output;

SUBJID="AAA";AETERM="事象2"; AESTDY=3;AEENDY=8;output;

SUBJID="BBB";AETERM="事象1"; AESTDY=2;AEENDY=30;output;

SUBJID="BBB";AETERM="事象2"; AESTDY=-2;AEENDY=3;output;

SUBJID="BBB";AETERM="事象3"; AESTDY=4;AEENDY=.;output;

SUBJID="CCC";AETERM="事象1"; AESTDY=15;AEENDY=20;output;

run;

要は，開始と終了の相対日付（DY変数）をもっていればなんでもOK
終了日がnullの場合は，継続として最大までバーをひっぱる仕様を想定

以下　コードですが，面白いのがexcelに出力するSAS RWIの部分での指定が，信じられないぐらいシンプルなのと，セル幅が自動でlengthに連動してくれるので細かいメッシュにたいして何の範囲指定や命令を書かなくても全部えー感じにしてくれるところ．
この技術はわりと使える

proc sql noprint;

select min(min(AESTDY,1)) into:min trimmed from wk1;

select max(max(AESTDY,AEENDY)) into:max trimmed from wk1;

quit;

%put &=min;

%put &=max;

%let range =%eval( %sysfunc(range(&min,&max))+ (0<&min));

%put &=range;

data wk2;

set wk1;

array ar{&range.} $1.;

if &min < 1 then do;

st = AESTDY - &min + (AESTDY<1);

if ^missing(AEENDY) then en = AEENDY - &min + (AEENDY<1);

end;

else do;

st=AESTDY;

en=AEENDY;

end;

do i = 1 to &range;

if st <=i <=en then ar{i}="Y";

else if st=i and missing(en) then ar{i}="Y";

else if st<=i and missing(en) then ar{i}="O";

end;

run;

%macro hed();

%do i = &min %to &max;

if &i ne 0 then ob.format_cell(data: "&i", style_attr: "background=blue color=white");

%end;

%mend;

%macro row();

%do i = 1 %to %eval(&range);

if ar&i="Y" then ob.format_cell(data: ar&i, style_attr: "background=red color=red");

else if ar&i="O" then ob.format_cell(data: ar&i, style_attr: "background=pink color=pink");

else ob.format_cell(data: ar&i, style_attr: "background=white color=white");

%end;

%mend;

ods excel options( sheet_name= "GANT" );

data _NULL_;

set wk2 end=EOF;

if _N_=1 then do;

dcl odsout ob();

ob.table_start();

*** header ;

ob.head_start();

ob.row_start();

ob.format_cell(data: "ID", style_attr: "background=darkblue color=white");

ob.format_cell(data: "Event", style_attr: "background=darkblue color=white");

ob.format_cell(data: "STDY", style_attr: "background=darkblue color=white");

ob.format_cell(data: "ENDY", style_attr: "background=darkblue color=white");

%hed();

ob.row_end();

ob.head_end();

end;

*** report ;

ob.row_start();

ob.format_cell(data: SUBJID);

ob.format_cell(data: AETERM);

ob.format_cell(data: AESTDY);

ob.format_cell(data: AEENDY);

%row();

ob.row_end();

if EOF then ob.table_end();

run;

ods excel close;

Proc ODSTABLEでRTFを作る際に任意の位置で改ページをする方法

Proc OdstableはProc Reportでできる機能をほぼすべて実装可能なうえに，構文がよりシンプルであり,個人的には完全な上位互換だと思っています

ただ，RTFを作成する際の大きな弱点として，Proc ReportのbreakがOdstableにはなく任意の位置での改ページができないことがありました．
2018年にSASユーザー総会で「PROC ODSTABLEを用いた帳票作成」という論文が発表されていますが，そちらでもその点書かれていました．

8年間色々，チャレンジしてきましたが，最近また向き合う機会があり，一応実装できたので共有．

data output;

set sashelp.class;

if mod(_N_,3)=0 then break ="Y";

keep Name Age break;

run;