---

SECONDS

(読取り専用)SECONDSオプションは、1970年1月1日以降の秒数を保持します。プログラムの高速化を目指す場合に、SECONDSを使用することにより、プログラムが実行されている間の実際の経過秒数がわかります。

データ型

INTEGER

構文

SECONDS

例

例5-95 SECONDSを使用したプログラムの時間測定

次のプログラムを実行すると、プログラム開始時のSECONDSの値がt1という変数に書き込まれ、次にt1とプログラム実行後のSECONDSの値との差が表示されます。

DEFINE prodsummary PROGRAM
PROGRAM
VARIABLE t1 INTEGER
t1 = seconds
LIMIT product TO ALL
BLANK
FOR product
DO
  ROW WIDTH 16 name.product ACROSS month Jun96: DECIMAL 0 LSET -
   '$'WIDTH 18 <RSET ' (actual)' sales RSET ' (plan)' sales.plan>
DOEND
BLANK
ROW WIDTH 35 LSET 'the program took ' RSET ' SECOND(s).' -
 (SECONDS-t1)
END

このプログラムを実行すると、次の結果が生成されます。

3-Person Tents     $95,121 (actual)     $80,138 (plan)
Aluminum Canoes   $157,762 (actual)    $132,931 (plan)
Tennis Racquets    $97,174 (actual)     $84,758 (plan)
Warm-up Suits      $79,630 (actual)     $73,569 (plan)
Running Shoes     $153,688 (actual)    $109,219 (plan)
 
      The program took 2 second(s).