SYSTEM-CALL( ) Kommandoquelle ausgeben

Anwendungsgebiet: Prozedurinformationen

Die Funktion SYSTEM-CALL( ) gibt innerhalb einer Prozedur an, die als Implementor eines Kommandos aufgerufen wurde, ob das Kommando aus der System- oder Gruppensyntaxdatei stammt (siehe dazu auch Handbuch „SDF-A“ [16]).

Format

SYSTEM-CALL( )

Ergebnistyp

BOOLEAN

Eingabeparameter

Keine

Ergebnis

TRUE
Die Prozedur wurde vom System aufgerufen, d.h. der Prozeduraufruf ist als Kommando in einer System- bzw. Gruppensyntaxdatei implementiert (mit der SDF-A-Anweisung //ADD-CMD und IMPLEMENTOR=*PROCEDURE, siehe dazu Handbuch „SDF-A“ [16]).

FALSE
Der Prozeduraufruf erfolgte explizit über das Kommando CALL- bzw. INCLUDE-PROCEDURE oder über einen Prozeduraufruf, der als Kommando in einer Benutzer-Syntaxdatei implementiert ist.

Hinweis

Die Angabe /IF (SYSTEM-CALL( ) AND NOT EXPLICIT-CALL( )) ist überflüssig, da nur die erste Überprüfung mit SYSTEM-CALL( ) notwendig ist.

Fehlermeldung

Keine

Beispiel

/SET-PROCEDURE-OPTIONS "Procedure MYPROC"
/
/WRITE-TEXT 'Systemaufruf: &(SYSTEM-CALL)'
/EXIT-PROCEDURE 
/CALL-PROCEDURE MYPROC
Systemaufruf: TRUE
/MY-COMMAND MYPROC   "Kommando aus Benutzer-Syntaxdatei mit Implementierung"
/                    "der Prozedur MYPROC" 
Systemaufruf: FALSE
/A-GROUP-COMMAND MYPROC   "Kommando aus Gruppen-Syntaxdatei mit " 
/                         "Implementierung der Prozedur MYPROC" 
Systemaufruf: TRUE