|
|
SET TIME
|
|
SETTIME
|
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
The SET TIME (or SETTIME) statement is used in conjunction with
the Natural system variable *TIMD to measure the time it takes to execute
a specific section of a program.
The SET TIME statement is placed at a specific position in the program, and
*TIMD will contain the amount of time elapsed
since the execution of the SET TIME statement.
*TIMD must always contain a reference to the
SET TIME statement, either by using the source-code line number of the
SET TIME statement or by assigning a label to the SET TIME
statement, which can then be used as a reference.
** 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:MM: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