|
|
SET TIME
|
|
SETTIME
|
This document covers the following topics:
For explanations 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