"." 演算子を使用してタイプ付き構造体メンバーを参照する構文は、次のとおりです。
|
例えば、*** ページの例の中で定義された構造体タイプ tm と関数 localtime を指定して、 以下のコードはシステム日付を入手し、時刻を表示します。
dcl Daterec type tm;
dcl ltime type time_t;
dcl ptime handle tm;
ltime = time( null() );
ptime = localtime( ltime );
Daterec = ptime => tm;
display ( edit(Daterec.Hours,'99') || ':' ||
edit(Daterec.Minutes,'99') || ':' ||
edit(Daterec.Seconds,'99'));