View source for $Subsys

<b>Function</b>
<p>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.</p>
<b>Syntax</b>
<p class="code">$SUBSYS(subsystemname)
</p>
<p>$SUBSYS takes a subsystem name as an argument and returns a value indicating the status of that subsystem</p>
<table>
<tr class="head">
<th>Value</th>
<th>The subsystem is...</th>
</tr>
<tr>
<td align="right">0</td>
<td>Not active (not started)</td>
</tr>
<tr>
<td align="right">1</td>
<td>Active (started)</td>
</tr>
<tr>
<td align="right">2</td>
<td>Draining (the STOP command has been issued and users are in the subsystem).</td>
</tr>
<tr>
<td align="right">3</td>
<td>In test mode.    </td>
</tr>
<tr>
<td align="right">4</td>
<td>Draining (because a SUSPEND command was issued)</td>
</tr>
<tr>
<td align="right">5</td>
<td>Suspended</td>
</tr>
</table>
<p>The $SUBSYS function without an argument returns the name of the subsystem you are currently in. For example, the User Language statement:</p>
<p class="code">%CURSYS = $SUBSYS 
</p>
<p>assigns the name of the current subsystem to %CURSYS, if executed within a subsystem, or returns null if at command level.</p>
<b>Example</b>
<p class="code">        .
        .
        .
 TRANSFER: IF $SUBSYS('AUTOS') = 1 THEN
 .
 *
 *             TRANSFER TO INSURANCE SUBSYSTEM
 *
        . 
        .
        .  
</p>
[[Category:SOUL $functions]]