$Subsys

Function

The $SUBSYS function determines the status of a subsystem. This function typically is used when designing applications through the Subsystem Management facility. You can use $SUBSYS to determine whether a subsystem is active before transferring control from one subsystem to another.

Syntax

$SUBSYS(subsystemname)

$SUBSYS takes a subsystem name as an argument and returns a value indicating the status of that subsystem

Value	The subsystem is...
0	Not active (not started)
1	Active (started)
2	Draining (the STOP command has been issued and users are in the subsystem).
3	In test mode.
4	Draining (because a SUSPEND command was issued)
5	Suspended

The $SUBSYS function without an argument returns the name of the subsystem you are currently in. For example, the User Language statement:

%CURSYS = $SUBSYS

assigns the name of the current subsystem to %CURSYS, if executed within a subsystem, or returns null if at command level.

Example

. . . TRANSFER: IF $SUBSYS('AUTOS') = 1 THEN . * * TRANSFER TO INSURANCE SUBSYSTEM * . . .