SET TIME

#### Search Results

Search

# SET TIME

| `SET TIME` |
`SETTIME`

Dieses Dokument behandelt folgende Themen:

- Funktion

- Beispiel

Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.

## Funktion

Das Statement `SET TIME` (oder `SETTIME`) wird in Verbindung mit der Natural-Systemvariablen `*TIMD` verwendet und dient dazu, die für die Ausführung eines bestimmten Programmteils benötigte Zeit zu messen.

Das `SET TIME`-Statement wird an einer bestimmten Stelle im Programm platziert, und die Systemvariable `*TIMD` gibt dann an, wieviel Zeit seit der Ausführung des `SET TIME`-Statements verstrichen ist.

Die Systemvariable `*TIMD` muss das `SET TIME`-Statement ausdrücklich referenzieren, entweder durch Angabe der Sourcecode-Zeilennummer oder mittels eines Statement-Labels.

## Beispiel

    ** 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

Ausgabe des Programms `STIEX1`:

    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

### On this page

- Funktion
- Beispiel