Share via

PROGRAM( )-Funktion

  • Artikel

Gibt den Namen des derzeit ausgeführten Programms oder des Programms zurück, das beim Auftreten eines Fehlers ausgeführt wurde.

PROGRAM([nLevel])

Rückgabewerte

Zeichen oder numerisch

Parameter

  • nLevel
    Gibt an, in wie vielen Programmebenen abwärts nach dem Programmnamen gesucht werden soll. Dieser Parameter kann den Bereich von 0 bis zur Verschachtelungstiefe des Programms umfassen. Ein Programm kann ein weiteres Programm ausführen, das wiederum ein anderes Programm ausführen kann usw. Programme können in bis zu 128 Ebenen verschachtelt werden.

    Wenn Sie in nLevel den Wert 0 oder 1 angeben, gibt PROGRAM( ) den Namen des Hauptprogramms (das Programm auf der höchsten Ebene) zurück. Wenn nLevel die Verschachtelungstiefe des Programms überschreitet, gibt PROGRAM( ) eine leere Zeichenfolge zurück.

    Wenn Sie in nLevel den Wert -1 angeben, gibt PROGRAM( ) als numerischen Wert die aktuelle Programmebene zurück. PROGRAM(-1) ergibt immer 0, wenn es vom Befehlsfenster aus aufgerufen wird.

Hinweise

PROGRAM( ) ist bei der Fehlerbeseitigung im Programm nützlich. Es ist ähnlich wie SYS(16).

Wenn Sie PROGRAM( ) ohne ein Argument ausgeben, wird der Name des derzeit ausgeführten Programms zurückgegeben.

Beispiel

ON ERROR DO errhand WITH PROGRAM( )

** The next line should generate an error ** USE nodatabase ON ERROR && Returns to system default error-handling routine PROCEDURE errhand PARAMETERS gcProgram WAIT 'An error occurred in the program ' + gcProgram WINDOW

Siehe auch

DO | LINENO( ) | MESSAGE( ) | SYS(16) - Dateiname des ausgeführten Programms | ASTACKINFO( )