|
|
SET TIME
|
|
SETTIME
|
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
SET TIME（または SETTIME）ステートメントは、Natural システム変数 *TIMD と組み合わせて、プログラムの特定のセクションを実行するために要した時間を計測するために使用します。
SET TIME ステートメントはプログラムの特定の位置に指定されます。*TIMD の値は、SET TIME ステートメントの実行時点からの経過時間です。
*TIMD には必ず SET TIME ステートメントへの参照を含める必要があります。そのためには、SET TIME ステートメントのソースコード行番号を使用するか、参照として使用できるラベルを SET TIME ステートメントに割り当てます。
** Example 'STIEX1': SETTIME
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 NAME
END-DEFINE
*
ST. SETTIME
WRITE 10X 'START TIME:' *TIME
*
READ (100) EMPLOY-VIEW BY NAME
END-READ
*
WRITE NOTITLE 10X 'END TIME: ' *TIME
WRITE 10X 'ELAPSED TIME TO READ 100 RECORDS'
'(HH:II:SS.T) :' *TIMD (ST.) (EM=99:99:99'.'9)
*
END START TIME: 16:39:07.6 END TIME: 16:39:07.7 ELAPSED TIME TO READ 100 RECORDS (HH:MM:SS.T) : 00:00:00.1