SYSTEM-CALL( ) Output command source

Domain: Procedure information

Within a procedure which has been called as the implementor of a command, the SYSTEM-CALL( ) function determines the source of the command: i.e. whether it originates from the system syntax file or the group syntax file. For further details see the “SDF-A” manual [16].

Format

SYSTEM-CALL( )

Result type

BOOLEAN

Input parameters

None

Result

TRUE
The procedure was called by the system, i.e. it supports a command defined in a system or group syntax file by means of an SDF-A ADD-COMMAND statement with IMPLEMENTOR=*PROCEDURE. For further details see the “SDF-A” manual [16].

FALSE
The procedure is called explicitly via the CALL-PROCEDURE or INCLUDE-PROCEDURE command or via a procedure call that is implemented as a command in the user syntax file.

Note

It is superfluous to specify /IF (SYSTEM-CALL( ) AND NOT EXPLICIT-CALL( )), because only the first check by SYSTEM-CALL( ) is necessary.

Error messages

No error messages

Example

/SET-PROCEDURE-OPTIONS “Procedure MYPROC”
/
/WRITE-TEXT ‘System call: &(SYSTEM-CALL)‘
/EXIT-PROCEDURE 
/CALL-PROCEDURE MYPROC
System call: TRUE
/MY-COMMAND MYPROC   “Command from a user syntax file with implementation”
/                                                   “of the procedure MYPROC” 
System call: FALSE
/A-GROUP-COMMAND MYPROC   "Command from group syntax file with " 
/                         "implementation of the procedure MYPROC" 
System call: TRUE